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.

...

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.

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_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_cod_estab_ini	Character	x(5)	Estabelecimento inicial	Sim
ttv_cod_estab

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_cod_estab_ini

Character

x(5)

Estabelecimento inicial

Sim

ttv_cod_estab_fim

Character

x(5)

Estabelecimento final

Sim

ttv_cod_espec_docto_iniCharacterx(3)Código Espécie InicialSim ttv_cod_espec_docto_fimCharacterx(3)Código Espécie FinalSim ttv_cdn_cliente_iniInteger>>>,>>>,>>9Cliente inicialSim ttv_cdn_cliente_fimInteger>>>,>>>,>>9Cliente finalSim ttv_cod_indic_econ_iniCharacterx(8)Moeda InicialSim ttv_cod_indic_econ

_fim

Character

x(

8

5)

Moeda Final

Estabelecimento final

Sim

ttv_cod_espec_

portador

docto_

ini

Character

x(

5

3)

Portador ttv

Código Espécie Inicial

Sim

ttv_cod_espec_

portador

docto_

fim

Character

x(

5

3)

Portador

Código Espécie Final

Sim


ttv_

dat

cdn_

transacao

cliente_

ini

Date99/99/9999

Integer

>>>,>>>,>>9

Cliente

Data Transação

inicial

Sim

ttv_

dat

cdn_

transacao

cliente_fim

Date99/99/9999

Integer

>>>,>>>,>>9

Cliente

Data transação

final

Sim

ttv_cod_

dat

indic_

liquidac

econ_ini

Date99/99/9999Data Liquidação inicialSim

Character	x(8)	Moeda Inicial	Sim
ttv_cod_indic_econ_fim	Character	x(8)	Moeda Final	Sim

ttv_dat_liquidac_fimDate99/99/9999Data Liquidação finalSim


ttv_cod_

proces_export

portador_ini

Character

x(

12

5)

Processo Exportação

Portador Inicial

sim

Sim

ttv_cod_

proces

portador_

export_

fim

Character

x(

12

5)

Processo Exportação

Portador Final

sim

Sim

ttv_

log

dat_

mostra

transacao_

liquidac_pagto

ini

Logicalttv_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

Date

yes/noLiquidação c/ Pagtosim

99/99/9999	Data Transação inicial	Sim
ttv_dat_transacao_fim	Date	99/99/9999	Data transação final	Sim
ttv_dat_liquidac_ini	Date	99/99/9999	Data Liquidação inicial	Sim
ttv_dat_liquidac_fim	Date	99/99/9999	Data Liquidação final	Sim
ttv_cod_proces_export_ini	Character	x(12)	Processo Exportação	sim
ttv_cod_proces_export_fim	Character	x(12)	Processo Exportação	sim

ttv_log_mostra_

normal

liquidac_pagto

Logical

yes/no

Mostra título normal

Liquidação c/ Pagto

sim


ttv_log_mostra_liquidac_antecip	Logical	yes/no

Mostra título Antecipação

Liquidação contra AN

sim

ttv_log_mostra_liquidac_

Logical

yes/no

Mostra Previsãosim

Liquid. Estornadas

Sim


ttv_

log

cod_

mostra

finalid_

ndebito

econ

Logicalyes/no

Character

x(10)

Finalidade Econômica

Mostra nota de débito

sim

ttv_

log

dat_cotac_

mostra

indic_

cheq

econ

Logical

Date

yes

99/99/

no

9999	Data Cotação

Mostra título de cheque

sim

ttv_log_mostra_

aviso_db

normal

Logical

yes/no

Mostra

Aviso de débito

título normal

sim

ttv_log_mostra_

docto_vendor

antecip

Logical

yes/no

Vendor

Mostra título Antecipação

sim

ttv_log_mostra_

liquidac

yes/no

Liquidação

Mostra Previsão

sim


ttv_log_mostra_

liquidac_renegoc

ndebito

Logical

yes/no

Renegociação

Mostra nota de débito

sim


ttv_log_mostra_

liq_enctro_cta

cheq

Logical

yes/no

Liquidação encontro

Mostra título de

contas

cheque

sim


ttv_log_mostra_

perda

aviso_

dedut

db

Logical

yes/no

Perda dedutível

Mostra Aviso de débito

sim

ttv_log_mostra_

transf

docto_

estab

vendor

Logical

yes/no

Transferência Estabelecimento

Vendor

sim


ttv_log_mostra_

acerto_val_cr

liquidac

Logical

yes/no

Acerto Valor a CR

Liquidação

sim

ttv_log_mostra_

acerto

liquidac_

val_menor

renegoc

Logical

yes/no

Acerto Valor a Menor

Renegociação

sim

ttv_log_mostra_liq_enctro_

devol

cta

Logical

yes/no

Devolução

Liquidação encontro de contas

sim

ttv_log_mostra_

cta

perda_

ctbl

dedut

Logical

yes/no

Mostra Contas

Perda dedutível

sim

ttv_

ind

log_

visualiz

mostra_

tit

transf_

acr_vert

estab

characterx(20)

Logical

yes/no

Transferência Estabelecimento

Visualiza Título

sim


ttv_log_mostra_acerto_val_cr	Logical	yes/no	Acerto Valor a CR	sim
ttv_log_mostra_acerto_val_menor	Logical	yes/no	Acerto Valor a Menor	sim

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_relac

devol

Logical

yes/no

Mostra título relacionado

Devolução

sim


ttv_log_mostra_cta_

ctbzdo

ctbl

Logical

yes/no

Mostra

movimento contabilizado

Contas

sim

def temp-table tt_param_api_con_liquid_Acr no-undo


ttv_ind_visualiz_tit_acr_vert	character	x(20)	Visualiza Título	sim
ttv_ind_classif_tit_acr	Character	x(8)	Classificação título	sim
ttv_cod_finalid_econ_apres	Character	x(10)	Finalidade econômica apresentação	sim
ttv_log_mostra_tit_relac	Logical	yes/no	Mostra título relacionado	sim
ttv_log_mostra_ctbzdo	Logical	yes/no	Mostra movimento contabilizado	sim

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 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_cdncod_clienteestab_fim as Integer character format ">>>,>>>,>>9" initial 0 x(5)" label "até" column-label "Cliente Estab Final"
field ttv_cod_indicespec_econ_ini inic as character format "x(83)" label "Moeda" column-label "Espécie Inicial"
field ttv_cod_indicespec_econ_fim as character format "x(83)" label "até" column-label "Final"
field ttv_codcdn_portadorcliente_ini as character Integer format "x(5)" >>>,>>>,>>9" initial 0 label "PortadorCliente" column-label "Portador Cliente Inicial"
field ttv_codcdn_portadorcliente_fim as character Integer format "x(5)" >>>,>>>,>>9" initial 0 label "até" column-label "Portador Cliente Final"
field ttv_datcod_indic_transacaoecon_ini as date character format "99/99/9999" initial today label "Data Transaçãox(8)" label "Moeda" column-label "Data TransaçãoInicial"
field ttv_cod_datindic_transacaoecon_fim as date character format "99/99/9999" initial today x(8)" label "até" column-label "Final"
field ttv_datcod_liquidacportador_inic ini as date character format "99/99/9999x(5)" label "Data de LiquidaçãoPortador" column-label "LiquidaçãoPortador Inicial"
field ttv_datcod_liquidacportador_fim as date character format "99/99/9999x(5)" label "até" column-label "Portador Final"
field ttv_coddat_proces_exporttransacao_ini as character date format "x(12)" label "Processo Exportação99/99/9999" initial today label "Data Transação" column-label "Proc Exp InicialData Transação"
field ttv_coddat_procestransacao_export_fim as character date format "x(12)" 99/99/9999" initial today label "até" column-label "Proc Exp Final"
field ttv_logdat_mostra_liquidac_pagto inic as logical date format "Sim/Não" initial no 99/99/9999" label "Data de Liquidação" column-label "Liquidação c/ Pagto"
field ttv_log_mostradat_liquidac_antecip fim as logical date format "Sim99/99/Não9999" initial no label "Liquidação contra AN"até"
field ttv_logcod_mostraproces_liquidacexport_estorn as logical format "Sim/Não" initial no label "Liquid. Estornadas"
field ttv_cod_finalid_econ as ini as character format "x(1012)" label "Finalidade EconômicaProcesso Exportação" column-label "Finalidade EconômicaProc Exp Inicial"
field ttv_datcod_cotacproces_indicexport_econ fim as date character format "99/99/9999" initial today label "Data Cotaçãox(12)" label "até" column-label "Data CotaçãoProc Exp Final"
field ttv_log_mostra_liquidac_normal pagto as logical format "Sim/Não" initial yes no label "NormalLiquidação c/ Pagto"
field ttv_log_mostra_liquidac_antecip as logical format "Sim/Não" initial no label "Antecipação" column-label "AntecipaçãoLiquidação contra AN"
field ttv_log_mostra_prev liquidac_estorn as logical format "Sim/Não" initial no label "PrevisãoLiquid. Estornadas"
field ttv_logcod_mostrafinalid_ndebito econ as logical character format "Sim/Não" initial no label "Nota de Débito"x(10)" label "Finalidade Econômica" column-label "Finalidade Econômica"
field ttv_dat_logcotac_mostraindic_cheq econ as logical date format "Sim99/99/Não9999" initial yes today label "ChequeData Cotação" column-label "ChequeData Cotação"
field ttv_log_mostra_aviso_db normal as logical format "Sim/Não" initial yes label "Aviso Débito" column-label "Aviso Débito"Normal"
field ttv_log_mostra_docto_vendor antecip as logical format "Sim/Não" initial yes no label "VendorAntecipação" column-label "VendorAntecipação"
field ttv_log_mostra_liquidac prev as logical format "Sim/Não" initial yes no label "LiquidaçãoPrevisão"
field ttv_log_mostra_liquidac_renegoc ndebito as logical format "Sim/Não" initial no label "Liquid RenegociaçãoNota de Débito"
field ttv_log_mostra_liq_enctro_cta cheq as logical format "Sim/Não" initial yes label "Liq Encontro CtasCheque" column-label "Liq Encontro CtasCheque"
field ttv_log_mostra_perdaaviso_dedut db as logical format "Sim/Não" initial no yes label "Liquid Perda DedutAviso Débito" column-label "Liquid Perda DedutAviso Débito"
field ttv_log_mostra_transfdocto_estab vendor as logical format "Sim/Não" initial no yes label "Transf Estabelec"
field Vendor" column-label "Vendor"
field ttv_log_mostra_acerto_val_cr liquidac as logical format "Sim/Não" initial no yes label "Acerto Valor a CRLiquidação"
field ttv_log_mostra_acertoliquidac_val_menor renegoc as logical format "Sim/Não" initial no label "Acerto Valor a MenorLiquid Renegociação"
field ttv_log_mostra_liq_devol enctro_cta as logical format "Sim/Não" initial no yes label "Liq Encontro Ctas" column-label "DevoluçãoLiq Encontro Ctas"
field ttv_log_mostra_ctaperda_ctbl dedut as logical format "Sim/Não" initial yes no label "Liquid Perda Dedut" column-label "Mostra ContasLiquid Perda Dedut"
field ttv_indlog_visualizmostra_tittransf_acr_vert estab as character logical format "X(20)Sim/Não" initial "Por Estabelecimento" no label "Visualiza Título" column-label "Visualiza Título"Transf Estabelec"
field ttv_indlog_mostra_classifacerto_titval_acr cr as character logical format "X(08)"Sim/Não" initial no label "Acerto Valor a CR"
field ttv_log_codmostra_finalidacerto_econval_apres menor as character logical format "x(10)Sim/Não" initial "Corrente" no label "Finalid Apresentação" column-label "Finalid Apresentação"
Acerto Valor a Menor"
field ttv_log_mostra_tit_relac devol as logical format "Sim/Não" initial yes no label "Título relacionadoDevolução"
field ttv_log_mostra_ctbzdo cta_ctbl as logical format "Sim/Não" initial no.

...

Tabela Temporária

...

Descrição

...

Entrada/Saída

...

yes label "Mostra Contas"
field ttv_ind_visualiz_tit_acr_

...

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

...

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_acr_liquid_un	Movimentos de liquidação por Periodo e unidade de negócio	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_ap

Atributo	Tipo	Formato	Descrição	Obrig.	Evol.
tta_cod_empresa	Character	x(3)	Empresa	Sim
tta_cod_estab	Character	x(5)	Estabelecimento	Sim
tta_cod_ser_docto	Character	x(5)	Série documento	Sim
tta_cod_tit_acr

Character

x(16)

Título

Sim


tta_

nom

cod_espec_

pessoa

docto

Character

x(

40

3)

Nome

Espécie Documento

Sim


tta_cod_parcela	Character	x(02)	Parcela	Sim

tta_

dat_vencto_tit_apDate99/99/9999Data VencimentoSim tta_cod_refer

cdn_cliente	Integer	>>>,>>>,>>9	Cliente	Sim
tta_ind_trans_acr_abrev	Character	x(

10

04)

Referência

Trans Abrev

Sim

tta_log_

dat

movto_

pagto

estordo

Date

Logical

99

Yes/

99/9999Data pagamento

No

Movimento estornado

Sim

tta_

cod

log_liquidac_

unid

contra_

negoc

antecip

Characterx(3)Unid NegócioSim

Logical

yes/no

Liquidação contra AN

Sim


tta_

cod

val_

indic_econCharacterx(8)MoedaSim ttv_val_pagto_apb

movto_tit_acr

Decimal

-

>>,

>>>,>>>,>>9.99

Valor

Pagamentottv

Movimento

Sim

tta_

val

dat_

finalid_apres

transacao

Decimal->>,>>>,>>>,>>9.99Valor Finalid ApresSim

Date	99/99/9999	Data Transação	Sim
tta_dat_cr_movto_tit_acr	Date	99/99/9999	Crédito	Sim
ttv_row_movto_tit_acr	Rowid		Rowid Movimento	Sim
tta_num_id_movto_tit_acr	Integer	"999999999"	Token Movto Tit ACR	Sim
tta_nom_abrev	Character	x(15)	Nome Abreviado	Sim
tta_nom_pessoa	Character	x(40)	Nome	Sim
tta_cod_indic_econ	Character	x(8)	Moeda	Sim
tta_ind_espec_docto	Character	x(8)	Espécie Documento	Sim
tta_dat_liquidac_tit_acr	Date	99/99/9999	Liquidação	Sim
tta_dat_vencto_tit_acr	Date	99/99/9999	Data de vencimento	Sim
tta_val_desconto	decimal	->>>,>>>,>>9.99	Valor de desconto	Sim
tta_val_abat_tit_acr

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_ap

Decimal

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

Valor

Multa

abatimento

Sim


tta_val_juros	Decimal

>>>>

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

Valor Juros

Sim

tta_val_

cm

multa_tit_

ap

acr

Decimal

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

Valor

Correção Monetáriatta

multa

Sim

ttv_

val

cod_

desc

proces_

tit_ap

export

Decimal->>>,>>>,>>9.99Valor DescontoSim

character

x(12)

Processo Exportação

Sim


tta_

val

cod_

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

unid_negoc	Character	x(3)	Unidade Negócio	sim
tta_cod_tip_fluxo_financ	Character	x(12)	Tipo Fluxo Financeiro	Sim
tta_cod_finalid_econ	Character	x(10)	Finalidade econômica	Sim
tta_num_id_tit_acr	Integer	999999999	Token Cta Receber	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_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 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çãoLiquidação" column-label "Dat TransacLiquidação"
field tta_dat_cr_movtovencto_tit_acr as date format "99/99/9999" initial ? label "CréditoVencimento" column-label "CréditoVencimento"
field ttvtta_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

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_acr	Rowid		Rowid do título	sim
tta_cod_estab_tit_acr_pai	character	x(5)	Estabelecimento título Pai	Sim
tta_num_id_tit_acr_pai	Integer	9999999999	Token título pai	Sim

def temp-table tt_param_relacto_tit_acr no-undo like tit_acr
def temp-table tt_param_relacto_tit_acr no-undo like tit_acr
field tta_val_relacto_tit_acr as as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Relacto" column-label "Vl Relacto"
field tta_dat_gerac_movto as 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

...

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

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_api_relactocon_titliquid_ap.tta_codAcr.ttv_log_mostra_transf_estab = tt_pagtos_periodo.tta_cod_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 table tt_param_relacto_tit_acr,
output table tt_aprop_ctbl_acr

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

Assunto

Produto:
Versões:
Ocorrência:
Ambiente:
Passo a passo:
Observações:

ttv_cod_portador_fimCharacterx(5)Portador FinalSim/*pi_main_con_movtos_pagto_period_1*/.

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave

Documento de API

Tabelas Temporárias

Tabelas Temporárias

run prgfin/apb/apb431za.p persistent set v_handle_apb731za

Assunto

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave

Documento de API

Tabelas Temporárias

Tabelas Temporárias

run prgfin/apb/apb431za.p persistent set v_handle_apb731za

Assunto