[RESOLVIDO] fgl900zl.py

Prezados, usei a API abaixo para gerar meus lotes.

Quero de uma só vez, gerar vários lotes com seus respectivos lançamentos.
Porém, mesmo criando as respectivas temp-tables, a API gera apenas um
lote.

Abaixo, é um exemplo. Estou criando os lotes 10 e 20., porém somente o 10
é criado com sucesso.

Alguém tem alguma sugestão?

Isolei o fonte.

Código:

{fgl/tt_lotes_contabeis.i}
&scoped-define COD_PLANO_CONTABIL "INT"
DEF NEW GLOBAL SHARED VAR c-seg-usuario AS CHAR NO-UNDO.
DEF NEW GLOBAL SHARED VAR v_cod_usuar_corren      AS CHAR   NO-UNDO.
DEF new global shared VAR v_cod_empres_usuar      as CHAR   no-undo.
def new global shared var v_rpt_s_1_lines         as int init 066.
def new global shared var v_rpt_s_1_columns       as int init 080.
def new global shared var v_rpt_s_1_bottom        as int init 063.
def new global shared var v_rpt_s_1_page          as int.
{inc_int/setbuffer.i}

create tt_integr_lote_ctbl_1.
assign tt_integr_lote_ctbl_1.tta_cod_modul_dtsul      = "FGL"                                                                                                                         
       tt_integr_lote_ctbl_1.tta_des_lote_ctbl        = "Teste10"
       tt_integr_lote_ctbl_1.tta_cod_empresa          = '1'
       tt_integr_lote_ctbl_1.tta_dat_lote_ctbl        = 01/01/2019
       tt_integr_lote_ctbl_1.ttv_rec_integr_lote_ctbl = RECID(tt_integr_lote_ctbl_1)                                                                                                  
       v_num_lancto   = 1                                                                                                                                                             
       v_num_seq_item = 0 no-error.                                                                                                                                                   
if error-status:error then return error.                                                                                                                                              

create tt_integr_lancto_ctbl_1.                                                                                                                                                       
assign tt_integr_lancto_ctbl_1.tta_cod_cenar_ctbl         = "FISCAL"                                                                                                                  
       tt_integr_lancto_ctbl_1.ttv_rec_integr_lote_ctbl   = tt_integr_lote_ctbl_1.ttv_rec_integr_lote_ctbl                                                                            
       tt_integr_lancto_ctbl_1.tta_num_lancto_ctbl        = 1                                                                                                           
       tt_integr_lancto_ctbl_1.tta_dat_lancto_ctbl        =  01/01/2019                                                                                                            
       tt_integr_lancto_ctbl_1.ttv_rec_integr_lancto_ctbl = RECID(tt_integr_lancto_ctbl_1) no-error.                                                                                  
if error-status:error then return error.                                                                                                                                              



create tt_integr_lote_ctbl_1.
assign tt_integr_lote_ctbl_1.tta_cod_modul_dtsul      = "FGL"                                                                                                                         
       tt_integr_lote_ctbl_1.tta_des_lote_ctbl        = "Teste20"
       tt_integr_lote_ctbl_1.tta_cod_empresa          = '1'
       tt_integr_lote_ctbl_1.tta_dat_lote_ctbl        = 01/01/2019
       tt_integr_lote_ctbl_1.ttv_rec_integr_lote_ctbl = RECID(tt_integr_lote_ctbl_1)                                                                                                  
       v_num_lancto   = 2                                                                                                                                                             
       v_num_seq_item = 0 no-error.                                                                                                                                                   
if error-status:error then return error.                                                                                                                                              

create tt_integr_lancto_ctbl_1.                                                                                                                                                       
assign tt_integr_lancto_ctbl_1.tta_cod_cenar_ctbl         = "FISCAL"                                                                                                                  
       tt_integr_lancto_ctbl_1.ttv_rec_integr_lote_ctbl   = tt_integr_lote_ctbl_1.ttv_rec_integr_lote_ctbl                                                                            
       tt_integr_lancto_ctbl_1.tta_num_lancto_ctbl        = 1                                                                                                           
       tt_integr_lancto_ctbl_1.tta_dat_lancto_ctbl        =  01/01/2019                                                                                                            
       tt_integr_lancto_ctbl_1.ttv_rec_integr_lancto_ctbl = RECID(tt_integr_lancto_ctbl_1) no-error.                                                                                  
if error-status:error then return error.                                                                                                                                              



def var c-arquivo as char.

assign c-arquivo = session:temp-directory + "efg0_.txt".

output stream s_1 to value(c-arquivo) paged page-size value(v_rpt_s_1_lines) /*convert target "iso8859-1"*/ NO-CONVERT.
run prgfin/fgl/fgl900zl.py (INPUT 3 /*Versão Integração*/,                                                                                                                            
                            INPUT "Aborta Tudo" /*Tratamento Erros*/,                                                                                                                 
                            INPUT YES /*Emite Relatório*/,                                                                                                                            
                            INPUT 66 /*Número Linhas Relatório*/,                                                                                                                     
                            INPUT "Apropriação" /*Nível Impressão*/,                                                                                                                  
                            INPUT "Com Erro" /*Impressão Lotes*/,                                                                                                                     
                            INPUT no   /*Lógico Primeiro Lote Contábil*/,                                                                                                              
                            INPUT yes  /*Lógico Último Lote Contábil*/,                                                                                                                
                            INPUT-OUTPUT TABLE tt_integr_lote_ctbl_1,                                                                                                                 
                            INPUT-OUTPUT TABLE tt_integr_lancto_ctbl_1,                                                                                                               
                            INPUT-OUTPUT TABLE tt_integr_item_lancto_ctbl_1,                                                                                                          
                            INPUT-OUTPUT TABLE tt_integr_aprop_lancto_ctbl_1,                                                                                                         
                            INPUT-OUTPUT TABLE tt_integr_ctbl_valid_1)                                                                                                                
                            NO-ERROR.
output stream s_1 close.