Histórico da Página
...
Documento de API
Produto: | Datasul |
Ocorrência: | Documentação de API |
Nome Físico | prgfin/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
Tabela temporária: tt_param
...
_api_con_liquid_Acr
Parâmetros Saída
Tabelas temporárias:
- tt_tit_acr_liquid_un: movimentos de liquidação por período e unidade de negócio
- tt_param_relacto_tit_acr: títulos relacionados.
- tt_aprop_ctbl_acr: apropriação contábil por movimento
- tt_erro_msg: mensagens de erro.
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.
Tabelas Temporárias
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 | Tabela Temporária | Descrição | Entrada/Saída |
tt_param_api_con_pagtosliquid_apbAcr | Parâmetros se seleção para a consulta dos pagamentos efetuadosde movimentos de liquidação por período | 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_bord | Logical | yes/no | Pagamento Borderô | Sim | |
ttv_log_pagto_espec | Logical | yes/no | Pagamento dinheiro | Sim | |
ttv_log_pagto_escrit | Logical | yes/no | Pagamento Escritural | Sim | |
ttv_cod_estab_ini | Character | X(5) | Estabelecimento Inicial | Sim | |
ttv_cod_estab_fim | Character | x(5) | Estabelecimento final | Sim | |
ttv_cod_refer_ini | Character | x(10) | Referencia Inicial | Sim | |
ttv_cod_refer_fim | Character | x(10) | Referencia Final | Sim | |
ttv_log_mostra_docto_apb | Logical | yes/no | Pagamento Extra Fornecedor CR | Sim | |
ttv_log_mostra_pagto_estordo | Logical | yes/no | Pagamento Estornado | Sim | |
ttv_log_mostra_docto_apb_pef | Logical | yes/no | Pagamento Extra Fornecedor | Sim | |
ttv_log_mostra_docto_apb_enctro | Logical | yes/no | Pagamento Encontro de Contas | Sim | |
ttv_log_pagto_cartcred | Logical | yes/no | Pagamento Cartão Crédito | Sim | |
ttv_dat_pagto_inicial | Date | 99/99/9999 | Data Pagamento Inicial | Sim | |
ttv_dat_pagto_final | Date | 99/99/9999 | Data Pagamento Final | Sim | |
ttv_cod_espec_docto_ini | Character | x(3) | Código Espécie Inicial | Sim | |
ttv_cod_espec_docto_fim | Character | x(3) | Código Espécie Final | Sim | |
ttv_cdn_fornecedor_ini | Integer | >>>,>>>,>>9 | Código Fornecedor Inicial | Sim | |
ttv_cdn_fornecedor_fim | Integer | >>>,>>>,>>9 | Código Fornecedor Final | Sim | |
ttv_cod_portador_ini | Character | x(5) | Código Portador Inicial | Sim | |
ttv_cod_portador_fim | Character | x(5) | Código Fornecedor Final | Sim | |
ttv_cod_indic_econ_ini | Character | x(8) | Indicador Econômico Inicial | Sim | |
ttv_cod_indic_econ_fim | Character | x(8) | Indicador Econômico Final | Sim | |
ttv_cod_forma_pagto_ini | Character | x(3) | Forma de Pagamento Inicial | Sim | |
ttv_cod_forma_pagto_fim | Character | x(3) | Forma de Pagamento Final | Sim | |
ttv_cod_grp_fornec_ini | Character | x(4) | Grupo de Fornecedor Inicial | Sim | |
ttv_cod_grp_fornec_fim | Character | x(4) | Grupo de Fornecedor Final | Sim | |
ttv_log_pagto_vencto | Logical | yes/no | Pagamento no Vencimento | Sim | |
ttv_log_pagto_antecip | Logical | yes/no | Pagamento Antecipado | Sim | |
ttv_log_pagto_atraso | Logical | yes/no | Pagamento Atraso | Sim | |
ttv_log_mostra_docto_apb_normal | Logical | yes/no | Mostra documentos do Tipo Normal | Sim | |
ttv_log_mostra_docto_apb_antecip | Logical | yes/no | Mostra Títulos do tipo antecipação | Sim | |
ttv_log_mostra_impto_retid | Logical | yes/no | Mostra títulos de imposto retido | Sim | |
ttv_log_mostra_impto_taxado | Logical | yes/no | Mostra títulos de imposto taxado | Sim | |
ttv_ind_visualiz_tit_ap_vert | Character | x(20) | Visualização de títulos:
| Sim | |
ttv_cod_unid_negoc_ini | Character | x(3) | Código Unidade Negócio Incial | Sim | |
ttv_cod_unid_negoc_fim | Character | x(3) | Código Unidade Negócio Final | Sim | |
ttv_ind_classif_pagto_period | Character | x(55) | Classificação de títulos:
| Sim | |
ttv_ind_dwb_run_mode | Character | x(7) | Modo de Execução: On-line/Batch | Sim | |
ttv_cod_finalid_econ | Character | x(10) | Finalidade Econômica | Sim |
def temp-table tt_param_api_con_
...
liquid_
...
Acr no-undo
field ttv_
...
cod_
...
estab_
...
ini as
...
character format "
...
x(3)" label "
...
Estabelecimento" column-label "
...
Estab Inicial"
field ttv_
...
cod_
...
estab_
...
fim as
...
character format "
...
x(3)" label "até" column-label "
...
Estab Final"
field ttv_
...
cod_
...
espec_
...
inic as
...
character format "
...
x(3)" label "Espécie Inicial"
field ttv_
...
cod_
...
espec_
...
fim as
...
character format "
...
x(3)" label "até"
field ttv_
...
cdn_
...
cliente_
...
ini as
...
Integer format "
...
>>>,>>>,>>9" initial
...
0 label "
...
Cliente" column-label "
...
Cliente Inicial"
field ttv_
...
cdn_
...
cliente_
...
fim as
...
Integer format "
...
>>>,>>>,>>9" initial
...
0 label "
...
até" column-label "
...
Cliente 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_
...
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_
...
dat_
...
transacao_
...
ini as
...
date format "
...
99/
...
99/9999" initial
...
today label "
...
Data Transação" column-label "
...
Data Transação"
field ttv_
...
dat_
...
transacao_
...
fim as
...
date format "
...
99/99/
...
9999" initial
...
today label "
...
até" column-label "
...
Final"
field ttv_
...
dat_
...
liquidac_inic as date format "99/99/9999" label "Data de Liquidação" column-label "
...
Liquidação"
field ttv_
...
dat_
...
liquidac_fim as date format "99/99/9999" label "até"
field ttv_
...
cod_proces_
...
export_
...
ini as
...
character format "
...
x(12)" label "Processo Exportação" column-label "
...
Proc Exp Inicial"
field ttv_
...
cod_proces_
...
export_
...
fim as
...
character format "
...
x(12)" label "
...
até" column-label "
...
Proc Exp Final"
field ttv_log_mostra_
...
liquidac_pagto
...
as
...
logical format "
...
Sim/Não" initial no label "Liquidação c/ Pagto"
field ttv_log_mostra_liquidac_antecip as logical format "Sim/Não" initial no label "Liquidação contra AN"
field ttv_
...
log_
...
mostra_
...
liquidac_
...
estorn as
...
logical format "
...
Sim/Não" initial no label "Liquid. Estornadas"
field ttv_cod_
...
finalid_
...
econ as character format "x(
...
10)" label "
...
Finalidade Econômica" column-label "
...
Finalidade Econômica"
field ttv_dat_
...
cotac_
...
indic_
...
econ as
...
date format "
...
99/99/9999" initial
...
today label "
...
Data Cotação" column-label "
...
Data Cotação"
field ttv_
...
log_
...
mostra_
...
normal as
...
logical format "
...
Sim/Não" initial
...
yes label "
...
Normal"
field ttv_
...
log_
...
mostra_
...
antecip as
...
logical format "
...
Sim/Não" initial no label "
...
Antecipação" column-label "
...
Antecipação"
field ttv_
...
log_
...
mostra_
...
prev as
...
logical format "
...
Sim/Não" initial no label "Previsão"
field ttv_
...
log_
...
mostra_
...
ndebito as
...
logical format "
...
Sim/Não" initial no label "Nota de Débito"
field ttv_
...
log_
...
mostra_
...
cheq as
...
logical format "
...
Sim/Não" initial yes label "
...
Cheque" column-label "
...
Cheque"
field ttv_
...
log_
...
mostra_
...
aviso_
...
db as
...
logical format "
...
Sim/Não" initial yes label "
...
Aviso Débito" column-label "
...
Aviso Débito"
field ttv_
...
log_
...
mostra_
...
docto_
...
vendor as
...
logical format "
...
Sim/Não" initial yes label "
...
Vendor" column-label "
...
Vendor"
field ttv_
...
log_
...
mostra_
...
liquidac as
...
logical format "
...
Sim/Não" initial yes label "
...
Liquidação"
field ttv_
...
log_
...
mostra_
...
liquidac_
...
renegoc as
...
logical format "
...
Sim/Não" initial no label "
...
Liquid Renegociação"
field ttv_log_mostra_liq_
...
enctro_
...
cta as logical format "Sim/Não" initial yes label "
...
Liq Encontro Ctas" column-label "
...
Liq Encontro Ctas"
field ttv_log_
...
mostra_perda_
...
dedut as logical format "Sim/Não" initial
...
no label "
...
Liquid Perda Dedut" column-label "
...
Liquid Perda Dedut"
field ttv_log_
...
mostra_transf_
...
estab as logical format "Sim/Não" initial
...
no label "
...
Transf Estabelec"
field ttv_log_mostra_
...
acerto_
...
val_
...
cr as logical format "Sim/Não" initial
...
no label "
...
Acerto Valor a CR"
field ttv_log_mostra_
...
acerto_
...
val_
...
menor as logical format "Sim/Não" initial
...
no label "
...
Acerto Valor a Menor"
field ttv_log_mostra_
...
devol as logical format "Sim/Não" initial
...
no label "
...
Devolução"
field ttv_log_mostra_
...
cta_
...
ctbl as logical format "Sim/Não" initial yes label "
...
Mostra Contas"
field ttv_ind_visualiz_tit_
...
acr_vert as character format "X(20)" initial "Por Estabelecimento" label "Visualiza Título" column-label "Visualiza Título"
field ttv_
...
ind_
...
classif_
...
tit_
...
acr as character format "
...
X(
...
08)"
field ttv_cod_
...
finalid_
...
econ_
...
apres as character format "x(
...
10)" initial "Corrente" label "
...
Finalid Apresentação" column-label "
...
Finalid Apresentação"
field ttv_
...
log_
...
mostra_
...
tit_
...
relac as
...
logical format "
...
Sim/Não" initial yes label "Título relacionado"
field ttv_
...
log_
...
mostra_
...
ctbzdo as
...
logical format "
...
Sim/Não" initial no.
Tabela |
Tabela Temporária | Descrição | Entrada/Saída |
tt_tit_pagtosacr_liquid_periodoun | Movimentos de liquidação por Periodo e unidade de negócioPagamentos 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_portador | Character | x(5) | Portador | Sim | |
tta_cdn_fornecedor | Integer | >>>,>>>,>>9 | Fornecedor | Sim | |
tta_nom_abrev | Character | x(15) | Nome Abreviado | Sim | |
tta_num_id_movto_tit_ap | Integer | 9999999999 | Id Tít AP | Sim | |
tta_cod_tit_ap | Character | x(16) | Título | Sim | |
tta_nom_pessoa | Character | x(40) | Nome | Sim | |
tta_cod_parcela | Character | x(02) | Parcela | Sim | |
tta_dat_vencto_tit_ap | Date | 99/99/9999 | Data Vencimento | Sim | |
tta_cod_refer | Character | x(10) | Referência | Sim | |
tta_dat_pagto | Date | 99/99/9999 | Data pagamento | Sim | |
tta_cod_unid_negoc | Character | x(3) | Unid Negócio | Sim | |
tta_cod_indic_econ | Character | x(8) | Moeda | Sim | |
ttv_val_pagto_apb | Decimal | ->>,>>>,>>>,>>9.99 | Valor Pagamento | Sim | |
ttv_val_finalid_apres | Decimal | ->>,>>>,>>>,>>9.99 | Valor Finalid Apres | Sim | |
ttv_cod_dwb_field_apb | Character | x(32) | Campo | Sim | |
ttv_rec_compl_movto_pagto | Integer | >>>>>>9 | RECID Compl_movto_pagto | Sim | |
tta_cod_contrat_cartcred | Character | x(10) | Contrato Cartão | Sim | |
tta_cod_portad_cartcred | Character | x(10) | Portador Cartão | Sim | |
ttv_rec_movto_tit_ap | Integer | >>>>>>9 | Recid movto_tit_ap | Sim | |
tta_cod_forma_pagto | Character | x(3) | Forma Pagamento | Sim | |
tta_val_despes_bcia | Decimal | ->>>,>>>,>>9.99 | Valor Despesa Bancária | Sim | |
ttv_cod_indic_econ_des | Character | x(8) | Moeda | Sim | |
tta_num_cheque | Integer | >>>>,>>>,>>9 | Numero Cheque | Sim | |
tta_num_talon_cheq | Integer | >>>,>>>,>>9 | Talonário Cheques | Sim | |
tta_val_multa_tit_ap | Decimal | ->>>,>>>,>>9.99 | Valor Multa | Sim | |
tta_val_juros | Decimal | >>>>,>>>,>>9.99 | Valor Juros | Sim | |
tta_val_cm_tit_ap | Decimal | ->>>,>>>,>>9.99 | Valor Correção Monetária | Sim | |
tta_val_desc_tit_ap | Decimal | ->>>,>>>,>>9.99 | Valor Desconto | Sim | |
tta_val_abat_tit_ap | Decimal | ->>>,>>>,>>9.99 | Valor Abatimento | Sim | |
ttv_val_multa_apres | Decimal | >>>>,>>>,>>9.99 | Valor Multa | Sim | |
ttv_val_juros_apres | Decimal | >>>>,>>>,>>9.99 | Valor Juros | Sim | |
ttv_val_cm_apres | Decimal | >>>>,>>>,>>9.99 | Valor Correção Monetária | Sim | |
ttv_val_desc_apres | Decimal | >>>>,>>>,>>9.99 | Valor Desconto | Sim | |
ttv_val_abat_apres | Decimal | >>>>,>>>,>>9.99 | Valor Abatimento | Sim | |
tta_des_text_histor | Character | x(2000) | Histórico | Sim | |
tta_num_bord_ap | Integer | >>>>>9 | Número Borderô | Sim | |
tta_des_forma_pagto | Character | x(40) | Descrição Forma Pagamento | Sim | |
ttv_rec_tit_ap | Integer | >>>>>>9 | Recid tit_ap | Sim | |
ttv_cod_banco | Character | x(8) | Banco | Sim | |
ttv_cod_agenc_bcia | Character | x(10) | Agência Bancária | Sim | |
ttv_cod_digito_agenc | Character | x(2) | Dígito Agência | Sim | |
ttv_cod_cta_corren_bco_pagto | Character | x(20) | Conta Corrente | Sim | |
ttv_cod_digito_cta_corren_pagto | Character | x(2) | Dígito Conta Corrente | Sim | |
tta_ind_trans_ap | Character | x(26) | Transação | Sim | |
tta_cod_empresa | Character | x(3) | Empresa | Sim | |
ttv_val_original | Decimal | ->>>>>,>>>,>>9.99 | Valor Original | Sim | |
tta_cod_safra | Character | 9999/9999 | Safra | Sim | |
tta_cod_contrat_graos | Character | x(20) | Contrato Grãos | Sim |
def temp-table tt_tit_acr_
...
liquid_
...
un 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_ser_docto as character format "x(
...
5)" label "Série Documento" column-label "Série"
field tta_cod_tit_acr as character format "x(16)" label "Título" column-label "Título"
field tta_cod_espec_docto as character format "x(3)" label "Espécie Documento" column-label "Espécie"
field tta_cod_
...
parcela as character format "x(
...
02)" label "
...
Parcela" column-label "
...
Parcela"
field tta_cdn_
...
cliente as Integer format ">>>,>>>,>>9" initial 0 label "
...
Cliente" column-label "
...
Cliente"
field tta_ind_trans_
...
acr_abrev as character format "
...
X(
...
04)" label "
...
Trans Abrev" column-label "
...
Trans Abrev"
field tta_
...
log_
...
movto_
...
estordo as
...
logical format "
...
Sim/Não" initial
...
no label "
...
Estornado" column-label "
...
Estornado"
field tta_
...
log_liquidac_
...
contra_
...
antecip as
...
logical format "
...
Sim/Não" initial no label "
...
Liquidac AN" column-label "
...
Liquidac AN"
field tta_val_movto_
...
tit_
...
acr as
...
decimal format "
...
->>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Movimento" column-label "
...
Vl Movimento"
field tta_
...
dat_
...
transacao as
...
date format "
...
99/99/9999" initial today label "Data Transação" column-label "
...
Dat Transac"
field tta_dat_
...
cr_movto_tit_
...
acr as date format "99/99/9999" initial
...
? label "
...
Crédito" column-label "
...
Crédito"
field
...
ttv_rec_movto_tit_acr as recid format ">>>>>>9"
field tta_num_id_movto_tit_acr as integer format "999999999" initial 0 label "Token Movto Tit ACR" column-label "
...
Token Movto Tit ACR"
field tta_
...
nom_
...
abrev as character format "x(
...
15)" label "
...
Nome Abreviado" column-label "
...
Nome Abreviado"
field tta_
...
nom_
...
pessoa as character format "x(
...
40)" label "
...
Nome" column-label "
...
Nome"
field
...
tta_
...
cod_
...
indic_
...
econ as
...
character format "
...
x(8)" label "Moeda" column-label "
...
Moeda"
field
...
tta_
...
ind_
...
espec_
...
docto as
...
character format "
...
X(08)" label "Espécie Documento" column-label "
...
Espécie Documento"
field
...
tta_
...
dat_
...
liquidac_
...
tit_
...
acr as
...
date format "
...
99/99/9999" initial ? label "
...
Liquidação" column-label "
...
Liquidação"
field
...
tta_
...
dat_
...
vencto_
...
tit_
...
acr as
...
date format "
...
99/99/9999" initial ? label "Vencimento" column-label "Vencimento"
field tta_val_desconto as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Desconto" column-label "
...
Valor Desconto"
field tta_val_
...
abat_
...
tit_
...
acr as
...
decimal format "
...
>>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Abatimento" column-label "
...
Vl Abatimento"
field
...
tta_
...
val_juros as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Juros" column-label "
...
Valor Juros"
field tta_val_multa_
...
tit_
...
acr as decimal format "
...
>>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl
...
Multa" column-label "Vl
...
Multa"
field ttv_cod_
...
proces_
...
export as character format "x(
...
12)" label "
...
Processo Exportação" column-label "
...
Processo Exportação"
field tta_cod_
...
unid_
...
negoc as
...
character format "
...
x(3)" label "Unid Negócio" column-label "
...
Un Neg"
field tta_
...
cod_tip_
...
fluxo_
...
financ as
...
character format "
...
x(12)" label "Tipo Fluxo Financ" column-label "
...
Tipo Fluxo Financ"
field tta_
...
cod_
...
finalid_
...
econ as
...
character format "
...
x(10)" label "Finalidade" column-label "
...
Finalidade"
field tta_
...
num_id_tit_acr as integer format "999999999" initial 0 label "
...
Token Cta Receber" column-label "
...
Token Cta Receber"
...
index tt_
...
estab_
...
un
tta_
...
cod_estab ascending
tta_cod_unid_negoc ascending
index tt_id is primary unique
tta_cod_estab ascending
tta_num_id_movto_tit_acr ascending
tta_cod_finalid_econ ascending
tta_cod_unid_negoc ascending
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_aprop_ctbl_acr | Apropriação Contábil | Saída |
def temp-table tt_aprop_ctbl_acr no-undo like aprop_ctbl_acr
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_param_relacto_tit_acr | Títulos relacionados | Saída |
def temp-table tt_param_relacto_tit_acr no-undo like tit_acr
field tta_val_relacto_tit_acr as decimal format "->>>,>>>,>>9.99" decimals
...
2 initial 0 label "
...
Vl Relacto" column-label "
...
Vl Relacto"
field tta_
...
dat_
...
gerac_
...
movto as
...
date format "
...
99/99/9999" initial ? label "Data Geração Movto" column-label "
...
Data Geração Movto"
field tta_hra_gerac_movto as Character format "99:99:99" label "Hora Geração Movto" column-label "Hora Geração Movto"
field ttv_rec_tit_acr as recid format ">>>>>>9"
field tta_cod_estab_tit_acr_pai as Character format "x(5)" label "Estab Tit Pai" column-label "Estab Tit Pai"
field tta_num_id_tit_acr_pai as integer format "9999999999" initial 0 label "Token" column-label "Token"
.
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*/
...