Histórico da Página
...
def temp-table tt_cancelamento_estorno_apb _1 no-undo
field ttv_ind_niv_operac_apb apb as character format "X(10)"
field ttv_ind_tip_operac_apb apb as character format "X(12)"
field tta_cod_estab estab as character format "x(53)" label "Estabelecimento" column-label "Estab"
field tta_num_id_tit_ap ap as integer format "9999999999" initial 0 label "Token Tit AP" column-label "Token Tit AP"
field tta_num_id_movto_tit_ap ap as integer format "9999999999" initial 0 label "Token Movto Tit AP" column-label "Id Tit AP"
field tta_cod_refer refer as character format "x(10)" label "Referência" column-label "Referência"
field tta_dat_transacao as as date format "99/99/9999" initial today label "Data Transa‡ãoTransação" column-label "Dat Transac"
field tta_cod_histor_padr padr as character format "x(8)" label "Histórico Padrão" column-label "Histórico Padrão"
field ttv_des_histor histor as character format "x(40)" label "Contém" column-label "Histórico"
field ttv_ind_tip_estorn estorn as character format "X(10)"
field tta_cod_portador portador as character format "x(5)" label "Portador" column-label "Portador"
field ttv_cod_estab_reembol reembol as character format "x(8)"
field ttv_log_reaber_item item as logical format "Sim/Não" initial yes
field ttv_log_reembol reembol as logical format "Sim/Não" initial yes
field ttv_log_estorn_impto_retid retid as logical format "Sim/Não" initial yes
field tta_cod_estab_ext ext as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
field ttv_rec_tit_ap ap as recid format ">>>>>>9" initial ?
field tta_cdn_fornecedor fornecedor as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
field tta_cod_espec_docto docto as character format "x(3)" label "Espécie Documento" column-label "Espécie"
field tta_cod_ser_docto docto as character format "x(3)" label "Série Documento" column-label "Série"
field tta_cod_tit_ap ap as character format "x(10)" label "Título" column-label "Título"
field tta_cod_parcela parcela as character format "x(02)" label "Parcela" column-label "Parc"
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_estornar_agrupados | Esta temp-table apenas deverá ser definida, não poderá receber valor, é de uso interno. | Entrada |
...
def temp-table tt_estornar_agrupados no-undo
field ttv_num_seq seq as integer format ">>>,>>9" label "SequênciaSeqüência" column-label "Seq"
field tta_nom_abrev abrev as character format "x(15)" label "Nome Abreviado" column-label "Nome Abreviado"
field tta_cod_estab_pagto as pagto as character format "x(53)" label "Estab Pagto" column-label "Estab Pagto"
field tta_cod_refer refer as character format "x(10)" label "Referência" column-label "Referência"
field tta_dat_pagto pagto as date format "99/99/9999" initial today label "Data Pagamento" column-label "Data Pagto"
field tta_cod_estab estab as character format "x(53)" label "Estabelecimento" column-label "Estab"
field tta_cod_espec_docto docto as character format "x(3)" label "Espécie Documento" column-label "Espécie"
field tta_cod_ser_docto docto as character format "x(3)" label "Série Documento" column-label "Série"
field tta_cod_tit_ap as ap as character format "x(10)" label "Título" column-label "Título"
field tta_cod_parcela parcela as character format "x(02)" label "Parcela" column-label "Parc"
field tta_val_movto_ap ap as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Valor Movimento" column-label "Valor Movto"
field tta_ind_modo_pagto pagto as character format "X(10)" label "Modo Modo Pagamento" column-label "Modo Pagto"
field tta_cod_empresa empresa as character format "x(3)" label "Empresa" column-label "Empresa"
field ttv_rec_tit_ap ap as recid format ">>>>>>9" initial ?
field ttv_num_seq_abrev abrev as integer format ">>>9" label "Sq" column-label "Seq"
field tta_ind_trans_ap_abrev as abrev as character format "X(04)" label "Trans Abrev" column-label "Trans Abrev"
field ttv_rec_compl_movto_pagto pagto as recid format ">>>>>>9"
field ttv_rec_movto_tit_ap ap as recid format ">>>>>>9"
field ttv_rec_item_cheq_ap as ap as recid format ">>>>>>9"
field ttv_rec_item_bord_ap ap as recid format ">>>>>>9"
field ttv_rec_item_lote_pagto pagto as recid format ">>>>>>9"
index tt_ind_modo modo
tta_ind_modo_pagto ascendingpagto ascending .
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_log_erros_atualiz | Conterá as informações de erro que poderão ocorrer na execução do programa. | Saída |
...
def temp-table tt_log_erros_atualiz no-undo
field tta_cod_estab as estab as character format "x(53)" label "Estabelecimento" column-label "Estab"
field tta_cod_refer refer as character format "x(10)" label "Referência" column-label "Referência"
field tta_num_seq_refer refer as integer format ">>>9" initial 0 label "Sequência" column-label "Seq"
field ttv_num_mensagem mensagem as integer format ">>>>,>>9" label "Número" column-label "Número Mensagem"
field ttv_des_msg_erro erro as character format "x(60)" label "Mensagem Erro" column-label "Inconsistência"
field ttv_des_msg_ajuda ajuda as character format "x(40)" label "Mensagem Ajuda" column-label "Mensagem Ajuda"
field ttv_ind_tip_relacto relacto as character format "X(15)" label "Tipo Relacionamento" column-label "Tipo Relac"
field ttv_num_relacto relacto as integer format ">>>>,>>9" label "Relacionamento" column-label "Relacionamento"
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_log_erros_estorn_cancel_apb | Conterá as informações de erro que poderão ocorrer na execução do programa. | Saída |
...
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. | |||
tta_cod_estab | character | x(3) / x(5)* | Estabelecimento | tta_cod_estab |
|
| ||
tta_cod_refer | character | x(10) | Referência |
|
| |||
tta_cod_refer |
|
| tta_num_mensagem | integer | >>,>>>,>>9 | Mensagemtta_num_mensagem |
|
|
ttv_des_msg_erro | character | x(60) | Mensagem Erro |
|
| |||
| ttv_des_msg_ | erroajuda | character | x(40) | Mensagem Ajuda |
def temp-table tt_log_erros_estorn_atualiz cancel_apb no-undo
field tta_cod_estab as estab as character format "x(53)" label "Estabelecimento" column-label "Estab"
field tta_cod_refer refer as character format "x(10)" label "Referência" column-label "Referência"
field tta_num_seq_refer mensagem as integer format ">>>9>>,>>>,>>9" initial 0 label "SequênciaMensagem" column-label "SeqMensagem"
field ttv_num_mensagem as integer format ">>>>,>>9" label "Número" column-label "Número Mensagem" field ttv_des_msg_erro erro as character format "x(60)" label "Mensagem Erro" column-label "Inconsistência"
field field ttv_des_msg_ajuda ajuda as character format "x(40)" label "Mensagem Ajuda" column-label "Mensagem Ajuda"
field ttv_ind_tip_relacto as character format "X(15)" label "Tipo Relacionamento" column-label "Tipo Relac"
field ttv_num_relacto as integer format ">>>>,>>9" label "Relacionamento" column-label "Relacionamento"
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_log_erros_estorn_cancel_apb | Conterá as informações de erro que poderão ocorrer na execução do programa. | Saída |
(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. |
tta_cod_estab | x(3) / x(5)* | Estabelecimento | Estabelecimento |
|
|
tta_cod_refer | x(10) | Referência | Referência |
|
|
tta_num_mensagem | >>,>>>,>>9 | Mensagem | Número da Mensagem |
|
|
ttv_des_msg_erro | x(60) | Mensagem Erro | Mensagem de Erro |
|
|
def temp-table tt_log_erros_estorn_cancel_apb no-undo
field tta_cod_estab as character format "x(5)" label "Estabelecimento" column-label "Estab"
field tta_cod_refer as character format "x(10)" label "Referência" column-label "Referência"
field tta_num_mensagem as integer format ">>,>>>,>>9" initial 0 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_msg_ajuda as character format "x(40)" label "Mensagem Ajuda" column-label "Mensagem Ajuda"
.
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_estorna_tit_imptos | Conterá as informações dos títulos que poderão Ter | |
Tabela Temporária | Descrição | Entrada/Saída |
tt_estorna_tit_imptos | Conterá as informações dos títulos que poderão Ter impostos vinculados ao fornecedor, ressaltando que a mesma é de uso interno, e não poderá conter valor, na passagem de parâmetro. | Saída |
...
def temp-table tt_estorna_tit_imptos no-undo
field ttv_cod_refer_imp as imp as character format "x(10)" label "Referência" column-label "Referência"
field ttv_cod_refer refer as character format "x(10)" label "Referência" column-label "Referência"
field ttv_cod_estab_imp as imp as character format "x(53)" label "Estabelec. Impto." column-label "Estab. Imp."
field ttv_cdn_fornecedor_imp imp as Integer format ">>>,>>>,>>9" label "Fornecedor" column-label "Fornecedor"
field ttv_cod_espec_docto_imp imp as character format "x(3)" label "Espécie Documento" column-label "Espécie"
field ttv_cod_ser_docto_imp imp as character format "x(3)" label "Série Documento" column-label "Série"
field ttv_cod_tit_ap_imp imp as character format "x(10)" label "Título" column-label "Título"
field ttv_cod_parcela_imp imp as character format "x(02)" label "Parcela" column-label "Parc"
field ttv_val_tit_ap_imp imp as decimal format "->>>,>>>,>>9.99" decimals 2 label "Valor Título" column-label "Valor Título"
field ttv_val_sdo_tit_ap_imp imp as decimal format "->>>,>>>,>>9.99" decimals 2 label "Valor Saldo" column-label "Valor Saldo"
field ttv_num_id_tit_ap_imp imp as integer format "9999999999" label "Token Tit AP" column-label "Token Tit AP"
field ttv_num_mensagem mensagem as integer format ">>>>,>>9" label "Número" column-label "Número Mensagem"
field ttv_des_mensagem mensagem as character format "x(50)" label "Mensagem" column-label "Mensagem"
field ttv_des_ajuda ajuda as character format "x(50)" label "Ajuda" column-label "Ajuda"
field ttv_cod_estab_2 as 2 as character format "x(53)" label "Estabelecimento" column-label "Estab"
field ttv_cod_estab as estab as character format "x(53)" label "Estabelecimento" column-label "Estabelecimento"
field ttv_cdn_fornecedor fornecedor as Integer format ">>>,>>>,>>9" label "Fornecedor" column-label "Fornecedor"
field ttv_cod_espec_docto docto as character format "x(3)" label "Espécie Documento" column-label "Espécie"
field ttv_cod_ser_docto docto as character format "x(3)" label "Série Docto" column-label "Série"
field ttv_cod_tit_ap ap as character format "x(10)" label "Título Ap" column-label "Título Ap"
field ttv_cod_parcela parcela as character format "x(02)" label "Parcela" column-label "Parc"
field ttv_val_tit_ap ap as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Valor Título" column-label "Valor Título"
field ttv_val_sdo_tit_ap ap as decimal format "->>>,>>>,>>9.99" decimals 2 label "Valor Saldo" column-label "Valor Saldo"
field ttv_num_id_tit_ap ap as integer format "9999999999" label "Token Tit AP" column-label "Token Tit AP"
field ttv_ind_trans_ap_abrev abrev as character format "X(04)" label "Transa‡ãoTransação" column-label "Transa‡ãoTransação"
field ttv_cod_refer_2 2 as character format "x(10)" label "Referência" column-label "Referência"
field ttv_num_order order as integer format ">>>>,>>9" label "Ordem" column-label "Ordem"
field ttv_val_tot_comprtdo comprtdo as decimal format "->>>,>>>,>>9.99" decimals 2
index tt_idimpto idimpto
ttv_cod_estab_imp imp ascending
ttv_cdn_fornecedor_imp imp ascending
ttv_cod_espec_docto_imp imp ascending
ttv_cod_ser_docto_imp imp ascending
ttv_cod_tit_ap_imp ascending imp ascending
ttv_cod_parcela_imp imp ascending
index tt_idimpto_pgef pgef
ttv_cod_estab estab ascending
ttv_cod_refer refer ascending
index tt_idtit_refer refer
ttv_cod_estab_2 ascending 2 ascending
ttv_cdn_fornecedor fornecedor ascending
ttv_cod_espec_docto ascending docto ascending
ttv_cod_ser_docto docto ascending
ttv_cod_tit_ap ap ascending
ttv_cod_parcela parcela ascending
ttv_cod_refer_2 2 ascending
index tt_numsg numsg
ttv_num_mensagem mensagem ascending
index tt_order order
ttv_num_order ascending order ascending
.