Árvore de páginas

Versões comparadas

Chave

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

...

def temp-table tt_movto_bem_pat_api_b no-undo

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

    field tta_cod_cta_pat                  pat                            as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"

    field tta_num_bem_pat                  pat                          as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"

    field tta_num_seq_bem_pat                   as integer format ">>>>9" initial 0 label "Sequˆncia Bem" column-label "Sequˆncia"

    field tta_dat_movto_bem_pat                 as date format "99/99/9999" initial today label "Data Movimento" column-label "Data Movimento"

    field tta_ind_trans_calc_bem_pat       pat           as character format "X(18)" initial "Implanta‡Æo" label "Transacao C lculo" column-label "Transacao C lculo"

    field tta_ind_orig_calc_bem_pat             as character format "X(20)" initial "Aquisi‡Æo" label "Origem" column-label "Origem"

    field ttv_ind_tip_movto_bem_pat        pat            as character format "x(15)" label "Tipo Movimento"

    field tta_cod_motiv_desmob             desmob                  as character format "x(3)" label "Motivo Desmobiliza‡Æo" column-label "Mot Desmob"

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

    field tta_cod_indic_econ               econ                        as character format "x(8)" label "Moeda" column-label "Moeda"

    field tta_val_fatur_desmob             desmob                    as decimal format ">>>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Faturado" column-label "Val Faturado"

    field tta_val_origin_movto_bem_pat     pat        as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Original Movto" column-label "Valor Original Movto"

    field tta_val_perc_movto_bem_pat       pat          as decimal format "->>>>,>>>,>>9.9999999" decimals 7 initial 0 label "Percentual Movimento" column-label "Percentual Movimento"

    field tta_qtd_movto_bem_pat            pat                 as decimal format ">>>>>>>>9" initial 0 label "Quantidade Movto" column-label "Quantidade Movto"

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

    field tta_cod_ccusto_respons           respons                 as Character format "x(11)" label "CCusto Responsab" column-label "CCusto Responsab"

    field tta_cod_unid_negoc               as negoc                      as character format "x(3)" label "Unid Neg¢cio" column-label "Un Neg"

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

    field ttv_ind_sit_movto_bem_pat        as pat            as character format "X(08)"

    field ttv_des_erro_api_movto_bem_pat   as character format "x(60)"

    field tta_num_pessoa_jurid                    as integer format ">>>,>>>,>>9" initial 0 label "Pessoa Jur¡dica" column-label "Pessoa Jur¡dica"

    field tta_cod_ender_entreg                    as character format "x(15)" label "Endere‡o Entrega" column-label "Endere‡o Entrega"

    field tta_cod_localiz                              as character format "x(12)" label "Localiza‡Æo" column-label "Localiza‡Æo"

    index tt_id                            id                                           is primary unique

          tta_cod_empresa                  ascendingempresa                           ascending

          tta_cod_cta_pat                  ascendingpat                             ascending

          tta_num_bem_pat                          ascending

          tta_num_seq_bem_pat              pat                   ascending

          tta_dat_movto_bem_pat            pat                 ascending

    .

Execução

 

Na execução da API ocorrem as seguintes validações:

...