Histórico da Página
...
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_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_cod_espec_docto | Character | x(3) | Espécie Documento | Sim | |
tta_cod_parcela | Character | x(02) | Parcela | Sim | |
tta_cdn_cliente | Integer | >>>,>>>,>>9 | Cliente | Sim | |
tta_ind_trans_acr_abrev | Character | x(04) | Trans Abrev | Sim | |
tta_log_movto_estordo | Logical | Yes/No | Movimento estornado | Sim | |
tta_log_liquidac_contra_antecip | Logical | yes/no | Liquidação contra AN | Sim | |
tta_val_movto_tit_acr | Decimal | ->>>,>>>,>>9.99 | Valor Movimento | Sim | |
tta_dat_transacao | Date | 99/99/9999 | Data Transação | Sim | |
tta_dat_cr_movto_tit_acr | Date | 99/99/9999 | Crédito | Sim | |
ttv_rec_movto_tit_acr | &IF "{&ROWID_READY}" = "YES" &THEN rowid &ELSE recid | IF recid THEN ">>>>>>9" | Rowid/recid 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 | Decimal | ->>>,>>>,>>9.99 | Valor abatimento | Sim | |
tta_val_juros | Decimal | ->>>,>>>,>>9.99 | Valor Juros | Sim | |
tta_val_multa_tit_acr | Decimal | ->>>,>>>,>>9.99 | Valor multa | Sim | |
ttv_cod_proces_export | character | x(12) | Processo Exportação | Sim | |
tta_cod_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_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 recid | IF recid THEN ">>>>>>9" | Rowid/recid 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_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*/.