Árvore de páginas

Versões comparadas

Chave

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

...

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_tit_acr_liquid_un_old

Movimentos de liquidação por período e unidade de negócio


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_rec_movto_tit_acr &IF "{&ROWID_READY}" = "YES" &THEN rowid &ELSE recidIF recid THEN ">>>>>>9"Rowid/recid 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_old 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 &IF "{&ROWID_READY}" = "YES" &THEN rowid &ELSE recid format ">>>>>>9" &ENDIF
    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
    .

...


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_param_relacto_tit_acr_old

Títulos relacionados

Saída

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

tta_val_relacto_tit_acr

Decimal

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

Valor relacionado

Sim


tta_dat_gerac_movto

Date

99/99/9999

Data geração movimento

Sim


 tta_hra_gerac_movto

Character

99:99:99

Hora geração

Sim


ttv_rec_tit_acr&IF "{&ROWID_READY}" = "YES" &THEN rowid &ELSE recidIF recid THEN ">>>>>>9"Rowid/recid 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_old 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 &IF "{&ROWID_READY}" = "YES" &THEN rowid &ELSE recid format ">>>>>>9" &ENDIF
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"
.

...

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,
output table tt_erro_msg) /*pi_main_con_movtos_pagtoliquid_period_12*/.