Documento de API

Objetivo

Efetuar a implantação das Antecipações ou PEF Pendentes no Contas a Pagar.

Parâmetros de Entrada

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 organizacional externa.

tt_api_apb_antecip_pef_p1_3: conterá os dados das antecipações a serem importadas.

tt_api_apb_aprop_ctbl_pend_3: conterá os dados das apropriações contábeis a serem importadas para as antecipações.

tt_api_apb_impto_impl_pend_3: conterá os dados dos impostos a serem importados para as antecipações.

tt_api_apb_abat_prev_provis_3: conterá os dados das previsões que serão abatidas pelas antecipações.

tt_api_1099_3: conterá os dados referentes aos impostos do tipo 1099, utilizado somente pelos clientes Datasul dos EUA.

tt_ord_compra_tit_ap_pend_1: conterá os dados para importação de Ordem Compra.

tt_params_generic_api_3 Conterá campos novos das temp-tables passadas como parâmetro.

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_natur_rendto_impto_pend: Conterá as informações das naturezas de rendimento para o REINF.

Funcionamento

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

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

run pi_main_block_antecip_pef_pend_7 IN v_hdl_aux  (Input 7,
                                          Input p_cod_matriz_trad_org_ext,
                                          Input-output table tt_api_apb_antecip_pef_p1_3, 
                                          Input table tt_api_apb_aprop_ctbl_pend_3,       
                                          Input table tt_api_apb_impto_impl_pend_3,       
                                          Input table tt_api_apb_abat_prev_provis_3,      
                                          Output table tt_log_erros_atualiz,
                                          Input table tt_api_1099_3,                      
                                          Input table tt_ord_compra_tit_ap_pend_1,
                                          Input-output table tt_params_generic_api_3,     
                                          Input table tt_docum_est_esoc_api,
                                          Input table tt_item_doc_est_esoc_api,
                                          Input table tt_natur_rendto_impto_pend) /* pi_main_block_antecip_pef_pend_7*/.

A variável denominada v_hdl_aux irá receber o “handle” do programa, permitindo o acesso aos “métodos” internos da API.

Tabelas Temporárias

(*) 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 com5, apartir de maio/2011.

def temp-table tt_api_apb_antecip_pef_p1_3 no-undo
    field tta_cod_empresa                  as character format "x(3)" label "Empresa" column-label "Empresa"
    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_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_cod_portador                 as character format "x(5)" label "Portador" column-label "Portador"
    field tta_cod_indic_econ               as character format "x(8)" label "Moeda" column-label "Moeda"
    field tta_num_talon_cheq               as integer format ">>>,>>>,>>9" initial 0 label "Talonário Cheques" column-label "Talonário Cheques"
    field tta_num_cheque                   as integer format ">>>>,>>>,>>9" initial ? label "Núm Cheque" column-label "Num Cheque"
    field tta_ind_favorec_cheq             as character format "X(15)" initial "Portador" label "Favorec" column-label "Favorec"
    field tta_nom_favorec_cheq             as character format "x(40)" label "Nome Favorecido" column-label "Nome Favorecido"
    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_cotac_indic_econ         as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Cotação" column-label "Cotação"
    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_ind_tip_refer                as character format "X(22)" label "Tipo Referência" column-label "Tipo"
    field tta_cod_seguradora               as character format "x(8)" label "Seguradora" column-label "Seguradora"
    field tta_cod_apol_seguro              as character format "x(12)" label "Apólice Seguro" column-label "Apolice Seguro"
    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_cod_histor_padr              as character format "x(8)" label "Histórico Padrão" column-label "Histórico Padrão"
    field tta_des_text_histor              as character format "x(2000)" label "Histórico" column-label "Histórico"
    field tta_ind_natur_cta_ctbl           as character format "X(08)" initial "DB" label "Natureza Contábil" column-label "Natureza Contábil"
    field tta_cod_usuar_gerac_movto        as character format "x(12)" label "Usuario Gerac Movto" column-label "Usuario"
    field ttv_cod_empresa_ext              as character format "x(3)" label "Código Empresa Ext" column-label "Cód Emp Ext"
    field tta_cod_estab_ext                as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
    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 ttv_cod_id_antecip_pef_pend      as character format "x(80)"
    field tta_ind_origin_tit_ap            as character format "X(03)" initial "APB" label "Origem" column-label "Origem"
    field tta_cod_cart_bcia                as character format "x(3)" label "Carteira" column-label "Carteira"
    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_antcppfp_id                   is primary unique
          tta_cod_estab                    ascending
          tta_cod_refer                    ascending
    index tt_antcppfp_tip_refer           
          tta_cod_empresa                  ascending
          tta_ind_tip_refer                ascending
          tta_cod_estab                    ascending
          tta_cod_refer                    ascending
    index tt_recid                        
          ttv_cod_id_antecip_pef_pend      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 com5, apartir de maio/2011.

def temp-table tt_api_apb_abat_prev_provis_3 no-undo
    field ttv_cod_id_integr_apb_item_lote  as character format "x(80)"
    field ttv_cod_id_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"
    index tt_integr_apb_abat_prev          is unique
          ttv_cod_id_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_id_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 número de documento com 16 posições e série com5, apartir de maio/2011.

def temp-table tt_api_apb_impto_impl_pend_3 no-undo
    field ttv_cod_id_integr_apb_item_lote  as character format "x(80)"
    field ttv_cod_id_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_id_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_cod_id_antecip_pef_pend      ascending
          tta_cod_pais                     ascending
          tta_cod_unid_federac             ascending
          tta_cod_imposto                  ascending
          tta_cod_classif_impto            ascending
    .

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

def temp-table tt_api_apb_aprop_ctbl_pend_3 no-undo
    field ttv_cod_id_integr_apb_item_lote  as character format "x(80)"
    field ttv_cod_id_antecip_pef_pend      as character format "x(80)"
    field ttv_cod_id_integr_apb_impto_pend 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_id_antecip_pef_pend      ascending
          ttv_cod_id_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_cod_id_integr_apb_item_lote  ascending
          ttv_cod_id_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
    .

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

def 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"

    .

def temp-table tt_api_1099_3 no-undo
    field ttv_cod_id_table_parent          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"
    index tt_rec_index                     is primary unique
          ttv_cod_id_table_parent          ascending
    .

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

def temp-table tt_ord_compra_tit_ap_pend_1 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 tta_cod_ord_compra     as character format "x(8)" label "Ordem Compra" column-label "Ordem Compra"

    field tta_val_perc_ord_compra          as decimal format ">>9.99" decimals 2 initial 0 label "Perc Ordem Compra" column-label "Perc Ordem Compra"

    field tta_val_origin_ord_compra        as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Original Ordem Compr" column-label "Original Ordem Compr"

    field tta_val_sdo_ord_compra          as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Saldo Ordem Compra" column-label "Saldo Ordem Compra"

    index tt_codigo     is primary unique

 tta_cod_estab               ascending

 tta_cod_refer                ascending

 tta_num_seq_refer       ascending

             tta_cod_ord_compra   ascending

    .

def temp-table tt_params_generic_api_3 no-undo
    field ttv_cod_id_param                 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_id_param                 ascending
          ttv_cod_campo                    ascending
    .

Exemplo Criação temp-table tt_params_generic_api_3:

create tt_params_generic_api_3.

assign tt_params_generic_api_3.ttv_cod_id_param     = (Campo identificador da temp-table)tt_api_apb_antecip_pef_p1_3.ttv_cod_id_antecip_pef_pend

       tt_params_generic_api_3.ttv_cod_campo  = 'Safra':U

       tt_params_generic_api_3.ttv_cod_tabela = 'tt_integr_apb_antecip_pef':U

       tt_params_generic_api_3.ttv_cod_valor  = (Valor Da Safra).

create tt_params_generic_api_3.

assign tt_params_generic_api_3.ttv_cod_id_param         = (Campo identificador da temp-table)tt_api_apb_antecip_pef_p1_3.ttv_cod_id_antecip_pef_pend

            tt_params_generic_api_3.ttv_cod_campo = 'cod_contrato':U

            tt_params_generic_api_3.ttv_cod_tabela   = 'tt_integr_apb_antecip_pef':U

            tt_params_generic_api_3.ttv_cod_valor     = (Valor Do Contrato).

create tt_params_generic_api_3.

assign tt_params_generic_api_3.ttv_cod_id_param     = (Campo identificador da temp-table)  tt_api_apb_antecip_pef_p1_3.ttv_cod_id_antecip_pef_pend       tt_params_generic_api_3.ttv_cod_campo  = ' Zera Saldo Prev/Prov':U

       tt_params_generic_api_3.ttv_cod_tabela = ' tt_integr_apb_abat_prev_provis':U

       tt_params_generic_api_3.ttv_cod_valor  = (Valor Do Zera Saldo).

def temp-table tt_natur_rendto_impto_pend no-undo
    field tta_cod_estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"
    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_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 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                  as character format "x(8)" label "Classificacao" column-label "Classificacao"
    field tta_num_seq_natur_rendto         as integer format ">>>>,>>9" initial 0 label "Sequencia Natureza R" column-label "Sequencia Natureza R"
    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_rendto_suspen      as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Rendimento Suspenso" column-label "Rendimento Suspenso"
    field ttv_val_impto_irf                as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Imposto IR" column-label "Imposto 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_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_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_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 ttv_cod_process_judic            as character format "x(21)" label "Nr. Processo" column-label "Nr. Processo"
    field ttv_cod_suspens                  as character format "x(14)" label "SuspensÆo" column-label "SuspensÆo"
    field tta_val_brut                     as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Bruto" column-label "Valor Bruto"
    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_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_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_val_livre_1                  as decimal format "->>,>>>,>>>,>>9.9999999999" decimals 10 initial 0 label "Livre 1" column-label "Livre 1"
    field tta_val_livre_2                  as decimal format "->>,>>>,>>>,>>9.9999999999" decimals 10 initial 0 label "Livre 2" column-label "Livre 2"
    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_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_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_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_log_delete                   as logical format "Sim/NÆo" initial no
    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"
    field tta_dat_refer                    as date format "99/99/9999" initial ? label "Data Referˆncia" column-label "Data Referˆncia"
    index tt_idx_id                        is primary unique
          tta_cod_estab                    ascending
          tta_cod_refer                    ascending
          tta_num_seq_refer                ascending
          tta_cod_pais                     ascending
          tta_cod_unid_federac             ascending
          tta_cod_imposto                  ascending
          tta_cod_classif                  ascending
          tta_num_seq_natur_rendto         ascending
          tta_num_id_tit_ap                ascending
          tta_num_id_movto_tit_ap          ascending.

Tratativa para permitir criar a pendência APF na execução da API

A rotina API de Antecipações/Pagamentos Extra-fornecedor Pendentes foi alterada para permitir criar a pendência APF quando o módulo APF ativo e estiver parametrizado com a opção "Geral' juntamente com a tabela de parâmetros tt_params_generic_api utilizando os campos 'Pendencia_APF' e valor 'SIM'. A pendência será criada conforme as demais regras de negócio do produto.

Deverá utilizar um novo parâmetro na tabela tt_params_generic_api para gerar a pendência para cada antecipação.

CREATE tt_params_generic_api_3.
ASSIGN tt_params_generic_api_3.ttv_cod_id_param = tt_api_apb_antecip_pef_p1_3.ttv_cod_id_antecip_pef_pend /* (Campo identificador da temp-table) */
              tt_params_generic_api_3.ttv_cod_campo = 'Pendencia_APF':U
              tt_params_generic_api_3.ttv_cod_tabela  = 'tt_integr_apb_antecip_pef_p1':U
              tt_params_generic_api_3.ttv_cod_valor    = 'SIM':U. /* Valor para criar a pendência */

Observação: O novo parâmetro será utilizado somente para o documento do tipo Antecipação, o módulo APF ativo e estiver parametrizada a Aprovação do Documento igual a "Geral".

A regra do negócio do produto com o parâmetro "Aprovação do Documento" igual a "Por Espécie" não foi alterado.

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_3.
assign tt_params_generic_api_3.ttv_cod_tabela = "tt_integr_apb_antecip_pef"
            tt_params_generic_api_3.ttv_cod_id_param = tt_api_apb_antecip_pef_p1_3.ttv_cod_id_antecip_pef_pend
            tt_params_generic_api_3.ttv_cod_campo = "cod_txid"
            tt_params_generic_api_3.ttv_cod_valor = "12544". (Exemplo código TXID)

create tt_params_generic_api_3.
assign tt_params_generic_api_3.ttv_cod_tabela = "tt_integr_apb_antecip_pef"
            tt_params_generic_api_3.ttv_cod_id_param = tt_api_apb_antecip_pef_p1_3.ttv_cod_id_antecip_pef_pend
            tt_params_generic_api_3.ttv_cod_campo = "dsl_qrcode"
            tt_params_generic_api_3.ttv_cod_valor = "00020126580014br.gov.bcb.pix0136123e4567-e12b-12d1-a456-426655440000 5204000053039865802BR5913Fulano de Tal6008BRASILIA62070503***63041D3D " . (Exemplo código QR-CODE)

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

    .