Á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 persistent set v_handle_acr262za.

 

Utilizar o procedimento principal para execução da api, run 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

_2 in v_handle_acr262za (Input 1,
                                           INPUT TABLE tt_param_api_con_

...

liquid_

...

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

...

Entrada

Acr,
                                           OUTPUT TABLE tt_tit_acr_liquid_un,
                                           OUTPUT TABLE tt_param_relacto_tit_acr,
                                           OUTPUT TABLE tt_aprop_ctbl_acr,
                                           OUTPUT TABLE tt_erro_msg) .  

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

Tabelas Temporárias


Tabela Temporária

Descrição

Entrada/Saída

tt_param_api_con_liquid_Acr

Parâmetros se seleção para a consulta de 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 

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

ttv_cod_estab_ini

Character

X

x(5)

Estabelecimento

Inicial

inicial

Sim

 


ttv_cod_estab_fim

Character

x(5)

Estabelecimento final

Sim

 


ttv_cod_
refer
espec_docto_iniCharacterx(
10
3)
Referencia
Código Espécie InicialSim
 

ttv_cod_espec_
refer
docto_fimCharacterx(
10
3)
Referencia
Código Espécie FinalSim
 

ttv_
log
cdn_
mostra
cliente_
docto_apb
ini
Logicalyes/noPagamento Extra Fornecedor CRSim
Integer>>>,>>>,>>9Cliente inicialSim
 

ttv_
log
cdn_
mostra
cliente_
pagto_estordo
fim
Logicalyes/noPagamento Estornado
Integer>>>,>>>,>>9Cliente finalSim
 

ttv_
log
cod_
mostra
indic_
docto
econ_
apb_pef 
ini
Logicalyes/noPagamento Extra FornecedorSim
Characterx(8)Moeda InicialSim
 

ttv_
log
cod_
mostra
indic_
docto_apb_enctroLogicalyes/noPagamento Encontro de ContasSim 
econ_fimCharacterx(8)Moeda FinalSim
ttv_cod_portador_ini Characterx(5)Portador InicialSim
ttv_cod_portador_fim Characterx(5)Portador FinalSim
ttv_log_pagto_cartcredLogicalyes/noPagamento Cartão CréditoSim 

ttv_dat_
pagto
transacao_
inicial
ini Date99/99/9999Data
Pagamento Inicial
Transação inicialSim
 

ttv_dat_
pagto
transacao_
final
fimDate99/99/9999Data
Pagamento Final
transação finalSim
 

ttv_
cod
dat_
espec
liquidac_
docto_
ini
Characterx(3)Código Espécie InicialSim
Date99/99/9999Data Liquidação inicialSim
 

ttv_
cod
dat_
espec
liquidac_
docto_
fim
Characterx(3)Código Espécie FinalSim 
Date99/99/9999Data Liquidação finalSim
ttv_cod_proces_export_ini Characterx(12)Processo Exportaçãosim
ttv_cod_proces_export_fim Characterx(12)Processo Exportaçãosim
ttv_log_mostra_liquidac_pagtoLogicalyes/noLiquidação c/ Pagtosim
ttv_log_mostra_liquidac_antecipLogicalyes/noLiquidação contra ANsim
ttv_log_mostra_liquidac_estornLogicalyes/noLiquid. EstornadasSim
ttv_cod_finalid_econCharacterx(10)Finalidade Econômicasim
ttv_dat_cotac_indic_econDate99/99/9999Data Cotaçãosim
ttv_log_mostra_normalLogicalyes/noMostra título normalsim
ttv_log_mostra_antecipLogicalyes/noMostra título Antecipaçãosim
ttv_log_mostra_prevLogicalyes/noMostra Previsãosim
ttv_log_mostra_ndebitoLogicalyes/noMostra nota de débitosim
ttv_log_mostra_cheqLogicalyes/noMostra título de chequesim
ttv_log_mostra_aviso_dbLogicalyes/noMostra Aviso de débitosim
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_normal
vendorLogicalyes/no
Mostra documentos do Tipo NormalSim 
Vendorsim
ttv_log_mostra_
docto_apb_antecip
liquidacLogicalyes/no
Mostra Títulos do tipo antecipaçãoSim 
Liquidaçãosim
ttv
 ttv
_log_mostra_
impto
liquidac_
retid
renegocLogicalyes/no
Mostra títulos de imposto retidoSim
Renegociaçãosim
 

ttv_log_mostra_liq_
impto
enctro_
taxado
ctaLogicalyes/no
Mostra 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 

 

...

Liquidação encontro de contassim
ttv_log_mostra_perda_dedutLogicalyes/noPerda dedutívelsim
ttv_log_mostra_transf_estabLogicalyes/noTransferência Estabelecimentosim
ttv_log_mostra_acerto_val_crLogicalyes/noAcerto Valor a CRsim
ttv_log_mostra_acerto_val_menorLogicalyes/noAcerto Valor a Menorsim
ttv_log_mostra_devolLogicalyes/noDevoluçãosim
ttv_log_mostra_cta_ctblLogicalyes/noMostra Contassim
ttv_ind_visualiz_tit_acr_vert characterx(20)Visualiza Títulosim
 ttv_ind_classif_tit_acrCharacterx(8)Classificação títulosim
ttv_cod_finalid_econ_apresCharacterx(10)Finalidade econômica apresentaçãosim
ttv_log_mostra_tit_relacLogicalyes/noMostra título relacionadosim
ttv_log_mostra_ctbzdoLogicalyes/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_

pagtos

acr_liquid_

periodoPagamentos Efetuados no Período

un

Movimentos de liquidação por Periodo e unidade de negócio

Saída

 

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

tta_cod_
estab
empresaCharacterx(3)EmpresaSim
tta_cod_estabCharacterx(5)EstabelecimentoSim

 


tta_cod_ser_doctoCharacter
X
x(
3
5)Série
Documento
documentoSim
 

tta_cod_tit_acrCharacterx(16)TítuloSim
tta_cod_espec_doctoCharacterx(3)Espécie DocumentoSim
 

tta_cod_
portador
parcelaCharacterx(
5
02)
Portador
ParcelaSim
 

tta_cdn_
fornecedor
clienteInteger>>>,>>>,>>9
Fornecedor
ClienteSim
 

tta_
nom_abrev
ind_trans_acr_abrev Characterx(
15
04)
Nome Abreviado
Trans AbrevSim
 

tta_
num_id
log_movto_
tit_apInteger9999999999Id Tít APSim tta_cod_tit_apCharacterx(16)TítuloSim tta_nom_pessoaCharacterx(40)NomeSim tta_cod_parcelaCharacterx(02)ParcelaSim 
estordoLogicalYes/NoMovimento estornadoSim
tta_log_liquidac_contra_antecipLogicalyes/noLiquidação contra ANSim
tta_val_movto_tit_acrDecimal->>>,>>>,>>9.99Valor MovimentoSim
tta_dat_transacaoDate99/99/9999Data TransaçãoSim
tta_dat_cr_movto_tit_acr
tta_dat_vencto_tit_ap
Date99/99/9999
Data Vencimento
CréditoSim
 tta_cod_referCharacterx(10)ReferênciaSim tta_dat_pagtoDate99/99/9999Data pagamentoSim 

ttv_row_movto_tit_acrRowid
Rowid MovimentoSim
tta_num_id_movto_tit_acrInteger"999999999"Token Movto Tit ACRSim
tta_nom_abrev
tta_cod_unid_negoc
Characterx(
3
15)
Unid Negócio
Nome AbreviadoSim
 

tta_
cod_indic
nom_pessoaCharacterx(40)NomeSim
tta_cod_indic_econCharacterx(8)MoedaSim
 ttv

tta_
val
ind_
pagto
espec_
apb
docto
Decimal->>,>>>,>>>,>>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 

 

...

Characterx(8)Espécie DocumentoSim
tta_dat_liquidac_tit_acrDate99/99/9999LiquidaçãoSim
tta_dat_vencto_tit_acrDate99/99/9999Data de vencimentoSim
tta_val_descontodecimal->>>,>>>,>>9.99Valor de descontoSim
tta_val_abat_tit_acrDecimal->>>,>>>,>>9.99Valor abatimentoSim
tta_val_jurosDecimal->>>,>>>,>>9.99Valor JurosSim
tta_val_multa_tit_acrDecimal->>>,>>>,>>9.99Valor multaSim
ttv_cod_proces_exportcharacterx(12)Processo ExportaçãoSim
tta_cod_unid_negocCharacterx(3)Unidade Negóciosim
tta_cod_tip_fluxo_financCharacterx(12)Tipo Fluxo FinanceiroSim
tta_cod_finalid_econCharacterx(10)Finalidade econômicaSim
tta_num_id_tit_acr Integer999999999Token Cta ReceberSim

 

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_row_movto_tit_acr            as Rowid
    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_row_tit_acrRowid
Rowid 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_row_tit_acr                  as Rowid
    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_

...

 

if valid-handle(v_handle_apb731za) then do:

 

run pi_main_con_movtos_pagto_period in v_handle_apb731za(input table liquidac = yes
tt_param_api_con_liquid_Acr.ttv_log_mostra_liquidac_renegoc = yes
tt_param_api_con_pagtos_apb,

 

output table tt_pagtos_periodo,
output table tt_erro_msg).

 

create liquid_Acr.ttv_log_mostra_liq_enctro_cta = no
tt_param_relactoapi_con_titliquid_ap.

 

assign Acr.ttv_log_mostra_perda_dedut = no
tt_param_relactoapi_con_titliquid_apAcr.ttattv_cod_estab = tt_pagtos_periodo.tta_cod_estab 

 

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_2 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*/.