sexta-feira, 29 de novembro de 2013

Programa para Emissão de Relatório de Requisições ( Datasul )

         
 OUTPUT TO  c:/temp/requisicoes.csv NO-CONVERT.  
            
            DEFINE VARIABLE c-sit AS CHAR FORMAT "X(10)" EXTENT 4 INITIAL ["aberta","fechada","pend cpml","com ordem"]NO-UNDO.    
            DEFINE VARIABLE c-est AS CHAR FORMAT "X(10)" EXTENT 2 INITIAL ["aprovada","n aprovada"]NO-UNDO. 
            DEFINE VARIABLE c-tip AS CHAR FORMAT "X(10)" EXTENT 3 INITIAL ["requisicao estoque","solicitacao compras","solicitacao cotacao"]NO-UNDO.   

            PUT

                "estabelecimento ;"
                "Nr Requisicao ;"
                "Dt Requisicao ;"
                "Requisitante ;"
                "Tipo ;"
                "Estado ;"
                "Situacao ;"

                SKIP.

            FOR EACH requisicao WHERE requisicao.dt-requisicao <= 01/01/2007 AND
                     requisicao.tp-requis = 1 AND 
                     requisicao.estado = 1  AND 
                     requisicao.situacao = 1 NO-LOCK:

                                    
            EXPORT DELIMITER ";"

      requisicao.cod-estabel
      requisicao.nr-requisicao
      requisicao.dt-requisicao
      requisicao.nome-abrev
      c-tip [requisicao.tp-requis]
      c-est [requisicao.estado]
      c-sit [requisicao.situacao]
                SKIP.
     
END.

Nenhum comentário:

Postar um comentário