quarta-feira, 27 de novembro de 2013

Busca pedido sem cotação ( Datasul )



DEF VAR carq AS CHAR INITIAL "c:\temp\pedidos-sem-cotacao.txt" NO-UNDO.

OUTPUT TO VALUE(carq).
       
    FOR EACH ordem-compra USE-INDEX data-emissao  NO-LOCK
    WHERE ordem-compra.data-emissao > 07/01/2010
      AND ordem-compra.num-pedido > 0:

    FIND FIRST cotacao-item
        WHERE cotacao-item.numero-ordem = ordem-compra.numero-ordem
          AND cotacao-item.cot-aprova
        AND cotacao-item.data-cotac <> 11/11/1111
        USE-INDEX cotacao NO-LOCK NO-ERROR.
    IF NOT AVAIL cotacao-item THEN DO:
        FIND FIRST movcmt
            WHERE movcmt.cmtchavemp = string(ordem-compra.numero-ordem)
            NO-LOCK NO-ERROR.
        FIND FIRST prazo-compra
            WHERE prazo-compra.numero-ordem = ordem-compra.numero-ordem
            NO-LOCK no-error.
        DISP ordem-compra.numero-ordem ordem-compra.num-pedido
             (IF AVAIL movcmt THEN movcmt.cotnum ELSE "")
             (IF AVAIL prazo-compra THEN prazo-compra.situacao ELSE 0).
    END.  

END.

OUTPUT CLOSE.
OS-COMMAND NO-WAIT VALUE("notepad " + carq).

Nenhum comentário:

Postar um comentário