Documento de API

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_5: 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_api_params_generic: conterá campos novos das temp-tables passadas como parâmetro.

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

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

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_1: Conterá as informações de pagamento com cartão de crédito. 

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

tt_apb_abat_antecip_vouc: Conterá as informações de abatimento de antecipação, antes era a temp-table tt_integr_apb_abat_antecip_vouc

tt_apb_abat_prev_provis: Conterá as informações de abatimento de previsão/provisão, antes era a temp-table tt_integr_apb_abat_prev_provis

tt_apb_aprop_ctbl_pend: Conterá as informações de apropriações pendentes, antes era a temp-table tt_integr_apb_aprop_ctbl_pend

tt_apb_aprop_relacto: Conterá as informações de apropriações, antes era a temp-table tt_integr_apb_aprop_relacto

tt_apb_impto_impl_pend: Conterá as informações de impostos pendentes, antes era a temp-table tt_integr_apb_impto_impl_pend

tt_apb_lote_impl: Conterá as informações de lote de implantação, antes era a temp-table tt_integr_apb_lote_impl

tt_apb_relacto_pend: Conterá as informações de relacionamento pendente, antes era a temp-table tt_integr_apb_relacto_pend

tt_apb_item_lote_trib: Conterá os tributos vinculados ao título que está sendo implantado. Limitado aos tributos criados na reforma tributária sobre o consumo: IBS UF, IBS Mun, CBS e IS.

tt_apb_lote_dfe: Conterá os documentos fiscais que deram origem aos tributos vinculados ao títulos que está sendo implantados (tt_apb_item_lote_trib).

Considerações

1. A temp-table de lote de implantação tt_api_apb_lote_impl, possui o atributo "ttv_cod_id_lote_impl_tit_apb" que é o ID único. Nesse atributo é aconselhável gravar: STRING(ROWID(tt_api_apb_lote_impl)) 
2. O item do lote (tt_api_apb_item_lote_impl) se relacionada com o lote (tt_api_apb_lote_impl) através do atributo "ttv_cod_id_lote_impl_tit_apb ", ou seja, tt_api_apb_item_lote_impl.ttv_cod_id_lote_impl_tit_apb = tt_api_apb_lote_impl.ttv_cod_id_lote_impl_tit_apb.
   
3. As informações do item do lote se relacionam a ele através do atributo "ttv_cod_id_item_lote_impl_tit". Nesse atributo é aconselhável gravar: string(rowid(tt_api_apb_item_lote_impl)) para a temp-table de item do lote, ou seja, tt_api_apb_item_lote_impl.ttv_cod_id_item_lote_impl_tit = string(rowid(tt_api_apb_item_lote_impl)).
4. A gravação do campo ttv_cod_id_item_lote_impl_tit para as temp-table´s que possuem o relacionamento com a item do lote pode ser feito atribuindo o campo do item do lote ao da temp-table relacionada.
   1. Exemplo: tt_api_apb_aprop_ctbl_pend.ttv_cod_id_item_lote_impl_tit  = tt_api_apb_item_lote_impl.ttv_cod_id_item_lote_impl_tit.         
5. A temp-table de documentos fiscais (tt_api_apb_lote_dfe) deve ser criada a nível de lote de implantação. Ou seja, não é necessário informar um registro nela para cada item do lote de implantação se um mesmo documento fiscal tiver originado vários itens do lote de implantação com tributos informados (tt_api_apb_item_lote_trib).
6. O método pi_main_block_api_tit_ap_cria_13 foi liberado nos seguintes patches:
   • 12.1.2511.2
   • 12.1.2507.8
   • 12.1.2503.14

7. A Implantação de Títulos do Contas a Pagar (apb704aa) não será alterada para incluir os novos impostos.

   Está em desenvolvimento o “Painel Tributário Financeiro” com previsão de expedição na release 12.1.2603, depois da expedição oficial será realizado Retrofit também. Lá será possível consultar, alterar e incluir os novos tributos da Reforma Tributária.

   Para vincular os tributos nos títulos é necessário que tenha um documento fiscal que deu origem aos tributos.

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 é:

def var v_hdl_api_integr_apb as Handle no-undo.

run prgfin/apb/apb900zi.py persistent set v_hdl_api_integr_apb.

run pi_main_block_api_tit_ap_cria_13 in v_hdl_api_integr_apb (Input 13,
                                                       Input v_cod_matriz_trad_org_ext,
                                                       Input-output table tt_integr_apb_item_lote_impl_5,
                                                       Input-output table tt_api_params_generic,
                                                       Input table tt_integr_apb_relacto_pend_1,
                                                       Input table tt_integr_apb_aprop_relacto_3,
                                                       Input table tt_docum_est_esoc_api,
                                                       Input table tt_item_doc_est_esoc_api,
                                                       Input table tt_integr_apb_nota_pend_cart_1,                                
                                                       Input table tt_integr_apb_item_natur_rend1,    
                                                       Input-output table tt_apb_abat_antecip_vouc,
                                                       Input-output table tt_apb_abat_prev_provis,
                                                       Input-output table tt_apb_aprop_ctbl_pend,
                                                       Input-output table tt_apb_aprop_relacto,
                                                       Input-output table tt_apb_impto_impl_pend,
                                                       Input-output table tt_apb_lote_impl,
                                                       Input-output table tt_apb_relacto_pend,
                                                       Output table tt_log_erros_atualiz,
                                                       INPUT TABLE tt_apb_lote_dfe,
                                                       INPUT TABLE tt_apb_item_lote_trib).

delete procedure v_hdl_api_integr_apb.

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 temp-table tt_apb_abat_antecip_vouc no-undo
    field ttv_cod_row_integr_apb_item_lote as character format "x(80)"
    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(5)" 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(16)" label "T¡tulo" column-label "T¡tulo"
    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parcela"
    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_cod_row_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 temp-table tt_apb_abat_prev_provis no-undo
    field ttv_cod_row_integr_apb_item_lote as character format "x(80)"
    field ttv_cod_row_antecip_pef_pend     as character format "x(80)"
    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(5)" 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(16)" label "T¡tulo" column-label "T¡tulo"
    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parcela"
    field tta_val_abat_tit_ap              as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Abatimento" column-label "Vl Abatimento"
    field ttv_cod_row_cancel_vda           as character format "x(100)"
    index tt_integr_apb_abat_prev          is unique
          ttv_cod_row_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_cod_row_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 temp-table tt_apb_aprop_ctbl_pend no-undo
    field ttv_cod_row_integr_apb_item_lote as character format "x(80)"
    field ttv_cod_row_antecip_pef_pend     as character format "x(80)"
    field ttv_cod_row_integr_apb_impto_pe  as character format "x(80)"
    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(20)" 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 "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 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_cod_row_antecip_pef_pend     ascending
          ttv_cod_row_integr_apb_impto_pe  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_cod_row_integr_apb_item_lote ascending
          ttv_cod_row_integr_apb_impto_pe  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 temp-table tt_apb_aprop_relacto no-undo
    field ttv_cod_row_apb_aprop_relacto_pe as character format "x(80)"
    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"
    field ttv_cod_row_apb_aprop_relacto    as character format "x(80)"
    index tt_integr_apb_aprop_relacto      is primary unique
          ttv_cod_row_apb_aprop_relacto_pe 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 temp-table tt_apb_impto_impl_pend no-undo
    field ttv_cod_row_integr_apb_item_lote as character format "x(80)"
    field ttv_cod_row_antecip_pef_pend     as character format "x(80)"
    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_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(5)" label "S‚rie Documento" column-label "S‚rie"
    field tta_cod_tit_ap                   as character format "x(16)" label "T¡tulo" column-label "T¡tulo"
    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parcela"
    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 "Dedu‡Æo PensÆo" column-label "Dedu‡Æo PensÆo"
    field tta_val_outras_deduc_impto       as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Desc Simplif/Out Ded" column-label "Desc Simplif/Out Ded"
    field tta_val_base_liq_impto           as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Base Liquida‡Æo" column-label "Base Liquida‡Æo Impo"
    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 "999999999" initial 0 label "Token T¡t AP" column-label "Token T¡t AP"
    field tta_num_id_movto_tit_ap          as integer format "9999999999" initial 0 label "Token Movto T¡t AP" column-label "Id T¡t AP"
    field tta_num_id_movto_cta_corren      as integer format "999999999" 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_cod_row_integr_apb_item_lote ascending
          ttv_cod_row_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 temp-table tt_apb_item_lote_impl no-undo
    field ttv_cod_row_integr_apb_lote_impl as character format "x(80)"
    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(5)" label "S‚rie Documento" column-label "S‚rie"
    field tta_cod_tit_ap                   as character format "x(16)" label "T¡tulo" column-label "T¡tulo"
    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parcela"
    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 Juros" column-label "Vl Juros"
    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 "999999999" initial 0 label "Token T¡t AP" column-label "Token T¡t AP"
    field tta_num_id_movto_tit_ap          as integer format "9999999999" initial 0 label "Token Movto T¡t AP" column-label "Id T¡t AP"
    field tta_num_id_movto_cta_corren      as integer format "999999999" 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 "Replica cotac (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 ttv_cod_row_integr_apb_item_lote as character format "x(80)"
    index tt_item_lote_impl_ap_integr_id   is primary unique
          ttv_cod_row_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 temp-table tt_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"
    field ttv_cod_row_integr_apb_lote_impl as character format "x(80)"
    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 temp-table tt_apb_relacto_pend no-undo
    field ttv_cod_row_integr_apb_item_lote as character format "x(80)"
    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 "999999999" 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"
    field ttv_cod_row_apb_aprop_relacto_pe as character format "x(80)"
    index tt_integr_apb_relacto_pend       is primary unique
          ttv_cod_row_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_impl_5 no-undo
    field ttv_cod_row_integr_apb_lote_impl as character format "x(80)"
    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(5)" label "S‚rie Documento" column-label "S‚rie"
    field tta_cod_tit_ap                   as character format "x(16)" label "T¡tulo" column-label "T¡tulo"
    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parcela"
    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 Juros" column-label "Vl Juros"
    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 "999999999" initial 0 label "Token T¡t AP" column-label "Token T¡t AP"
    field tta_num_id_movto_tit_ap          as integer format "9999999999" initial 0 label "Token Movto T¡t AP" column-label "Id T¡t AP"
    field tta_num_id_movto_cta_corren      as integer format "999999999" 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 "Replica cotac (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 "In¡cio Per¡odo" column-label "Livre 1"
    field tta_dat_livre_2                  as date format "99/99/9999" initial ? label "Fim Per¡odo" 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_cod_row_integr_apb_item_lote as character format "x(80)"
    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 "Rendas" 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_cod_row_integr_apb_lote_impl ascending
          tta_num_seq_refer                ascending
    .

def temp-table tt_api_params_generic no-undo
    field ttv_cod_row_id                   as character format "x(80)"
    field ttv_cod_tabela                   as character format "x(28)" label "Tabela" column-label "Tabela"
    field ttv_cod_campo                    as character format "x(35)" 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_cod_row_id                   ascending
          ttv_cod_campo                    ascending
    .

Exemplo Criação temp-table tt_api_params_generic:

create tt_api_params_generic.

assign tt_api_params_generic.ttv_cod_row_id = (Campo rowid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote      

           tt_api_params_generic.ttv_cod_campo  = 'Safra':U

           tt_api_params_generic.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

           tt_api_params_generic.ttv_cod_valor  = (Valor Da Safra).

create tt_api_params_generic.

assign tt_api_params_generic.ttv_cod_row_id = (Campo rowid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

            tt_api_params_generic.ttv_cod_campo = 'cod_contrato':U

            tt_api_params_generic.ttv_cod_tabela  = 'tt_integr_apb_item_lote_impl':U

            tt_api_params_generic.ttv_cod_valor    = (Valor Do Contrato).

create tt_api_params_generic.

assign tt_api_params_generic.ttv_cod_row_id = (Campo rowid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote      

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

            tt_api_params_generic.ttv_cod_tabela = ' tt_integr_apb_abat_prev_provis':U

            tt_api_params_generic.ttv_cod_valor  = (Valor Do Zera Saldo).

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

create tt_api_params_generic.

assign tt_api_params_generic.ttv_cod_row_id = rowid(tt_integr_apb_item_lote_impl)

       tt_api_params_generic.ttv_cod_campo  = "log_import_tit_sdo"

       tt_api_params_generic.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

       tt_api_params_generic.ttv_cod_valor  = string(yes).

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

create tt_api_params_generic.

assign tt_api_params_generic.ttv_cod_row_id = (Campo rowid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

       tt_api_params_generic.ttv_cod_campo  = "cod_tip_serv_mdo"

       tt_api_params_generic.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

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

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

create tt_api_params_generic.

assign tt_api_params_generic.ttv_cod_row_id = (Campo rowid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

      tt_api_params_generic.ttv_cod_campo = 'cod_id_feder_benef':U

      tt_api_params_generic.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

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

create tt_api_params_generic.

assign tt_api_params_generic.ttv_cod_row_id = (Campo rowid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

      tt_api_params_generic.ttv_cod_campo = 'ind_tip_pessoa_benef':U

      tt_api_params_generic.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

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

create tt_api_params_generic.

assign tt_api_params_generic.ttv_cod_row_id = (Campo rowid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

      tt_api_params_generic.ttv_cod_campo = 'nom_pessoa_benef':U

      tt_api_params_generic.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

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

Mercado Eletrônico 

Exemplo de integração com pedidos do Mercado Eletrônico:

create tt_api_params_generic.

assign tt_api_params_generic.ttv_cod_row_id = (Campo rowid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

      tt_api_params_generic.ttv_cod_campo = 'cod_ped_me':U

      tt_api_params_generic.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

      tt_api_params_generic.ttv_cod_valor = (Pedidos Mercado Eletrônico).  "ME-rafa8977|ME-rafa5514|ME-rafa7785"

create tt_api_params_generic.

assign tt_api_params_generic.ttv_cod_row_id = (Campo rowid da temp-table) tt_integr_apb_item_lote_impl_3.ttv_rec_integr_apb_item_lote

      tt_api_params_generic.ttv_cod_campo = 'cod_ped_dtsul':U

      tt_api_params_generic.ttv_cod_tabela = 'tt_integr_apb_item_lote_impl':U

      tt_api_params_generic.ttv_cod_valor = (Pedidos Datasul).  "DTSUL-rafa8227|DTSUL-rafa5887|DTSUL-rafa8877"

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_api_params_generic.
assign tt_api_params_generic.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_api_params_generic.ttv_cod_row_id = tt_integr_apb_item_lote_impl_5.ttv_cod_row_integr_apb_item_lote
            tt_api_params_generic.ttv_cod_campo = "log_mdo_emptda"
            tt_api_params_generic.ttv_cod_valor = "yes".

create tt_api_params_generic.
assign tt_api_params_generic.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_api_params_generic.ttv_cod_row_id = tt_integr_apb_item_lote_impl_5.ttv_cod_row_integr_apb_item_lote
            tt_api_params_generic.ttv_cod_campo = "num_tip_serv_mdo"
            tt_api_params_generic.ttv_cod_valor = "100000001".

create tt_api_params_generic.
assign tt_api_params_generic.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_api_params_generic.ttv_cod_row_id = tt_integr_apb_item_lote_impl_5.ttv_cod_row_integr_apb_item_lote
            tt_api_params_generic.ttv_cod_campo = "num_tip_obra"
            tt_api_params_generic.ttv_cod_valor = "1".

create tt_api_params_generic.
assign tt_api_params_generic.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_api_params_generic.ttv_cod_row_id = tt_integr_apb_item_lote_impl_5.ttv_cod_row_integr_apb_item_lote
            tt_api_params_generic.ttv_cod_campo = "cod_obra"
            tt_api_params_generic.ttv_cod_valor = "Obra 123".

create tt_api_params_generic.
assign tt_api_params_generic.ttv_cod_tabela = "tt_integr_apb_impto_impl_pend"
            tt_api_params_generic.ttv_cod_row_id = string(rowid(tt_integr_apb_impto_impl_pend)) tt_integr_apb_item_lote_impl_5.ttv_cod_row_integr_apb_item_lote
            tt_api_params_generic.ttv_cod_campo = "cod_process_judic"
            tt_api_params_generic.ttv_cod_valor = "00000000124548787878".

create  tt_api_params_generic.
assign tt_api_params_generic.ttv_cod_tabela = "tt_integr_apb_impto_impl_pend"
           tt_api_params_generic.ttv_cod_row_id = string(rowid(tt_integr_apb_impto_impl_pend)) tt_integr_apb_item_lote_impl_5.ttv_cod_row_integr_apb_item_lote
           tt_api_params_generic.ttv_cod_campo = "val_nao_retid"
           tt_api_params_generic.ttv_cod_valor = "50,12". 

create tt_api_params_generic.
assign tt_api_params_generic.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_api_params_generic.ttv_cod_row_id = tt_integr_apb_item_lote_impl_5.ttv_cod_row_integr_apb_item_lote
            tt_api_params_generic.ttv_cod_campo = "ind_tip_repas"
            tt_api_params_generic.ttv_cod_valor = "Patrocínio".

create tt_api_params_generic.
assign tt_api_params_generic.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_api_params_generic.ttv_cod_row_id = tt_integr_apb_item_lote_impl_5.ttv_cod_row_integr_apb_item_lote
            tt_api_params_generic.ttv_cod_campo = "des_recur_repas"
            tt_api_params_generic.ttv_cod_valor = "Patrocínio Futebol".

REINF Retenções Fonte (REINF Bloco 40 - R-4010 R-4020)

- Para extração do REINF tanto para R-4010 como R-4020 será necessário que ele venha com a marcação de REINF Retenções Fonte. 

create tt_api_params_generic.
assign tt_api_params_generic.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_api_params_generic.ttv_cod_row_id = tt_integr_apb_item_lote_impl_5.ttv_cod_row_integr_apb_item_lote
            tt_api_params_generic.ttv_cod_campo = "log_reinf_retenc"
            tt_api_params_generic.ttv_cod_valor = "yes".

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_api_params_generic.
assign tt_api_params_generic.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_api_params_generic.ttv_cod_row_id  = tt_integr_apb_item_lote_impl_5.ttv_cod_row_integr_apb_item_lote
            tt_api_params_generic.ttv_cod_campo = "cod_txid"
            tt_api_params_generic.ttv_cod_valor = "12544".

create tt_api_params_generic.
assign tt_api_params_generic.ttv_cod_tabela = "tt_integr_apb_item_lote_impl"
            tt_api_params_generic.ttv_cod_row_id = tt_integr_apb_item_lote_impl_5.ttv_cod_row_integr_apb_item_lote
            tt_api_params_generic.ttv_cod_campo = "dsl_qrcode"
            tt_api_params_generic.ttv_cod_valor = "00020126580014br.gov.bcb.pix0136123e4567-e12b-12d1-a456-426655440000 5204000053039865802BR5913Fulano de Tal6008BRASILIA62070503***63041D3D " .

def temp-table tt_integr_apb_relacto_pend_1 no-undo
    field ttv_cod_row_integr_apb_item_lote as character format "x(80)"
    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_3 no-undo
    field ttv_cod_row_apb_aprop_relacto_pe as character format "x(80)"
    field ttv_cod_row_apb_aprop_relacto    as character format "x(80)"
    field ttv_cod_plano_ccusto             as character format "x(8)" label "Plano CCusto" column-label "Plano CCusto"
    field ttv_cod_ccusto                   as Character format "x(20)" label "Centro Custo" column-label "Centro Custo"
    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_cod_row_apb_aprop_relacto_pe ascending
          ttv_cod_row_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_1 no-undo
    field ttv_cod_row_integr_apb_item_lote as character format "x(80)"
    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(5)" label "S‚rie Documento" column-label "S‚rie"
    field tta_cod_tit_ap                   as character format "x(16)" label "T¡tulo" column-label "T¡tulo"
    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parcela"
    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_cod_row_integr_apb_item_lote ascending
          tta_cod_contrat_cartcred         ascending
          tta_cod_portad_cartcred          ascending
    .

def temp-table tt_integr_apb_item_natur_rend1 no-undo
    field ttv_cod_row_integr_apb_item_lote as character format "x(80)"
    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_cod_row_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
    .

def temp-table tt_apb_item_lote_trib no-undo
    field ttv_cod_row_integr_apb_item_lote as character format "x(80)"
    field tta_cod_dfe                      as character format "x(60)" label "Código DFe" column-label "Documento Fiscal Ele"
    field tta_cod_dfe_orig                 as character format "x(60)" label "Código DFe Origem" column-label "Documento Fiscal Ele"
    field tta_ind_tip_trib                 as character format "X(12)" label "Tipo Tributo" column-label "Tipo Tributo"
    field tta_ind_tip_campo_trib           as character format "X(20)" label "Tipo Campo Tributo" column-label "Tipo Campo Trib"
    field tta_cod_contdo_campo             as character format "x(50)" label "Conteudo Campo" column-label "Conteudo Campo"
    index tt_id                            is primary unique
          ttv_cod_row_integr_apb_item_lote ascending
          tta_cod_dfe                      ascending
          tta_ind_tip_trib                 ascending
          tta_ind_tip_campo_trib           ascending
    .

Cada item do lote de implantação (tt_integr_apb_item_lote_impl_5) poderá ter vários registros de tributos vinculados (tt_apb_item_lote_trib), conforme exemplo abaixo:

def temp-table tt_apb_lote_dfe no-undo
    field ttv_cod_row_integr_apb_lote_impl as character format "x(80)"
    field tta_cod_dfe                      as character format "x(60)" label "Código DFe" column-label "Documento Fiscal Ele"
    field tta_cod_chave_aces_docto_fisc    as character format "x(60)" label "Chave Acesso NFE" column-label "Chave Acesso NFE"
    field tta_cod_estab_ext                as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
    field tta_cod_ser_docto                as character format "x(5)" label "Série Documento" column-label "Série"
    field tta_cod_docto_fisc               as character format "x(16)" label "Documento Fiscal" column-label "Documento Fiscal"
    field tta_val_tot_docto_fisc           as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Total Documento Fisc" column-label "Total Docto Fiscal"
    field tta_val_tot_sem_trib             as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Val Tot Sem Trib" column-label "Val Tot Sem Trib"
    field tta_ind_natur_docto              as character format "X(20)" label "Natureza Documento" column-label "Natureza Documento"
    field tta_log_cr_presmdo               as logical format "Sim/Não" initial no label "Crédito Presumido" column-label "Crédito Presumido"
    index tt_id                            is primary unique
          ttv_cod_row_integr_apb_lote_impl ascending
          tta_cod_dfe                      ascending
    .

Exemplo para a temp-table tt_apb_lote_dfe baseado no que foi demonstrado acima para o conteúdo da temp-table tt_apb_item_lote_trib, ou seja, informações adicionais do documento DFE_ABC: