Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Produto:

Datasul

Ocorrência:

Documentação de API

Nome Físicoprgfin/acr/acr262za

 

Objetivo 

Retorna os movimentos de liquidações de títulos por período, a apropriação contábil e o título original relacionado a cada movimento.

...

 

Parâmetros Entrada

...

tt_param

 

Parâmetros Saída

 

tt_
tt_erro_msg

 

Funcionamento

 

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

 

run prgfin/acr/acr262za.r  persistent set v_handle_acr262za .

 

Utilizar o procedimento principal para execução da api, pi_main_con_movtos_liquid_period.

 

Para buscar os títulos relacionados a cada baixa executar o procedimento pi_criar_tt_relacto_tit_ap_aux.

 

Tabelas Temporárias

 

 

 

Tabela Temporária

Descrição

Entrada/Saída

tt_param_api_con_pagtos_apb

Parâmetros se seleção para a consulta dos pagamentos efetuados

Entrada

 

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

ttv_log_pagto_cheq

Logical

yes/no

Pagamento Cheque

Sim

 

ttv_log_cta_ctbl

Character

X(40)

Valor do Parâmetro

Sim

 

ttv_log_con_cta_ctbl

Logical

yes/no

Consulta conta contábil

Sim

 

ttv_log_pagto_bordLogicalyes/noPagamento BorderôSim 
ttv_log_pagto_especLogicalyes/noPagamento dinheiroSim 
ttv_log_pagto_escrit Logicalyes/noPagamento EscrituralSim 
ttv_cod_estab_iniCharacterX(5)Estabelecimento InicialSim 
ttv_cod_estab_fimCharacterx(5)Estabelecimento finalSim 
ttv_cod_refer_iniCharacterx(10)Referencia InicialSim 
ttv_cod_refer_fimCharacterx(10)Referencia FinalSim 
ttv_log_mostra_docto_apbLogicalyes/noPagamento Extra Fornecedor CRSim 
ttv_log_mostra_pagto_estordoLogicalyes/noPagamento EstornadoSim 
ttv_log_mostra_docto_apb_pef Logicalyes/noPagamento Extra FornecedorSim 
ttv_log_mostra_docto_apb_enctroLogicalyes/noPagamento Encontro de ContasSim 
ttv_log_pagto_cartcredLogicalyes/noPagamento Cartão CréditoSim 
ttv_dat_pagto_inicialDate99/99/9999Data Pagamento InicialSim 
ttv_dat_pagto_finalDate99/99/9999Data Pagamento FinalSim 
ttv_cod_espec_docto_iniCharacterx(3)Código Espécie InicialSim 
ttv_cod_espec_docto_fimCharacterx(3)Código Espécie FinalSim 
ttv_cdn_fornecedor_iniInteger>>>,>>>,>>9Código Fornecedor InicialSim 
ttv_cdn_fornecedor_fimInteger>>>,>>>,>>9Código Fornecedor FinalSim 
ttv_cod_portador_ini Characterx(5)Código Portador InicialSim 
ttv_cod_portador_fimCharacterx(5)Código Fornecedor FinalSim 
ttv_cod_indic_econ_iniCharacterx(8)Indicador Econômico InicialSim 
ttv_cod_indic_econ_fimCharacterx(8)Indicador Econômico FinalSim 
ttv_cod_forma_pagto_iniCharacterx(3)Forma de Pagamento InicialSim 
ttv_cod_forma_pagto_fimCharacterx(3)Forma de Pagamento FinalSim 
ttv_cod_grp_fornec_iniCharacterx(4)Grupo de Fornecedor InicialSim 
ttv_cod_grp_fornec_fimCharacterx(4)Grupo de Fornecedor FinalSim 
ttv_log_pagto_venctoLogicalyes/noPagamento no VencimentoSim 
ttv_log_pagto_antecipLogicalyes/noPagamento AntecipadoSim 
ttv_log_pagto_atrasoLogicalyes/noPagamento AtrasoSim 
ttv_log_mostra_docto_apb_normalLogicalyes/noMostra documentos do Tipo NormalSim 
ttv_log_mostra_docto_apb_antecipLogicalyes/noMostra Títulos do tipo antecipaçãoSim 
 ttv_log_mostra_impto_retidLogicalyes/noMostra títulos de imposto retidoSim 
ttv_log_mostra_impto_taxadoLogicalyes/noMostra títulos de imposto taxadoSim 
ttv_ind_visualiz_tit_ap_vertCharacterx(20)

Visualização de títulos:

  • Por Estabelecimento/Por Unidade Negócio
Sim 
ttv_cod_unid_negoc_iniCharacterx(3)Código Unidade Negócio IncialSim 
ttv_cod_unid_negoc_fimCharacterx(3)Código Unidade Negócio FinalSim 
ttv_ind_classif_pagto_periodCharacterx(55)

Classificação de títulos:

  • Por Estabelecimento/Fornecedor/Data Pagamento
Sim 
ttv_ind_dwb_run_modeCharacterx(7)Modo de Execução: On-line/BatchSim 
ttv_cod_finalid_econCharacterx(10)Finalidade EconômicaSim 

 

def temp-table tt_param_api_con_pagtos_apb no-undo
field ttv_log_pagto_cheq as logical format "Sim/Não" initial yes label "Cheque" column-label "Cheque"
field ttv_log_cta_ctbl as logical format "Sim/Não" initial no label "Inclui Conta Ctbl" column-label "Inclui Conta Ctbl"
field ttv_log_con_cta_ctbl as logical format "Sim/Não" initial no label "Consulta Cta Ctbl"
field ttv_log_pagto_bord as logical format "Sim/Não" initial yes label "Borderô" column-label "Borderô"
field ttv_log_pagto_espec as logical format "Sim/Não" initial yes label "Dinheiro" column-label "Dinheiro"
field ttv_log_pagto_escrit as logical format "Sim/Não" initial yes label "Escritural" column-label "Escritural"
field ttv_cod_estab_ini as character format "x(5)" label "Estabelecimento" column-label "Estab"
field ttv_cod_estab_fim as character format "x(5)" label "Estabelecimento Final" column-label "Até"
field ttv_cod_refer_ini as character format "x(10)" label "Referência" column-label "Referência"
field ttv_cod_refer_fim as character format "x(10)" label "até" column-label "Referência Final"
field ttv_log_mostra_docto_apb as logical format "Sim/Não" initial yes label "Pagto Extr Fornec CR" column-label "Pagto Extr Fornec CR"
field ttv_log_mostra_pagto_estordo as logical format "Sim/Não" initial no label "Pagtos Estornados" column-label "Pagtos Estornados"
field ttv_log_mostra_docto_apb_pef as logical format "Sim/Não" initial yes label "Pagto Extra Fornec" column-label "Pagto Extra Fornec"
field ttv_log_mostra_docto_apb_enctro as logical format "Sim/Não" initial yes label "Encontro Contas" column-label "Encontro Contas"
field ttv_log_pagto_cartcred as logical format "Sim/Não" initial yes label "Cartão de Crédito" column-label "Cartão de Crédito"
field ttv_dat_pagto_inicial as date format "99/99/9999" label "Data Pagto" column-label "Data Pagto"
field ttv_dat_pagto_final as date format "99/99/9999" label "até" column-label "até"
field ttv_cod_espec_docto_ini as character format "x(3)" label "Espécie" column-label "Código Inicial"
field ttv_cod_espec_docto_fim as character format "x(3)" label "até" column-label "Código Final"
field ttv_cdn_fornecedor_ini as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
field ttv_cdn_fornecedor_fim as Integer format ">>>,>>>,>>9" initial 0 label "até" column-label "Fornecedor"
field ttv_cod_portador_ini as character format "x(5)" label "Portador" column-label "Portador Inicial"
field ttv_cod_portador_fim as character format "x(5)" label "até" column-label "Portador Final"
field ttv_cod_indic_econ_ini as character format "x(8)" label "Moeda" column-label "Inicial"
field ttv_cod_indic_econ_fim as character format "x(8)" label "até" column-label "Final"
field ttv_cod_forma_pagto_ini as character format "x(3)" label "Inicial" column-label "Inicial"
field ttv_cod_forma_pagto_fim as character format "x(3)" label "Final" column-label "Final"
field ttv_cod_grp_fornec_ini as character format "x(4)" label "Grupo Fornecedor" column-label "Grupo Fornecedor"
field ttv_cod_grp_fornec_fim as character format "x(4)" label "até" column-label "até"
field ttv_log_pagto_vencto as logical format "Sim/Não" initial yes label "No Vencimento" column-label "No Vencimento"
field ttv_log_pagto_antecip as logical format "Sim/Não" initial yes label "Pagto Antecipado" column-label "Pagto Antecipado"
field ttv_log_pagto_atraso as logical format "Sim/Não" initial yes label "Pagto Atrasado" column-label "Pagto Atrasado"
field ttv_log_mostra_docto_apb_normal as logical format "Sim/Não" initial yes label "Normal" column-label "Normal"
field ttv_log_mostra_docto_apb_antecip as logical format "Sim/Não" initial yes label "Antecipação" column-label "Antecipação"
field ttv_log_mostra_impto_retid as logical format "Sim/Não" initial yes label "Imposto Retido" column-label "Imposto Retido"
field ttv_log_mostra_impto_taxado as logical format "Sim/Não" initial yes label "Imposto Taxado" column-label "Imposto Taxado"
field ttv_ind_visualiz_tit_ap_vert as character format "X(20)" initial "Por Estabelecimento" label "Visualiza Título" column-label "Visualiza Título"
field ttv_cod_unid_negoc_ini as character format "x(3)" label "Unid Negócio" column-label "Unid Neg"
field ttv_cod_unid_negoc_fim as character format "x(3)" label "até" column-label "Final"
field ttv_ind_classif_pagto_period as character format "X(55)" initial "Por Estabelecimento/Fornecedor/Data Pagamento" label "Classificação" column-label "Classificação"
field ttv_ind_dwb_run_mode as character format "X(07)" label "Run Mode" column-label "Run Mode"
field ttv_cod_finalid_econ as character format "x(10)":U label "Finalidade Econômica" column-label "Finalidade Econômica" 
.

 

Tabela Temporária

Descrição

Entrada/Saída

tt_pagtos_periodo

Pagamentos Efetuados no Período

Saída

 

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

tta_cod_estab

Character

x(5)

Estabelecimento

Sim

 

tta_cod_ser_docto

Character

X(3)

Série Documento

Sim

 

tta_cod_espec_docto

Character

x(3)

Espécie Documento

Sim

 

tta_cod_portadorCharacterx(5)PortadorSim 
tta_cdn_fornecedorInteger>>>,>>>,>>9FornecedorSim 
tta_nom_abrevCharacterx(15)Nome AbreviadoSim 
tta_num_id_movto_tit_apInteger9999999999Id Tít APSim 
tta_cod_tit_apCharacterx(16)TítuloSim 
tta_nom_pessoaCharacterx(40)NomeSim 
tta_cod_parcelaCharacterx(02)ParcelaSim 
tta_dat_vencto_tit_apDate99/99/9999Data VencimentoSim 
tta_cod_referCharacterx(10)ReferênciaSim 
tta_dat_pagtoDate99/99/9999Data pagamentoSim 
tta_cod_unid_negocCharacterx(3)Unid NegócioSim 
tta_cod_indic_econCharacterx(8)MoedaSim 
ttv_val_pagto_apbDecimal->>,>>>,>>>,>>9.99Valor PagamentoSim 
ttv_val_finalid_apresDecimal->>,>>>,>>>,>>9.99Valor Finalid ApresSim 
ttv_cod_dwb_field_apbCharacterx(32)CampoSim 
ttv_rec_compl_movto_pagtoInteger>>>>>>9RECID Compl_movto_pagtoSim 
tta_cod_contrat_cartcredCharacterx(10)Contrato CartãoSim 
tta_cod_portad_cartcredCharacterx(10)Portador CartãoSim 
ttv_rec_movto_tit_apInteger>>>>>>9Recid movto_tit_apSim 
tta_cod_forma_pagtoCharacterx(3)Forma PagamentoSim 
tta_val_despes_bcia Decimal->>>,>>>,>>9.99Valor Despesa BancáriaSim 
ttv_cod_indic_econ_desCharacterx(8)MoedaSim 
tta_num_chequeInteger>>>>,>>>,>>9Numero ChequeSim 
tta_num_talon_cheq Integer>>>,>>>,>>9Talonário ChequesSim 
tta_val_multa_tit_apDecimal->>>,>>>,>>9.99Valor MultaSim 
tta_val_jurosDecimal>>>>,>>>,>>9.99Valor JurosSim 
tta_val_cm_tit_apDecimal->>>,>>>,>>9.99Valor Correção MonetáriaSim 
tta_val_desc_tit_apDecimal->>>,>>>,>>9.99Valor DescontoSim 
tta_val_abat_tit_apDecimal->>>,>>>,>>9.99Valor AbatimentoSim 
ttv_val_multa_apresDecimal>>>>,>>>,>>9.99Valor MultaSim 
ttv_val_juros_apresDecimal>>>>,>>>,>>9.99Valor JurosSim 
ttv_val_cm_apresDecimal>>>>,>>>,>>9.99Valor Correção MonetáriaSim 
ttv_val_desc_apresDecimal>>>>,>>>,>>9.99Valor DescontoSim 
ttv_val_abat_apresDecimal>>>>,>>>,>>9.99Valor AbatimentoSim 
tta_des_text_historCharacterx(2000)HistóricoSim 
tta_num_bord_ap Integer>>>>>9Número BorderôSim 
tta_des_forma_pagtoCharacterx(40)Descrição Forma PagamentoSim 
ttv_rec_tit_apInteger>>>>>>9Recid tit_apSim 
ttv_cod_bancoCharacterx(8)BancoSim 
ttv_cod_agenc_bciaCharacterx(10)Agência BancáriaSim 
ttv_cod_digito_agenc Characterx(2)Dígito AgênciaSim 
ttv_cod_cta_corren_bco_pagto Characterx(20)Conta CorrenteSim 
ttv_cod_digito_cta_corren_pagtoCharacterx(2)Dígito Conta CorrenteSim 
tta_ind_trans_apCharacterx(26)TransaçãoSim 
tta_cod_empresaCharacterx(3)EmpresaSim 
ttv_val_originalDecimal->>>>>,>>>,>>9.99Valor OriginalSim 
tta_cod_safraCharacter9999/9999SafraSim 
tta_cod_contrat_graosCharacterx(20)Contrato GrãosSim 

 


def temp-table tt_pagtos_periodo no-undo
field tta_cod_estab as character format "x(5)" label "Estabelecimento" column-label "Estab"
field tta_cod_ser_docto as character format "x(3)" label "Série Documento" column-label "Série"
field tta_cod_espec_docto as character format "x(3)" label "Espécie Documento" column-label "Espécie"
field tta_cod_portador as character format "x(5)" label "Portador" column-label "Portador"
field tta_cdn_fornecedor as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
field tta_nom_abrev as character format "x(15)" label "Nome Abreviado" column-label "Nome Abreviado"
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_tit_ap as character format "x(16)" label "Título" column-label "Título"
field tta_nom_pessoa as character format "x(40)" label "Nome" column-label "Nome"
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"
field tta_cod_refer as character format "x(10)" label "Referência" column-label "Referência"
field tta_dat_pagto as date format "99/99/9999" initial today label "Data Pagamento" column-label "Data Pagto"
field tta_cod_unid_negoc as character format "x(3)" label "Unid Negócio" column-label "Un Neg"
field tta_cod_indic_econ as character format "x(8)" label "Moeda" column-label "Moeda"
field ttv_val_pagto_apb as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Valor Pagamento" column-label "Valor Pagamento"
field ttv_val_finalid_apres as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Valor Finalid Apres" column-label "Valor Movto"
field ttv_cod_dwb_field_apb as character extent 5 format "x(32)" label "Campo" column-label "Campo"
field ttv_rec_compl_movto_pagto as recid format ">>>>>>9"
field tta_cod_contrat_cartcred as character format "x(10)" label "Contrato Cartão" column-label "Contrato Cartão"
field tta_cod_portad_cartcred as character format "x(10)" label "Portador Cartão" column-label "Portador Cartão"
field ttv_rec_movto_tit_ap as recid format ">>>>>>9"
field tta_cod_forma_pagto as character format "x(3)" label "Forma Pagamento" column-label "F Pagto"
field tta_val_despes_bcia as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Desp Banc" column-label "Vl Desp Banc"
field ttv_cod_indic_econ_des as character format "x(8)" label "Moeda" column-label "Moeda"
field tta_num_cheque as integer format ">>>>,>>>,>>9" initial ? label "Núm Cheque" column-label "Num Cheque"
field tta_num_talon_cheq as integer format ">>>,>>>,>>9" initial 0 label "Talonário Cheques" column-label "Talonário Cheques"
field tta_val_multa_tit_ap as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Multa" column-label "Valor Multa"
field tta_val_juros as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Juros" column-label "Valor Juros"
field tta_val_cm_tit_ap as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Val Correção Monet" column-label "Val Corr Monet"
field tta_val_desc_tit_ap as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Desconto" column-label "Vl Desconto"
field tta_val_abat_tit_ap as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Abatimento" column-label "Vl Abatimento"
field ttv_val_multa_apres as decimal format ">>>>,>>>,>>9.99" decimals 2 label "Valor Multa" column-label "Valor Multa"
field ttv_val_juros_apres as decimal format ">>>>,>>>,>>9.99" decimals 2 label "Valor juros" column-label "Valor Juros"
field ttv_val_cm_apres as decimal format ">>>>,>>>,>>9.99" decimals 2 label "Valor Cor Monetaria" column-label "Val Corr Monet"
field ttv_val_desc_apres as decimal format ">>>>,>>>,>>9.99" decimals 2 label "Valor Desconto" column-label "Vl Desconto"
field ttv_val_abat_apres as decimal format ">>>>,>>>,>>9.99" decimals 2 label "Valor Abatimento" column-label "Vl Abatimento"
field tta_des_text_histor as character format "x(2000)" label "Histórico" column-label "Histórico"
field tta_num_bord_ap as integer format ">>>>>9" initial 0 label "Número Borderô" column-label "Borderô"
field tta_des_forma_pagto as character format "x(40)" label "Descr Forma Pagto" column-label "Descr Forma Pagto"
field ttv_rec_tit_ap as recid format ">>>>>>9" initial ?
field ttv_cod_banco as character format "x(8)" label "Banco" column-label "Banco"
field ttv_cod_agenc_bcia as character format "x(10)" label "Agência Bancária" column-label "Agência Bancária"
field ttv_cod_digito_agenc as character format "x(2)" label "Dígito Agência" column-label "Dígito Agência"
field ttv_cod_cta_corren_bco_pagto as character format "x(20)" label "Conta Corrente" column-label "Conta Corrente"
field ttv_cod_digito_cta_corren_pagto as character format "x(2)" label "Dígito Cta Corrente" column-label "Dígito Cta Corrente"
field tta_ind_trans_ap as character format "X(26)" initial "Implantação" label "Transação" column-label "Transação"
field tta_cod_empresa as character format "x(3)" label "Empresa" column-label "Empresa"
field ttv_val_original as decimal format "->>>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Original" column-label "Valor Original"
field tta_cod_safra as character format "9999/9999" label "Safra" column-label "Safra"
field tta_cod_contrat_graos as character format "x(20)" label "Contrato Grãos" column-label "Contr Grãos"
index tt_estab_un 
tta_cod_estab ascending
tta_cod_unid_negoc ascending
index tt_fornecedor 
tta_cdn_fornecedor ascending
index tt_id is primary unique
tta_cod_estab ascending
tta_num_id_movto_tit_ap ascending
tta_cod_unid_negoc ascending
index tt_id_tit_ap 
tta_cod_estab ascending 
tta_cdn_fornecedor ascending
tta_cod_espec_docto ascending 
tta_cod_tit_ap ascending 
tta_cod_parcela ascending 
tta_dat_pagto ascending .

 

 

 

Tabela Temporária

Descrição

Entrada/Saída

tt_erro_msg

Mensagens de erro

Saída

 

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

ttv_num_msg_erro

Integer

>>>>>>9

Mensagem

Sim

 

ttv_des_msg_erro

Character

X(40)

Mensagem Erro

Sim

 

ttv_des_help_erro

Character

x(200)

Descrição Ajuda Erro

Sim

 

 

 

 

def temp-table tt_erro_msg no-undo
field ttv_num_msg_erro as integer format ">>>>>>9" label "Mensagem" column-label "Mensagem"
field ttv_des_msg_erro as character format "x(60)" label "Mensagem Erro" column-label "Inconsistência"
field ttv_des_help_erro as character format "x(200)"
index tt_num_erro 
ttv_num_msg_erro ascending.

 



Exemplo de utilização da API

 

run prgfin/apb/apb431za.p  persistent set v_handle_apb731za

 

create tt_param_api_con_pagtos_apb.

 

assign tt_param_api_con_pagtos_apb.ttv_log_pagto_cheq = yes

 

tt_param_api_con_pagtos_apb.ttv_log_cta_ctbl = no
tt_param_api_con_pagtos_apb.ttv_log_con_cta_ctbl = no
tt_param_api_con_pagtos_apb.ttv_log_pagto_bord = yes
tt_param_api_con_pagtos_apb.ttv_log_pagto_espec = yes
tt_param_api_con_pagtos_apb.ttv_log_pagto_escrit = yes
tt_param_api_con_pagtos_apb.ttv_cod_estab_ini = '' 
tt_param_api_con_pagtos_apb.ttv_cod_estab_fim = 'ZZZ' 
tt_param_api_con_pagtos_apb.ttv_cod_refer_fim = "ZZZZZZZZZZ"
tt_param_api_con_pagtos_apb.ttv_cod_refer_ini = ''
tt_param_api_con_pagtos_apb.ttv_log_mostra_docto_apb = yes
tt_param_api_con_pagtos_apb.ttv_log_mostra_pagto_estordo = no
tt_param_api_con_pagtos_apb.ttv_log_mostra_docto_apb_pef = yes
tt_param_api_con_pagtos_apb.ttv_log_mostra_docto_apb_enctro = yes
tt_param_api_con_pagtos_apb.ttv_log_pagto_cartcred = yes
tt_param_api_con_pagtos_apb.ttv_dat_pagto_final = 12/31/2011
tt_param_api_con_pagtos_apb.ttv_dat_pagto_inicial = 01/01/2011
tt_param_api_con_pagtos_apb.ttv_cod_espec_docto_fim = 'ZZ'
tt_param_api_con_pagtos_apb.ttv_cod_espec_docto_ini = ""
tt_param_api_con_pagtos_apb.ttv_cdn_fornecedor_fim = 9999999
tt_param_api_con_pagtos_apb.ttv_cdn_fornecedor_ini = 0
tt_param_api_con_pagtos_apb.ttv_cod_portador_fim = "ZZZZZ"
tt_param_api_con_pagtos_apb.ttv_cod_portador_ini = ''
tt_param_api_con_pagtos_apb.ttv_cod_indic_econ_ini = '' 
tt_param_api_con_pagtos_apb.ttv_cod_indic_econ_fim = "ZZZZZZZZ"
tt_param_api_con_pagtos_apb.ttv_cod_forma_pagto_ini = ''
tt_param_api_con_pagtos_apb.ttv_cod_forma_pagto_fim = "ZZZ"
tt_param_api_con_pagtos_apb.ttv_cod_grp_fornec_ini = ''
tt_param_api_con_pagtos_apb.ttv_cod_grp_fornec_fim = "ZZZZ"
tt_param_api_con_pagtos_apb.ttv_log_pagto_vencto = yes
tt_param_api_con_pagtos_apb.ttv_log_pagto_antecip = yes
tt_param_api_con_pagtos_apb.ttv_log_pagto_atraso = yes
tt_param_api_con_pagtos_apb.ttv_log_mostra_docto_apb_normal = yes
tt_param_api_con_pagtos_apb.ttv_log_mostra_docto_apb_antecip = no
tt_param_api_con_pagtos_apb.ttv_log_mostra_impto_retid = no
tt_param_api_con_pagtos_apb.ttv_log_mostra_impto_taxado = no
tt_param_api_con_pagtos_apb.ttv_ind_visualiz_tit_ap_vert = "Por Unidade Negócio"
tt_param_api_con_pagtos_apb.ttv_cod_unid_negoc_ini = '' 
tt_param_api_con_pagtos_apb.ttv_cod_unid_negoc_fim = "ZZZ"
tt_param_api_con_pagtos_apb.ttv_ind_classif_pagto_period = "Por Estabelecimento/Fornecedor/Data Pagamento"
tt_param_api_con_pagtos_apb.ttv_ind_dwb_run_mode = "On-Line".

 

if valid-handle(v_handle_apb731za) then do:

 

run pi_main_con_movtos_pagto_period in v_handle_apb731za(input table tt_param_api_con_pagtos_apb,

 

output table tt_pagtos_periodo,
output table tt_erro_msg).

 

create tt_param_relacto_tit_ap.

 

assign tt_param_relacto_tit_ap.tta_cod_estab = tt_pagtos_periodo.tta_cod_estab 

 

tt_param_relacto_tit_ap.tta_cod_ser_docto = tt_pagtos_periodo.tta_cod_ser_docto
tt_param_relacto_tit_ap.tta_cod_espec_docto = tt_pagtos_periodo.tta_cod_espec_docto
tt_param_relacto_tit_ap.tta_cdn_fornecedor = tt_pagtos_periodo.tta_cdn_fornecedor
tt_param_relacto_tit_ap.tta_cod_tit_ap = tt_pagtos_periodo.tta_cod_tit_ap
tt_param_relacto_tit_ap.tta_cod_parcela = tt_pagtos_periodo.tta_cod_parcela
tt_param_relacto_tit_ap.ttv_log_mostra_impto_retid = no
tt_param_relacto_tit_ap.ttv_log_pagto_cartcred = yes 
tt_param_relacto_tit_ap.ttv_log_pagto_bxsb = yes
tt_param_relacto_tit_ap.ttv_log_an_relacto = no.

 

run pi_criar_tt_relacto_tit_ap_aux in v_handle_apb731za (input table tt_param_relacto_tit_ap,
output table tt_relacto_tit_ap). /*titulos originais relacionado ao pagamento*/

...