Documento de API

Produto:	Datasul
Ocorrência:	Documentação de API
Nome Físico	prgfin/fas/fas715ZB

Observação: A partir da release 12.1.2305.

Objetivo

Criar incorporações de bens patrimoniais no módulo de Ativo Fixo do EMS 5.

Funcionamento

Na forma padrão, realiza-se a chamada através de um comando RUN normal, armazenando o programa em uma variável através do comando PERSISTENT e em seguida executando uma PROCEDURE deste programa, passando-se os parâmetros com as informações necessárias.

A sintaxe para a chamada da API é:

DEF VAR v_hdl_program AS HANDLE NO-UNDO.
RUN prgfin\fas\fas715zb.py PERSISTENT SET v_hdl_program.
RUN pi_api_incorp_bem_pat_5 IN v_hdl_program (input table tt_integr_incorp_bem_pat_2,
input table tt_integr_val_origin_bem_pat_1,
input table tt_integr_val_resid_incorp,
output table tt_log_erros_int_inc_bem_pat_1,
input table tt_criacao_bem_pat_item_api_2).
DELETE PROCEDURE v_hdl_program.

Parâmetros

Parâmetro	Descrição
tt_integr_incorp_bem_pat_2	Esta temp-table conterá os registros de incorporações que serão criadas no Ativo Fixo. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.
tt_integr_val_origin_bem_pat_1	Esta temp-table conterá os registros com os valores originais das incorporações que serão criadas. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.
tt_criacao_bem_pat_val_resid	Esta temp-table conterá os registros sobre os valores residuais das incorporações. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.
tt_log_erros_int_inc_bem_pat_1	Esta temp-table conterá os erros ocorridos durante as validações feitas pela API no momento da inclusão da incorporação. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias. Não deverá ser alimentada ao chamar a API.
tt_criacao_bem_pat_item_api_2	Esta temp-table contem os registros com os itens do documento de entrada vinculado à incorporação que está sendo criada. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.

Observações:

- Devem ser geradas algumas temp-tables no programa que chamará a API. Estas temp-tables conterão as informações sobre os bens patrimoniais que serão implantados no Ativo Fixo.

Retorno

A API retornará na tabela temporária tt_log_erros_int_inc_bem_pat_1 todos os erros encontrados ou mensagens de alerta gerados durante o processo de validação dos movimentos.

Quando ocorrer algum erro antes da criação das incorporações, as mesmas não serão criadas.

Observações: Quando a API for executado por um programa externo, logo após a chamada da API, deverá ser criado um tratamento para impressão dos erros. E para a correta visualização dos erros, todos os campos desta tabela devem ser impressos.

Tabelas Temporárias

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

O programa que irá executar a api_criar_bem_pat deverá conter e criar as seguintes tabelas temporárias:

1) Criação de Bem Patrimonial via API

Tabela Temporária	Descrição	Entrada/Saída
tt_integr_incorp_bem_pat_2	Conterá as informações das incorporações a serem implantadas.	Entrada

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
tta_num_id_bem_pat	integer	>>,>>>,>>9	Número de Identificação do Bem ao qual a incorporação será vinculada.	Sim
tta_num_seq_incorp_bem_pat	integer	>>,>>>,>>9	Número da sequência da incorporação do bem.	Sim
tta_cod_cenar_ctbl	character	x(8)	Código do cenário contábil da incorporação do bem, conforme cadastro no UTB076AA/UFN0203AA/UTB304AA - Cenário Contábil.	Não
tta_dat_incorp_bem_pat	date	99/99/9999	Data da incorporação do bem.	Sim
tta_ind_incorp_bem_pat	character	x(20)	Tipo da incorporação do bem.	Sim
tta_des_incorp_bem_pat	character	x(40)	Descrição da incorporação do bem.	Sim
tta_cod_incent_fisc	character	x(8)	Código do do incentivo fiscal da incorporação do bem, quando há um incentivo que justifique a incorporação (depreciação incentivada).	Não
tta_cod_indic_econ	character	x(8)	Código da moeda da incorporação do bem.	Sim
tta_val_incorp_bem_pat	decimal	->>,>>>,>>>,>>9.99	Valor da incorporação a ser sofrida pelo bem patrimonial.	Sim
tta_cod_tip_calc_reaval	character	x(8)	Código do tipo de cálculo de reavaliação da incorporação do bem.	Não
tta_val_perc_anual_dpr	decimal	>>>>9.999	Percentual anual de depreciação.	Não
ttv_val_perc_anual_dpr_incevda	decimal	>>>>9.9999	Percentual anual de depreciação incentivada.	Não
ttv_qtd_unid_vida_util	decimal	>>>>,>>>,>>9.99	Quantidade de unidades da vida útil da incorporação do bem.	Não
tta_val_perc_anual_reduc_sdo	decimal	->>,>>>,>>>,>>9.99	Percentual anual de cálculo de depreciação, que reduz o saldo dos bens registrados no ativo fixo até atingirem o valor residual. A depreciação pela Redução de Saldo é aplicada por meio de um percentual da depreciação por método de Linha Reta, e sobre este percentual é aplicado um percentual extra para acelerar a depreciação dos bens.	Não
tta_cod_cta_pat	character	x(18)	Código da conta patrimonial a relacionar a incorporação do bem patrimonial, conforme cadastro no FAS011AA/FAS214AA/FAS329AA - Conta Patrimonial.	Não
tta_cdn_fornecedor	integer	>>>,>>>,>>9	Código que identifique o fornecedor relacionado a incorporação do bem patrimonial, como benfeitorias.	Não
tta_cod_pais	character	x(3)	Código do país.	Não
tta_log_bem_imptdo	logical	Sim/Não	Bem Importado?	Não
tta_log_cr_pis	logical	Sim/Não	Credita PIS?	Não
tta_log_cr_cofins	logical	Sim/Não	Credita COFINS?	Não
tta_num_parc_pis_cofins	ingteger	999	Número de parcelas em que o crédito de PIS/COFINS deve ser descontado.	Não
tta_num_parc_desc	integer	999	Número de parcelas de crédito PIS/COFINS que já foram descontadas para o bem patrimonial incorporado.	Não
tta_val_cr_pis	decimal	>>>,>>>,>>9.99	Valor total de crédito de PIS, esta informação será utilizada como base para o cálculo das parcelas do crédito PIS. Veja mais informações na descrição do conceito Contabilização do Crédito PIS/COFINS em 48 Parcelas.	Não
tta_val_cr_cofins	decimal	>>>,>>>,>>9.99	Valor total de crédito de COFINS, esta informação será utilizada como base para o cálculo das parcelas do crédito COFINS. Veja mais informações na descrição do conceito Contabilização do Crédito PIS/COFINS em 48 Parcelas.	Não
tta_log_cr_csll	logical	Sim/Não	Credita CSLL?	Não
tta_num_exerc_csll	integer	>>9	Quantidade de exercícios em que a incorporação do bem patrimonial pode se beneficiar do crédito da CSLL.	Não
ttv_ind_tip_operac	character	x(35)	Tipo da operação.	Sim
ttv_row_integr_incorp_bem_pat	rowid		ROWID do registro da incorporação do bem patrimonial criado na temp-table, ou seja, o identificador interno do registro.	Sim
tta_val_base_pis	decimal	>>>,>>>,>>9.99	Valor total da base de PIS. Quando for informado o Valor de Exclusão de ICMS, deverá informar também a base de cálculo.	Não
tta_val_base_cofins	decimal	>>>,>>>,>>9.99	Valor total da base de COFINS. Quando for informado o Valor de Exclusão de ICMS, deverá informar também a base de cálculo.	Não
ttv_val_exc_icms	decimal	->>,>>>,>>>,>>9.99	Valor total de exclusão de ICMS da base de cálculo do PIS/COFINS.	Não

2) Valores originais da incorporação

Tabela Temporária	Descrição	Entrada/Saída
tt_integr_val_origin_bem_pat_1	Conterá os registros dos valores originais da incorporação	Entrada

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
ttv_row_integr_incorp_bem_pat	rowid		ROWID do registro da temp-table tt_integr_incorp_bem_pat_2, referente a incorporação ao qual o valor original será vinculado	Sim
tta_cod_cenar_ctbl	character	x(8)	Código do cenário contábil da incorporação do bem, conforme cadastro no UTB076AA/UFN0203AA/UTB304AA - Cenário Contábil.	Sim
tta_cod_finalid_econ	character	x(10)	Código da finalidade econômica da incorporação do bem.	Sim
tta_dat_calc_pat	date	99/99/9999	Data do valor original (normalmente igual a data da incorporação).	Sim
tta_val_original	decimal	->>>>>,>>>,>>9.99	Valor original da incorporação na finalidade informada.	Sim
tta_dat_cotac_indic_econ	date	99/99/9999	Data da cotação.	Sim
tta_val_cotac_indic_econ	decimal	>>>>,>>9.9999999999	Valor da cotação.	Sim

3) Valores Residuais da incorporação

Tabela Temporária	Descrição	Entrada/Saída
tt_integr_val_resid_incorp	Conterá os registros dos valores residuais da incorporação.	Entrada

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
tta_num_id_bem_pat	integer	>>,>>>,>>9	Número de Identificação do bem patrimonial ao qual a incorporação será vinculada.	Sim
tta_num_seq_incorp_bem_pat	integer	>>,>>>>,>>9	Número da sequência da incorporação que está sendo criada e a qual o valor residual está sendo vinculado.
tta_cod_tip_calc	character	x(7)	Código do tipo de cálculo da incorporação do bem patrimonial.	Sim
tta_cod_cenar_ctbl	character	x(8)	Código do cenário contábil da incorporação do bem patrimonial, conforme cadastro no UTB076AA/UFN0203AA/UTB304AA - Cenário Contábil.	Sim
tta_cod_finalid_econ	character	X(10)	Código da finalidade econômica da incorporação do bem patrimonial.	Sim
tta_val_resid_min	decimal	>>>>,>>>,>>>,>>9.99	Valor residual mínimo da incorporação do bem patrimonial.	Sim

4) Tabela de erros

Tabela Temporária	Descrição	Entrada/Saída
tt_log_erros_int_inc_bem_pat_1	Conterá as informações dos movimentos que não foram importados com a respectiva mensagem de erro.	Saída

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
ttv_row_integr_incorp_bem_pat	rowid		ROWID da incorporação ao qual o erro está vinculado.
ttv_num_erro	integer	>>>>,>>9	Número do erro para a incorporação do bem patrimonial com a chave formada pelos atributos acima nesta temp table.
ttv_des_msg_erro	character	x(60)	Mensagem de erro para a incorporação do bem patrimonial com a chave formada pelos atributos acima nesta temp table.
tta_des_msg_ajuda	character	x(40)	Mensagem de ajuda referente ao erro para a incorporação do bem patrimonial com a chave formada pelos atributos acima nesta temp table.

5) Itens de Documento de Entrada vinculados a incorporação do bem patrimonial

Tabela Temporária	Descrição	Entrada/Saída
tt_criacao_bem_pat_item_api_2	Conterá os registros dos itens das notas fiscais que serão vinculados a incorporação do bem patrimonial.	Entrada

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
ttv_row_bem	rowid		ROWID do registro da temp-table tt_integr_incorp_bem_pat_2, referente a incorporação do bem patrimonial ao qual o item será vinculado.	Sim
tta_cdn_fornecedor	integer	>>>,>>>,>>9	Código que represente um fornecedor a qual o movimento está associado.	Sim
tta_cod_docto_entr	character	x(8)	Código ou número do documento/nota fiscal.	Sim
tta_cod_ser_nota	character	X(5)	Série da nota fiscal.	Não
tta_num_item_docto_entr	integer	>>>,>>9	Número do item da nota fiscal.	Sim
tta_cod_natur_operac	character	x(6)	Código da natureza de operação da nota fiscal. Importante: Esse campo foi incluído a partir da versão 12.	Não
tta_qtd_item_docto_entr	decimal	>>>>>>>>9	Quantidade do item vinculado ao bem patrimonial.	Sim

Execução

Leitura e Criação dos Registros

Exemplo do programa para criação dos registros nas temp-tables com as incorporações dos bens patrimoniais a serem implantados:

def temp-table tt_criacao_bem_pat_item_api_2 no-undo
field ttv_row_bem as Rowid
field tta_cdn_fornecedor as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
field tta_cod_docto_entr as character format "x(8)" label "Docto Entrada" column-label "Docto Entrada"
field tta_cod_ser_nota as character format "x(5)" label "Série Nota" column-label "Série Nota"
field tta_num_item_docto_entr as integer format ">>>,>>9" initial 0 label "Numero Item" column-label "Num Item"
field tta_cod_natur_operac as character format "x(6)" label "Natureza Operação" column-label "Natureza Operação"
field tta_qtd_item_docto_entr as decimal format ">>>>>>>>9" initial 0 label "Qtde Item Docto" column-label "Qtde Item Docto"
index tt_id is primary unique
ttv_row_bem ascending
tta_cdn_fornecedor ascending
tta_cod_docto_entr ascending
tta_cod_ser_nota ascending
tta_num_item_docto_entr ascending
tta_cod_natur_operac ascending
.

def temp-table tt_integr_incorp_bem_pat_2 no-undo
field tta_num_id_bem_pat as integer format ">>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bem"
field tta_num_seq_incorp_bem_pat as integer format ">>,>>>>,>>9" initial 0 label "Sequência Incorp" column-label "Sequência Incorp"
field tta_cod_cenar_ctbl as character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"
field tta_dat_incorp_bem_pat as date format "99/99/9999" initial today label "Data Incorporação" column-label "Data Incorporação"
field tta_ind_incorp_bem_pat as character format "x(20)" initial "Reavaliação" label "Tipo Incorporação" column-label "Tipo Incorporação"
field tta_des_incorp_bem_pat as character format "x(40)" label "Descrição Incorp" column-label "Descrição Incorp"
field tta_cod_incent_fisc as character format "x(8)" label "Incentivo Fiscal" column-label "Incentivo Fiscal"
field tta_cod_indic_econ as character format "x(8)" label "Moeda" column-label "Moeda"
field tta_val_incorp_bem_pat as decimal format "->>,>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Incorporação" column-label "Valor Incorporação"
field tta_cod_tip_calc_reaval as character format "x(8)" label "Tipo Cálculo Reaval" column-label "Tipo Cálculo Reaval"
field tta_val_perc_anual_dpr as decimal format ">>>>9.999" decimals 3 initial 0 label "Percentual Anual" column-label "Perc Ano Dpr"
field tta_val_perc_anual_dpr_incevda as decimal format ">>>>9.9999" decimals 4 initial 0 label "Perc Anual Dpr Incen" column-label "Perc Anual Dpr Incen"
field tta_qtd_unid_vida_util as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Vida Útil (Unidades)" column-label "Unid Vida Útil"
field tta_val_perc_anual_reduc_sdo as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Perc Redução Saldo" column-label "Perc Redução Saldo"
field tta_cod_cta_pat as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"
field tta_cdn_fornecedor as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
field tta_cod_pais as character format "x(3)" label "País" column-label "País"
field tta_log_bem_imptdo as logical format "Sim/Não" initial no label "Bem Importado" column-label "Bem Importado"
field tta_log_cr_pis as logical format "Sim/Não" initial no label "Credita PIS" column-label "Credita PIS"
field tta_log_cr_cofins as logical format "Sim/Não" initial no label "Credita COFINS" column-label "Credita COFINS"
field tta_num_parc_pis_cofins as integer format "999" initial 0 label "Nr Parcelas" column-label "Nr Parcelas"
field tta_num_parc_desc as integer format "999" initial 0 label "Parc Descontadas" column-label "Parc Descontadas"
field tta_val_cr_pis as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Cred PIS/PASEP" column-label "Vl Cred PIS/PASEP"
field tta_val_cr_cofins as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINS" column-label "Credito COFINS"
field tta_log_cr_csll as logical format "Sim/Não" initial no label "Credita CSLL" column-label "Credita CSLL"
field tta_num_exerc_cr_csll as integer format ">>9" initial 0 label "Exercicios Créd CSLL" column-label "Exer Cr CSLL"
field tta_ind_tip_operac as character format "X(35)" initial "Nota de Débito" label "Tipo Operação" column-label "Tipo Operação"
field tta_val_base_pis as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEP" column-label "Vl Base PIS/PASEP"
field tta_val_base_cofins as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINS" column-label "Base COFINS"
field ttv_val_exc_icms as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Valor Exclusão ICMS" column-label "Valor Exclusão ICMS"
field ttv_row_integr_incorp_bem_pat as Rowid
.

def temp-table tt_integr_val_origin_bem_pat_1 no-undo
field tta_cod_cenar_ctbl as character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"
field tta_cod_finalid_econ as character format "x(10)" label "Finalidade" column-label "Finalidade"
field tta_dat_calc_pat as date format "99/99/9999" initial today label "Data Cálculo" column-label "Data Cálculo"
field tta_val_original as decimal format "->>>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Original" column-label "Valor Original"
field tta_dat_cotac_indic_econ as date format "99/99/9999" initial ? label "Data Cotação" column-label "Data Cotação"
field tta_val_cotac_indic_econ as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Cotação" column-label "Cotação"
field ttv_row_integr_incorp_bem_pat as Rowid
.

def temp-table tt_integr_val_resid_incorp no-undo
field tta_num_id_bem_pat as integer format ">>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bem"
field tta_num_seq_incorp_bem_pat as integer format ">>,>>>>,>>9" initial 0 label "Sequência Incorp" column-label "Sequência Incorp"
field tta_cod_tip_calc as character format "x(7)" label "Tipo Cálculo" column-label "Tipo Cálculo"
field tta_cod_cenar_ctbl as character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"
field tta_cod_finalid_econ as character format "x(10)" label "Finalidade" column-label "Finalidade"
field tta_val_resid_min as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Residual Mínimo" column-label "Residual"
index tt_id is primary unique
tta_num_id_bem_pat ascending
tta_num_seq_incorp_bem_pat ascending
tta_cod_tip_calc ascending
tta_cod_cenar_ctbl ascending
tta_cod_finalid_econ ascending
.

def temp-table tt_log_erros_int_inc_bem_pat_1 no-undo
field ttv_num_erro as integer format ">>>>,>>9"
field ttv_des_msg_erro as character format "x(60)" label "Mensagem Erro" column-label "Inconsistência"
field ttv_des_msg_ajuda as character format "x(40)" label "Mensagem Ajuda" column-label "Mensagem Ajuda"
field ttv_row_integr_incorp_bem_pat as Rowid
.

FIND bem_pat EXCLUSIVE-LOCK
WHERE bem_pat.cod_empresa = '10'
AND bem_pat.cod_cta_pat = '034'
AND bem_pat.num_bem_pat = 220853
AND bem_pat.num_seq_bem_pat = 1 NO-ERROR.
ASSIGN bem_pat.cod_estab = '1'.

CREATE tt_integr_incorp_bem_pat_2.
ASSIGN tt_integr_incorp_bem_pat_2.tta_num_id_bem_pat = bem_pat.num_id_bem_pat
tt_integr_incorp_bem_pat_2.tta_num_seq_incorp_bem_pat = 15
tt_integr_incorp_bem_pat_2.tta_cod_cenar_ctbl = "fiscal"
tt_integr_incorp_bem_pat_2.tta_dat_incorp_bem_pat = 07/20/2023
tt_integr_incorp_bem_pat_2.tta_ind_incorp_bem_pat = "Adição" /*l_adicao*/
tt_integr_incorp_bem_pat_2.tta_des_incorp_bem_pat = "teste api versao 3 " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")
tt_integr_incorp_bem_pat_2.tta_cod_indic_econ = "REAL"
tt_integr_incorp_bem_pat_2.tta_val_incorp_bem_pat = 250
tt_integr_incorp_bem_pat_2.tta_val_perc_anual_dpr = 20
tt_integr_incorp_bem_pat_2.tta_ind_tip_operac = "Inclusão" /*l_inclusao*/
tt_integr_incorp_bem_pat_2.tta_cdn_fornecedor = 1
tt_integr_incorp_bem_pat_2.tta_cod_pais = "BRA"
tt_integr_incorp_bem_pat_2.tta_log_bem_imptdo = NO
tt_integr_incorp_bem_pat_2.tta_log_cr_pis = YES
tt_integr_incorp_bem_pat_2.tta_log_cr_cofins = YES
tt_integr_incorp_bem_pat_2.tta_num_parc_pis_cofins = 48
tt_integr_incorp_bem_pat_2.tta_num_parc_desc = 0
tt_integr_incorp_bem_pat_2.tta_val_cr_pis = 100
tt_integr_incorp_bem_pat_2.tta_val_cr_cofins = 200
tt_integr_incorp_bem_pat_2.tta_log_cr_csll = NO
tt_integr_incorp_bem_pat_2.tta_num_exerc_cr_csll = 0
tt_integr_incorp_bem_pat_2.tta_val_base_pis = 10
tt_integr_incorp_bem_pat_2.tta_val_base_cofins = 10
tt_integr_incorp_bem_pat_2.ttv_row_integr_incorp_bem_pat = rowid(tt_integr_incorp_bem_pat_2).

CREATE tt_integr_val_origin_bem_pat_1.
ASSIGN tt_integr_val_origin_bem_pat_1.ttv_row_integr_incorp_bem_pat = rowid(tt_integr_incorp_bem_pat_2)
tt_integr_val_origin_bem_pat_1.tta_cod_cenar_ctbl = tt_integr_incorp_bem_pat_2.tta_cod_cenar_ctbl
tt_integr_val_origin_bem_pat_1.tta_cod_finalid_econ = "Corrente"
tt_integr_val_origin_bem_pat_1.tta_dat_calc_pat = 07/20/2023
tt_integr_val_origin_bem_pat_1.tta_val_original = 500
tt_integr_val_origin_bem_pat_1.tta_dat_cotac_indic_econ = 07/20/2023
tt_integr_val_origin_bem_pat_1.tta_val_cotac_indic_econ = 1.

CREATE tt_criacao_bem_pat_item_api_2.
ASSIGN tt_criacao_bem_pat_item_api_2.ttv_row_bem = tt_integr_incorp_bem_pat_2.ttv_row_integr_incorp_bem_pat
tt_criacao_bem_pat_item_api_2.tta_cdn_fornecedor = 13
tt_criacao_bem_pat_item_api_2.tta_cod_docto_entr = "2206231"
tt_criacao_bem_pat_item_api_2.tta_cod_ser_nota = "1"
tt_criacao_bem_pat_item_api_2.tta_num_item_docto_entr = 20
tt_criacao_bem_pat_item_api_2.tta_cod_natur_operac = "111A90"
tt_criacao_bem_pat_item_api_2.tta_qtd_item_docto_entr = 1.

DEF VAR v_hdl_program AS HANDLE NO-UNDO.

run prgfin\fas\fas715zb.py PERSISTENT SET v_hdl_program.

run pi_api_incorp_bem_pat_5 IN v_hdl_program (input table tt_integr_incorp_bem_pat_2,
input table tt_integr_val_origin_bem_pat_1,
input table tt_integr_val_resid_incorp,
output table tt_log_erros_int_inc_bem_pat_1,
input table tt_criacao_bem_pat_item_api_2).

FOR EACH tt_log_erros_int_inc_bem_pat_1:
MESSAGE tt_log_erros_int_inc_bem_pat_1.ttv_des_msg_ajuda VIEW-AS ALERT-BOX.
END.

DELETE OBJECT v_hdl_program.
ASSIGN v_hdl_program = ?.

Árvore de páginas

FAS715ZB - Criação de Incorporações no Ativo Fixo