Histórico da Página

...

p_cod_matriz_trad_org_ext....: conterá o código da matriz de tradução organizacional externa.

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

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

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

tt_integrapi_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.

...

run pi_main_block_antecip_pef_pend_6 in 7 IN v_hdl_aux  (Input 67,
                                                                                Input p_cod_matriz_trad_org_ext,
                                      input                                          Input-output table tt_integrapi_apb_antecip_pef_p1_3,                                       
                                          Input table tt_integrapi_apb_aprop_ctbl_pend,

                                      Input table tt_integr_apb_impto_impl_pend,

                                      Input table tt_integr_3,       
                                          Input table tt_api_apb_impto_impl_pend_3,       
                                          Input table tt_api_apb_abat_prev_provis_3,                                       output      
                                          Output table tt_log_erros_atualiz,
                                                                                Input table tt_api_1099_3,                                       Input                      
                                          Input table tt_ord_compra_tit_ap_pend_1,
                                                                                Input-output table tt_params_generic_api_3,                                       input     
                                          Input table tt_docum_est_esoc_api,
                                      input                                           Input table tt_item_doc_est_esoc_api,
                                      input table tt_natur_rendto_impto_pend )      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.

...

...

def temp-table tt_integrapi_apb_antecip_pef_p1_3 no-undo
        field tta_cod_empresa                  as empresa                  as character format "x(3)" label "Empresa" column-label "Empresa"
        field tta_cod_estab                    as estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"
        field tta_cod_refer                    as refer                    as character format "x(10)" label "ReferˆnciaReferência" column-label "ReferˆnciaReferência"
        field tta_cod_espec_docto              as docto              as character format "x(3)" label "Esp‚cie Espécie Documento" column-label "Esp‚cieEspécie"
        field tta_cod_ser_docto                as docto                as character format "x(35)" label "S‚rie Série Documento" column-label "S‚rieSérie"
        field tta_cdn_fornecedor               fornecedor               as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
        field tta_cod_tit_ap                   ap                   as character format "x(1016)" label "T¡tuloTítulo" column-label "T¡tuloTítulo"
        field tta_cod_parcela                  as parcela                  as character format "x(02)" label "Parcela" column-label "ParcParcela"
        field tta_cod_portador                 portador                 as character format "x(5)" label "Portador" column-label "Portador"
        field tta_cod_indic_econ               econ               as character format "x(8)" label "Moeda" column-label "Moeda"
        field tta_num_talon_cheq               cheq               as integer format ">>>,>>>,>>9" initial 0 label "Talon rio Talonário Cheques" column-label "Talon rio Talonário Cheques"
        field tta_num_cheque                   cheque                   as integer format ">>>>,>>>,>>9" initial ? label "Num Núm Cheque" column-label "Num Cheque"
        field tta_ind_favorec_cheq             _cheq             as character format "X(15)" initial "Portador" label "FavorecidoFavorec" column-label "FavorecidoFavorec"
        field tta_nom_favorec_cheq             cheq             as character format "x(40)" label "Nome Favorecido" column-label "Nome Favorecido"
        field tta_val_tit_ap                   ap                   as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor T¡tuloTítulo" column-label "Valor T¡tuloTítulo"
        field tta_val_cotac_indic_econ         econ         as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Cota‡ÆoCotação" column-label "Cota‡ÆoCotação"
        field tta_dat_emis_docto               docto               as date format "99/99/9999" initial today label "Data  EmissÆoData  Emissão" column-label "Dt EmissÆoEmissão"
        field tta_dat_vencto_tit_ap            as ap            as date format "99/99/9999" initial today label "Data Vencimento" column-label "Dt Vencto"
        field tta_ind_tip_refer                as refer                as character format "X(22)" label "Tipo ReferˆnciaReferência" column-label "Tipo"
        field tta_cod_seguradora               seguradora               as character format "x(8)" label "Seguradora" column-label "Seguradora"
        field tta_cod_apol_seguro              as seguro              as character format "x(12)" label "Ap¢lice Apólice Seguro" column-label "Apolice Seguro"
        field tta_cod_arrendador               _cod_arrendador               as character format "x(6)" label "Arrendador" column-label "Arrendador"
        field tta_cod_contrat_leas             leas             as character format "x(12)" label "Contrato Leasing" column-label "Contr Leas"
        field tta_cod_histor_padr              as padr              as character format "x(8)" label "Hist¢rico PadrÆoHistórico Padrão" column-label "Hist¢rico PadrÆoHistórico Padrão"
        field tta_des_text_histor              as histor              as character format "x(2000)" label "Hist¢ricoHistórico" column-label "Hist¢ricoHistórico"
        field tta_ind_natur_cta_ctbl           ctbl           as character format "X(08)" initial "DB" label "Natureza Cont bilContábil" column-label "Natureza Cont bilContábil"
        field tta_cod_usuar_gerac_movto        as movto        as character format "x(12)" label "Usuario Gerac Movto" column-label "Usuario"
        field ttv_cod_empresa_ext              as ext              as character format "x(3)" label "C¢digo Código Empresa Ext" column-label "C¢d Cód Emp Ext"
        field tta_cod_estab_ext                as ext                as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
        field tta_cod_portad_ext               ext               as character format "x(8)" label "Portador Externo" column-label "Portador Externo"
        field tta_cod_modalid_ext              as ext              as character format "x(8)" label "Modalidade Externa" column-label "Modalidade Externa"
        field ttv_reccod_id_antecip_pef_pend         as recid pend      as character format ">>>>>>9x(80)"
        field tta_ind_origin_tit_ap            as ap            as character format "X(03)" initial "APB" label "Origem" column-label "Origem"
        field tta_cod_cart_bcia                as bcia                as character format "x(3)" label "Carteira" column-label "Carteira"
        field ttv_ind_tip_cod_barra            as barra            as character format "X(01)"
        field tta_cb4_tit_ap_bco_cobdor        as cobdor        as Character format "x(50)" label "Titulo Bco Cobrador" column-label "Titulo Bco Cobrador"
        field tta_cod_tit_ap_bco_cobdor        as cobdor        as character format "x(20)" label "T¡tulo Título Banco Cobdor" column-label "T¡tulo Título Banco Cobdor"
        index tt_antcppfp_id                   id                   is primary unique
                    tta_cod_estab                    ascending

          tta_cod_refer                    ascending

    estab                    ascending
          tta_cod_refer                    ascending
    index tt_antcppfp_tip_refer                    refer           
          tta_cod_empresa                  ascending          empresa                  ascending
          tta_ind_tip_refer                ascending          refer                ascending
          tta_cod_estab                    ascending          estab                    ascending
          tta_cod_refer                    ascending

    index tt_recid                       

          ttv_recrefer                    ascending
    index tt_recid                        
          ttv_cod_id_antecip_pef_pend         ascending    pend      ascending
    .

...

def temp-table tt_integrapi_apb_abat_prev_provis_3 no-undo
        field ttv_reccod_id_integr_apb_item_lote     as recid lote  as character format ">>>>>>9x(80)"
        field ttv_reccod_id_antecip_pef_pend         as recid pend      as character format ">>>>>>9x(80)"
        field tta_cod_estab                    as estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"
        field tta_cod_espec_docto              as docto              as character format "x(3)" label "Esp‚cie Espécie Documento" column-label "Esp‚cieEspécie"
        field tta_cod_ser_docto                as docto                as character format "x(35)" label "S‚rie Série Documento" column-label "S‚rieSérie"
        field tta_cdn_fornecedor               fornecedor               as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
        field tta_cod_tit_ap                   ap                   as character format "x(1016)" label "T¡tuloTítulo" column-label "T¡tuloTítulo"
        field tta_cod_parcela                  as parcela                  as character format "x(02)" label "Parcela" column-label "ParcParcela"
        field tta_val_abat_tit_ap              as ap              as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Abatimento" column-label "Vl Abatimento"
        index tt_integr_apb_abat_prev          is prev          is unique
          ttv_rec          ttv_cod_id_antecip_pef_pend         ascending          pend      ascending
          tta_cod_estab                    ascending          estab                    ascending
          tta_cod_espec_docto              ascending          docto              ascending
          tta_cod_ser_docto                ascending          docto                ascending
          tta_cdn_fornecedor               fornecedor               ascending
                    tta_cod_tit_ap                   ascending          ap                   ascending
          tta_cod_parcela                  ascending    parcela                  ascending
    index tt_integr_apb_abat_prev_provis   provis   is primary unique
          ttv_rec          ttv_cod_id_integr_apb_item_lote     ascending          lote  ascending
          tta_cod_estab                    ascending

          tta_cod_espec_docto              ascending

          estab                    ascending
          tta_cod_espec_docto              ascending
          tta_cod_ser_docto                ascending          docto                ascending
          tta_cdn_fornecedor               fornecedor               ascending
                    tta_cod_tit_ap                   ascending          ap                   ascending
          tta_cod_parcela                  ascending    .parcela                  ascending
    

...

def temp-table tt_integrapi_apb_impto_impl_pend_3 no-undo
        field ttv_cod_recid_integr_apb_item_lote     as recid lote  as character format ">>>>>>9x(80)"
        field ttv_reccod_id_antecip_pef_pend         as recid pend      as character format ">>>>>>9x(80)"
        field tta_cod_pais                     pais                     as character format "x(3)" label "Pa¡sPaís" column-label "Pa¡sPaís"
        field tta_cod_unid_federac             federac             as character format "x(3)" label "Unidade Federa‡ÆoEstado" column-label "UF"
        field tta_cod_imposto                  as imposto                  as character format "x(5)" label "Imposto" column-label "ImpostoImp"
        field tta_cod_classif_impto            as impto            as character format "x(05)" initial "00000" label "Class Classificação Imposto" column-label "Class Classif Imposto"
        field tta_ind_clas_impto               impto               as character format "X(14)" initial "Retido" label "Classe Imposto" column-label "Classe Imposto"
        field tta_cod_plano_cta_ctbl           ctbl           as character format "x(8)" label "Plano Contas" column-label "Plano Contas"
        field tta_cod_cta_ctbl                 ctbl                 as character format "x(20)" label "Conta Cont bilContábil" column-label "Conta Cont bilContábil"
        field tta_cod_espec_docto              as docto              as character format "x(3)" label "Esp‚cie Espécie Documento" column-label "Esp‚cieEspécie"
        field tta_cod_ser_docto                as docto                as character format "x(35)" label "S‚rie Série Documento" column-label "S‚rieSérie"
        field tta_cod_tit_ap                   ap                   as character format "x(1016)" label "T¡tuloTítulo" column-label "T¡tuloTítulo"
        field tta_cod_parcela                  as parcela                  as character format "x(02)" label "Parcela" column-label "ParcParcela"
        field tta_val_rendto_tribut            as tribut            as decimal format ">>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Rendto Tribut velTributável" column-label "Vl Rendto Tribut"
        field tta_val_deduc_inss               inss               as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Dedu‡Æo Dedução Inss" column-label "Dedu‡Æo Dedução Inss"
        field tta_val_deduc_depend             depend             as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Dedu‡Æo Dedução Dependentes" column-label "Dedu‡Æo Dedução Dependentes"
        field tta_val_deduc_pensao             as pensao             as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Deducao PensÆoDedução Pensão" column-label "Deducao PensÆoDedução Pensão"
        field tta_val_outras_deduc_impto       impto       as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Outras Dedu‡äesDesc Simplif/Out Ded" column-label "Outras Dedu‡äesDesc Simplif/Out Ded"
        field tta_val_base_liq_impto           impto           as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Base L¡quida ImpostoLiquidação" column-label "Base L¡quida ImpostoLiquidação Impo"
        field tta_val_aliq_impto               impto               as decimal format ">9.999999" decimals 2 initial0.00label "Al¡quota4 initial 0.00 label "Alíquota" column-label "Aliq"
        field tta_val_impto_ja_recolhid        as recolhid        as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Imposto J  Já Recolhido" column-label "Imposto J  Já Recolhido"
        field tta_val_imposto                  as imposto                  as decimal format ">>>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Imposto" column-label "Vl Imposto"
        field tta_dat_vencto_tit_ap            as ap            as date format "99/99/9999" initial today label "Data Vencimento" column-label "Dt Vencto"
        field tta_cod_indic_econ               econ               as character format "x(8)" label "Moeda" column-label "Moeda"
        field tta_val_impto_indic_econ_impto   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 histor              as character format "x(2000)" label "Hist¢ricoHistórico" column-label "Hist¢ricoHistórico"
        field tta_cdn_fornec_favorec           favorec           as Integer format ">>>,>>>,>>9" initial 0 label "Fornec Favorecido" column-label "Fornec Favorecido"
        field tta_val_deduc_faixa_impto        as impto        as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Deducao" column-label "Valor Dedu‡ÆoDedução"
        field tta_num_id_tit_ap                as ap                as integer format "9999999999999999999" initial 0 label "Token Tit Tít AP" column-label "Token Tit Tít AP"
        field tta_num_id_movto_tit_ap          as ap          as integer format "9999999999" initial 0 label "Token Movto Tit Tít AP" column-label "Id Tit Tít AP"
        field tta_num_id_movto_cta_corren      as corren      as integer format "9999999999999999999" initial 0 label "ID Movto Conta" column-label "ID Movto Conta"
        field tta_cod_pais_ext                 ext                 as character format "x(20)" label "Pa¡s País Externo" column-label "Pa¡s País Externo"
        field tta_cod_cta_ctbl_ext             ext             as character format "x(20)" label "Conta Contab Extern" column-label "Conta Contab Extern"
        field tta_cod_sub_cta_ctbl_ext         ext         as character format "x(15)" label "Sub Conta Externa" column-label "Sub Conta Externa"
        field ttv_cod_tip_fluxo_financ_ext     ext     as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"
        index tt_impto_impl_pend_ap_integr     integr     is primary unique
          ttv_rec          ttv_cod_id_integr_apb_item_lote     ascending          lote  ascending
          tta_cod_pais                     ascending          pais                     ascending
          tta_cod_unid_federac             ascending          federac             ascending
          tta_cod_imposto                  ascending          imposto                  ascending
          tta_cod_classif_impto            ascending    impto            ascending
    index tt_impto_impl_pend_ap_integr_ant is unique
          ttv_rec          ttv_cod_id_antecip_pef_pend         ascending          pend      ascending
          tta_cod_pais                     ascending

          tta_cod_unid_federac             ascending

          tta_cod_imposto                  ascending

          pais                     ascending
          tta_cod_unid_federac             ascending
          tta_cod_imposto                  ascending
          tta_cod_classif_impto            ascending    impto            ascending
    .

...

def temp-table tt_integrapi_apb_aprop_ctbl_pend_3 no-undo
        field ttv_cod_recid_integr_apb_item_lote     as recid lote  as character format ">>>>>>9x(80)"
        field ttv_cod_recid_antecip_pef_pend         as recid pend      as character format ">>>>>>9x(80)"
        field ttv_cod_recid_integr_apb_impto_pend    pend as recid character format ">>>>>>9x(80)"
        field tta_cod_plano_cta_ctbl           ctbl           as character format "x(8)" label "Plano Contas" column-label "Plano Contas"
        field tta_cod_cta_ctbl                 ctbl                 as character format "x(20)" label "Conta Cont bilContábil" column-label "Conta Cont bilContábil"
        field tta_cod_unid_negoc               negoc               as character format "x(3)" label "Unid Neg¢cioNegócio" column-label "Un Neg"
        field tta_cod_plano_ccusto             ccusto             as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"
        field tta_cod_ccusto                   as ccusto                   as Character format "x(1120)" label "Centro Custo" column-label "Centro Custo"
        field tta_cod_tip_fluxo_financ         financ         as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"
        field tta_val_aprop_ctbl               as ctbl               as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Aprop Ctbl" column-label "Vl Aprop Ctbl"
        field tta_cod_pais                     pais                     as character format "x(3)" label "Pa¡sPaís" column-label "Pa¡sPaís"
        field tta_cod_unid_federac             as federac             as character format "x(3)" label "Unidade Federa‡ÆoEstado" column-label "UF"
        field tta_cod_imposto                  as imposto                  as character format "x(5)" label "Imposto" column-label "ImpostoImp"
        field tta_cod_classif_impto            as impto            as character format "x(05)" initial "00000" label "Class Classificação Imposto" column-label "Class Classif Imposto"
        field ttv_cod_tip_fluxo_financ_ext     ext     as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"
        field tta_cod_cta_ctbl_ext             ext             as character format "x(20)" label "Conta Contab Extern" column-label "Conta Contab Extern"
        field tta_cod_sub_cta_ctbl_ext         ext         as character format "x(15)" label "Sub Conta Externa" column-label "Sub Conta Externa"
        field tta_cod_ccusto_ext               ext               as character format "x(8)" label "Centro Custo Externo" column-label "CCusto Externo"
        field tta_cod_unid_negoc_ext           ext           as character format "x(8)" label "Unid Neg¢cio Negócio Externa" column-label "Unid Neg¢cio Negócio Externa"
        index tt_aprop_ctbl_pend_ap_integr_ant
          ttv_rec          ttv_cod_id_antecip_pef_pend         ascending          ttv_recpend      ascending
          ttv_cod_id_integr_apb_impto_pend    pend ascending
                    tta_cod_plano_cta_ctbl           ctbl           ascending
                    tta_cod_cta_ctbl                 ctbl                 ascending
                    tta_cod_unid_negoc               negoc               ascending
                    tta_cod_plano_ccusto             ccusto             ascending
                    tta_cod_ccusto                   ascending          ccusto                   ascending
          tta_cod_tip_fluxo_financ         financ         ascending
        index tt_aprop_ctbl_pend_ap_integr_id          ttv_recid 
          ttv_cod_id_integr_apb_item_lote     ascending          ttv_reclote  ascending
          ttv_cod_id_integr_apb_impto_pend    pend ascending
                    tta_cod_plano_cta_ctbl           ctbl           ascending
                    tta_cod_cta_ctbl                 ascending          _cta_ctbl                 ascending
          tta_cod_unid_negoc               negoc               ascending
                    tta_cod_plano_ccusto             ascending          ccusto             ascending
          tta_cod_ccusto                   ascending          ccusto                   ascending
          tta_cod_tip_fluxo_financ         financ         ascending
        .

...

def temp-table tt_api_1099_3 no-undo
        field ttv_cod_recid_table_parent                 as recid format ">>>>>>9"    field ttv_val_1099                             parent          as character format "x(80)"
    field ttv_val_1099                     as decimal format "->>,>>>,>>>,>>9.99" decimals 2
        field tta_cod_tax_ident_number        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 "RentsRendas" label "Tipo Transacao 1099" column-label "Tipo Transacao 1099"
        index tt_rec_index                     index                     is primary unique
             ttv_rec          ttv_cod_id_table_parent             ascending    parent          ascending
    .

...

def temp-table tt_params_generic_api_3 no-undo
        field ttv_rec_id                       as recid format ">>>>>>9"    field cod_id_param                 as character format "x(80)"
    field ttv_cod_tabela                   tabela                   as character format "x(28)" label "Tabela" column-label "Tabela"
    field ttv_cod_campo                    as     field ttv_cod_campo                    as character format "x(2535)" label "Campo" column-label "Campo"
        field ttv_cod_valor                    as valor                    as character format "x(8)" label "Valor" column-label "Valor"
        index tt_idx_param_generic             generic             is primary unique
                    ttv_cod_tabela                   ascending

          ttv_rec_id                       ascending

          ttv_cod_campo                    ascending

    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_rec_id     cod_id_param     = (Campo Recid identificador da temp-table)tt_integrapi_apb_antecip_pef_p1_3.ttv_cod_recid_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_reccod_id_param           = (Campo Recid identificador da temp-table)tt_integrapi_apb_antecip_pef_p1_3.ttv_cod_recid_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_recid_id     param     = (Campo Recid identificador da temp-table) tt tt_integrapi_apb_antecip_pef_p1_3.ttv_cod_recid_antecip_pef_pend       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.

...

CREATE tt_params_generic_api_3.
ASSIGN tt_params_generic_api_3.ttv_cod_rec_id       id_param = tt_integrapi_apb_antecip_pef_p1_3.ttv_reccod_id_antecip_pef_pend /*   (Campo Recid 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 */

...

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_reccod_id_param =  tttt_integrapi_apb_antecip_pef_p1_3.ttv_reccod_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_reccod_id_param =  tttt_integrapi_apb_antecip_pef_p1_3.ttv_cod_recid_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)

...