quarta-feira, 27 de novembro de 2013

Consulta Ordem para gerar pedido ( Datasul )


def var n-ordem as int format ">>>>>>>>9".

disp "Verificando se Ordem OK para Geracao Automatica de Pedido"
with width 300.
update n-ordem.

for each ordem-compra no-lock
where numero-ordem = n-ordem:

disp numero-ordem
situacao (if situacao = 3 then "OK" else "Deveria ser 3 = cotado") format "x(50)"
num-pedido (if num-pedido = 0 then "OK" else "Nao deve conter pedido") format "x(50)"
cod-cond-pag (if cod-cond-pag <> ? then "OK" else "Deve ser informado Condicao de Pgamento") format "x(50)"
expectativa (if expectativa = NO then "OK" else "Deve estar DESMARCADO a Expectativa" ) format "x(50)"
cod-comprado
with 1 column width 300.

end.

Nenhum comentário:

Postar um comentário