Árvore de páginas

Versões comparadas

Chave

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

...

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

...

erro

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_ajudacharacterx(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
      .