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.

...

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
tta_cod_cenar_ctbl	character	x(8)	Cenário Contábil
tta_log_lancto_conver	logical	Sim/Não	Lançamento Conversão
tta_log_lancto_apurac_restdo	logical	Sim/Não	Lançamento Apuração
tta_cod_rat_ctbl	character	x(8)	Rateio Contábil	ttv_row_integr_lote_ctbl	rowid
tta_num_lancto_ctbl	integer	>>,>>>,>>9	Lançamento Contábil
ttv_ind_erro_valid	character	x(8)
tta_dat_lancto_ctbl	date	99/99/9999	Data Lançamento
ttv_row_integr_lote_ctbl	rowid
ttv_row_integr_lancto_ctbl	rowid

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

...

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução	ttv_row_integr_lancto_ctbl	rowid
tta_num_seq_lancto_ctbl	integer	>>>>9	Sequência Lançamento
tta_ind_natur_lancto_ctbl	character	x(2)	Natureza
tta_cod_plano_cta_ctbl	character	x(8)	Plano Contas
tta_cod_cta_ctbl	character	x(20)	Conta Contábil
tta_cod_plano_ccusto	character	x(8)	Plano Centros Custo
tta_cod_estab	character	x(3) / x(5)*	Estabelecimento
tta_cod_unid_negoc	character	x(3)	Unidade Negócio
tta_cod_histor_padr	character	x(8)	Histórico Padrão
tta_des_histor_lancto_ctbl	character	x(2000)	Histórico Contábil
tta_cod_espec_docto	character	x(3)	Espécie Documento
tta_dat_docto	date	99/99/9999	Data Documento
tta_des_docto	character	x(25)	Número Documento
tta_cod_imagem	character	x(30)	Imagem
tta_cod_indic_econ	character	x(8)	Moeda
tta_dat_lancto_ctbl	date	99/99/9999	Data Lançamento
tta_qtd_unid_lancto_ctbl	decimal	>>,>>>,>>9.99	Quantidade
tta_val_lancto_ctbl	decimal	>>>>>,>>>,>>9.99	Valor Lançamento
tta_num_seq_lancto_ctbl_cpart	integer	>>>9	Sequência Contra-Partida
ttv_ind_erro_valid	character	X(8)
tta_cod_ccusto	character	x(11)	Centro Custo
tta_cod_proj_financ	character	x(20)		x(20)	Projeto
ttv_row_integr_lancto_ctbl	rowidProjeto
ttv_row_integr_item_lancto_ctbl	rowid

def def temp-table tt_integr_item_lancto_ctbl_new no-undo

field ttv_row_integr_lancto_ctbl as rowid

    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 Documento"    Esp?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 field tta_des_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"
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       ascending          ctbl ascending
tta_num_seq_lancto_ctbl          ascending    ctbl ascending
index tt_rowid                                 rowid
ttv_row_integr_item_lancto_ctbl ascending.ctbl ascending
.

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

...

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
tta_cod_finalid_econ	character	x(10)	Finalidade
tta_cod_unid_negoc	character	x(3)	Unidade Negócio
tta_cod_plano_ccusto	character	x(8)	Plano Centros Custo
tta_qtd_unid_lancto_ctbl	decimal	>>,>>>,>>9.99	Quantidade
tta_val_lancto_ctbl	decimal	>>>>>,>>>,>>9.99	Valor Lançamento
tta_num_id_aprop_lancto_ctbl	integer	9999999999	Apropriação Lançamento	ttv_row_integr_item_lancto_ctbl	rowid
tta_dat_cotac_indic_econ	date	99/99/9999	Data Cotação
tta_val_cotac_indic_econ	decimal	>>>>,>>9.9999999999	Cotação
ttv_ind_erro_valid	character	X(8)
tta_ind_orig_val_lancto_ctbl	character	X(10)	Origem Valor
tta_cod_ccusto	character	X(11)		X(11)	Centro Custo
ttv_row_integr_item_lancto_ctbl	rowidCentro Custo
ttv_row_integr_aprop_lancto_ctbl	rowid

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çtoLan?to"

field ttv_row_integr_item_lancto_ctbl as rowid

    field 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?’o"Cotaçã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                   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

index tt_id is primary unique

          Rowid
index tt_id is primary unique
ttv_row_integr_item_lancto_ctbl ascending          ctbl ascending
tta_cod_finalid_econ             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

...

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
ttv_row_integr_ctbl	rowid	ttv_num_mensagem	integer	>>>>,>>9	Número Mensagem
ttv_ind_pos_erro	character	X(8)	Posição
ttv_row_integr_ctbl	rowid

def def new shared temp-table tt_integr_ctbl_valid_new no-undo

field ttv_row_integr_ctbl as rowid

    -undo
field ttv_num_mensagem                 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.

...

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
ttv_row_id	character	x(80)rowid	RowId de outro registro de temp-table que está relacionada
ttv_cod_tabela	character	x(10028)	Nome da tabela relacionada
ttv_cod_campo	character	x(10035)	Nome do campo a ser passado
ttv_cod_valor	character	x(1008)	Valor do campo, sempre deverá ser convertido para Character.

...

def temp-table tt_api_params_generic no-undo
    field ttv_cod_row_id                       as rowid label "RowId Tabela Relacionada"    id as character format "x(80)"
field ttv_cod_tabela                   tabela as character format "x(10028)" label "Tabela"     column-label "Tabela"
field ttv_cod_campo                    as campo as character format "x(10035)" label "Campo"     column-label "Campo"
field ttv_cod_valor                    as valor as character format "x(1008)" label "Valor" column-label "Valor"
    index tt_idx_param_generic             generic is primary unique
          ttv_cod_tabela                   ascending

ttv_row_id ascending

ttv_cod_campo ascendingtabela ascending
ttv_cod_row_id ascending
ttv_cod_campo ascending
.

Lista de Campo(s) que a API fgl900zo processa e que podem ser passados como parâmetro através da tamp-table tt_params_generic_api:

...

Árvore de páginas

Versões comparadas

Versão antiga 117

Nova versão Atual

Chave