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.
...
OBS: Caso tenha migrado para base utilizando rowid e esteja utilizado uma versão inferior a 5 2 da API, deve ser definido a include abaixo:
...
Atributo | Tipo | Formato | Descrição | Obrigatório | Evolução |
tta_cod_modul_dtsul | character | x(3) | Módulo |
| |
tta_num_lote_ctbl | Integer | >>>,>>>,>>9 | Lote Contábil | ||
tta_des_lote_ctbl | character | x(40) | Descrição Lote | ||
tta_cod_empresa | character | x(3) | Empresa | ||
tta_dat_lote_ctbl | date | 99/99/9999 | Data Lote Contábil | ||
ttv_ind_erro_valid | character | x(8) | |||
tta_log_integr_ctbl_online | logical | Sim/Não | Integração Online | ||
ttv_row_integr_lote_ctbl | rowid |
...
def temp-table tt_integr_lote_ctbl_1 new no-undo
field tta_cod_modul_dtsul as character format "x(3)" label "Módulo" column-label "Módulo"
...
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ábilttv_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_lancto_ctbl as Rowid
index tt_id is primary unique
ttv_row_integr_lote_ctbl 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çãottv_row_integr_lancto_ctbl | rowid |
| tta_num_seq_lancto_ctbl | integer | >>>>9 | Sequência LançtoLançamento | ||
tta_ind_natur_lancto_ctbl | character | x(2) | Natureza | |||
tta_cod_plano_cta_ctbl | character | x(8) | PlanoContasPlano 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) | Unid 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 CPartidaContra-Partida | |||
ttv_ind_erro_valid | character | X(8) | ||||
tta_cod_ccusto | character | x(11) | Centro Custo | |||
tta_cod_proj_financ | character | x(20) | Projeto | |||
ttv_row_integr_lancto_ctbl | rowid | |||||
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 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 tta_cod_cta_ctbl field tta_cod_cta_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 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 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 lancto_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 ctbl ascending
tta_num_seq_lancto_ctbl ascending
index tt_rowid
lancto_ctbl ascending
index tt_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) | Unid 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 | Apropriacao Lançto | ttv_row_integr_item_lancto_ctbl | rowid | Apropriação Lançamento | ||
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:
...
- Se o atributo tt_integr_lote_ctbl.ttv_ind_erro_valid = “Não”, o lote está na contabilidade do EMS 5.0;
- Senão o lote apresentou inconsistência, que podem ser vistas no relatório (se impresso) ou nos registros da tabela temporária tt_integr_ctbl_valid_new;
- Para que se tenha o rastreamento das apropriações geradas, a temp-table de apropriação retorna o atributo tta_num_id_aprop_lancto_ctbl com o valor do “token” da apropriação gerada na contabilidade;.