Histórico da Página

...

define variable v_hdl_api as handle      no-undo.
def new shared stream s_1. /*USADO QUANDO EMITE RELATÓRIO É IHUAL IGUAL A SIM*/

run prgfin/fgl/fgl900zo.py persistent set v_hdl_api.

...

def def  temp-table tt_integr_lancto_ctbl_new no-undo
        field tta_cod_cenar_ctbl               ctbl               as character format "x(8)" label "Cenário ContábilCen rio Cont bil" column-label "Cenário ContábilCen rio Cont bil"
        field tta_log_lancto_conver            as conver            as logical format "Sim/NãoN’o" initial no label "Lançamento ConversãoLan?amento Convers’o" column-label "Lançto Lan?to Conv"
        field tta_log_lancto_apurac_restdo     restdo     as logical format "Sim/NãoN’o" initial no label "Lançamento ApuraçãoLan?amento Apura?’o" column-label "Lancto ApuraçãoApura?’o"
        field tta_cod_rat_ctbl                 ctbl                 as character format "x(8)" label "Rateio ContábilCont bil" column-label "Rateio"

    field ttv_row_integr_lote_ctbl         as rowid 

    field     field tta_num_lancto_ctbl              as ctbl              as integer format ">>,>>>,>>9" initial 10 label "Lançamento ContábilLan?amento Cont bil" column-label "Lançamento ContábilLan?amento Cont bil"
        field ttv_ind_erro_valid               valid               as character format "X(08)" initial "NãoN’o"
        field tta_dat_lancto_ctbl              as ctbl              as date format "99/99/9999" initial ? label "Data LançamentoLan?amento" column-label "Data LançtoLan?to"
        field ttv_row_integr_lancto_ctbl       as rowid

    index tt_id                            is primary unique

          lote_ctbl         as Rowid
    field ttv_row_integr_lote_ctbl         ascending          lancto_ctbl       as Rowid
    index tt_id                            is primary unique
          ttv_row_integr_lote_ctbl         ascending
          tta_num_lancto_ctbl              ascending    ctbl              ascending
    index tt_rowid                                 rowid                        
          ttv_row_integr_lancto_ctbl       ascending.ctbl       ascending
    .          

3) Temp-table de Itens de Lançamento Contábeis

...

def def  temp-table tt_integr_item_lancto_ctbl_new no-undo

    field ttv_row_integr_lancto_ctbl       as rowid 

    -undo
    field tta_num_seq_lancto_ctbl          as ctbl          as integer format ">>>>9" initial 0 label "Sequência LançtoSequ?ncia Lan?to" column-label "Sequência LançtoSequ?ncia Lan?to"
        field tta_ind_natur_lancto_ctbl        as ctbl        as character format "X(02)" initial "DB" label "Natureza" column-label "Natureza"
        field tta_cod_plano_cta_ctbl           ctbl           as character format "x(8)" label "Plano Contas" column-label "Plano Contas"
    field     field tta_cod_cta_ctbl                 ctbl                 as character format "x(20)" label "Conta ContábilCont bil" column-label "Conta ContábilCont bil"
        field tta_cod_plano_ccusto             ccusto             as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"
    field   field tta_cod_estab                    as estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"
        field tta_cod_unid_negoc               negoc               as character format "x(3)" label "Unid NegócioNeg½cio" column-label "Un Neg"
        field tta_cod_histor_padr              as              as character format "x(8)" label "Histórico PadrãoHist½rico Padr’o" column-label "Histórico PadrãoHist½rico Padr’o"
        field tta_des_histor_lancto_ctbl       ctbl       as character format "x(2000)" label "Histórico ContábilHist½rico Cont bil" column-label "Histórico ContábilHist½rico Cont bil"
        field tta_cod_espec_docto              as docto              as character format "x(3)" label "Espécie DocumentoEsp?cie Documento" column-label "Esp?cie"
        field tta_dat_docto                    as docto                    as date format "99/99/9999" initial ? label "Data Documento" column-label "Data Documento"
        field tta_des_docto                    as docto                    as character format "x(25)" label "Número Nœmero Documento" column-label "Número Nœmero Documento"
        field tta_cod_imagem                   imagem                   as character format "x(30)" label "Imagem" column-label "Imagem"
        field tta_cod_indic_econ               econ               as character format "x(8)" label "Moeda" column-label "Moeda"
        field tta_dat_lancto_ctbl              as ctbl              as date format "99/99/9999" initial ? label "Data LançamentoLan?amento" column-label "Data LançtoLan?to"
        field tta_qtd_unid_lancto_ctbl         ctbl         as decimal format ">>,>>>,>>9.99" decimals 2 initial 0 label "Quantidade" column-label "Quantidade"
        field tta_val_lancto_ctbl              as ctbl              as decimal format ">>>>>>>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor LançamentoLan?amento" column-label "Valor LançamentoLan?amento"
        field tta_num_seq_lancto_ctbl_cpart    as cpart    as integer format ">>>9" initial 0 label "Sequência Sequ?ncia CPartida" column-label "Sequência Sequ?ncia CP"
        field ttv_ind_erro_valid               valid               as character format "X(08)" initial "NãoN’o"
        field tta_cod_ccusto                   ccusto                   as Character format "x(1120)" label "Centro Custo" column-label "Centro Custo"
        field tta_cod_proj_financ              as financ              as character format "x(20)" label "Projeto" column-label "Projeto"    "Projeto"
    field ttv_row_integr_lancto_ctbl       as Rowid
    field ttv_row_integr_item_lancto_ctbl  as rowid    ctbl  as Rowid
    index tt_id                            is id                            is primary unique
                    ttv_row_integr_lancto_ctbl       ctbl       ascending
                    tta_num_seq_lancto_ctbl          ascending

    index tt_rowid                       

          ctbl          ascending
    index tt_rowid                        
          ttv_row_integr_item_lancto_ctbl  ascending.ctbl  ascending
    .    

4) Temp-table de Apropriações Contábeis

...

def def  temp-table tt_integr_aprop_lancto_new no-undo
        field tta_cod_finalid_econ             as econ             as character format "x(10)" label "Finalidade" column-label "Finalidade"
        field tta_cod_unid_negoc               negoc               as character format "x(3)" label "Unid NegócioNeg½cio" column-label "Un Neg"
        field tta_cod_plano_ccusto             ccusto             as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"
        field tta_qtd_unid_lancto_ctbl         ctbl         as decimal format ">>,>>>,>>9.99" decimals 2 initial 0 label "Quantidade" column-label "Quantidade"
        field tta_val_lancto_ctbl              as ctbl              as decimal format ">>>>>>>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor LançamentoLan?amento" column-label "Valor LançamentoLan?amento"
        field tta_num_id_aprop_lancto_ctbl     ctbl     as integer format "9999999999999999999" initial 0 label "Apropriacao LançtoLan?to" column-label "Apropriacao Lançto"

    field ttv_row_integr_item_lancto_ctbl  as rowid 

    Lan?to"
    field tta_dat_cotac_indic_econ         econ         as date format "99/99/9999" initial ? label "Data CotaçãoCota?’o" column-label "Data CotaçãoCota?’o"
        field tta_val_cotac_indic_econ         econ         as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "CotaçãoCota?’o" column-label "CotaçãoCota?’o"
        field ttv_ind_erro_valid               valid               as character format "X(08)" initial "NãoN’o"
        field tta_ind_orig_val_lancto_ctbl     ctbl     as character format "X(10)" initial "Informado" label "Origem Valor" column-label "Origem Valor"
    field tta_cod_ccusto                       field tta_cod_ccusto                   as Character format "x(1120)" label "Centro Custo" column-label "Centro Custo"   
    field ttv_row_integr_item_lancto_ctbl  as Rowid
    field ttv_row_integr_aprop_lancto_ctbl as rowid Rowid
        index tt_id                            is id                            is primary unique
                    ttv_row_integr_item_lancto_ctbl  ascending          ctbl  ascending
          tta_cod_finalid_econ             ascending          finalid_econ             ascending
          tta_cod_unid_negoc               negoc               ascending
                    tta_cod_plano_ccusto             ascending          ccusto             ascending
          tta_cod_ccusto                   ccusto                   ascending
        index tt_rowid                                 rowid                        
          ttv_row_integr_aprop_lancto_ctbl ascending
    .

5) Temp-table com os Erros da Integração

...

def  def new shared temp-table tt_integr_ctbl_valid_new no-undo
        field ttv_row_integr_ctbl              as rowid     field ttv_num_mensagem                 num_mensagem                 as integer format ">>>>,>>9" label "NúmeroNœmero" column-label "Número Nœmero Mensagem"
        field ttv_ind_pos_erro                 as erro                 as character format "X(08)" label "Posição"

    index tt_id                            is primary unique

          Posi?’o"
    field ttv_row_integr_ctbl              as Rowid
    index tt_id                            is primary unique
          ttv_row_integr_ctbl              ascending          ctbl              ascending
          ttv_num_mensagem                 ascendingmensagem                 ascending
    .

6) Temp-table genérica para passagem de campos relacionadas a qualquer uma das temp-tables acima, utilizada para evitar que a API em questão tenha novas evoluções caso campos novos sejam necessários.

...