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

...

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

...

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

Sim

 

ttv_cod_estab_fim

Character

x(5)

Estabelecimento

Sim

 
ttv_cod_espec_docto_iniCharacterx(3)Código Espécie InicialSim 
ttv_cod_espec_docto_fimCharacterx(3)Código Espécie FinalSim 
      
      
      
      
      
      

 

 

def temp-table tt_param_api_con_liquid_Acr no-undo

...

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

...

Integer

...

>>>,>>>,>>9

...

Cliente inicialSim
ttv_cdn_cliente_fim

...

Integer

...

>>>,>>>,>>9

...

Cliente finalSim
ttv_cod_indic_econ_ini

...

Characterx(8)

...

Moeda InicialSim
ttv_cod_indic_econ_fim

...

Characterx(8)

...

Moeda FinalSim
ttv_cod_portador_

...

ini Characterx(5)

...

Portador InicialSim
ttv_cod_portador_

...

fim Characterx(5)

...

Portador Final

...

Sim

...


ttv_dat_transacao_

...

ini Date99/99/9999

...

Data Transação inicialSim
ttv_dat_transacao_fim

...

Date99/99/9999

...

Data transação finalSim
ttv_dat_liquidac_

...

iniDate99/99/9999

...

Data

...

Liquidação inicialSim
ttv_dat_liquidac_fim

...

Date99/99/9999

...

Data Liquidação finalSim
ttv_cod_proces_export_

...

ini Characterx(12)

...

Processo Exportação

...

sim
ttv_cod_proces_export_

...

fim Characterx(12)

...

Processo Exportaçãosim
ttv_log_mostra_liquidac_pagto

...

Logicalyes/noLiquidação c/ Pagto

...

sim

...


ttv_log_mostra_liquidac_antecip

...

Logicalyes/noLiquidação contra AN

...

sim

...


ttv_log_mostra_liquidac_estorn

...

Logicalyes/noLiquid. Estornadas

...

Sim

...


ttv_cod_finalid_econ

...

Characterx(10)

...

Finalidade Econômica

...

sim
ttv_dat_cotac_indic_econ

...

Date99/99/9999

...

Data Cotaçãosim
ttv_log_mostra_normal

...

Logicalyes/noMostra título normalsim
ttv_log_mostra_antecip

...

Logicalyes/noMostra título Antecipaçãosim
ttv_log_mostra_prev

...

Logicalyes/noMostra Previsãosim
ttv_log_mostra_ndebito

...

Logicalyes/noMostra nota de débitosim
ttv_log_mostra_cheq

...

Logicalyes/noMostra título de chequesim
ttv_log_mostra_aviso_db

...

Logicalyes/noMostra Aviso de débitosim
ttv_log_mostra_docto_vendor

...

Logicalyes/noVendorsim
ttv_log_mostra_liquidac

...

Logicalyes/noLiquidaçãosim
ttv_log_mostra_liquidac_renegoc

...

Logicalyes/noRenegociaçãosim
ttv_log_mostra_liq_enctro_cta

...

Logicalyes/noLiquidação encontro de contassim
ttv_log_mostra_perda_dedut

...

Logicalyes/noPerda dedutívelsim
ttv_log_mostra_transf_estab

...

Logicalyes/noTransferência Estabelecimentosim
ttv_log_mostra_acerto_val_cr

...

Logicalyes/noAcerto Valor a CR

...

sim

...


ttv_log_mostra_acerto_val_menor

...

Logicalyes/noAcerto Valor a Menor

...

sim

...


ttv_log_mostra_devol

...

Logicalyes/noDevoluçãosim
ttv_log_mostra_cta_ctbl

...

Logicalyes/noMostra Contassim
ttv_ind_visualiz_tit_acr_

...

vert characterx(20)

...

Visualiza Títulosim
 ttv_ind_classif_tit_acr

...

Characterx(8)Classificação títulosim
ttv_cod_finalid_econ_apres

...

Characterx(10)

...

Finalidade econômica apresentaçãosim
ttv_log_mostra_tit_relac

...

Logicalyes/noMostra título relacionadosim
ttv_log_mostra_ctbzdo

...

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_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_empresaCharacterx(3)EmpresaSim
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_parcelaCharacterx(02)ParcelaSim
tta_cdn_clienteInteger>>>,>>>,>>9ClienteSim
tta_ind_trans_acr_abrev Characterx(04)Trans AbrevSim
tta_log_movto_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_acrDate99/99/9999CréditoSim
ttv_row_movto_tit_acrRowid
Rowid MovimentoSim
tta_num_id_movto_tit_acrInteger"999999999"Token Movto Tit ACRSim
tta_nom_abrevCharacterx(15)Nome AbreviadoSim
tta_nom_pessoaCharacterx(40)NomeSim
tta_cod_indic_econCharacterx(8)MoedaSim
tta_ind_espec_doctoCharacterx(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.

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

 

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

...

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

...

 

if valid-handle(v_handle_apb731za) then do:

 

run pi_main_con_movtos_pagto_period in v_handle_apb731za(input table vendor = no
tt_param_api_con_liquid_Acr.ttv_log_mostra_liquidac = yes
tt_param_api_con_liquid_Acr.ttv_log_mostra_liquidac_renegoc = yes
tt_param_api_con_liquid_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.

 

Acr.ttv_log_mostra_liq_enctro_cta = no
tt_param_api_con_liquid_Acr.ttv_log_mostra_perda_dedut = no
tt_param_api_con_liquid_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_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*/.