quarta-feira, 27 de novembro de 2013

Consulta Ordens Recebidas ( Datasul )


OUTPUT TO "c:\TEMP\ordens_recebidas.csv" .

DEFINE VARIABLE c-sit AS CHAR EXTENT 6 INITIAL ["nao confirmanda","confirmada","cotada","eliminada","em cotacao","recebida"]NO-UNDO.

EXPORT DELIMITER ";"
   "Estab"
    "Dt pedido"
    "Nota Fiscal"
    "Transacao"
    "Natureza Operacao"
    "Nr Pedido"
    "Cod Emitente"
    "Item"
    "descricao"
    "Pr Total"
    "Valor Parcela"
    "Parcela"
    "Vencimento".

for each mg.item-doc-est NO-LOCK,
    each mg.item no-lock
        where mg.item.it-codigo = mg.item-doc-est.it-codigo AND
              mg.ITEM.ge-codigo = 13,
    each mg.ordem-compra no-lock
         where mg.ordem-compra.it-codigo = mg.item.it-codigo AND
               mg.ordem-compra.numero-ordem = mg.Item-doc-est.numero-ordem AND
               mg.ordem-compra.num-pedido = mg.ITEM-doc-est.num-pedido AND
               mg.ordem-compra.data-pedido >= 04/01/2005 AND
               mg.ordem-compra.data-pedido <= 12/31/2008,
    each mg.docum-est no-lock
         where mg.docum-est.serie-docto = mg.item-doc-est.serie-docto and
               mg.docum-est.nro-docto = mg.item-doc-est.nro-docto and
               mg.docum-est.cod-emitente = mg.item-doc-est.cod-emitente and
               mg.docum-est.nat-operacao = mg.item-doc-est.nat-operacao,
    each mg.dupli-apagar no-lock
         where mg.dupli-apagar.serie-docto = mg.docum-est.serie-docto and
               mg.dupli-apagar.nro-docto = mg.docum-est.nro-docto and
               mg.dupli-apagar.cod-emitente = mg.docum-est.cod-emitente and
               mg.dupli-apagar.nat-operacao = mg.docum-est.nat-operacao AND
               mg.dupli-apagar.dt-vencim >= 07/05/2007 : /*and
               mg.ordem-compra.situacao  <> 6:*/
IF mg.ITEM.it-codigo = "101" THEN NEXT.

    EXPORT DELIMITER ";"
             docum-est.cod-estabel
            ordem-compra.data-pedido
            item-doc-est.nro-docto
             docum-est.dt-trans
            docum-est.nat-operacao
            item-doc-est.num-pedido
            item-doc-est.cod-emitente
            item-doc-est.it-codigo
            ITEM.desc-item
         
            docum-est.tot-valor
            dupli-apagar.vl-a-pagar
            dupli-apagar.parcela
            dupli-apagar.dt-vencim.

Nenhum comentário:

Postar um comentário