Histórico da Página

...

def temp-table tt-tot-tit

    field referencia     as character format "x(10)"

    field ep-codigo      as integer   format ">>9"

    field cod-empresa    as character format "x(3)"

    field cod-estabel    as character format "x(3)"

    field cod-estab-ems5 as character format "x(3)"

    field cod-fornec     as integer   format ">>>>>9"

    field cod-esp        as character format "!!"

    field serie          as character format "x(5)"

    field nr-docto       as character format "x(16)"

    field tot-saldo      as decimal   format ">>>>>>>,>>9.99"

    field tot-baixa      as decimal   format ">>>>>>>,>>9.99"

    field mo-codigo      as integer   format ">9"

    field cotacao-dia    as decimal   format ">>>,>9.99999999"

    field dt-trans       as date      format "99/99/9999"

    field nr-docto-cr    as character format "x(16)"

    field serie-cr       as character format "x(5)"

    field cod-esp-cr     as character format "!!"

    field tp-codigo      as integer   format ">>9"

    field conta-debito   as character format "x(17)"

    field sequencia      as   integer

    field erro           as logical   format "Sim/NÆo" /*l_sim_nao*/

    index seq            is primary unique

          sequencia

    index titulo

          serie

          nr-docto.

def temp-table tt-titulo

    field sequencia     as  integer

    field parcela       as character format "x(02)"

    field vl-saldo      as decimal   format ">>>>>>>,>>9.99"

    field vl-baixa      as decimal   format ">>>>>>>,>>9.99"

    field ind-baixa     as logical

    index titulo        is primary

          sequencia

          ind-baixa.

def new shared temp-table tt_log_erros_atualiz no-undo

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

    field tta_cod_refer                    as character format "x(10)" label "Referˆncia" column-label "Referˆncia"

    field tta_num_seq_refer                as integer format ">>>9" initial 0 label "Sequˆncia" column-label "Seq"

    field ttv_num_mensagem                 as integer format ">>>>,>>9" label "N£mero" column-label "N£mero 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"

    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"

    .