Documento de API

run pi_main_block_api_tit_ap_cria

Objetivo

Atualizar o módulo Contas a Pagar com títulos vindos de outros módulos, tanto por intermédio de arquivos ASCII, quanto diretamente do módulo. 

Parâmetros de entrada

p_num_vers_integr_api: será utilizado para determinar se o programa que está chamando está íntegro com as definições correntes da API.

p_cod_matriz_trad_org_ext: conterá o código da matriz de tradução da organização externa, que tem por finalidade relacionar os códigos externos aos códigos presentes no Datasul-EMS5, sendo necessários no processo de criação dos títulos no Contas a Pagar, mas caso a matriz de tradução não tiver sido informada, será usada a dos Parâmetros Gerais do APB.

tt_integr_apb_item_lote_impl: temp-table que contém todos os itens do lote de implantação, inclusive a possibilidade de informar o valor da cotação para conversão na moeda corrente do usuário (Moeda do Estabelecimento), sendo esse o diferencial entre a primeira versão (apb900za) e a anterior (apb900zc). Nessa nova versão (apb900zd), será possível informar um número de ordem de investimento, caso o cliente possua integração do módulo Contas a Pagar EMS 5 com o módulo Controle de Investimentos EMS2.

tt_params_generic_api: conterá campos novos das temp-tables passadas como parâmetro.

tt_integr_apb_relacto_pend_aux: conterá o campo adicional da temp-table tt_integr_apb_relacto_pend.

tt_integr_apb_aprop_relacto_2: conterá os campos adicionais da temp-table tt_integr_apb_aprop_relacto.

tt-docum-est-esoc-api: conterá as informações do documento do eSocial.

tt-item-doc-est-esoc-api: conterá as informações dos itens do documento do eSocial.

tt_integr_apb_nota_pend_cart: Conterá as informações de pagamento com cartão de crédito. 

tt_integr_apb_item_natur_rendt: Conterá as informações de natureza de rendimento.

Funcionamento

Na forma padrão, realiza-se a chamada por meio de um comando RUN normal, passando-se as temp-tables carregadas com as informações necessárias.

A sintaxe para executar a API/BO em modo persistente é:

run prgfin/apb/apb900zg.py persistent set v_hdl_aux.

run pi_main_block_api_tit_ap_cria_11 in v_hdl_aux (input 11,

                                     input p_cod_matriz_trad_org_ext,

                                     input-output table tt_integr_apb_item_lote_impl3v,

                                     input-output table tt_params_generic_api,

                                     input table tt_integr_apb_relacto_pend_aux,

                                     input table tt_integr_apb_aprop_relacto_2,

                                     input table tt_docum_est_esoc_api,

                                     input table tt_item_doc_est_esoc_api,

                                     input table tt_integr_apb_nota_pend_cart,

                                     input table tt_integr_apb_item_natur_rendt ).   

A variável denominada h-handle irá receber o “handle” do programatt_integr_apb_lote_impl permitindo o acesso aos “métodos” internos da API.

Tabelas Temporárias

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

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

(**) Liberado o número de documento com 16 posições e série com 5, a partir de maio/2011.

def new shared temp-table tt_integr_apb_abat_antecip_vouc no-undo

    field ttv_rec_integr_apb_item_lote     as recid format ">>>>>>9"

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

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

    field tta_cod_ser_docto                as character format "x(3)" label "Série Documento" column-label "Série"

    field tta_cdn_fornecedor               as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"

    field tta_cod_tit_ap                   as character format "x(10)" label "Título" column-label "Título"

    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parc"

    field tta_val_abat_tit_ap              as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Abatimento" column-label "Vl Abatimento"

    index tt_integr_apb_abat_antecip_vouc  is primary unique

          ttv_rec_integr_apb_item_lote     ascending

          tta_cod_estab                    ascending

          tta_cod_espec_docto              ascending

          tta_cod_ser_docto                ascending

          tta_cdn_fornecedor               ascending

          tta_cod_tit_ap                   ascending

          tta_cod_parcela                  ascending

    .

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

(**) Liberado o número de documento com 16 posições e série com 5, a partir de maio/2011.

def new shared temp-table tt_integr_apb_abat_prev_provis no-undo

    field ttv_rec_integr_apb_item_lote     as recid format ">>>>>>9"

    field ttv_rec_antecip_pef_pend         as recid format ">>>>>>9"

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

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

    field tta_cod_ser_docto                as character format "x(3)" label "Série Documento" column-label "Série"

    field tta_cdn_fornecedor               as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"

    field tta_cod_tit_ap                   as character format "x(10)" label "Título" column-label "Título"

    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parc"

    field tta_val_abat_tit_ap              as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Abatimento" column-label "Vl Abatimento"

    index tt_integr_apb_abat_prev          is unique

          ttv_rec_antecip_pef_pend         ascending

          tta_cod_estab                    ascending

          tta_cod_espec_docto              ascending

          tta_cod_ser_docto                ascending

          tta_cdn_fornecedor               ascending

          tta_cod_tit_ap                   ascending

          tta_cod_parcela                  ascending

    index tt_integr_apb_abat_prev_provis   is primary unique

          ttv_rec_integr_apb_item_lote     ascending

          tta_cod_estab                    ascending

          tta_cod_espec_docto              ascending

          tta_cod_ser_docto                ascending

          tta_cdn_fornecedor               ascending

          tta_cod_tit_ap                   ascending

          tta_cod_parcela                  ascending

    .

(*) Liberado o centro de custo com 20 posições, a partir de maio/2011.

def new shared temp-table tt_integr_apb_aprop_ctbl_pend no-undo

    field ttv_rec_integr_apb_item_lote     as recid format ">>>>>>9"

    field ttv_rec_antecip_pef_pend         as recid format ">>>>>>9"

    field ttv_rec_integr_apb_impto_pend    as recid format ">>>>>>9"

    field tta_cod_plano_cta_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_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_cod_ccusto                   as Character format "x(11)" label "Centro Custo" column-label "Centro Custo"

    field tta_cod_tip_fluxo_financ         as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"

    field tta_val_aprop_ctbl               as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Aprop Ctbl" column-label "Vl Aprop Ctbl"

    field tta_cod_pais                     as character format "x(3)" label "País" column-label "País"

    field tta_cod_unid_federac             as character format "x(3)" label "Unidade Federação" column-label "UF"

    field tta_cod_imposto                  as character format "x(5)" label "Imposto" column-label "Imposto"

    field tta_cod_classif_impto            as character format "x(05)" initial "00000" label "Class Imposto" column-label "Class Imposto"

    field ttv_cod_tip_fluxo_financ_ext     as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"

    field tta_cod_cta_ctbl_ext             as character format "x(20)" label "Conta Contab Extern" column-label "Conta Contab Extern"

    field tta_cod_sub_cta_ctbl_ext         as character format "x(15)" label "Sub Conta Externa" column-label "Sub Conta Externa"

    field tta_cod_ccusto_ext               as character format "x(8)" label "Centro Custo Externo" column-label "CCusto Externo"

    field tta_cod_unid_negoc_ext           as character format "x(8)" label "Unid Negócio Externa" column-label "Unid Negócio Externa"

    index tt_aprop_ctbl_pend_ap_integr_ant

          ttv_rec_antecip_pef_pend         ascending

          ttv_rec_integr_apb_impto_pend    ascending

          tta_cod_plano_cta_ctbl           ascending

          tta_cod_cta_ctbl                 ascending

          tta_cod_unid_negoc               ascending

          tta_cod_plano_ccusto             ascending

          tta_cod_ccusto                   ascending

          tta_cod_tip_fluxo_financ         ascending

    index tt_aprop_ctbl_pend_ap_integr_id

          ttv_rec_integr_apb_item_lote     ascending

          ttv_rec_integr_apb_impto_pend    ascending

          tta_cod_plano_cta_ctbl           ascending

          tta_cod_cta_ctbl                 ascending

          tta_cod_unid_negoc               ascending

          tta_cod_plano_ccusto             ascending

          tta_cod_ccusto                   ascending

          tta_cod_tip_fluxo_financ         ascending

    .

def new shared temp-table tt_integr_apb_aprop_relacto no-undo

    field ttv_rec_integr_apb_relacto_pend  as recid format ">>>>>>9"

    field tta_cod_plano_cta_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_val_aprop_ctbl               as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Aprop Ctbl" column-label "Vl Aprop Ctbl"

    field tta_ind_tip_aprop_ctbl           as character format "x(30)" initial "Saldo" label "Tipo Aprop Ctbl" column-label "Tipo Aprop Ctbl"

    index tt_integr_apb_aprop_relacto      is primary unique

          ttv_rec_integr_apb_relacto_pend  ascending

          tta_cod_plano_cta_ctbl           ascending

          tta_cod_cta_ctbl                 ascending

    .

(**) Liberado o número de documento com 16 posições e série com 5, a partir de maio/2011.

def new shared temp-table tt_integr_apb_impto_impl_pend no-undo

    field ttv_rec_integr_apb_item_lote     as recid format ">>>>>>9"

    field ttv_rec_antecip_pef_pend         as recid format ">>>>>>9"

    field tta_cod_pais                     as character format "x(3)" label "País" column-label "País"

    field tta_cod_unid_federac             as character format "x(3)" label "Unidade Federação" column-label "UF"

    field tta_cod_imposto                  as character format "x(5)" label "Imposto" column-label "Imposto"

    field tta_cod_classif_impto            as character format "x(05)" initial "00000" label "Class Imposto" column-label "Class Imposto"

    field tta_ind_clas_impto               as character format "X(14)" initial "Retido" label "Classe Imposto" column-label "Classe Imposto"

    field tta_cod_plano_cta_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_espec_docto              as character format "x(3)" label "Espécie Documento" column-label "Espécie"

    field tta_cod_ser_docto                as character format "x(3)" label "Série Documento" column-label "Série"

    field tta_cod_tit_ap                   as character format "x(10)" label "Título" column-label "Título"

    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parc"

    field tta_val_rendto_tribut            as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Rendto Tributável" column-label "Vl Rendto Tribut"

    field tta_val_deduc_inss               as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Dedução Inss" column-label "Dedução Inss"

    field tta_val_deduc_depend             as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Dedução Dependentes" column-label "Dedução Dependentes"

    field tta_val_deduc_pensao             as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Deducao Pensão" column-label "Deducao Pensão"

    field tta_val_outras_deduc_impto       as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Outras Deduções" column-label "Outras Deduções"

    field tta_val_base_liq_impto           as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Base Líquida Imposto" column-label "Base Líquida Imposto"

    field tta_val_aliq_impto               as decimal format ">9.9999" decimals 4 initial 0.00 label "Alíquota" column-label "Aliq"

    field tta_val_impto_ja_recolhid        as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Imposto Já Recolhido" column-label "Imposto Já Recolhido"

    field tta_val_imposto                  as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Imposto" column-label "Vl Imposto"

    field tta_dat_vencto_tit_ap            as date format "99/99/9999" initial today label "Data Vencimento" column-label "Dt Vencto"

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

    field tta_val_impto_indic_econ_impto   as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Val Finalid Impto" column-label "Val Finalid Impto"

    field tta_des_text_histor              as character format "x(2000)" label "Histórico" column-label "Histórico"

    field tta_cdn_fornec_favorec           as Integer format ">>>,>>>,>>9" initial 0 label "Fornec Favorecido" column-label "Fornec Favorecido"

    field tta_val_deduc_faixa_impto        as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Deducao" column-label "Valor Dedução"

    field tta_num_id_tit_ap                as integer format "9999999999" initial 0 label "Token Tit AP" column-label "Token Tit AP"

    field tta_num_id_movto_tit_ap          as integer format "9999999999" initial 0 label "Token Movto Tit AP" column-label "Id Tit AP"

    field tta_num_id_movto_cta_corren      as integer format "9999999999" initial 0 label "ID Movto Conta" column-label "ID Movto Conta"

    field tta_cod_pais_ext                 as character format "x(20)" label "País Externo" column-label "País Externo"

    field tta_cod_cta_ctbl_ext             as character format "x(20)" label "Conta Contab Extern" column-label "Conta Contab Extern"

    field tta_cod_sub_cta_ctbl_ext         as character format "x(15)" label "Sub Conta Externa" column-label "Sub Conta Externa"

    field ttv_cod_tip_fluxo_financ_ext     as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"

    index tt_impto_impl_pend_ap_integr     is primary unique

          ttv_rec_integr_apb_item_lote     ascending

          tta_cod_pais                     ascending

          tta_cod_unid_federac             ascending

          tta_cod_imposto                  ascending

          tta_cod_classif_impto            ascending

    index tt_impto_impl_pend_ap_integr_ant is unique

          ttv_rec_antecip_pef_pend         ascending

          tta_cod_pais                     ascending

          tta_cod_unid_federac             ascending

          tta_cod_imposto                  ascending

          tta_cod_classif_impto            ascending

    .

(**) Liberado o número de documento com 16 posições e série com 5, a partir de maio/2011.

def new shared temp-table tt_integr_apb_item_lote_impl no-undo

    field ttv_rec_integr_apb_lote_impl     as recid format ">>>>>>9"

    field tta_num_seq_refer                as integer format ">>>9" initial 0 label "Sequência" column-label "Seq"

    field tta_cdn_fornecedor               as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"

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

    field tta_cod_ser_docto                as character format "x(3)" label "Série Documento" column-label "Série"

    field tta_cod_tit_ap                   as character format "x(10)" label "Título" column-label "Título"

    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parc"

    field tta_dat_emis_docto               as date format "99/99/9999" initial today label "Data  Emissão" column-label "Dt Emissão"

    field tta_dat_vencto_tit_ap            as date format "99/99/9999" initial today label "Data Vencimento" column-label "Dt Vencto"

    field tta_dat_prev_pagto               as date format "99/99/9999" initial today label "Data Prevista Pgto" column-label "Dt Prev Pagto"

    field tta_dat_desconto                 as date format "99/99/9999" initial ? label "Data Desconto" column-label "Dt Descto"

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

    field tta_val_tit_ap                   as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Título" column-label "Valor Título"

    field tta_val_desconto                 as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Desconto" column-label "Valor Desconto"

    field tta_val_perc_desc                as decimal format ">9.9999" decimals 4 initial 0 label "Percentual Desconto" column-label "Perc Descto"

    field tta_num_dias_atraso              as integer format ">9" initial 0 label "Dias Atraso" column-label "Dias Atr"

    field tta_val_juros_dia_atraso         as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Juro" column-label "Vl Juro"

    field tta_val_perc_juros_dia_atraso    as decimal format ">9.999999" decimals 6 initial 00.00 label "Perc Jur Dia Atraso" column-label "Perc Dia"

    field tta_val_perc_multa_atraso        as decimal format ">9.99" decimals 2 initial 00.00 label "Perc Multa Atraso" column-label "Multa Atr"

    field tta_cod_portador                 as character format "x(5)" label "Portador" column-label "Portador"

    field tta_cod_apol_seguro              as character format "x(12)" label "Apólice Seguro" column-label "Apolice Seguro"

    field tta_cod_seguradora               as character format "x(8)" label "Seguradora" column-label "Seguradora"

    field tta_cod_arrendador               as character format "x(6)" label "Arrendador" column-label "Arrendador"

    field tta_cod_contrat_leas             as character format "x(12)" label "Contrato Leasing" column-label "Contr Leas"

    field tta_des_text_histor              as character format "x(2000)" label "Histórico" column-label "Histórico"

    field tta_num_id_tit_ap                as integer format "9999999999" initial 0 label "Token Tit AP" column-label "Token Tit AP"

    field tta_num_id_movto_tit_ap          as integer format "9999999999" initial 0 label "Token Movto Tit AP" column-label "Id Tit AP"

    field tta_num_id_movto_cta_corren      as integer format "9999999999" initial 0 label "ID Movto Conta" column-label "ID Movto Conta"

    field ttv_qtd_parc_tit_ap              as decimal format ">>9" initial 1 label "Quantidade Parcelas" column-label "Quantidade Parcelas"

    field ttv_num_dias                     as integer format ">>>>,>>9" label "Número de Dias" column-label "Número de Dias"

    field ttv_ind_vencto_previs            as character format "X(4)" initial "Mˆs" label "Cálculo Vencimento" column-label "Cálculo Vencimento"

    field ttv_log_gerad                    as logical format "Sim/Não" initial no

    field tta_cod_finalid_econ_ext         as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"

    field tta_cod_portad_ext               as character format "x(8)" label "Portador Externo" column-label "Portador Externo"

    field tta_cod_modalid_ext              as character format "x(8)" label "Modalidade Externa" column-label "Modalidade Externa"

    field tta_cod_cart_bcia                as character format "x(3)" label "Carteira" column-label "Carteira"

    field tta_cod_forma_pagto              as character format "x(3)" label "Forma Pagamento" column-label "F Pagto"

    index tt_item_lote_impl_ap_integr_id   is primary unique

          ttv_rec_integr_apb_lote_impl     ascending

          tta_num_seq_refer                ascending

    .

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

(**) A espécie somente deverá ser informada para documentos de previsão/provisão.

def new shared temp-table tt_integr_apb_lote_impl no-undo

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

    field tta_cod_refer                    as character format "x(10)" label "Referência" column-label "Referência"

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

    field tta_dat_transacao                as date format "99/99/9999" initial today label "Data Transação" column-label "Dat Transac"

    field tta_ind_origin_tit_ap            as character format "X(03)" initial "APB" label "Origem" column-label "Origem"

    field tta_cod_estab_ext                as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"

    field tta_val_tot_lote_impl_tit_ap     as decimal format ">>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Total  Movimento" column-label "Total Movto"

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

    field ttv_cod_empresa_ext              as character format "x(3)" label "Código Empresa Ext" column-label "Cód Emp Ext"

    field tta_cod_finalid_econ_ext         as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"

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

    index tt_lote_impl_tit_ap_integr_id    is primary unique

          tta_cod_estab                    ascending

          tta_cod_refer                    ascending

          tta_cod_estab_ext                ascending

    .

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

def new shared temp-table tt_integr_apb_relacto_pend no-undo

    field ttv_rec_integr_apb_item_lote     as recid format ">>>>>>9"

    field tta_cod_estab_tit_ap_pai         as character format "x(5)" label "Estab Tit Pai" column-label "Estab Tit Pai"

    field tta_num_id_tit_ap_pai            as integer format "9999999999" initial 0 label "Token" column-label "Token"

    field tta_val_relacto_tit_ap           as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor" column-label "Valor"

    field tta_ind_motiv_acerto_val         as character format "X(12)" initial "Altera‡Æo" label "Motivo Acerto Valor" column-label "Motivo Acerto Valor"

    index tt_integr_apb_relacto_pend       is primary unique

          ttv_rec_integr_apb_item_lote     ascending

          tta_cod_estab_tit_ap_pai         ascending

          tta_num_id_tit_ap_pai            ascending

    .

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

def new shared temp-table tt_log_erros_atualiz no-undo

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

    field tta_cod_refer                    as character format "x(10)" label "Referência" column-label "Referência"

    field tta_num_seq_refer                as integer format ">>>9" initial 0 label "Sequência" column-label "Seq"

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

    field ttv_des_msg_erro                 as character format "x(60)" label "Mensagem Erro" column-label "Inconsistência"

    field ttv_des_msg_ajuda                as character format "x(40)" label "Mensagem Ajuda" column-label "Mensagem Ajuda"

    field ttv_ind_tip_relacto              as character format "X(15)" label "Tipo Relacionamento" column-label "Tipo Relac"

    field ttv_num_relacto                  as integer format ">>>>,>>9" label "Relacionamento" column-label "Relacionamento"

    .

(**) Liberado o número de documento com 16 posições e série com5, a partir de maio/2011.

def temp-table tt_integr_apb_item_lote_impl3v no-undo

    field ttv_rec_integr_apb_lote_impl     as recid format ">>>>>>9"

    field tta_num_seq_refer                as integer format ">>>9" initial 0 label "Sequência" column-label "Seq"

    field tta_cdn_fornecedor               as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"

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

    field tta_cod_ser_docto                as character format "x(3)" label "Série Documento" column-label "Série"

    field tta_cod_tit_ap                   as character format "x(10)" label "Título" column-label "Título"

    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parc"

    field tta_dat_emis_docto               as date format "99/99/9999" initial today label "Data  Emissão" column-label "Dt Emissão"

    field tta_dat_vencto_tit_ap            as date format "99/99/9999" initial today label "Data Vencimento" column-label "Dt Vencto"

    field tta_dat_prev_pagto               as date format "99/99/9999" initial today label "Data Prevista Pgto" column-label "Dt Prev Pagto"

    field tta_dat_desconto                 as date format "99/99/9999" initial ? label "Data Desconto" column-label "Dt Descto"

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

    field tta_val_tit_ap                   as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Título" column-label "Valor Título"

    field tta_val_desconto                 as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Desconto" column-label "Valor Desconto"

    field tta_val_perc_desc                as decimal format ">9.9999" decimals 4 initial 0 label "Percentual Desconto" column-label "Perc Descto"

    field tta_num_dias_atraso              as integer format ">9" initial 0 label "Dias Atraso" column-label "Dias Atr"

    field tta_val_juros_dia_atraso         as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Juro" column-label "Vl Juro"

    field tta_val_perc_juros_dia_atraso    as decimal format ">9.999999" decimals 6 initial00.00label "Perc Jur Dia Atraso" column-label "Perc Dia"

    field tta_val_perc_multa_atraso        as decimal format ">9.99" decimals 2 initial00.00label "Perc Multa Atraso" column-label "Multa Atr"

    field tta_cod_portador                 as character format "x(5)" label "Portador" column-label "Portador"

    field tta_cod_apol_seguro              as character format "x(12)" label "Apólice Seguro" column-label "Apolice Seguro"

    field tta_cod_seguradora               as character format "x(8)" label "Seguradora" column-label "Seguradora"

    field tta_cod_arrendador               as character format "x(6)" label "Arrendador" column-label "Arrendador"

    field tta_cod_contrat_leas             as character format "x(12)" label "Contrato Leasing" column-label "Contr Leas"

    field tta_des_text_histor              as chtt_integr_apb_aprop_ctbl_pendaracter format "x(2000)" label "Histórico" column-label "Histórico"

    field tta_num_id_tit_ap                as integer format "9999999999" initial 0 label "Token Tit AP" column-label "Token Tit AP"

    field tta_num_id_movto_tit_ap          as integer format "9999999999" initial 0 label "Token Movto Tit AP" column-label "Id Tit AP"

    field tta_num_id_movto_cta_corren      as integer format "9999999999" initial 0 label "ID Movto Conta" column-label "ID Movto Conta"

    field ttv_qtd_parc_tit_ap              as decimal format ">>9" initial 1 label "Quantidade Parcelas" column-label "Quantidade Parcelas"

    field ttv_num_dias                     as integer format ">>>>,>>9" label "Número de Dias" column-label "Número de Dias"

    field ttv_ind_vencto_previs            as character format "X(4)" initial "Mês" label "Cálculo Vencimento" column-label "Cálculo Vencimento"

    field ttv_log_gerad                    as logical format "Sim/Não" initial no

    field tta_cod_finalid_econ_ext         as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"

    field tta_cod_portad_ext               as character format "x(8)" label "Portador Externo" column-label "Portador Externo"

    field tta_cod_modalid_ext              as character format "x(8)" label "Modalidade Externa" column-label "Modalidade Externa"

    field tta_cod_cart_bcia                as character format "x(3)" label "Carteira" column-label "Carteira"

    field tta_cod_forma_pagto              as character format "x(3)" label "Forma Pagamento" column-label "F Pagto"

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

    field ttv_num_ord_invest               as integer format ">>>>>,>>9" initial 0 label "Ordem Investimento" column-label "Ordem Invest"

    field tta_cod_livre_1                  as character format "x(100)" label "Livre 1" column-label "Livre 1"

    field tta_cod_livre_2                  as character format "x(100)" label "Livre 2" column-label "Livre 2"

    field tta_dat_livre_1                  as date format "99/99/9999" initial ? label "Livre 1" column-label "Livre 1"

    field tta_dat_livre_2                  as date format "99/99/9999" initial ? label "Livre 2" column-label "Livre 2"

    field tta_log_livre_1                  as logical format "Sim/Não" initial no label "Livre 1" column-label "Livre 1"

    field tta_log_livre_2                  as logical format "Sim/Não" initial no label "Livre 2" column-label "Livre 2"

    field tta_num_livre_1                  as integer format ">>>>>9" initial 0 label "Livre 1" column-label "Livre 1"

    field tta_num_livre_2                  as integer format ">>>>>9" initial 0 label "Livre 2" column-label "Livre 2"

    field tta_val_livre_1                  as decimal format ">>>,>>>,>>9.9999" decimals 4 initial 0 label "Livre 1" column-label "Livre 1"

    field tta_val_livre_2                  as decimal format ">>>,>>>,>>9.9999" decimals 4 initial 0 label "Livre 2" column-label "Livre 2"

    field ttv_rec_integr_apb_item_lote     as recid format ">>>>>>9"

    field ttv_val_1099                     as decimal format "->>,>>>,>>>,>>9.99" decimals 2

    field tta_cod_tax_ident_number         as character format "x(15)" label "Tax Id Number" column-label "Tax Id Number"

    field tta_ind_tip_trans_1099           as character format "X(50)" initial "Rents" label "Tipo Transacao 1099" column-label "Tipo Transacao 1099"

    field ttv_ind_tip_cod_barra            as character format "X(01)"

    field tta_cb4_tit_ap_bco_cobdor        as Character format "x(50)" label "Titulo Bco Cobrador" column-label "Titulo Bco Cobrador"

    field tta_cod_tit_ap_bco_cobdor        as character format "x(20)" label "Título Banco Cobdor" column-label "Título Banco Cobdor"

    index tt_item_lote_impl_ap_integr_id   is primary unique

          ttv_rec_integr_apb_lote_impl     ascending

          tta_num_seq_refer                ascending

    .

def temp-table tt_params_generic_api no-undo

    field ttv_rec_id                       as recid format ">>>>>>9"

    field ttv_cod_tabela                   as character format "x(28)" label "Tabela" column-label "Tabela"

    field ttv_cod_campo                    as character format "x(25)" label "Campo" column-label "Campo"

    field ttv_cod_valor                    as character format "x(8)" label "Valor" column-label "Valor"

    index tt_idx_param_generic             is primary unique

          ttv_cod_tabela                   ascending

          ttv_rec_id                       ascending

          ttv_cod_campo                    ascending

    .

Exemplo Criação temp-table tt_params_generic_api:

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id     = (Campo Recid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote      

           tt_params_generic_api.ttv_cod_campo  = 'Safra':U

           tt_params_generic_api.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

           tt_params_generic_api.ttv_cod_valor  = (Valor Da Safra).

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id          = (Campo Recid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

            tt_params_generic_api.ttv_cod_campo = 'cod_contrato':U

            tt_params_generic_api.ttv_cod_tabela  = 'tt_integr_apb_item_lote_impl':U

            tt_params_generic_api.ttv_cod_valor    = (Valor Do Contrato).

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id     = (Campo Recid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote      

            tt_params_generic_api.ttv_cod_campo  = ' Zera Saldo Prev/Prov':U

            tt_params_generic_api.ttv_cod_tabela = ' tt_integr_apb_abat_prev_provis':U

            tt_params_generic_api.ttv_cod_valor  = (Valor Do Zera Saldo).

Exemplo Criação temp-table tt_params_generic_api para campo Importa Títulos de Saldo?:

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id     = recid(tt_integr_apb_item_lote_impl)

       tt_params_generic_api.ttv_cod_campo  = "log_import_tit_sdo"

       tt_params_generic_api.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

       tt_params_generic_api.ttv_cod_valor  = string(yes).

Exemplo Criação temp-table tt_params_generic_api para campo Código Tipo Serviço:

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id     = (Campo Recid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

       tt_params_generic_api.ttv_cod_campo  = "cod_tip_serv_mdo"

       tt_params_generic_api.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

       tt_params_generic_api.ttv_cod_valor  = (Código Tipo Serviço).

Exemplo Criação temp-table tt_params_generic_api para os campos do Beneficiário J-52:

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id = (Campo Recid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

      tt_params_generic_api.ttv_cod_campo = 'cod_id_feder_benef':U

      tt_params_generic_api.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

      tt_params_generic_api.ttv_cod_valor = (ID Federal Beneficiário). (somente números)

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id = (Campo Recid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

      tt_params_generic_api.ttv_cod_campo = 'ind_tip_pessoa_benef':U

      tt_params_generic_api.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

      tt_params_generic_api.ttv_cod_valor = (Tipo de Pessoa Beneficiário).

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id = (Campo Recid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

      tt_params_generic_api.ttv_cod_campo = 'nom_pessoa_benef':U

      tt_params_generic_api.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

      tt_params_generic_api.ttv_cod_valor = (Nome da Pessoa Beneficiário).

Mão-de-Obra ou Empreitada (REINF):

Caso o título seja de um fornecedor do tipo Mão-de-Obra ou Empreitada será necessário informar alguns dados para o REINF. Para cadastrar essas informações através da API será necessário que o fornecedor do título esteja relacionado a uma pessoa jurídica e que o fornecimento do fornecedor seja Serviços ou Produtos/Serviços.

Informações necessárias:

- Mão de Obra ou Empreitada (log_mdo_emptda): Indica se o título representa um pagamento relacionado à mão-de-obra ou empreitada. Valores possíveis 'yes', 'no', 'sim' ou 'não'. Caso esse registro não seja informado irá pegar essa informação do fornecedor financeiro.
- Número do Tipo Serviço Mão-de-Obra (num_tip_serv_mdo ): Número corresponde ao tipo de serviço prestado. Esse campo é obrigatório, caso o campo anterior seja 'yes.' O código deverá estar cadastrado no sistema na rotina Código de Serviço do INSS (CD1050). Caso esse registro não seja informado irá pegar essa informação do fornecedor financeiro.
- Tipo Inscrição Obra (num_tip_obra): Caso a obra esteja vinculada a um CNPJ deverá ser informado '1', caso esteja vinculada a um CNO deverá ser informado '4'.                                                                                                             - Código da Obra (cod_obra): Esse campo é opcional. Porém, caso informado deverá existir na rotina Códigos de obras (cd2023).

Processo Jurídico (REINF):

Para os títulos que possuem INSS estão marcados como Mão-de-Obra ou Empreitada é possível informar um processo jurídico e o valor que será descontado da base de cálculo do imposto relacionado a esse processo.

Informações necessárias:

- Número do Processo Jurídico (cod_process_judic): Esse campo é opcional. Porém, caso informado deverá existir no Cadastro de Processos (cd2021). 
- Valor não retido (val_nao_retid): Este campo é opcional, quando informado utiliza o valor informado no cálculo de imposto e será necessário informar o número do processo jurídico. Quando ele não for informado será calculado o valor não retido com base no percentual de dedução informado no processo jurídico. Observação: Ao informar valores com decimais a quebra deverá ser feita utilizando vírgula.

Recursos Repassados para Associação Desportiva (REINF R-2040):

Para os títulos de Associação Desportiva é possível informar um tipo de repasse e a descrição do recurso repassado.

Informações necessárias:

- Tipo Repasse (ind_tip_repas): Esse campo é obrigátorio, se o fornecedor financeiro for Associação Desportiva. Valores possíveis para o campo:

      -Patrocínio

      -Licenciamento de marcas e símbolos

      -Publicidade

      -Propaganda

      -Transmissão de espetáculos

- Descrição do Recurso (des_recur_repas): Descrição do Recurso repassado para a Associação Desportiva.

Abaixo, exemplo dos registros relacionados:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_params_generic_api.ttv_rec_id = tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote
            tt_params_generic_api.ttv_cod_campo = "log_mdo_emptda"
            tt_params_generic_api.ttv_cod_valor = "yes".

create tt_params_generic_api.
assign tt_params_generic_api.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_params_generic_api.ttv_rec_id = tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote
            tt_params_generic_api.ttv_cod_campo = "num_tip_serv_mdo"
            tt_params_generic_api.ttv_cod_valor = "100000001".

create tt_params_generic_api.
assign tt_params_generic_api.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_params_generic_api.ttv_rec_id = tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote
            tt_params_generic_api.ttv_cod_campo = "num_tip_obra"
            tt_params_generic_api.ttv_cod_valor = "1".

create tt_params_generic_api.
assign tt_params_generic_api.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_params_generic_api.ttv_rec_id = tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote
            tt_params_generic_api.ttv_cod_campo = "cod_obra"
            tt_params_generic_api.ttv_cod_valor = "Obra 123".

create tt_params_generic_api.
assign tt_params_generic_api.ttv_cod_tabela = "tt_integr_apb_impto_impl_pend"
            tt_params_generic_api.ttv_rec_id = recid(tt_integr_apb_impto_impl_pend)
            tt_params_generic_api.ttv_cod_campo = "cod_process_judic"
            tt_params_generic_api.ttv_cod_valor = "00000000124548787878".

create  tt_params_generic_api.
assign tt_params_generic_api.ttv_cod_tabela = "tt_integr_apb_impto_impl_pend"
           tt_params_generic_api.ttv_rec_id = recid(tt_integr_apb_impto_impl_pend)
           tt_params_generic_api.ttv_cod_campo = "val_nao_retid"
           tt_params_generic_api.ttv_cod_valor = "50,12". 

create tt_params_generic_api.
assign tt_params_generic_api.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_params_generic_api.ttv_rec_id = tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote
            tt_params_generic_api.ttv_cod_campo = "ind_tip_repas"
            tt_params_generic_api.ttv_cod_valor = "Patrocínio".

create tt_params_generic_api.
assign tt_params_generic_api.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_params_generic_api.ttv_rec_id = tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote
            tt_params_generic_api.ttv_cod_campo = "des_recur_repas"
            tt_params_generic_api.ttv_cod_valor = "Patrocínio Futebol".

PIX Datasul

O PIX é um novo modo de Pagamento disponibilizado pelo Banco Central que poderá ser utilizado no pagamento de títulos através de Transferências bancária ou liquidação de Boletos. 

Para o pagamentos de Boletos poderão ser utilizado o QR-Code, dessa forma serão disponibilizados dois campos para guardar os dados do QR-Code e o TXID.

Esses campos serão necessários em pagamentos cuja a forma de pagamento forem:

• PIX Qr-code mesmo banco
• PIX QrCode outro banco

QR CODE: Chave/URL endereçamento capturada a partir da leitura do QR CODE. 

TXID:  Código de identificação da transação é opcional e poderá ser informada no pagamento escritural conforme o leitaute CNAB 240 de cada banco. 

create tt_params_generic_api.
assign tt_params_generic_api.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_params_generic_api.ttv_rec_id = tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote
            tt_params_generic_api.ttv_cod_campo = "cod_txid"
            tt_params_generic_api.ttv_cod_valor = "12544".

create tt_params_generic_api.
assign tt_params_generic_api.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_params_generic_api.ttv_rec_id = tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote
            tt_params_generic_api.ttv_cod_campo = "dsl_qrcode"
            tt_params_generic_api.ttv_cod_valor = "00020126580014br.gov.bcb.pix0136123e4567-e12b-12d1-a456-426655440000 5204000053039865802BR5913Fulano de Tal6008BRASILIA62070503***63041D3D " .

def new shared temp-table tt_integr_apb_relacto_pend_aux no-undo

    field ttv_rec_integr_apb_item_lote     as recid format ">>>>>>9"

    field ttv_log_nota_vincul              as logical format "Sim/Não" initial yes

    .

(*) Liberado o centro de custo com 20 posições, a partir de maio/2011.

def temp-table tt_integr_apb_aprop_relacto_2 no-undo

    field ttv_rec_integr_apb_relacto_pend  as recid format ">>>>>>9"

    field ttv_rec_integr_apb_aprop_relacto as recid format ">>>>>>9"

    field ttv_cod_plano_ccusto             as character format "x(8)" label "Plano CCusto" column-label "Plano CCusto"

&IF "{&emsfin_version}" >= "" AND "{&emsfin_version}" < "5.07" &THEN

    field ttv_cod_ccusto                   as Character format "x(11)" label "Centro Custo" column-label "Centro Custo"

&ENDIF

&IF "{&emsfin_version}" >= "5.07" AND "{&emsfin_version}" < "9.99" &THEN

    field ttv_cod_ccusto                   as character format "x(20)" label "Centro de Custo" column-label "Centro de Custo"

&ENDIF

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

    field ttv_cod_tip_fluxo_financ         as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"

    index tt_integr_apb_aprop_relacto_id   is primary unique

          ttv_rec_integr_apb_relacto_pend  ascending

          ttv_rec_integr_apb_aprop_relacto ascending

    . 

Opções válidas para o campo “tta_cod_layout”: 1310, 1330, 1350 e 1370.

Os campos abaixo devem ser informados para todos os layouts:

- ttv_num_origem (2 = Título)

- tta_cod_empresa

- ttv_cod_estab

- tta_dat_transacao

- tta_cod_tit_ap

- ttv_cod_emitente

- tta_cod_ser_docto

- tta_cod_espec_docto

- tta_cod_parcela

- tta_val_brut

- ttv_val_base_retenc

Quando o Layout for 1310 devem ser informados os valores para os campos abaixo:

- tta_ind_tip_obra

- tta_cdd_num_cno

- tta_val_apurad

- tta_val_ret_subempr

- tta_val_retid

- tta_val_adic

- tta_val_serv_15

- tta_val_serv_20

- tta_val_serv_25

- tta_cod_num_proces_judic

- tta_val_nao_retid

- tta_ind_tip_inscr_cno

- tta_cod_num_inscr_cno

Quando o Layout for 1330 devem ser informados os valores para os campos abaixo:

- tta_ind_tip_obra

- tta_cdd_num_cno

- tta_val_mater_eqpto

- tta_val_serv

- tta_val_deduc

- tta_val_base_cooperat

- tta_val_serv_15

- tta_val_serv_20

- tta_val_serv_25

- tta_val_base_cooperat_15

- tta_val_base_cooperat_20

- tta_val_base_cooperat_25

- tta_ind_tip_inscr_cno

- tta_cod_num_inscr_cno

- tta_ind_tip_inciden

Quando o Layout for 1350 devem ser informados os valores para os campos abaixo:

- tta_num_contrat_gfe

- tta_num_roman

- tta_num_seq

- tta_ind_tip_aquis

- tta_val_contrib_prev

- tta_val_contrib_financ

- tta_val_contrib_senar

- tta_cod_num_proces_judic

Quando o Layout for 1370 devem ser informados os valores para os campos abaixo:

- tta_ind_tip_repas

- tta_dat_repas

- tta_val_repas

def temp-table tt_docum_est_esoc_api no-undo

    field tta_cdd_num_docto_esoc           as Decimal format ">>>,>>>,>>>,>>>,>>9" decimals 0 initial 0 label "Documento eSocial" column-label "Docto eSoc"

    field ttv_num_origem                   as integer format "9" label "Origem" column-label "Origem"

    field tta_cod_layout                   as character format "x(8)" label "Layout" column-label "Layout"

    field tta_cod_id_xml                   as character format "x(30)" label "C¢digo ID" column-label "ID XML"

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

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

    field tta_dat_transacao                as date format "99/99/9999" initial today label "Data Transa‡Æo" column-label "Dat Transac"

    field tta_cod_tit_ap                   as character format "x(10)" label "T¡tulo" column-label "T¡tulo"

    field ttv_cod_emitente                 as character format "x(8)" label "Cliente"

    field tta_cod_ser_docto                as character format "x(3)" label "S‚rie Documento" column-label "S‚rie"

    field tta_cod_docto                    as character format "x(19)" label "Nro. Documento" column-label "Nro. Documento"

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

    field tta_cod_natur_operac             as character format "x(6)" label "Natureza Opera‡Æo" column-label "Natureza Opera‡Æo"

    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parc"

    field tta_num_contrat_gfe              as integer format ">>>>>>>>9" initial 0 label "Nr Contrato" column-label "Nr Contrato"

    field tta_num_roman                    as integer format ">,>>>,>>9" initial 0 label "Romaneio" column-label "Romaneio"

    field tta_num_seq                      as integer format ">>>,>>9" initial 0 label "Sequˆncia" column-label "NumSeq"

    field tta_ind_tip_obra                 as character format "X(65)" initial "Obra de Constru‡Æo Civil - Empreitada Total" label "Indicativo Obra" column-label "Indic Obra"

    field tta_val_brut                     as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Bruto" column-label "Bruto"

    field ttv_val_base_retenc              as decimal format "->>,>>>,>>>,>>9.99" decimals 2

    field tta_val_apurad                   as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Apurado" column-label "Vl Apurado"

    field tta_val_ret_subempr              as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Ret Subempreitada" column-label "Vl Rt Subemp"

    field tta_val_retid                    as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Reten‡Æo" column-label "Vl Reten‡Æo"

    field tta_val_adic                     as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Adicional" column-label "Vl Adicional"

    field tta_val_tot_retid                as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Total Retido" column-label "Vl Tot Retid"

    field tta_cdd_num_cno                  as Decimal format ">>>>>>>>>>>9" decimals 0 initial 0 label "Nr Cadastro Nac Obra" column-label "Nr Cad Nac Obr"

    field tta_ind_tip_inscr_cno            as character format "X(10)" initial "CNPJ" label "Tipo Propriet rio" column-label "Tp Propr"

    field tta_cod_num_inscr_cno            as character format "x(19)" label "Propriet rio CNO" column-label "Prop CNO"

    field tta_val_serv_15                  as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Servi‡o 15" column-label "Vl Serv 15"

    field tta_val_serv_20                  as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Servi‡o 20" column-label "Vl Serv 20"

    field tta_val_serv_25                  as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Servi‡o 25" column-label "Vl Serv 25"

    field tta_cod_num_proces_judic         as character format "x(20)" label "Nr Processo Judicial" column-label "Nr Proc Jud"

    field tta_val_nao_retid                as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor NÆo Retido" column-label "Vl NÆo Retid"

    field tta_val_mater_eqpto              as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Mat e Equipto" column-label "Vl Mat Eqpto"

    field tta_val_serv                     as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Servi‡o" column-label "Vl Servi‡o"

    field tta_val_deduc                    as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Dedu‡Æo" column-label "Vl Dedu‡Æo"

    field tta_val_base_cooperat            as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Base Cooperativa" column-label "Vl Base Coop"

    field tta_val_base_calc                as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base C lculo" column-label "Vl Base Calc"

    field tta_val_base_cooperat_15         as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Base Cooper 15" column-label "Vl Bs Cp 15"

    field tta_val_base_cooperat_20         as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Base Cooper 20" column-label "Vl Bs Cp 20"

    field tta_val_base_cooperat_25         as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Base Cooper 25" column-label "Vl Bs Cp 25"

    field tta_ind_tip_inciden              as character format "X(25)" initial "Normal" label "Tipo Incidˆncia" column-label "Tp Incid"

    field tta_ind_tip_aquis                as character format "X(65)" initial "Pessoa F¡sica ou Segurado Especial em Geral" label "Tipo Aquisi‡Æo" column-label "Tp Aquis"

    field tta_val_contrib_prev             as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Contrib Prev" column-label "Vl Contr Prv"

    field tta_val_contrib_financ           as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Contrib Financ" column-label "Vl Contr Fin"

    field tta_val_contrib_senar            as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Contrib Senar" column-label "Vl Ctr Senar"

    field tta_ind_tip_repas                as character format "X(40)" initial "Patroc¡nio" label "Tipo Repasse" column-label "Tp Repasse"

    field tta_dat_repas                    as date format "99/99/9999" initial ? label "Dt Repasse" column-label "Dt Repasse"

    field tta_val_repas                    as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Repasse" column-label "Vl Repasse"

    .

def temp-table tt_item_doc_est_esoc_api no-undo

    field tta_cdd_num_docto_esoc           as Decimal format ">>>,>>>,>>>,>>>,>>9" decimals 0 initial 0 label "Documento eSocial" column-label "Docto eSoc"

    field tta_num_seq_item                 as integer format ">>>>,>>9" initial 0 label "Nr Seq Item" column-label "Seq Item"

    field tta_cdn_serv_inss                as Integer format ">9" initial 0 label "Servi‡o INSS" column-label "Cod Serv INSS"

    field tta_val_brut                     as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Bruto" column-label "Bruto"

    field ttv_val_base_retenc              as decimal format "->>,>>>,>>>,>>9.99" decimals 2

    .

(**) Liberado o número de documento com 16 posições e série com 5, a partir de maio/2011.

def temp-table tt_integr_apb_nota_pend_cart no-undo

    field ttv_rec_integr_apb_item_lote     as recid format ">>>>>>9"

    field tta_cod_contrat_cartcred         as character format "x(10)" label "Contrato Cartão" column-label "Contrato Cartão"

    field tta_cod_portad_cartcred          as character format "x(10)" label "Portador Cartão" column-label "Portador Cartão"

    field tta_cdn_fornecedor               as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"

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

    field tta_cod_ser_docto                as character format "x(3)" label "Série Documento" column-label "Série"

    field tta_cod_tit_ap                   as character format "x(10)" label "Título" column-label "Título"

    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parc"

    field tta_dat_vencto_tit_ap            as date format "99/99/9999" initial today label "Data Vencimento" column-label "Dt Vencto"

    index tt_idx_nota_pend_cart            is primary unique

          ttv_rec_integr_apb_item_lote     ascending

          tta_cod_contrat_cartcred         ascending

          tta_cod_portad_cartcred          ascending

    .

def temp-table tt_integr_apb_item_natur_rendt no-undo
   field ttv_rec_integr_apb_item_lote as recid format ">>>>>>9"
   field tta_cod_pais as character format "x(3)" label "País" column-label "País"
   field tta_cod_unid_federac as character format "x(3)" label "Estado" column-label "UF"
   field tta_cod_imposto as character format "x(5)" label "Imposto" column-label "Imp"
   field tta_cod_classif_impto as character format "x(05)" initial "00000" label "Classificação Imposto" column-label "Classif Imposto"
   field tta_cod_natur_rendto as character format "x(9)" label "Natureza Rendimento" column-label "Natureza Rendimento"
   field ttv_val_impto_rendto_brut as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Rendimento Bruto" column-label "Rendimento Bruto"
   field ttv_val_impto_base_irf as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Base IR" column-label "Base IR"
   field ttv_val_impto_irf as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Imposto IR" column-label "Imposto IR"
   field ttv_val_impto_rendto_suspen as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Rendimento Suspenso" column-label "Rendimento Suspenso"
   field ttv_val_base_nao_retid_irf as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Base Nao Retido IR" column-label "Base Nao Retido IR"
   field ttv_val_impto_nao_retid_irf as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl N Retid IR" column-label "Vl N Retid IR"
   field ttv_val_impto_depos_judic_irf as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Deposito Judic IR" column-label "Deposito Judic IR"
   field ttv_val_impto_base_csll as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Base CSLL" column-label "Base CSLL"
   field ttv_val_impto_csll as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Imposto CSLL" column-label "Imposto CSLL"
   field ttv_val_base_nao_retid_csll as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Base N Retid CSLL" column-label "Base N Retid CSLL"
   field ttv_val_impto_nao_retid_csll as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl N Retid CSLL" column-label "Vl N Retid CSLL"
   field ttv_val_impto_depos_csll as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Depos Judic CSLL" column-label "Depos Judic CSLL"
   field ttv_val_impto_base_cofins as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Base Cofins" column-label "Base Cofins"
   field ttv_val_impto_cofins as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Imposto Cofins" column-label "Imposto Cofins"
   field ttv_val_base_nao_retid_cofins as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Base N Retid Cofins" column-label "Base N Retid Cofins"
   field ttv_val_impto_nao_retid_cofins as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl N Retid Cofins" column-label "Vl N Retid Cofins"
   field ttv_val_impto_depos_cofins as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Depos Judic Cofins" column-label "Depos Judic Cofins"
   field ttv_val_impto_base_pis as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Base PIS" column-label "Base PIS"
  field ttv_val_impto_pis as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Imposto PIS" column-label "Imposto PIS"
  field ttv_val_base_nao_retid_pis as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Base Nao Retido PIS" column-label "Base Nao Retido PIS"
  field ttv_val_impto_nao_retid_pis as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl N Retid PIS" column-label "Vl N Retid PIS"
  field ttv_val_impto_depos_pis as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Depos Judic PIS" column-label "Depos Judic PIS"
  field tta_cod_process_judic as character format "x(21)" label "Nr Processo Judicial" column-label "Nr Proc Judic"
  field ttv_cod_suspens as character format "x(14)" label "Suspensão" column-label "Suspensão"

 field tta_val_perc_natur_rendto        as decimal format ">>9.999999" decimals 6 initial 0 label "Perc Natur Rendto" column-label "Perc Natur Rendto"
 field tta_val_impto_base_agreg         as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Impto Base Agregado" column-label "Impto Base Agregado"
 field tta_val_impto_agreg              as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Imposto Agregado" column-label "Imposto Agregado"

   index tt_idx_id is primary unique
      ttv_rec_integr_apb_item_lote ascending
      tta_cod_pais ascending
      tta_cod_unid_federac ascending
      tta_cod_imposto ascending
      tta_cod_classif_impto ascending
      tta_cod_natur_rendto ascending

      .