Voltar Pedido/Ordem Eliminada para Pedido Impresso/Ordem Confirmada

Voltar Pedido e Ordens Eliminadas para Pedido Impresso e Ordens Confirmadas

FOR EACH pedido-compr WHERE pedido-compr.num-pedido = 237999:

DISP pedido-compr.num-pedido

    pedido-compr.situacao.

UPDATE  pedido-compr.situacao. //Impresso

END.

***************Voltar Ordem Eliminada********************

FOR EACH ordem-compra WHERE ordem-compra.numero-ordem = 8118200 :
    DISP ordem-compra.numero-ordem
         ordem-compra.num-pedido
         ordem-compra.cod-emitente
         ordem-compra.it-codigo
         ordem-compra.data-emissao
         ordem-compra.data-cotacao
        situacao WITH WIDTH 300 1 COL.
    UPDATE ordem-compra.situacao. // Confirmada
END.

FOR EACH ordem-compra
   WHERE ordem-compra.numero-ordem = 8118200.
    FOR EACH prazo-compra OF ordem-compra
       WHERE prazo-compra.parcela = 1.
      UPDATE prazo-compra.situacao //Confirmada
     WITH 1 COL WIDTH 600.

**************************************************************

--------------------------------------------------------------------------------------