Histórico da Página

...

def temp-table tt_input_leitura_sdo no-undo

    field ttv_cod_label                    label                       as character format "x(8)" label "Label" column-label "Label"

    field ttv_des_conteudo                 as conteudo                as character format "x(40)" label "Texto" column-label "Texto"

...

    field ttv_num_seq_2                    as integer format ">>>>,>>9"

    index tt_ID                            ID                                 is primary

          ttv_num_seq_1                    1                     ascending

    .

2) Tabela retorna saldo contábil

...

          tta_cod_plano_cta_ctbl           ctbl         ascending

          tta_cod_cta_ctbl                 ascendingctbl                  ascending

    index tt_id                            is primary uniqueid                                 is primary unique

          tta_cod_empresa                  empresa                 ascending

          tta_cod_finalid_econ             ascendingecon            ascending

          tta_cod_plano_cta_ctbl           ctbl         ascending

          tta_cod_cta_ctbl                 ascendingctbl                  ascending

          tta_cod_plano_ccusto             ccusto           ascending

          tta_cod_ccusto                   ccusto                     ascending

          tta_cod_proj_financ              ascendingfinanc              ascending

          tta_cod_cenar_ctbl               ctbl               ascending

          tta_cod_estab                    ascendingestab                      ascending

          tta_cod_unid_negoc               negoc             ascending

          tta_dat_sdo_ctbl                 ascendingctbl                  ascending

          tta_num_seq                      ascendingseq                        ascending

    index tt_id2                         

          tta_cod_empresa                  ascendingempresa                 ascending

          tta_cod_finalid_econ             ascendingecon            ascending

          tta_cod_plano_cta_ctbl           ascendingctbl        ascending

          tta_cod_cta_ctbl                 ascendingctbl                  ascending

          tta_cod_proj_financ              financ             ascending

          tta_cod_cenar_ctbl               ascendingctbl              ascending

          tta_cod_estab                    estab                     ascending

          tta_cod_unid_negoc               _unid_negoc             ascending

          tta_dat_sdo_ctbl                 ascending

    index tt_seq                         

          tta_num_seq                      ascendingseq                       ascending

    .

3) Tabela de erros

...

def temp-table tt_log_erros no-undo

    field ttv_num_seq                      as seq                        as integer format ">>>,>>9" label "Seqüência" column-label "Seq"

    field ttv_num_cod_erro                 as integer format ">>>>,>>9" label "Número" column-label "Número"

    field ttv_des_erro                     erro                         as character format "x(50)" label "Inconsistência" column-label "Inconsistência"

    field ttv_des_ajuda                    as ajuda                      as character format "x(50)" label "Ajuda" column-label "Ajuda"

...

define temp-table tt_input_leitura_sdo no-undo

    field ttv_cod_label     label         as character format "x(8)" label "Label" column-label "Label"

    field ttv_des_conteudo  as character format "x(40)" label "Texto" column-label "Texto"

    field ttv_num_seq_1     as 1      as integer format ">>>,>>9"

    field ttv_num_seq_2     as 2      as integer format ">>>>,>>9".

...

    field tta_num_seq                              as int format ">>>,>>9" init 0 label "Sequência" column-label "NumSeq"

    field tta_cod_empresa                        as char format "x(3)" label "Empresa" column-label "Empresa"

    field tta_cod_finalid_econ                   as char format "x(10)" label "Finalidade" column-label "Finalidade"

    field tta_cod_plano_cta_ctbl               as char format "x(8)" label "Plano Contas" column-label "Plano Contas"

    field tta_cod_cta_ctbl                as                         as char format "x(20)" label "Conta Contábil" column-label "Conta Contábil"

    field tta_cod_plano_ccusto                 as char format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"

    field tta_cod_ccusto                  as              as char format "x(11)" label "Centro Custo" column-label "Centro Custo"

    field tta_cod_proj_financ                    as char format "x(20)" label "Projeto" column-label "Projeto"

    field tta_cod_cenar_ctbl              ctbl                     as char format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"

    field tta_cod_estab                   as estab                            as char format "x(3)" label "Estabelecimento" column-label "Estab"

    field tta_cod_unid_negoc                    as char format "x(3)" label "Unid Negócio" column-label "Un Neg"

    field tta_dat_sdo_ctbl                         as date format "99/99/9999" init ? label "Data Saldo Contábil" column-label "Data Saldo Contábil"

    field tta_val_sdo_ctbl_db             as db                    as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Movto Débito" column-label "Movto Débito"

    field tta_val_sdo_ctbl_cr             as          as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Movto Crédito" column-label "Movto Crédito"

    field tta_val_sdo_ctbl_fim            as fim                   as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Saldo Contábil Final" column-label "Saldo Contábil Final"

    field tta_val_apurac_restdo                 as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apuração Resultado" column-label "Apuração Resultado"

    field tta_val_apurac_restdo_db            as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apuração Restdo DB" column-label "Apuração Restdo DB"

    field tta_val_apurac_restdo_cr             as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apuração Restdo CR" column-label "Apuração Restdo CR"

    field tta_val_apurac_restdo_acum      as acum        as dec format "->>>>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apuracao Final" column-label "Apuracao Final"

    field tta_val_sdo_ctbl_db_sint             as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Movto Débito Sint" column-label "Movto Débito Sint"

    field tta_val_sdo_ctbl_cr_sint              as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Movto Crédito Sint" column-label "Movto Crédito Sint"

    field tta_val_sdo_ctbl_fim_sint            as dec format "->>>>,>>>,>>>,>>9.99" decimals 2 init 0 label "Saldo Sintético" column-label "Saldo Sintético"

    field tta_val_apurac_restdo_sint      as sint          as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apuracao Resultado" column-label "Apuracao Resultado"

    field tta_val_apurac_restdo_sint_db   db     as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apur Restdo Sint DB" column-label "Apur Restdo Sint DB"

    field tta_val_apurac_restdo_sint_cr   as cr      as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apur Restdo Sint CR" column-label "Apur Restdo Sint CR"

    field tta_val_apurac_restdo_sint_acum as dec format "->>>>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apur Result Sint" column-label "Apur Result Sint"

    field tta_val_movto_empenh            empenh               as dec format "->>,>>>,>>>,>>9.99" decimals 9 init 0 label "Movto Empenhado" column-label "Movto Empenhado"

    field tta_qtd_sdo_ctbl_db             as db                   as dec format ">>>,>>>,>>9.99" decimals 2 init 0 label "Quantidade DB" column-label "Quantidade DB"

    field tta_qtd_sdo_ctbl_cr             as cr                    as dec format ">>>,>>>,>>9.99" decimals 2 init 0 label "Quantidade CR" column-label "Quantidade CR"

    field tta_qtd_sdo_ctbl_fim            _ctbl_fim                   as dec format "->>>,>>>,>>9.99" decimals 2 init 0 label "Quantidade Final" column-label "Quantidade Final"

    field ttv_val_movto_ctbl              as ctbl                      as dec format ">>>,>>>,>>>,>>9.99" decimals 2

    field tta_qtd_movto_empenh            empenh               as dec format "->>>>,>>9.9999" decimals 4 init 0 label "Qtde Movto Empenhado" column-label "Qtde Movto Empenhado"

    index tt_id                                         is primary unique

          tta_cod_empresa                 empresa                         ascending

          tta_cod_finalid_econ            econ                    ascending

          tta_cod_plano_cta_ctbl          ascending             ascending

          tta_cod_cta_ctbl                ctbl                          ascending

          tta_cod_plano_ccusto            ascendingccusto                   ascending

          tta_cod_ccusto                  ascendingccusto                            ascending

          tta_cod_proj_financ                      ascending

          tta_cod_cenar_ctbl              ascending                   ascending

          tta_cod_estab                             ascending

          tta_cod_unid_negoc                     ascending

          tta_dat_sdo_ctbl                ascendingctbl                          ascending

    index tt_seq

          tta_num_seq                     seq                               ascending.

/* (4º Parâmetro)*/

 def temp-table tt_log_erros no-undo

    field ttv_num_seq       as seq          as integer format ">>>,>>9" label "Seqüência" column-label "Seq"

    field ttv_num_cod_erro  as integer format ">>>>,>>9" label "Número" column-label "Número"

    field ttv_des_erro      as erro          as character format "x(50)" label "Inconsistência" column-label "Inconsistência"

    field ttv_des_ajuda     as ajuda        as character format "x(50)" label "Ajuda" column-label "Ajuda".

...