Documento de API

Objetivo

Atualizar o módulo de Contabilidade com Lotes de outros módulos, tanto através de arquivos ASCII quanto diretamente do módulo. 

Funcionamento

Na forma padrão, realiza-se a a API é persistida em memória e posteriormente chamada através de um comando RUN normaluma PI, passando-se as temp-tables carregadas com as informações necessárias.

A sintaxe para a chamada da API é:

define variable v_hdl_api as handle      no-undo.
def new shared stream s_1. /*USADO QUANDO EMITE RELATÓRIO É IGUAL A SIM*/

run prgfin/fgl/fgl900zlfgl900zo.py (Input 3,

                            Input “Aborta Tudo”,

                            Input yes,

                            Input 66,

                            Input “Apropriação”,

                            Input “Com Erro”,

                            Input yes,

                            Input yes,

persistent set v_hdl_api.

run pi_main_api                            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).

1. Os parâmetros de entrada são:

1. Parâmetros:
2. Número da versão de Integração (atualmente = 3)
3. Tratamento do Erro

4.1.   Aborta Lotes Errados

4.2.   Aborta Tudo

1. Emite Relatório

5.1.   Indica se deve listar os erros ou apenas gravar na temp-table tt_integr_ctbl_valid

5.2.   Quando igual yes, o programa chamador deverá abrir a stream “s_1” (ver definição no item “Como usuar”) onde será emitido o relatório

1. Número de Linhas do relatório

6.1.   Apenas quando emite relatório, senão deve ser igual a “no”

1. Nível de Impressão

7.1.   Indica até que nível deve ser impresso o relatório

7.2.   Apropriação, Item, Lançamento ou Lote

1. Impressão de Lotes

8.1.   Indica o que deve ser impresso

8.2.   Com Erro, Sem Erro, Todos ou Nenhum

1. Lógico de Primeiro Lote Contábil

9.1.   Deve ser usado quando estiver sendo integrado vários lotes contábeis ao mesmo tempo. No primeiro lote enviado deve vir igual a “yes” e os demais igual a “no”

1. Lógico de Último Lote Contábil.

10.1.Deve ser usado quando estiver sendo integrado vários lotes contábeis ao mesmo tempo. No último lote enviado deve vir igual a “yes” e os demais igual a “no”

...

recebto_2 in v_hdl_api
                                            (input 3,
                                             input "Aborta Tudo",
                                             input yes,
                                             input 66,
                                             input "Apropriação",
                                             input "Com Erro",
                                             input yes,
                                             input yes,
                                             input-output table tt_integr_lote_ctbl_new,
                                             input-output table tt_integr_lancto_ctbl_new,
                                             input-output table tt_integr_item_lancto_ctbl_new,
                                             input-output table tt_integr_aprop_lancto_ctbl_new,
                                             input-output table tt_integr_ctbl_valid_new,
                                             input-output table tt_api_params_generic).

run pi_finalizar_fgl900zo in v_hdl_api.
delete procedure v_hdl_api.

OBS: Caso tenha migrado para base utilizando rowid e esteja utilizado uma versão inferior a 2 da API, deve ser definido a include abaixo:

/*-- Filtro RECID x ROWID Aplicado --*/
{include/i_fncrowid.i}

E todas variáveis do tipo RECID, devem serem definidas conforme o modelo abaixo:

field ttv_rec_integr_lote_ctbl          as &IF "{&ROWID_READY}" = "YES" &THEN rowid &ELSE recid format ">>>>>>9" &ENDIF

Os parâmetros de entrada são:

Parâmetros:

1. Número da versão de Integração (atualmente = 3)
2. Tratamento do Erro

2.1.   Aborta Lotes Errados

2.2.   Aborta Tudo

1. Emite Relatório

3.1.   Indica se deve listar os erros ou apenas gravar na temp-table tt_integr_ctbl_valid

3.2.   Quando igual yes, o programa chamador deverá abrir a stream “s_1” (ver definição no item “Como usuar”) onde será emitido o relatório

1. Número de Linhas do relatório

4.1.   Apenas quando emite relatório, senão deve ser igual a “no”

1. Nível de Impressão

5.1.   Indica até que nível deve ser impresso o relatório

5.2.   Apropriação, Item, Lançamento ou Lote

1. Impressão de Lotes

6.1.   Indica o que deve ser impresso

6.2.   Com Erro, Sem Erro, Todos ou Nenhum

1. Lógico de Primeiro Lote Contábil

7.1.   Deve ser usado quando estiver sendo integrado vários lotes contábeis ao mesmo tempo. No primeiro lote enviado deve vir igual a “yes” e os demais igual a “no”

1. Lógico de Último Lote Contábil.

8.1.   Deve ser usado quando estiver sendo integrado vários lotes contábeis ao mesmo tempo. No último lote enviado deve vir igual a “yes” e os demais igual a “no”

1. Tabela Temporária com os dados do(s) Lote(s) à ser(em) gerado(s);
2. Tabela Temporária com os dados do(s) Lançamento(s) à ser(em) gerado(s);
3. Tabela Temporária com os dados do(s) Iten(s) à ser(em) gerado(s);
4. Tabela Temporária com os dados da(s) Apropriaçõ(es) à ser(em) gerada(s);
5. Tabela Temporária que conterá os possíveis erros da integração;
6. Tabela Genérica contendo campos de entradas ou saídas que poderão estar relacionadas a qualquer uma das temp-tables acima citadas.

Tabelas Temporárias

Nos atributos das tabelas temporárias de entrada e saída:

1) Temp-table de Lotes Contábeis

def temp-table tt_integr_lote_ctbl_new no-undo

    field tta_cod_modul_dtsul              as character format "x(3)" label "Módulo" column-label "Módulo"

    field tta_num_lote_ctbl                as integer format ">>>,>>>,>>9" initial 1 label "Lote Contábil" column-label "Lote Contábil"

    field tta_des_lote_ctbl                as character format "x(40)" label "Descrição Lote" column-label "Descrição Lote"

    field tta_cod_empresa                  as character format "x(3)" label "Empresa" column-label "Empresa"

    field tta_dat_lote_ctbl                as date format "99/99/9999" initial today label "Data Lote Contábil" column-label "Data Lote Contábil"

    field ttv_ind_erro_valid               as character format "X(08)" initial "Não"

    field tta_log_integr_ctbl_online       as logical format "Sim/Não" initial no label "Integração Online" column-label "Integr Online"

    field ttv_row_integr_lote_ctbl         as rowid 

    index tt_rowid                       

          ttv_row_integr_lote_ctbl         ascending.

2) Temp-table de Lançamentos Contábeis

...

Tabelas Temporárias

Nos atributos das tabelas temporárias de entrada e saída:

1) Temp-table de Lotes Contábeis

def  def temp-table tt_integr_lotelancto_ctbl_1 new no-undo
        field tta_cod_modul_dtsul              cenar_ctbl               as character format "x(38)" label "MóduloCen rio Cont bil" column-label "MóduloCen rio Cont bil"
        field tta_numlog_lote_ctbl       lancto_conver            as integer logical format ">>>,>>>,>>9Sim/N’o" initial 1 no label "Lote ContábilLan?amento Convers’o" column-label "Lote ContábilLan?to Conv"
        field tta_log_deslancto_lote_ctbl               apurac_restdo     as character logical format "x(40)" label "Descrição LoteSim/N’o" initial no label "Lan?amento Apura?’o" column-label "Descrição LoteLancto Apura?’o"
        field tta_cod_empresa   rat_ctbl                 as character format "x(38)" label "EmpresaRateio Cont bil" column-label "EmpresaRateio"
        field tta_datnum_lotelancto_ctbl                   as date format "99/99/9999" initial today label "Data Lote Contábil as integer format ">>,>>>,>>9" initial 10 label "Lan?amento Cont bil" column-label "Data Lote ContábilLan?amento Cont bil"
        field ttv_ind_erro_valid                  as as character format "X(08)" initial "NãoN’o"
        field tta_logdat_integrlancto_ctbl _online              as logical date format "Sim99/99/Não9999" initial no ? label "Integração OnlineData Lan?amento" column-label "Integr OnlineData Lan?to"
        field ttv_recrow_integr_lote_ctbl          as recid format ">>>>>>9"

    index tt_recid                       

          ttv_rec_integr_lote_ctbl         ascending

    .

2) Temp-table de Lançamentos Contábeis

...

 Tabela Temporária

...

Descrição

...

Entrada/Saída

...

as Rowid
    field ttv_row_integr_lancto_ctbl

...

Nível que agrupa os itens de lançamento (DB e CR) para um mesmo cenário e data.

...

Entrada e Saída

      as Rowid
    index tt_id                            is primary unique
          ttv_row_integr_lote_ctbl         ascending
          tta_num_lancto_ctbl              ascending
    index tt_rowid                        
          ttv_row_integr_lancto_ctbl       ascending
    .          

3) Temp-table de Itens de Lançamento Contábeis

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

def  temp-table tt_integr_item_lancto_ctbl_new no-undo
    field

def temp-table tt_integr_lancto_ctbl_1 no-undo

    field tta_cod_cenar_ctbl                 as character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"

    field tta_log_lancto_conver             as logical format "Sim/Não" initial no label "Lançamento Conversão" column-label "Lançto Conv"

    field tta_log_lancto_apurac_restdo  as logical format "Sim/Não" initial no label "Lançamento Apuração" column-label "Lancto Apuração"

    field tta_cod_rat_ctbl                     as character format "x(8)" label "Rateio Contábil" column-label "Rateio"

    field ttv_rec_integr_lote_ctbl           as recid format ">>>>>>9"

    field tta_num_lancto_ctbl                as integer format ">>,>>>,>>9" initial 10 label "Lançamento Contábil" column-label "Lançamento Contábil"

    field ttv_ind_erro_valid                   as character format "X(08)" initial "Não"

    field tta_dat_lancto_ctbl                 as date format "99/99/9999" initial ? label "Data Lançamento" column-label "Data Lançto"

    field ttv_rec_integr_lancto_ctbl        as recid format ">>>>>>9"

    index tt_id                                    is primary unique

          ttv_rec_integr_lote_ctbl            ascending

          tta_num_lancto_ctbl                 ascending

    index tt_recid                       

          ttv_rec_integr_lancto_ctbl         ascending

    .

3) Temp-table de Itens de Lançamento Contábeis

...

Atributo

...

Tipo

...

Formato

...

Descrição

...

Obrigatório

...

Evolução

...

ttv_rec_integr_lancto_ctbl

...

recid

...

>>>>>>9

...

...

...

tta_num_seq_lancto_ctbl

...

integer

...

>>>>9

...

Sequência Lançto

...

...

         as integer format ">>>>9" initial 0 label "Sequ?ncia Lan?to" column-label "Sequ?ncia Lan?to"
    field tta_ind_natur_lancto_ctbl

...

character

...

x(2)

...

Natureza

...

...

       as character format "X(02)" initial "DB" label "Natureza" column-label "Natureza"
    field tta_cod_plano_cta_ctbl

...

character

          as character format "x(8)

...

" label "Plano Contas" column-label "Plano Contas"
 

...

...

field tta_cod_cta_ctbl

...

character

...

x(20)

...

Conta Contábil

...

...

                as character format "x(20)" label "Conta Cont bil" column-label "Conta Cont bil"
    field tta_cod_plano_ccusto

...

character

            as character format "x(8)

...

" label "Plano Centros Custo" column-label "Plano Centros Custo"
 

...

...

field tta_cod_estab

...

character

                   as character format "x(

...

5)

...

" label "Estabelecimento" column-label "Estab"

...

...

field tta_cod_unid_

...

character

...

negoc               as character format "x(3)

...

" label "Unid Neg½cio" column-label "Un Neg"

...

...

field tta_cod_histor_padr

...

character

             as character format "x(8)

...

Histórico Padrão

...

...

" label "Hist½rico Padr’o" column-label "Hist½rico Padr’o"
    field tta_des_histor_lancto_ctbl

...

character

...

x(2000)

...

Histórico Contábil

...

...

      as character format "x(2000)" label "Hist½rico Cont bil" column-label "Hist½rico Cont bil"
    field tta_cod_espec_docto

...

character

...

             as character format "x(3)

...

" label "Esp?cie Documento" column-label "Esp?cie"

...

...

field tta_dat_docto

...

date

                   as date format "99/99/

...

9999" initial ? label "Data Documento" column-label "Data Documento"
 

...

...

field tta_des_docto

...

character

...

                   as character format "x(25)

...

" label "Nœmero Documento" column-label "Nœmero Documento"

...

...

field tta_cod_imagem

...

character

...

                  as character format "x(30)

...

" label "Imagem" column-label "Imagem"

...

...

field tta_cod_indic_econ

...

character

...

              as character format "x(8)

...

" label "Moeda" column-label "Moeda"

...

...

field tta_dat_lancto_ctbl

...

date

             as date format "99/99/9999

...

Data Lançamento

...

...

" initial ? label "Data Lan?amento" column-label "Data Lan?to"
    field tta_qtd_unid_lancto_ctbl

...

decimal

        as decimal format ">>,>>>,>>9

...

Quantidade

...

...

.99" decimals 2 initial 0 label "Quantidade" column-label "Quantidade"
    field tta_val_lancto_ctbl

...

decimal

...

             as decimal format ">>>,>>>,>>>,>>9.99

...

Valor Lançamento

...

...

" decimals 2 initial 0 label "Valor Lan?amento" column-label "Valor Lan?amento"
    field tta_num_seq_lancto_ctbl_cpart

...

   as integer

...

>>>9

...

Sequência CPartida

...

...

format ">>>9" initial 0 label "Sequ?ncia CPartida" column-label "Sequ?ncia CP"
    field ttv_ind_erro_valid

...

character

              as character format "X(

...

08)" initial "N’o"
 

...

...

field tta_cod_ccusto

...

character

                  as Character format "x(

...

20)" label "Centro Custo" column-label "Centro Custo"
 

...

...

field tta_cod_proj_financ

...

character

...

             as character format "x(20)

...

" label "Projeto" column-label "Projeto"

...

...

field ttv_

...

row_integr

...

_lancto_ctbl

...

recid

...

...

>>>>>>9

      as Rowid

...

def temp-table tt  field ttv_row_integr_item_lancto_ctbl _1 no-undo

    field ttv_rec_integr_lancto_ctbl             as recid format ">>>>>>9"

    field tta_num_seq_lancto_ctbl  as Rowid
    index tt_id                            as integer format ">>>>9" initial 0 label "Sequência Lançto" column-label "Sequência Lançto"    field tta_ind_natur is primary unique
          ttv_row_integr_lancto_ctbl             as character format "X(02)" initial "DB" label "Natureza" column-label "Natureza"    field tta_cod_plano_cta    ascending
          tta_num_seq_lancto_ctbl                as character format "x(8)" label "Plano Contas" column-label "Plano Contas"

    field tta_cod_cta_ctbl                         as character format "x(20)" label "Conta Contábil" column-label "Conta Contábil"

    field tta_cod_plano_ccusto                  as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"

    field tta_cod_estab                            as character format "x(3)" label "Estabelecimento" column-label "Estab"

...

 ascending
    index tt_rowid                        
          ttv_row_integr_item_lancto_ctbl  ascending
    .    

4) Temp-table de Apropriações Contábeis

...

...

...

def  temp-table tt_integr_aprop_lancto_new no-undo
    field tta_cod_finalid_econ

    field tta_des_histor_lancto_ctbl           as character format "x(2000)" label "Histórico Contábil" column-label "Histórico Contábil"

    field tta_cod_espec_docto                  as character format "x(3)" label "Espécie Documento" column-label "Espécie"

    field tta_dat_docto                             as date format "99/99/9999" initial ? label "Data Documento" column-label "Data Documento"

    field tta_des_docto                            as character format "x(25)" label "Número Documento" column-label "Número Documento"

    field tta_cod_imagem                         as character format "x(30)" label "Imagem" column-label "Imagem"

    field tta_cod_indic_econ                     as character format "x(8)" label "Moeda" column-label "Moeda"

    field tta_dat_lancto_ctbl                     as date format "99/99/9999" initial ? label "Data Lançamento" column-label "Data Lançto"

    field tta_qtd_unid_lancto_ctbl             as decimal format ">>,>>>,>>9.99" decimals 2 initial 0 label "Quantidade" column-label "Quantidade"

    field tta_val_lancto_ctbl                     as decimal character format ">>>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Lançamentox(10)" label "Finalidade" column-label "Valor LançamentoFinalidade"
        field tta_numcod_seq_lancto_ctbl_cpart    as integer format ">>>9" initial 0 label "Sequência CPartidaunid_negoc               as character format "x(3)" label "Unid Neg½cio" column-label "Sequência CPUn Neg"
        field ttvtta_indcod_erro_valid       plano_ccusto                 as character format "Xx(088)" initial "Não"    field tta_cod_ccusto             label "Plano Centros Custo" column-label "Plano Centros Custo"
    field tta_qtd_unid_lancto_ctbl               as Character decimal format "x(11)" label "Centro Custo>>,>>>,>>9.99" decimals 2 initial 0 label "Quantidade" column-label "Centro CustoQuantidade"
        field tta_cod_proj_financ   val_lancto_ctbl                  as character decimal format "x(20)" label "Projeto>>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Lan?amento" column-label "ProjetoValor Lan?amento"
        field ttvtta_recnum_integrid_itemaprop_lancto_ctbl    as recid format ">>>>>>9"

    index tt_id                                        is primary unique

          ttv_rec_integr_lancto_ctbl             ascending

          tta_num_seq_lancto_ctbl              ascending

    index tt_recid                       

          ttv_rec_integr_item_lancto_ctbl      ascending

    .

4) Temp-table de Apropriações Contábeis

def temp-table tt_integr_aprop_lancto_ctbl_1 no-undo

    field tta_cod_finalid_econ                  as character format "x(10)" label "Finalidade" column-label "Finalidade"

    field tta_cod_unid_negoc                   as character format "x(3)" label "Unid Negócio" column-label "Un Neg"

    field tta_cod_plano_ccusto                 as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"

    field tta_qtd_unid_lancto_ctbl             as decimal format ">>,>>>,>>9.99" decimals 2 initial 0 label "Quantidade" column-label "Quantidade"

    field tta_val_lancto_ctbl                     as decimal format ">>>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Lançamento" column-label "Valor Lançamento"

    field tta_num_id_aprop_lancto_ctbl     as integer format "9999999999" initial 0 label "Apropriacao Lançto" column-label "Apropriacao Lançto"

    field ttv_rec_integr_item_lancto_ctbl    as recid format ">>>>>>9"

    field tta_dat_cotac_indic_econ            as date format "99/99/9999" initial ? label "Data Cotação" column-label "Data Cotação"

    field tta_val_cotac_indic_econ            as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Cotação" column-label "Cotação"

  as integer format "999999999" initial 0 label "Apropriacao Lan?to" column-label "Apropriacao Lan?to"
    field tta_dat_cotac_indic_econ         as date format "99/99/9999" initial ? label "Data Cota?’o" column-label "Data Cota?’o"
    field tta_val_cotac_indic_econ         as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Cota?’o" column-label "Cota?’o"
    field ttv_ind_erro_valid               as character format "X(08)" initial "N’o"
    field tta_ind_orig_val_lancto_ctbl     as character format "X(10)" initial "Informado" label "Origem Valor" column-label "Origem Valor"
    field tta_cod_ccusto                   as Character format "x(20)" label "Centro Custo" column-label "Centro Custo"
    field ttv_row_integr_item_lancto_ctbl  as Rowid
    field ttv_row_integr_aprop_lancto_ctbl as Rowid
    index tt_id                            is primary unique
          ttv_row_integr_item_lancto_ctbl  ascending
          tta_cod_finalid_econ             ascending
          tta_cod_unid_negoc               ascending
          tta_cod_plano_ccusto             ascending
          tta_cod_ccusto                   ascending
    index tt_rowid                        
          ttv_row_integr_aprop_lancto_ctbl ascending
    .

5) Temp-table com os Erros da Integração

def  temp-table tt_integr_ctbl_valid_new no-undo
    field ttv_num_mensagem                 as integer format ">>>>,>>9" label "Nœmero" column-label "Nœmero Mensagem"
    field ttv_ind_pos_erro                 as character format "X(08)" label "Posi?’o"
    field ttv_row_integr_ctbl              as Rowid
    index tt_id                            is primary unique
          ttv_row_integr_ctbl              ascending
          ttv_num_mensagem                 ascending
    .

6) Temp-table genérica para passagem de campos relacionadas a qualquer uma das temp-tables acima, utilizada para evitar que a API em questão tenha novas evoluções caso campos novos sejam necessários.

def temp-table tt_api_params_generic no-undo
    field ttv_cod_row_id     field ttv_ind_erro_valid                       as character format "Xx(0880)" initial "Não"
    field tta_ind_orig_val_lancto_ctbl     field ttv_cod_tabela                    as as character format "Xx(1028)" initial "Informado" label "Origem ValorTabela" column-label "Origem ValorTabela"
        field ttattv_cod_ccusto     campo                      as Character character format "x(1135)" label "Centro CustoCampo" column-label "Centro Custo"

    field ttv_rec_integr_aprop_lancto_ctbl  as recid format ">>>>>>9"

    index tt_id     Campo"
    field ttv_cod_valor                    as character format "x(8)" label "Valor" column-label "Valor"
    index tt_idx_param_generic              is is primary unique

          ttv_rec_integr_item_lancto_ctbl     ascending

          tta_cod_finalid_econ                     ttv_cod_tabela         ascending          tta_cod_unid_negoc           ascending
         ascending          tta  ttv_cod_planorow_ccusto id                    ascending          ttaascending
          ttv_cod_ccusto campo                    ascending
        ascending

    index tt_recid                       

          ttv_rec_integr_aprop_lancto_ctbl ascending

    .

5) Temp-table com os Erros da Integração

def new shared temp-table tt_integr_ctbl_valid_1 no-undo

    field ttv_rec_integr_ctbl                 as recid format ">>>>>>9"

    field ttv_num_mensagem               as integer format ">>>>,>>9" label "Número" column-label "Número Mensagem"

    field ttv_ind_pos_erro                   as character format "X(08)" label "Posição"

    index tt_id                                   is primary unique

          ttv_rec_integr_ctbl                  ascending

          ttv_num_mensagem                ascending

    .

.

Lista de Campo(s) que a API fgl900zo processa e que podem ser passados como parâmetro através da tamp-table tt_params_generic_api:

Código do Participante: Relacionado a tabela Item Lançamento Contábil (tt_integr_item_lancto_ctbl_1). Na criação de cada registro da tabela tt_integr_item_lancto_ctbl_1, será adicionado um campo correspondente na tt_params_generic_api, somente caso seja necessário passar esta informação.

Exemplo:

create tt_api_params_generic .                                                                        

assign tt_api_params_generic.ttv_row_id    = tt_integr_item_lancto_ctbl_new.ttv_row_integr_item_lancto_ctbl

            tt_api_params_generic.ttv_cod_tabela = 'tt_integr_item_lancto_ctbl':U

            tt_api_params_generic.ttv_cod_campo = 'Participante':U                             

            tt_api_params_generic.ttv_cod_valor = [Valor do Código do Participante em formato caracter].

Relacionamento entre as tabelas temporárias:

• TT_INTEGR_LOTE_CTBL_1 NEW

1      Armazenar no atributo ttv_recrow_integr_lote_ctbl o recidrowid(TT_INTEGR_LOTE_CTBL_1NEW)

• TT_INTEGR_LANCTO_CTBL_1 NEW

1      Armazenar no atributo ttv_recrow_integr_lote_ctbl o recidrowid(TT_INTEGR_LOTE_CTBL_1NEW)

2      Armazenar no atributo ttv_recrow_integr_lancto_ctbl o recidrowid(TT_INTEGR_LANCTO_CTBL_1NEW)

• TT_INTEGR_ITEM_LANCTO_CTBL_1 NEW

1      Armazenar no atributo ttv_recrow_integr_lancto_ctbl o recidrowid(TT_INTEGR_LANCTO_CTBL_1NEW)

2      Armazenar no atributo ttv_recrow_integr_item_lancto_ctbl o recidrowid(TT_INTEGR_ITEM_LANCTO_CTBL_1NEW)

• TT_INTEGR_APROP_LANCTO_CTBL_1 NEW

1      Armazenar no atributo ttv_recrow_integr_item_lancto_ctbl o recidrowid(TT_INTEGR_ITEM_LANCTO_CTBL_1NEW)

2      Armazenar no atributo ttv_recrow_integr_aprop_lancto_ctbl o recidrowid(TT_INTEGR_APROP_LANCTO_CTBL_1NEW) 

Observações: 

-  Se o atributo tt_integr_lote_ctbl.ttv_ind_erro_valid = “Não”, o lote está na contabilidade do EMS 5.0;

-  Senão o lote apresentou inconsistência, que podem ser vistas no relatório (se impresso) ou nos registros da tabela temporária tt_integr_ctbl_valid_1new;

-  Para que se tenha o rastreamento das apropriações geradas, a temp-table de apropriação retorna o atributo tta_num_id_aprop_lancto_ctbl com o valor do “token” da apropriação gerada na contabilidade; .