Á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

...

 

Parâmetros Saída

 

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

 

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

 

Tabelas Temporárias

 

...

Tabelas Temporárias

 

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

...

logconctactblConsulta conta contábil

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

ttv_logcod_pagtoestab_cheqini

Logical

yes/no

Character

x(5)

Estabelecimento inicialPagamento Cheque

Sim

 

ttv_logcod_ctaestab_ctblfim

Character

Xx(405)

Valor do ParâmetroEstabelecimento final

Sim

 
ttv_cod_espec_docto_ini

Logical

yes/no

Characterx(3)Código Espécie InicialSim 
ttv_cod_logespec_pagtodocto_bordfimLogicalyes/noCharacterx(3)Código Espécie FinalPagamento BorderôSim 
ttv_logcdn_pagtocliente_especiniLogicalyes/noInteger>>>,>>>,>>9Cliente inicialPagamento dinheiroSim 
ttv_logcdn_pagtocliente_escrit fimLogicalyes/noInteger>>>,>>>,>>9Cliente finalPagamento EscrituralSim 
ttv_cod_estabindic_econ_iniCharacterXx(58)Estabelecimento Moeda InicialSim 
ttv_cod_indic_estabecon_fimCharacterx(58)Estabelecimento finalMoeda FinalSim 
ttv_cod_referportador_iniini Characterx(105)Referencia Portador InicialSim 
ttv_cod_referportador_fimfim Characterx(105)Referencia Portador FinalSim 
ttv_logdat_mostratransacao_docto_apbini LogicalDateyes99/99/no9999Data Transação inicialPagamento Extra Fornecedor CRSim 
ttv_logdat_mostratransacao_pagto_estordofimLogicalDateyes99/99/no9999Data transação finalPagamento EstornadoSim 
ttv_logdat_mostra_docto_apb_pef Logicalyes/noliquidac_iniDate99/99/9999Data Liquidação inicialPagamento Extra FornecedorSim 
ttv_logdat_mostra_docto_apb_enctroLogicalyes/noliquidac_fimDate99/99/9999Data Liquidação finalPagamento Encontro de ContasSim 
ttv_logcod_proces_pagtoexport_cartcredini Logicalyes/noPagamento Cartão CréditoCharacterx(12)Processo ExportaçãosimSim 
ttv_datcod_pagtoproces_inicialexport_fim Date99/99/9999Data Pagamento InicialCharacterx(12)Processo ExportaçãosimSim 
ttv_log_mostra_datliquidac_pagto_finalDateLogical99/99/9999Data Pagamento Finalyes/noLiquidação c/ PagtosimSim 
ttv_codlog_especmostra_doctoliquidac_iniantecipCharacterx(3)Código Espécie InicialLogicalyes/noLiquidação contra ANsimSim 
ttv_codlog_especmostra_doctoliquidac_fimestornCharacterx(3)Logicalyes/noLiquid. EstornadasCódigo Espécie FinalSim 
ttv_cdncod_fornecedorfinalid_inieconInteger>>>,>>>,>>9Código Fornecedor InicialCharacterx(10)Finalidade EconômicasimSim 
ttv_cdndat_cotac_fornecedorindic_fimeconInteger>>>,>>>,>>9Código Fornecedor FinalDate99/99/9999Data CotaçãosimSim 
ttv_codlog_portadormostra_ini normalCharacterx(5)Código Portador InicialLogicalyes/noMostra título normalsimSim 
ttv_codlog_portadormostra_fimantecipCharacterx(5)Código Fornecedor FinalLogicalyes/noMostra título AntecipaçãosimSim 
ttv_codlog_indicmostra_econ_iniprevCharacterx(8)Indicador Econômico InicialLogicalyes/noMostra PrevisãosimSim 
ttv_codlog_indicmostra_econ_fimndebitoCharacterx(8)Indicador Econômico FinalLogicalyes/noMostra nota de débitosimSim 
ttv_codlog_formamostra_pagto_inicheqCharacterx(3)Forma de Pagamento InicialLogicalyes/noMostra título de chequesimSim 
ttv_codlog_formamostra_pagtoaviso_fimdbCharacterx(3)Forma de Pagamento FinalLogicalyes/noMostra Aviso de débitosimSim 
ttv_codlog_grpmostra_fornecdocto_inivendorCharacterx(4)Grupo de Fornecedor InicialLogicalyes/noVendorsimSim 
ttv_codlog_grpmostra_fornec_fimliquidacCharacterx(4)Grupo de Fornecedor FinalLogicalyes/noLiquidaçãosimSim 
ttv_log_mostra_pagtoliquidac_venctorenegocLogicalyes/noPagamento no VencimentoRenegociaçãoSimsim 
ttv_log_mostra_liq_pagtoenctro_antecipctaLogicalyes/noPagamento AntecipadoLiquidação encontro de contassimSim 
ttv_log_mostra_pagtoperda_atrasodedutLogicalyes/noPagamento AtrasoPerda dedutívelSimsim 
ttv_log_mostra_doctotransf_apb_normalestabLogicalyes/noMostra documentos do Tipo NormalTransferência EstabelecimentosimSim 
ttv_log_mostra_doctoacerto_apbval_antecipcrLogicalyes/noMostra Títulos do tipo antecipaçãoAcerto Valor a CRsimSim 
 ttvttv_log_mostra_impto_retidacerto_val_menorLogicalyes/noAcerto Valor a Menorsim 
ttv_log_mostra_devolLogicalyes/noMostra títulos de imposto retidoDevoluçãosimSim 
ttv_log_mostra_imptocta_taxadoctblLogicalyes/noMostra títulos de imposto taxadoContassimSim 
ttv_ind_visualiz_tit_apacr_vertvert Charactercharacterx(20)

Visualização de títulos:

  • Por Estabelecimento/Por Unidade Negócio
Visualiza TítulosimSim 
ttv ttv_codind_unidclassif_negoctit_iniacrCharacterx(38)Código Unidade Negócio IncialClassificação títulosimSim 
ttv_cod_unidfinalid_negocecon_fimapresCharacterx(310)Código Unidade Negócio FinalFinalidade econômica apresentaçãosimSim 
ttv_indlog_classifmostra_pagtotit_periodrelacCharacterx(55)

Classificação de títulos:

  • Por Estabelecimento/Fornecedor/Data Pagamento
Logicalyes/noMostra título relacionadosimSim 
ttv_indlog_dwbmostra_run_modectbzdoCharacterx(7)Modo de Execução: On-line/BatchSim 
ttv_cod_finalid_econCharacterx(10)Finalidade EconômicaSim 

 

Logicalyes/noMostra movimento contabilizadosim 

 

def temp-table tt_param_api_con_

...

liquid_

...

Acr no-undo

field ttv_

...

cod_

...

estab_

...

ini as

...

character format "

...

x(5)" label "

...

Estabelecimento" column-label "

...

Estab Inicial"
field ttv_

...

cod_

...

estab_

...

fim as

...

character format "

...

x(5)" 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 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

 

X3 Documento

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

tta_cod_estabempresaCharacterx(53)EstabelecimentoEmpresaSim 
tta_cod_estabCharacterx(5)EstabelecimentoSim 
tta_cod_ser_doctoCharacterx(5)Série documentoSim 
tta_cod_tit_acrCharacterx(16)TítuloSim 
tta_cod_espec_doctoCharacterx(3)Espécie DocumentoSim 
tta_cod_portadorparcelaCharacterx(502)PortadorParcelaSim 
tta_cdn_fornecedorclienteInteger>>>,>>>,>>9FornecedorClienteSim 
tta_ind_nomtrans_acr_abrevabrev Characterx(1504)Nome AbreviadoTrans AbrevSim 
tta_num_idlog_movto_tit_apestordoIntegerLogical9999999999Yes/NoMovimento estornadoId Tít APSim 
tta_codlog_liquidac_titcontra_apantecipCharacterx(16)Logicalyes/noLiquidação contra ANTítuloSim 
tta_val_movto_nomtit_pessoaacrCharacterx(40)Decimal->>>,>>>,>>9.99Valor MovimentoNomeSim 
tta_coddat_parcelatransacaoCharacterx(02)Date99/99/9999Data TransaçãoParcelaSim 
tta_dat_cr_venctomovto_tit_apacrDate99/99/9999Data VencimentoCréditoSim 
ttv_rec_movto_tit_acr Recid Recid movimentoSim 
tta_num_id_movto_tit_acrInteger"999999999"Token Movto Tit ACRtta_cod_referCharacterx(10)ReferênciaSim 
tta_datnom_pagtoabrevDate99/99/9999Characterx(15)Nome AbreviadoData pagamentoSim 
tta_codnom_unid_negocpessoaCharacterx(340)Unid NegócioNomeSim 
tta_cod_indic_econCharacterx(8)MoedaSim 
ttvtta_valind_pagtoespec_apbdoctoDecimal->>,>>>,>>>,>>9.99Characterx(8)Espécie DocumentoValor PagamentoSim 
ttvtta_dat_valliquidac_finalidtit_apresacrDecimal->>,>>>,>>>,>>9.99Date99/99/9999LiquidaçãoValor Finalid ApresSim 
ttvtta_coddat_dwbvencto_fieldtit_apbacrCharacterx(32)Date99/99/9999Data de vencimentoCampoSim 
ttvtta_rec_compl_movto_pagtoInteger>>>>>>9val_descontodecimal->>>,>>>,>>9.99Valor de descontoRECID Compl_movto_pagtoSim 
tta_val_codabat_contrattit_cartcredacrCharacterx(10)Decimal->>>,>>>,>>9.99Valor abatimentoContrato CartãoSim 
tta_codval_portad_cartcredjurosCharacterx(10)Decimal->>>,>>>,>>9.99Valor JurosPortador CartãoSim 
ttvtta_recval_movtomulta_tit_apacrInteger>>>>>>9Decimal->>>,>>>,>>9.99Valor multaRecid movto_tit_apSim 
ttattv_cod_formaproces_pagtoexportCharactercharacterx(312)Forma PagamentoProcesso ExportaçãoSim 
tta_valcod_despesunid_bcia negocDecimal->>>,>>>,>>9.99Valor Despesa BancáriaCharacterx(3)Unidade NegóciosimSim 
ttvtta_cod_indictip_econfluxo_desfinancCharacterx(812)MoedaTipo Fluxo FinanceiroSim 
tta_cod_numfinalid_chequeeconInteger>>>>,>>>,>>9Characterx(10)Finalidade econômicaNumero ChequeSim 
tta_num_id_talontit_cheq acr Integer>>>,>>>,>>9999999999Token Cta ReceberTaloná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

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

tta_val_relacto_tit_acr

Decimal

->>>,>>>,>>9.99

Valor relacionado

Sim

 

tta_dat_gerac_movto

Date

99/99/9999

Data geração movimento

Sim

 

 tta_hra_gerac_movto

Character

99:99:99

Hora geração

Sim

 

ttv_rec_tit_acr Recid>>>>>>9Recid do títulosim 
tta_cod_estab_tit_acr_paicharacterx(5)Estabelecimento título PaiSim 
tta_num_id_tit_acr_pai Integer9999999999Token título paiSim 


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

def var v_handle_acr262za as handle no-undo.


for each tt_tit_acr_liquid_un:
delete tt_tit_acr_liquid_un.
end.
for each tt_param_relacto_tit_acr:
delete tt_param_relacto_tit_acr.
end.
for each tt_aprop_ctbl_acr:
delete tt_aprop_ctbl_acr.
end.

 

 

 

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.

 

...

 

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

 

...

create tt_param_api_con_liquid_Acr.
assign tt_param_api_con_liquid_Acr.ttv_cod_estab_ini = ''


tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

cod_

...

estab_fim = 'ZZZZZ'
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

cod_

...

espec_inic = ''
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

cod_

...

espec_

...

fim =

...

'ZZ'
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

cdn_

...

cliente_

...

ini = 0
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

cdn_

...

cliente_

...

fim = 99999999
tt_param_api_con_

...

liquid_

...

Acr.ttv_cod_

...

indic_

...

econ_

...

ini = '

...

'
tt_param_api_con_

...

liquid_

...

Acr.ttv_cod_

...

indic_

...

econ_

...

fim = 'ZZZZZ'
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

cod_

...

portador_

...

ini =

...

''
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

cod_

...

portador_

...

fim =

...

'ZZZZZZZZZ'
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

dat_

...

transacao_

...

ini = 03/01/2016
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

dat_

...

transacao_

...

fim = 03/31/2016
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

dat_

...

liquidac_

...

inic = 03/01/2016
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

dat_

...

liquidac_

...

fim =

...

03/31/2016
tt_param_api_con_

...

liquid_

...

Acr.ttv_cod_

...

proces_

...

export_ini = ''
tt_param_api_con_

...

liquid_

...

Acr.ttv_cod_

...

proces_

...

export_fim =

...

'ZZZZZZZZZZZ'
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

log_

...

mostra_

...

liquidac_

...

pagto =

...

yes
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

log_

...

mostra_

...

liquidac_

...

antecip =

...

yes
tt_param_api_con_

...

liquid_

...

Acr.ttv_log_mostra_

...

liquidac_

...

estorn =

...

no
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

cod_

...

finalid_

...

econ =

...

'Corrente'
tt_param_api_con_

...

liquid_

...

Acr.ttv_dat_

...

cotac_

...

indic_

...

econ = 08/26/2016
tt_param_api_con_

...

liquid_

...

Acr.ttv_log

...

_

...

mostra_normal = yes
tt_param_api_con_

...

liquid_

...

Acr.ttv_log_mostra_

...

antecip =

...

yes
tt_param_api_con_

...

liquid_

...

Acr.ttv_log_mostra_

...

prev = no
tt_param_api_con_

...

liquid_

...

Acr.ttv_log_mostra_

...

ndebito = no
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

log_

...

mostra_cheq = yes
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

log_

...

mostra_

...

aviso_

...

db =

...

no
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

log_

...

mostra_

...

docto_

...

vendor =

...

no
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

log_

...

mostra_

...

liquidac = yes
tt_param_api_con_

...

liquid_

...

Acr.ttv_

...

log_

...

mostra_

...

liquidac_

...

 

if valid-handle(v_handle_apb731za) then do:

 

run pi_main_con_movtos_pagto_period in v_handle_apb731za(input table renegoc = yes
tt_param_api_con_liquid_Acr.ttv_log_mostra_liq_enctro_cta = no
tt_param_api_con_pagtos_apb,

 

output table tt_pagtos_periodo,
output table tt_erro_msg).

 

create liquid_Acr.ttv_log_mostra_perda_dedut = no
tt_param_relactoapi_con_titliquid_ap.

 

assign tt_param_relacto_tit_ap.tta_cod_estab = tt_pagtos_periodo.tta_cod_estab 

...

Acr.ttv_log_mostra_transf_estab = yes
tt_param_api_

...

con_

...

liquid_

...

Acr.ttv_log_mostra_acerto_val_cr = no
tt_param_api_con_liquid_Acr.ttv_log_mostra_acerto_val_menor = no
tt_param_api_

...

con_

...

liquid_

...

Acr.

...

ttv_

...

log_

...

mostra_

...

devol = no
tt

...

_param_api_con_liquid_Acr.ttv_log_mostra_cta_ctbl = yes
tt_param_

...

api_con_

...

liquid_

...

Acr.

...

ttv_

...

ind_

...

visualiz_

...

tit_

...

acr_vert = ''
tt_param_api_

...

con_

...

liquid_

...

Acr.

...

ttv_ind_

...

classif_tit_

...

acr = ''
tt

...

_param_api_con_liquid_Acr.ttv_cod_finalid_econ_apres = 'corrente'
tt_param

...

_api_con_liquid_Acr.ttv_log_mostra_tit_relac = no
tt_param_api_

...

con_

...

liquid_

...

Acr.ttv_log_mostra_

...

ctbzdo = no

...

/*mostra apenas os movimentos cntabilizados */.

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

if valid-handle(v_handle_acr262za) then do:
run pi_main_con_movtos_liquid_period in v_handle_acr262za (Input 1,
Input table tt_param_api_con_liquid_Acr,
output table tt_tit_acr_liquid_un,
output

 

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

Assunto

Produto:

 

Versões:

 

Ocorrência:

 

Ambiente:

 

Passo a passo:

 

Observações:

 

 

 aprop_ctbl_acr,
output table tt_erro_msg) /*pi_main_con_movtos_pagto_period_1*/.