terça-feira, 26 de novembro de 2013

Auditoria Lancto Contabil no FGL - Manual/Automatico


DEF VAR l-tipo AS LOG FORMAT "Manual/Automatico".
DEF VAR I-CONT AS INT INIT 0.

OUTPUT TO C:\LANCTO.TXT.

FOR EACH ITEM_LANCTO_CTBL
   WHERE ITEM_LANCTO_CTBL.cod_empresa = "1"
     AND ITEM_lancto_ctbl.dat_lancto_ctbl >= 08/01/2007
     AND ITEM_lancto_ctbl.dat_lancto_ctbl <= 08/31/2007:

    FIND lancto_ctbl OF ITEM_lancto_ctbl NO-LOCK NO-ERROR.
 
    FIND lote_ctbl OF ITEM_lancto_ctbl NO-LOCK NO-ERROR.

    IF  lote_ctbl.cod_modul_dtsul = "FGL"
        THEN ASSIGN l-tipo = YES.
        ELSE ASSIGN l-tipo = NO.
 
     ASSIGN  I-CONT = I-CONT + 1.
   
     IF I-CONT = 1 THEN
     PUT "LOTE;SEQ;DATA;DATA_CT;USUARIO;CONTA;NATUREZA;VALOR;HISTORICO;TIPO;MODULO"
         SKIP.

     put ITEM_lancto_ctbl.num_lote_ctbl
         ";"
         ITEM_lancto_ctbl.num_seq_lancto_ctbl
         ";"
         lote_ctbl.dat_ult_atualiz
         ";"
         ITEM_lancto_ctbl.dat_lancto_ctbl
         ";"
         lote_ctbl.cod_usuar_ult_atualiz
         ";"
         ITEM_lancto_ctbl.cod_cta_ctbl
         ";"
         ITEM_lancto_ctbl.ind_natur_lancto_ctbl /* db cr */
         ";"
         ITEM_lancto_ctbl.val_lancto_ctbl
         ";"
         ITEM_lancto_ctbl.des_histor_lancto_ctbl FORMAT "x(200)"
         ";"
         l-tipo
         ";"
         lote_ctbl.cod_modul_dtsul
         SKIP.
END.
ASSIGN I-CONT = 0.
OUTPUT CLOSE.

Nenhum comentário:

Postar um comentário