Árvore de páginas

Versões comparadas

Chave

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

...

 Documento de API

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

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_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_

...

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_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_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*/

...