quarta-feira, 27 de novembro de 2013

Status das Notas Fiscais ( Datasul )



/*OUTPUT TO C:\TEMP\NFE.LST.NO-CONVERT. */

DEFINE VARIABLE C-SIT  AS CHAR EXTENT 10 INITIAL ["NFE NAO GERADA",
                                                  "EM PROCESSAMENTO NO EAI",
                                                  "USO AUTORIZADO",
                                                  "USO DENEGADO",
                                                  "DOCUMENTO REJEITADO",
                                                  "DOCUMENTO CANCELADO",
                                                  "DOCUMENTO INUTILIZADO",
                                                  "EM PROCESSAMENTO NO APLICATIVO DE TRANSMISSAO",
                                                  "EM PROCESSAMENTO NA SEFAZ",
                                                  "EM PROCESSAMENTO NO SCAN"] NO-UNDO.
 
     
                                                                     
                FOR EACH sit-nf-eletro WHERE sit-nf-eletro.dt-emis-nota > 09/01/2008
                     AND sit-nf-eletro.cod-estabel = "301"
                    /*  AND sit-nf-eletro.idi-sit-nf-eletro <> 3
               
                   */ AND sit-nf-eletro.idi-sit-nf-eletro = 2
                   NO-LOCK   BY sit-nf-eletro.cod-estabel
                             BY sit-nf-eletro.cod-nota-fisc :
    DISP
        sit-nf-eletro.cod-nota-fisc
        sit-nf-eletro.cod-estabel  
        sit-nf-eletro.cod-serie
        sit-nf-eletro.dt-emis-nota
       C-SIT [sit-nf-eletro.idi-sit-nf-eletro] FORMAT "X(30)"
     
   
      WITH WIDTH 600.
END.

Nenhum comentário:

Postar um comentário