Linha Datasul

Árvore de páginas

Versões comparadas

Versão antiga 113

changes.mady.by.user Danieli Deschamps Kruger

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Cristiane Wolfgramm Rauffmann

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

...

A sintaxe para a chamada da API é:

define variable v_hdl_api as handle      nohandle      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.

run pi_main_api_lote_ctbl_recebto_2 in v_hdl_api
                                                                                        (input 3,
                                             input                                              input "Aborta Tudo",

                                             input yes,

                                             input 66,

                                             input "Apropriação",

                                             input "Com Erro",

                                             input yes,

                                             input yes,

                                             input                                             input yes,
                                             input 66,
                                             input "Apropriação",
                                             input "Com Erro",
                                             input yes,
                                             input yes,
                                             input-output table tt_integr_lote_ctbl_new,
                                             input-output table tt_integr_lancto_ctbl_new,
                                             input-output table tt_integr_item_lancto_ctbl_new,
                                             input-output table tt_integr_loteaprop_lancto_ctbl_new,
                                             input                                             input-output table tt_integr_lanctoctbl_ctblvalid_new,
                                             input                                             input-output table tt_integrapi_item_lancto_ctbl_new,

                                             input-output table tt_integr_aprop_lancto_ctbl_new,

                                             input-output table tt_integr_ctbl_valid_new,

                                             input-output table tt_api_params_generic).

run pi_finalizar_fgl900zo in v_hdl_api.

params_generic).

run pi_finalizar_fgl900zo in v_hdl_api.
delete procedure v_hdl_api.


OBS: Caso tenha migrado para base utilizando rowid e esteja utilizado uma versão inferior a 2 da API, deve ser definido a include abaixo:

/*-- Filtro RECID x ROWID Aplicado --*/
{include/i_fncrowid.i}

E todas variáveis do tipo RECID, devem serem definidas conforme o modelo abaixo:

field ttv_rec_integr_lote_ctbl          as &IF "{&ROWID_READY}" = "YES" &THEN rowid &ELSE recid format ">>>>>>9" &ENDIFdelete procedure v_hdl_api.



Os parâmetros de entrada são:

...

  1. Tabela Temporária com os dados do(s) Lote(s) à ser(em) gerado(s);
  2. Tabela Temporária com os dados do(s) Lançamento(s) à ser(em) gerado(s);
  3. Tabela Temporária com os dados do(s) Iten(s) à ser(em) gerado(s);
  4. Tabela Temporária com os dados da(s) Apropriaçõ(es) à ser(em) gerada(s);
  5. Tabela Temporária que conterá os possíveis erros da integração;
  6. Tabela Genérica contendo campos de entradas ou saídas que poderão estar relacionadas a qualquer uma das temp-tables acima citadas.

...

Tabelas Temporárias

Nos atributos das tabelas temporárias de entrada e saída:

...

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á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 lancto_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çamento" column-label "Data Lançto"    Lan?amento" column-label "Data Lan?to"
    field ttv_row_integr_lote_ctbl         as Rowid
    field ttv_row_integr_lancto_ctbl       as rowid

    index tt_id                            is primary unique

          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     field tta_cod_cta_ctbl                 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 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 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       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)(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ç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                   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 


        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(100)" 8)" 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;.