Documento de API

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

Prgfin

prgfin/fas/

fas735zf

...

fas735zh

Objetivo

Criar 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.
DEF VAR v_cod_return AS CHAR.
DEF VAR v_des_mensagem AS CHAR FORMAT "X(50)".

RUN prgfin\fas\fas735zh.py PERSISTENT SET v_hdl_program.
RUN pi_main_api_criacao_bem_pat_

...

14 IN v_hdl_program

...

(INPUT 1,

...

INPUT v_cod_matriz_trad_org_ext,

...

INPUT v_cod_matriz_trad_ccusto_ext,

...

INPUT v_cod_matriz_trad_finalid_ext,

...

INPUT v_log_ctbz,

...

INPUT TABLE tt_criacao_bem_pat_item_api

...

_2,
INPUT TABLE tt_criacao_bem_pat_val_resid

...

OUTPUT v_cod_return,

OUTPUT v_des_mensagem).

DELETE PROCEDURE v_hdl_program.

Parâmetros

Parâmetro	Descrição
p_num_vers_integr_api	Será utilizado para determinar se o programa que está chamando está íntegro com as definições correntes da API;
p_cod_matriz_trad_org_ext	Deve ser informada a matriz de tradução de unidade organizacional
P_cod_matriz_Trad_ccusto_ext	Deve ser informada a matriz de tradução de centros de custo
P_cod_matriz_trad_finalid_Ext	Deve ser informada a matriz de tradução de finalidade econômica
P_log_ctbz	Deve ser YES para assinalar o movimento como contabilizado. Deve ser NO para que o movimento de implenatação seja contabilizado
tt_criacao_bem_pat_item_api	Esta temp-table conterá os registros dos itens das notas fiscais vinculadas ao bem. 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 do bem. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.
P_cod_return	Retorna string “OK” se não ocorreram erros.
P_des_mensagem	Caso tenha ocorrido erro, retorna a mensagem de erro que provocou erro na criação dos bens. Normalmente erros da matriz de tradução são apresentados nesta mensagem. Erros deste tipo inviabilizam a criação de todos os bens na temp-table.

Observações:

...

_1,
INPUT TABLE tt_criacao_bem_pat_img_1,
INPUT TABLE tt_criacao_bem_pat_api_10,
OUTPUT v_cod_return,
OUTPUT v_des_mensagem).

DELETE PROCEDURE v_hdl_program.

OBS: Caso tenha migrado para base utilizando rowid e esteja utilizado uma versão inferior a 14 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_bem as &IF "{&ROWID_READY}" = "YES" &THEN rowid &ELSE recid format ">>>>>>9" &ENDIF

Parâmetros

Retorno

A API retornará na tabela temporária tt_erros_criacao_bem_pat_api_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 dos bens este será retornado na variável p_des_mensagem.

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

Parâmetro	Descrição
p_num_vers_integr_api	Será utilizado para determinar se o programa que está chamando está íntegro com as definições correntes da API.
p_cod_matriz_trad_org_ext	Deve ser informada a matriz de tradução de unidade organizacional.
p_cod_matriz_trad_ccusto_ext	Deve ser informada a matriz de tradução de centros de custo.
p_cod_matriz_trad_finalid_ext	Deve ser informada a matriz de tradução de finalidade econômica.
p_log_ctbz	Deve ser YES para que o movimento de implantação seja contabilizado. Deve ser NO para que o movimento de implantação NÃO seja contabilizado.
tt_criacao_bem_pat_item_api_2	Esta temp-table conterá os registros dos itens das notas fiscais vinculadas ao bem patrimonial. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.
tt_criacao_bem_pat_val_resid_1	Esta temp-table conterá os registros sobre os valores residuais do bem patrimonial. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.
tt_criacao_bem_pat_img_1	Esta temp-table conterá os registros sobre as imagens do bem patrimonial. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.

tt_criacao_bem_pat_api_

5

Conterá as informações dos bens a serem importados.

New Shared

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
tta_cod_unid_organ_ext	character	x(3)	Código da unidade organizacional externa (empresa a ser traduzida pela matriz de tradução de unidade organizacional)	Sim
tta_cod_cta_pat	character	x(18)	Conta patrimonial	Sim
tta_num_bem_pat	integer	>>>>>>>>9	Número do bem. Caso seja informado 0 (zero) será atribuído automaticamente o número do próximo bem de acordo com parâmetros do ativo fixo.	Não
tta_num_seq_bem_pat	integer	>>>>9	Seqüência do bem. (idem observação acima).	Não
tta_des_bem_pat	character	x(40)	Descrição do bem	Sim
tta_dat_aquis_bem_pat	date	99/99/9999	Data de aquisição do bem	Sim
tta_cod_plano_ccusto	character	x(8)	Código do plano de centros de custo	Sim
tta_cod_ccusto_ext	character	x(8)	Código do centro de custo externo (a ser traduzido pela matriz de tradução de centros de custo)	Sim
tta_cod_estab_ext	character	x(8)	Código do estabelecimento externo (a ser traduzido pela matriz de tradução de unidade organizacional)	Sim
tta_cod_unid_negoc_ext	character	x(8)	Código da Unidade de negócio	Sim
tta_cod_finalid_econ_ext	character	x(8)	Código da finalidade externa. (moeda do bem a ser traduzida pela matriz de tradução de finalidade)	Sim
ttv_val_aquis_bem_pat	decimal	->>,>>>,>>>,>>9.99	Valor de aquisição do bem (o valor do bem pode ser positivo no caso de bens do Ativo imobilizado ou negativo se o bem referir-se a item do patrimônio líquido)	Sim
ttv_log_erro	logical	Sim/Não	Indicador de erro no bem. Deve ser criado como “Não”	Sim
tta_qtd_bem_pat_represen	decimal	>>>>>>>>9	Quantidade de bens	Não
tta_cdn_fornecedor	Integer	>>>,>>>,>>9	Código numérico do fornecedor do bem	Não
tta_cod_docto_entr	character	x(8)	Número da nota fiscal	Não
tta_cod_ser_nota	character	x(3)	Série da Nota fiscal	Não
tta_num_item_docto_entr	Integer	>>>,>>9	Número do item da nota fiscal	Não
tta_num_id_bem_pat	Integer	>>,>>>,>>9	Este atributo retorna o número interno do bem. Não precisa ter o seu valor informado. Serve apenas como uma referência para localizar o bem criado na base de dados. Deve ser criado como 0 (zero)	Sim
tta_des_narrat_Bem_pat	character	x(2000)	Narrativa do bem	Não
tta_log_bem_imptdo	logical	Sim/Não	Este atributo indica se o bem foi importado ou não.	Sim
tta_log_cr_pis	logical	Sim/Não	Este atributo indica se o bem credita ou não PIS. Obs.: Este atributo será utilizado somente no Brasil	Sim
tta_log_cr_cofins	logical	Sim/Não	Este atributo indica se o bem credita ou não COFINS. Obs.: Este atributo será utilizado somente no Brasil	Sim
tta_num_parc_pis_cofins	integer	99	Este atributo indica se o credito de PIS e COFINS é parcelado. Obs.: Depende que o Bem credite PIS ou COFINS. O valor passado deverá ser 00 para não credita e 12 ou 48 vezes.	Sim
tta_val_cr_pis	decimal	>>>,>>>,>>9.99	Valor do PIS que a empresa poderá creditar	Sim
tta_val_cr_cofins	decimal	>>>,>>>,>>9.99	Valor do COFINS que a empresa poderá creditar	Sim
ttv_log_cr_csll	logical	Sim/Não	Credita CSLL	Sim	X
ttv_num_exerc_cr_csll	integer	99	Exerc. Crédito CSLL	Sim	X

def new shared temp-table tt_criacao_bem_pat_api_5 no-undo

field tta_cod_unid_organ_ext as character format "x(3)" label "Unid Organ Externa" column-label "Unid Organ Externa"

field tta_cod_cta_pat as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"

field tta_num_bem_pat as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"

field tta_num_seq_bem_pat as integer format ">>>>9" initial 0 label "Sequˆncia Bem" column-label "Sequˆncia"

field tta_des_bem_pat as character format "x(40)" label "Descri‡Æo Bem Pat" column-label "Descri‡Æo Bem Pat"

field tta_dat_aquis_bem_pat as date format "99/99/9999" initial today label "Data Aquisi‡Æo" column-label "Dat Aquis"

field tta_cod_plano_ccusto as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"

field tta_cod_ccusto_ext as character format "x(8)" label "Centro Custo Externo" column-label "CCusto Externo"

field tta_cod_estab_ext as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"

field tta_cod_unid_negoc_ext as character format "x(8)" label "Unid Neg¢cio Externa" column-label "Unid Neg¢cio Externa"

field tta_cod_finalid_econ_ext as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"

field ttv_val_aquis_bem_pat as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Aquisi‡Æo Bem" column-label "Aquisi‡Æo Bem"

field ttv_log_erro as logical format "Sim/NÆo" initial yes

field tta_qtd_bem_pat_represen as decimal format ">>>>>>>>9" initial 1 label "Quantidade Bens Representados" column-label "Bem Represen"

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(3)" 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_num_id_bem_pat as integer format ">>,>>>,>>9" initial 0 label "Identifica‡Æo Bem" column-label "Identifica‡Æo Bem"

field tta_des_narrat_bem_pat as character format "x(2000)" label "Narrativa Bem" column-label "Narrativa Bem"

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 ttv_num_parc_pis_cofins as integer format "99" initial 0 label "Nro Parcelas" column-label "Nro Parcelas"

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 ttv_log_cr_csll as logical format "Sim/NÆo" initial no label "Credita CSLL" column-label "Credita CSLL"

field ttv_num_exerc_cr_csll as integer format "99" label "Exerc. Cr‚dito CSLL" column-label "Exerc. Cr‚dito CSLL".

2) Tabela de erros

10	Esta temp-table contém os registros dos bens patrimoniais que serão criados.
v_cod_return	Retorna string “OK” se não ocorreram erros.
v_des_mensagem	Caso tenha ocorrido erro, retorna a mensagem de erro que provocou erro na criação dos bens patrimoniais. Normalmente erros da matriz de tradução são apresentados nesta mensagem. Erros deste tipo inviabilizam a criação de todos os bens patrimoniais na temp-table.

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_erros_criacao_bem_pat_api_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 dos bens patrimoniais este será retornado na variável v_des_mensagem.

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_criacao_bem_pat_api_10	Conterá as informações dos bens patrimoniais a serem implantados.	Local

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
tta_cod_unid_organ_ext	character	x(3)	Código da unidade organizacional externa, ou seja, a empresa a ser traduzida pela matriz de tradução de unidade organizacional.	Sim
tta_cod_cta_pat	character	x(18)	Código da conta patrimonial.	Sim
tta_num_bem_pat	integer	>>>>>>>>9	Número do bem patrimonial. Caso seja informado 0 (zero) será atribuído automaticamente o número do próximo bem patrimonial de acordo com parâmetros do ativo fixo.	Não
tta_num_seq_bem_pat	integer	>>>>9	Número da sequência do bem patrimonial. (Idem observação acima).	Não
tta_des_bem_pat	character	x(40)	Descrição do bem patrimonial.	Sim
tta_dat_aquis_bem_pat	date	99/99/9999	Data de aquisição do bem patrimonial.	Sim
tta_cod_plano_ccusto	character	x(8)	Código do plano de centros de custo.	Sim
tta_cod_ccusto_ext	character	x(8)	Código do centro de custo externo a ser traduzido pela matriz de tradução de centros de custo.	Sim
tta_cod_estab_ext	character	x(8)	Código do estabelecimento externo a ser traduzido pela matriz de tradução de unidade organizacional.	Sim
tta_cod_unid_negoc_ext	character	x(8)	Código da unidade de negócio responsável pelo bem patrimonial.	Sim
tta_cod_finalid_econ_ext	character	x(8)	Código da finalidade externa / moeda do bem patrimonial a ser traduzida pela matriz de tradução de finalidade.	Sim
ttv_val_aquis_bem_pat	decimal	->>,>>>,>>>,>>9.99	Valor de aquisição do bem patrimonial. Importante: O valor do bem patrimonial pode ser positivo no caso de bens patrimoniais do Ativo imobilizado ou negativo se o bem patrimonial referir-se a item do patrimônio líquido.	Sim
ttv_log_erro	logical	Sim/Não	Indicador de erro no bem patrimonial. Deve ser criado como “Não”	Sim
tta_qtd_bem_pat_represen	decimal	>>>>>>>>9	Quantidade de bens patrimoniais	Não
tta_cdn_fornecedor	Integer	>>>,>>>,>>9	Código numérico do fornecedor do bem patrimonial	Não
tta_cod_docto_entr	character	x(8)	Número da nota fiscal	Não
tta_cod_ser_nota	character	x(3)	Série da Nota fiscal	Não
tta_num_item_docto_entr	Integer	>>>,>>9	Número do item da nota fiscal	Não
tta_num_id_bem_pat	Integer	>>,>>>,>>9	Este atributo retorna o número interno do bem patrimonial. Não precisa ter o seu valor informado. Serve apenas como uma referência para localizar o bem patrimonial criado na base de dados. Deve ser criado como 0 (zero)	Sim
tta_des_narrat_Bem_pat	character	x(2000)	Narrativa do bem patrimonial	Não
tta_log_bem_imptdo	logical	Sim/Não	Este atributo indica se o bem patrimonial foi importado ou não.	Sim
tta_log_cr_pis	logical	Sim/Não	Este atributo indica se o bem patrimonial credita ou não PIS. Importante: Este atributo será utilizado somente no Brasil	Sim
tta_log_cr_cofins	logical	Sim/Não	Este atributo indica se o bem patrimonial credita ou não COFINS. Importante: Este atributo será utilizado somente no Brasil.	Sim
tta_num_parc_pis_cofins	integer	99	Este atributo indica se o credito de PIS e COFINS é parcelado. Importante: Depende que o bem patrimonial credite PIS ou COFINS. O valor passado deverá ser 00 para não credita ou 12 ou 48 vezes.	Sim
tta_val_cr_pis	decimal	>>>,>>>,>>9.99	Valor do PIS que a empresa poderá creditar.	Sim
tta_val_cr_cofins	decimal	>>>,>>>,>>9.99	Valor do COFINS que a empresa poderá creditar.	Sim
ttv_log_cr_csll	logical	Sim/Não	Credita CSLL	Sim	X
ttv_num_exerc_cr_csll	integer	99	Exercício de Crédito CSLL	Sim	X
tta_dat_calc_pat	date	99/99/9999	Data de início de cálculo do bem patrimonial.	Não
tta_cb3_ident_visual	char	x(20)	Número da plaqueta que identifique o bem patrimonial. Importante: Para todo bem patrimonial é atribuído um número de inventário, por uma das seguintes ordens: a) Chapas de inventário; b) Números pintados (no caso de veículos motorizados).	Não
tta_cod_estado_fisic_bem_pat	char	x(8)	Estado físico que o bem patrimonial apresenta no momento do registro da aquisição.	Não
tta_cod_espec_bem	char	x(6)	Espécie do bem patrimonial.	Não
tta_cod_marca	char	x(6)	Marca correspondente ao bem patrimonial.	Não
tta_cod_modelo	char	x(8)	Código do modelo do bem patrimonial.	Não
tta_dat_avaliac_apol_seguro	date	99/99/9999	Data de avaliação da apólice de seguro.	Não
tta_val_avaliac_apol_seguro	decimal	->>,>>>,>>>,>>9.99	Valor de avaliação da apólice de seguro.	Não
tta_cod_licenc_uso	char	x(8)	Código da licença de uso.	Não
tta_cod_especif_tec	char	x(8)	Código da especificação técnica, quando o bem patrimonial exigir uma característica especial já detalhada em uma especificação.	Não
tta_cod_arrendador	char	x(6)	Código do arrendador do bem patrimonial, quando o bem estiver associado a um Contrato de Leasing.	Não
tta_cod_contrat_leas	char	x(12)	Código do contrato de Leasing.	Não
tta_cod_localiz	char	x(12)	Código da localização física do bem patrimonial na empresa.	Não
tta_cod_imagem	char	x(30)	Imagem do bem patrimonial. Importante: A partir da versão 11, esse campo foi substituído pela temp-table tt_criacao_bem_pat_img_1 e será gravado em branco.	Não
ttv_row_id	rowid		ROWID do registro do bem patrimonial criado na temp-table.	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
ttv_val_exc_icms	decimal	->>,>>>,>>>,>>9.99	Valor de exclusão de ICMS da base de cálculo do PIS/COFINS	Não

2) Tabela de erros

Tabela Temporária	Descrição	Entrada/Saída
tt_erros_criacao_bem_pat_api_1	Conterá as informações dos movimentos

Tabela Temporária

Descrição

Entrada/Saída

tt_erros_criacao_bem_pat_api_1

Conterá as informações dos movimentos
que não foram importados com a respectiva mensagem de erro.
New Shared

Atributo
Atributo
Tipo
Formato
Descrição
Obrigatório
Evolução
tta_cod_unid_organ_ext
character
x(3)
Unid Organ Externa

Código da unidade organizacional externa, ou seja, a empresa a ser traduzida pela matriz de tradução de unidade organizacional.

tta_cod_cta_pat
character
x(18)
Conta Patrimonial

Código da conta patrimonial.

tta_num_bem_pat
integer
>>>>>>>>9
Bem Patrimonial

Código do bem patrimonial.

tta_num_seq_bem_pat
integer
>>>>9
Sequência
Bem

do bem patrimonial.

tta_des_bem_pat
character
x(40)
Descrição
Bem Patrimonial

do bem patrimonial.

tta_dat_aquis_bem_pat
date
99/99/9999
Data
Aquisição
da aquisição do bem patrimonial.

tta_cod_finalid_econ_ext
character
x(8)
Finalid Econ Externa

Código da Finalidade Econômica Externa.

ttv
ttv
_des_mensagem
character
x(50)
Mensagem de erro para o bem patrimonial com a chave formada pelos atributos acima nesta temp table.

...

3) Itens de Documento de Entrada vinculados ao 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 ao bem patrimonial.

Entrada

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
ttv_row_bem	rowid		ROWID do registro da temp-table tt_criacao_bem_pat_api_5, referente ao 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

4) Valores Residuais do bem patrimonial

Tabela Temporária	Descrição	Entrada/Saída
tt_criacao_bem_pat_val_resid_1	Conterá os registros dos valores residuais do bem patrimonial.	Entrada

field tta_cod_unid_organ_ext as character format "x(3)" label "Unid Organ Externa" column-label "Unid Organ Externa"

field tta_cod_cta_pat as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"

field tta_num_bem_pat as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"

field tta_num_seq_bem_pat as integer format ">>>>9" initial 0 label "Sequˆncia Bem" column-label "Sequˆncia"

field tta_des_bem_pat as character format "x(40)" label "Descri‡Æo Bem Pat" column-label "Descri‡Æo Bem Pat"

field tta_dat_aquis_bem_pat as date format "99/99/9999" initial today label "Data Aquisi‡Æo" column-label "Dat Aquis"

field tta_cod_finalid_econ_ext as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"

field ttv_des_mensagem as character format "x(50)" label "Mensagem" column-label "Mensagem".

3) Itens de Documento de Entrada vinculados ao Bem

Tabela Temporária	Descrição	Entrada/Saída
tt_criacao_bem_pat_item_api	Conterá os registros dos itens das notas fiscais que serão vinculados ao bem.	Entrada

...

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
ttv_

rec
row_bem
recid
rowid

RECID

ROWID do registro da temp-table tt_criacao_bem_pat_api_5, referente ao bem patrimonial ao qual o item será vinculado.
Sim

tta_
cdn
cod_tip_
fornecedor
calc
integer
>>>,>>>,>>9
Código do fornecedor
Sim
character
x(7)
Código do tipo de cálculo do bem patrimonial.
Sim

tta_cod_
docto
cenar_
entr
ctbl
character
x(8)
Código
da nota fiscal
do cenário contábil do bem patrimonial, conforme cadastro no UTB076AA/UFN0203AA/UTB304AA - Cenário Contábil.
Sim

tta_cod_
ser
finalid_
nota
econ
character
X(
3
10)
Série da nota fiscal
Não
Código da finalidade econômica do bem patrimonial.
Sim

tta_
num
val_
item
resid_
docto_entr
min
integer
decimal
>>>>,>>>,>>>,>>9.99
Número do item da nota fiscal
Sim

tta_qtd_item_docto_entr
Decimal
>>>>>>>>9
Quantidade do item vinculado ao bem
Sim

...

Valor residual mínimo do bem patrimonial.

Exemplo: Um determinado bem patrimonial, por exemplo, um microcomputador, já registrou toda a devida depreciação, não apresentando nenhum valor a depreciar. Para o objetivo de depreciação, esse bem não expressa mais valor, mas para a finalidade de venda, será vendido por um preço/valor. Este valor é o Residual Mínimo.

Sim

5) Imagens do bem patrimonial

Tabela Temporária	Descrição	Entrada/Saída
tt_criacao_bem_pat_img_1	Conterá os registros das imagens do bem patrimonial.	Entrada

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
ttv_row_bem	rowid		ROWID do registro da temp-table tt_criacao_bem_pat_api_

...

field ttv_rec_bem as recid format ">>>>>>9"

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(3)" 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_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_rec_bem ascending

tta_cdn_fornecedor ascending

tta_cod_docto_entr ascending

tta_cod_ser_nota ascending

tta_num_item_docto_entr ascending.

4) Valores Residuais do Bem

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

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
ttv_rec_bem	recid		RECID do registro da temp-table tt_criacao_bem_pat_api_5, referente ao bem ao qual o item será vinculado	Sim
tta_cod_tip_calc	character	x(7)	Código do tipo de cálculo	Sim
tta_cod_cenar_ctbl	character	x(8)	Código do cenário contábil	Sim
tta_cod_finalid_econ	character	X(10)	Código da finalidade econômica	Sim
tta_val_resid_min	decimal	>>>>,>>>,>>>,>>9.99	Valor residual mínimo	Sim

def temp-table tt_criacao_bem_pat_val_resid no-undo

field ttv_rec_bem as recid format ">>>>>>9"

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

ttv_rec_bem ascending

tta_cod_tip_calc ascending

tta_cod_cenar_ctbl ascending

tta_cod_finalid_econ ascending.

Execução

Na execução da API ocorrem as seguintes validações:

1. Versão de integração

Programa verificará se o programa chamador está integro com a API, e isto ocorre através da verificação da versão de integração passada como parâmetro;

2. Estabelecimento

Será verificado se o estabelecimento é válido;

3. Unidade de negócio

Valida se o unidade de negócio é válida e se a mesma está vinculada ao estabelecimento;

4. Centro de custo

Valida o centro de custo informado e se o usuário possui permissão para acessá-lo;

5. Conta patrimonial

Valida se a conta patrimonial informada é válida

6. Finalidade econômica

Se a finalidade econômica informada existe na matriz de tradução de finalidade;

7. Fornecedor

Verifica, caso informado, se o fornecedor é válido;

8. Documento de entrada (Nota Fiscal)

Valida se os itens dos documentos de entrada informados existem no sistema;

9. Quantidade dos Itens de Documento de entrada

Valida se a quantidade dos itens dos documentos de entrada está disponível para vinculação;

10. Número do bem e seqüência do bem.

Verifica , caso informado, se já não existe um bem com o mesmo número no sistema. (levando em conta que a chave completa do bem é empresa, conta patrimonial, número do bem e seqüência);

Leitura e Criação dos Registros

Exemplo de criação de bens:

def var v_cod_return as char.

def var v_des_mensagem as char format "x(50)".

def var v_hdl_program as handle no-undo.

create tt_criacao_bem_pat_api_5.

assign tt_criacao_bem_pat_api_5.tta_cod_unid_organ_ext = "1"

tt_criacao_bem_pat_api_5.tta_cod_cta_pat = "moveis e equip"

tt_criacao_bem_pat_api_5.tta_num_bem_pat = 0

tt_criacao_bem_pat_api_5.tta_num_seq_bem_pat = 0

tt_criacao_bem_pat_api_5.tta_des_bem_pat = "Torno Industrial Nardelli"

tt_criacao_bem_pat_api_5.tta_dat_aquis_bem_pat = 07/25/2000

tt_criacao_bem_pat_api_5.tta_cod_plano_ccusto = "móveis"

tt_criacao_bem_pat_api_5.tta_cod_estab_ext = "1"

tt_criacao_bem_pat_api_5.tta_cod_unid_negoc_ext = "ADM"

tt_criacao_bem_pat_api_5.tta_cod_finalid_econ_ext = "0"

tt_criacao_bem_pat_api_5.ttv_val_aquis_bem_pat = 2575.88

tt_criacao_bem_pat_api_5.ttv_log_erro = no

tt_criacao_bem_pat_api_5.tta_qtd_bem_pat_represen = 1

tt_criacao_bem_pat_api_5.tta_cdn_fornecedor = 0

tt_criacao_bem_pat_api_5.tta_cod_docto_entr = ""

tt_criacao_bem_pat_api_5.tta_cod_ser_nota = ""

tt_criacao_bem_pat_api_5.tta_num_item_docto_entr = 0

tt_criacao_bem_pat_api_5.tta_num_id_bem_pat = 0

tt_criacao_bem_pat_api_5.tta_des_narrat_bem_pat = ""

tt_criacao_bem_pat_api_5.tta_val_cr_pis = 500

tt_criacao_bem_pat_api_5.tta_val_cr_cofins = 500

tt_criacao_bem_pat_api_5.ttv_log_cr_csll = no

tt_criacao_bem_pat_api_5.ttv_num_exerc_cr_csll = 0.

create tt_criacao_bem_pat_item_api.

assign tt_criacao_bem_pat_item_api.ttv_rec_bem = recid(tt_criacao_bem_pat_api_5)

tt_criacao_bem_pat_item_api.tta_cdn_fornecedor = 1

tt_criacao_bem_pat_item_api.tta_cod_docto_entr = "100"

tt_criacao_bem_pat_item_api.tta_cod_ser_nota = ""

tt_criacao_bem_pat_item_api.tta_num_item_docto_entr = 10

tt_criacao_bem_pat_item_api.tta_qtd_item_docto_entr = 1.

create tt_criacao_bem_pat_item_api.

assign tt_criacao_bem_pat_item_api.ttv_rec_bem = recid(tt_criacao_bem_pat_api_5)

tt_criacao_bem_pat_item_api.tta_cdn_fornecedor = 1

tt_criacao_bem_pat_item_api.tta_cod_docto_entr = "100"

tt_criacao_bem_pat_item_api.tta_cod_ser_nota = ""

tt_criacao_bem_pat_item_api.tta_num_item_docto_entr = 20

tt_criacao_bem_pat_item_api.tta_qtd_item_docto_entr = 3.

create tt_criacao_bem_pat_val_resid.

assign tt_criacao_bem_pat_val_resid.ttv_rec_bem = recid(tt_criacao_bem_pat_api_5)

tt_criacao_bem_pat_val_resid.tta_cod_tip_calc = "DPFIS95"

tt_criacao_bem_pat_val_resid.tta_cod_cenar_ctbl = "FISCAL"

tt_criacao_bem_pat_val_resid.tta_cod_finalid_econ = "Corrente"

tt_criacao_bem_pat_val_resid.tta_val_resid_min = 500.

run prgfin/fas/fas735zh.py persistent set v_hdl_program.

run pi_main_api_criacao_bem_pat_8 in v_hdl_program

(input 1,

input "EMS2" /*matriz traudcao*/,

input "EMS2" /*matriz ccusto*/,

input "EMS2" /*matriz finalidade econ.*/,

input no /*contabiliza*/,

input table tt_criacao_bem_pat_item_api,

input table tt_criacao_bem_pat_val_resid,

5, referente ao bem patrimonial ao qual o item será vinculado.	Sim
tta_des_imagem	character	x(40)	Descrição ou um detalhe a especificar a respeito da imagem do bem patrimonial com até 40 caracteres alfanuméricos.	Sim
tta_dat_img	date	99/99/9999	Data da imagem do bem patrimonial.	Não
tta_log_princ	logical	Sim/Não	Indica que a imagem em questão é a principal relacionada ao bem patrimonial. Importante: É possível incluir 1 ou várias imagens associadas ao bem patrimonial, porém somente umas delas pode ser definida com a principal imagem - Campo Principal igual a Sim.	Sim
tta_nom_arq	character	x(100)	Nome do arquivo da imagem relacionada ao bem patrimonial.	Sim
tta_des_obs	character	x(200)	Espaço disponível para anotações ou observações a respeito da imagem do bem patrimonial que está sendo implementada.	Não

Execução

Na execução da API ocorrem as seguintes validações:

Versão de integração
API verificará se o programa chamador está integro com a API. Isto ocorre através da verificação da versão de integração passada como parâmetro.
Estabelecimento
Será verificado se o estabelecimento é válido.
Unidade de Negócio
Será verificado se a unidade de negócio é válida e se está vinculada ao estabelecimento.
Centro de Custo
Valida o centro de custo informado e verifica se o usuário tem permissão para acessá-lo.
Conta patrimonial
Verifica se a conta patrimonial informada é válida.
Finalidade Econômica
Verifica se a finalidade econômica existe na matriz de tradução de finalidade informada.
Fornecedor
Verifica, caso informado, se o fornecedor é válido.
Documento de entrada (nota fiscal)
Verifica, caso informado, se o documento existem no sistema.
Itens documento de entrada
Verifica, caso informado, se os itens de documento de entrada existem no sistema.
Verifica se a quantidade dos itens de documento de entrada está disponível para vinculação.
Número e sequência do bem patrimonial
Verifica, caso informado, se já não existe um bem patrimonial com o mesmo número no sistema. (levando em conta que a chave completa do bem patrimonial é empresa, conta patrimonial, número do bem patrimonial e sequência).
Data de cálculo
Quando informada será utilizada como data de início de cálculo do bem patrimonial. Caso não seja informada a data de início de cálculos será a data de aquisição.
Indicador econômico da apólice seguros
Caso não seja informado, será utilizado o indicador econômico informado para o bem patrimonial.
Data de avaliação da apólice de seguros
Caso não seja informado, será utilizado o valor original informado para o bem patrimonial.
Estado físico do bem patrimonial
Valida se o estado físico informado existe no sistema.
Espécie do bem patrimonial
Valida se a espécie informada existe no sistema.
Marca do bem patrimonial
Valida se a marca informada existe no sistema.
Modelo do bem patrimonial
Valida se o modelo informado existe no sistema.
Licença de uso
Valida se a licença de uso informada existe no sistema.
Especificação técnica do bem patrimonial
Valida se a especificação técnica informada existe para o bem patrimonial.
Arrendador
Valida se o arrendador informado existe no sistema.
Contrato de leasing
Valida se o contrato de leasing informado existe no sistema.
Localização do bem patrimonial
Valida se a localização informada existe no sistema.

Leitura e Criação dos Registros

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

/* Esta temp-table (tt_criacao_bem_pat_api_5) somente precisa estar declarada no programa chamador como NEW SHARED, mas nao precisa ser alimentada.
Ela se faz necessario devido a questões tecnicas */
DEF NEW shared temp-table tt_criacao_bem_pat_api_5 no-undo
field tta_cod_unid_organ_ext as character format "x(5)" label "Unid Organ Externa" column-label "Unid Organ Externa"
field tta_cod_cta_pat as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"
field tta_num_bem_pat as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"
field tta_num_seq_bem_pat as integer format ">>>>9" initial 0 label "Sequência Bem" column-label "Sequência"
field tta_des_bem_pat as character format "x(40)" label "Descrição Bem Pat" column-label "Descrição Bem Pat"
field tta_dat_aquis_bem_pat as date format "99/99/9999" initial today label "Data Aquisição" column-label "Dat Aquis"
field tta_cod_plano_ccusto as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"
field tta_cod_ccusto_ext as character format "x(8)" label "Centro Custo Externo" column-label "CCusto Externo"
field tta_cod_estab_ext as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
field tta_cod_unid_negoc_ext as character format "x(8)" label "Unid Negócio Externa" column-label "Unid Negócio Externa"
field tta_cod_finalid_econ_ext as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"
field ttv_val_aquis_bem_pat as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Aquisição Bem" column-label "Aquisição Bem"
field ttv_log_erro as logical format "Sim/Não" initial yes
field tta_qtd_bem_pat_represen as decimal format ">>>>>>>>9" initial 1 label "Quantidade Bens Representados" column-label "Bem Represen"
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_num_id_bem_pat as integer format ">>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bem"
field tta_des_narrat_bem_pat as character format "x(2000)" label "Narrativa Bem" column-label "Narrativa Bem"
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 ttv_num_parc_pis_cofins as integer format "999" initial 0 label "Nro Parcelas" column-label "Nro Parcelas"
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 ttv_log_cr_csll as logical format "Sim/Não" initial no label "Credita CSLL" column-label "Credita CSLL"
field ttv_num_exerc_cr_csll as integer format "99" label "Exerc. Crédito CSLL" column-label "Exerc. Crédito CSLL"
.

/* Esta temp-table (tt_criacao_bem_pat_api_10) conter os registros dos bens patrimoniais a serem criados no sistema */
def temp-table tt_criacao_bem_pat_api_10 no-undo
field tta_cod_unid_organ_ext as character format "x(5)" label "Unid Organ Externa" column-label "Unid Organ Externa"
field tta_cod_cta_pat as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"
field tta_num_bem_pat as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"
field tta_num_seq_bem_pat as integer format ">>>>9" initial 0 label "Sequˆncia Bem" column-label "Sequˆncia"
field tta_des_bem_pat as character format "x(40)" label "Descri‡Æo Bem Pat" column-label "Descri‡Æo Bem Pat"
field tta_dat_aquis_bem_pat as date format "99/99/9999" initial today label "Data Aquisi‡Æo" column-label "Dat Aquis"
field tta_cod_plano_ccusto as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"
field tta_cod_ccusto_ext as character format "x(8)" label "Centro Custo Externo" column-label "CCusto Externo"
field tta_cod_estab_ext as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
field tta_cod_unid_negoc_ext as character format "x(8)" label "Unid Neg¢cio Externa" column-label "Unid Neg¢cio Externa"
field tta_cod_finalid_econ_ext as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"
field ttv_val_aquis_bem_pat as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Aquisi‡Æo Bem" column-label "Aquisi‡Æo Bem"
field ttv_log_erro as logical format "Sim/NÆo" initial yes
field tta_qtd_bem_pat_represen as decimal format ">>>>>>>>9" initial 1 label "Quantidade Bens Representados" column-label "Bem Represen"
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_num_id_bem_pat as integer format ">>,>>>,>>9" initial 0 label "Identifica‡Æo Bem" column-label "Identifica‡Æo Bem"
field tta_des_narrat_bem_pat as character format "x(2000)" label "Narrativa Bem" column-label "Narrativa Bem"
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 ttv_num_parc_pis_cofins as integer format "999" initial 0 label "Nro Parcelas" column-label "Nro Parcelas"
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_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_log_cr_csll as logical format "Sim/NÆo" initial no label "Credita CSLL" column-label "Credita CSLL"
field ttv_num_exerc_cr_csll as integer format "99" label "Exerc. Cr‚dito CSLL" column-label "Exerc. Cr‚dito CSLL"
field tta_dat_calc_pat as date format "99/99/9999" initial today label "Data C lculo" column-label "Data C lculo"
field tta_cb3_ident_visual as Character format "x(20)" initial ? label "N£mero Plaqueta" column-label "N£mero Plaqueta"
field tta_cod_estado_fisic_bem_pat as character format "x(8)" label "Estado F¡sico" column-label "Estado F¡sico"
field tta_cod_espec_bem as character format "x(6)" label "Esp‚cie Bem Patrimonial" column-label "Esp‚cie"
field tta_cod_marca as character format "x(6)" label "Marca" column-label "Marca"
field tta_cod_modelo as character format "x(8)" label "Modelo" column-label "Modelo"
field tta_dat_avaliac_apol_seguro as date format "99/99/9999" initial today label "Data Avalia‡Æo Apol" column-label "Data Avalia‡Æo Apol"
field tta_val_avaliac_apol_seguro as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Avalia‡Æo Apol" column-label "Valor Avalia‡Æo Apol"
field tta_cod_licenc_uso as character format "x(12)" label "Licen‡a Uso" column-label "Licen Uso"
field tta_cod_especif_tec as character format "x(8)" label "Especifica‡Æo T‚cnica" column-label "Especifica‡Æo T‚cnica"
field tta_cod_arrendador as character format "x(6)" label "Arrendador" column-label "Arrendador"
field tta_cod_contrat_leas as character format "x(12)" label "Contrato Leasing" column-label "Contr Leas"
field tta_cod_localiz as character format "x(12)" label "Localiza‡Æo" column-label "Localiza‡Æo"
field tta_cod_imagem as character format "x(30)" label "Imagem" column-label "Imagem"
field ttv_row_id as Rowid
field tta_cod_natur_operac as character format "x(6)" label "Natureza Opera‡Æo" column-label "Natureza Opera‡Æo"
field ttv_val_exc_icms as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Valor ExclusÆo ICMS" column-label "Valor ExclusÆo ICMS"
.

/* Esta temp-table (tt_criacao_bem_pat_item_api_2) conter os itens do documento de entrada a serem vinculados aos bens patrimoniais. Não é obrigatório criar registros nesta temp-table */
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
.

/* Esta temp-table (tt_criacao_bem_pat_val_resid_1) conter os valores residuais dos bens patrimoniais a serem criados no sistema. Não é obrigatório criar registros nesta temp-table */
def temp-table tt_criacao_bem_pat_val_resid_1 no-undo
field ttv_row_bem as Rowid
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
ttv_row_bem ascending
tta_cod_tip_calc ascending
tta_cod_cenar_ctbl ascending
tta_cod_finalid_econ ascending
.

/* Esta temp-table (tt_criacao_bem_pat_img_1) conter as imagens dos bens patrimoniais a serem criados no sistema. Não é obrigatório criar registros nesta temp-table */
def temp-table tt_criacao_bem_pat_img_1 no-undo
field ttv_row_bem as Rowid
field tta_des_imagem as character format "x(40)" label "Descri‡Æo" column-label "Descri‡Æo"
field tta_dat_img as date format "99/99/9999" initial ? label "Data Imagem" column-label "Data Imagem"
field tta_log_princ as logical format "Sim/NÆo" initial no label "Principal" column-label "Principal"
field tta_nom_arq_img as character format "x(200)" label "Arquivo Imagem" column-label "Arquivo"
field tta_des_obs as character format "x(255)" label "Observa‡Æo" column-label "Observa‡Æo"
.

/* Esta temp-table (tt_erros_criacao_bem_pat_api_1) ser criada pela API e conter os erros ocorridos durante a criaçåo dos bens patrimoniais */
DEF NEW shared temp-table tt_erros_criacao_bem_pat_api_1 no-undo
field tta_cod_unid_organ_ext as character format "x(5)" label "Unid Organ Externa" column-label "Unid Organ Externa"
field tta_cod_cta_pat as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"
field tta_num_bem_pat as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"
field tta_num_seq_bem_pat as integer format ">>>>9" initial 0 label "Sequncia Bem" column-label "Sequncia"
field tta_des_bem_pat as character format "x(40)" label "DescriÔÇÖo Bem Pat" column-label "DescriÔÇÖo Bem Pat"
field tta_dat_aquis_bem_pat as date format "99/99/9999" initial today label "Data AquisiÔÇÖo" column-label "Dat Aquis"
field tta_cod_finalid_econ_ext as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"
field ttv_des_mensagem as character format "x(50)" label "Mensagem" column-label "Mensagem"
.

DEF VAR v_cod_return AS CHAR FORMAT "X(40)" NO-UNDO.
DEF VAR v_des_mensagem AS CHAR FORMAT "X(50)" NO-UNDO.
DEF VAR v_hdl_program AS HANDLE NO-UNDO.

CREATE tt_criacao_bem_pat_api_10.
ASSIGN tt_criacao_bem_pat_api_10.tta_cod_unid_organ_Ext = "10"
tt_criacao_bem_pat_api_10.tta_cod_cta_pat = "034"
tt_criacao_bem_pat_api_10.tta_num_bem_pat = 224885
tt_criacao_bem_pat_api_10.tta_num_seq_bem_pat = 1
tt_criacao_bem_pat_api_10.tta_des_bem_pat = "Teste API - " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")
tt_criacao_bem_pat_api_10.tta_dat_aquis_bem_pat = 07/01/2023
tt_criacao_bem_pat_api_10.tta_cod_plano_ccusto = "Alfa"
tt_criacao_bem_pat_api_10.tta_cod_ccusto_ext = "31400"
tt_criacao_bem_pat_api_10.tta_cod_estab_ext = "1"
tt_criacao_bem_pat_api_10.tta_cod_unid_negoc_ext = "999"
tt_criacao_bem_pat_api_10.tta_cod_finalid_econ_ext = "0"
tt_criacao_bem_pat_api_10.ttv_val_aquis_bem_pat = 50000
tt_criacao_bem_pat_api_10.ttv_log_erro = no
tt_criacao_bem_pat_api_10.tta_qtd_bem_pat_represen = 1
tt_criacao_bem_pat_api_10.tta_cdn_fornecedor = 1
tt_criacao_bem_pat_api_10.tta_num_id_bem_pat = 0
tt_criacao_bem_pat_api_10.tta_des_narrat_Bem_pat = ""
tt_criacao_bem_pat_api_10.tta_log_cr_cofins = NO
tt_criacao_bem_pat_api_10.tta_log_cr_pis = NO
tt_criacao_bem_pat_api_10.ttv_num_parc_pis_cofins = 0
tt_criacao_bem_pat_api_10.tta_val_cr_pis = 0
tt_criacao_bem_pat_api_10.tta_val_cr_cofins = 0
tt_criacao_bem_pat_api_10.tta_cod_docto_entr = "3232"
tt_criacao_bem_pat_api_10.tta_cod_ser_nota = 'u'
tt_criacao_bem_pat_api_10.tta_num_item_docto_entr = 20
tt_criacao_bem_pat_api_10 .tta_dat_calc_pat = 07/01/2023
tt_criacao_bem_pat_api_10.tta_cb3_ident_visual = '12345678'
tt_criacao_bem_pat_api_10.tta_cod_estado_fisic_bem_pat = "ATIVO"
tt_criacao_bem_pat_api_10.tta_cod_espec_bem = '004'
tt_criacao_bem_pat_api_10.tta_cod_marca = 'COMPAQ'
tt_criacao_bem_pat_api_10.tta_cod_modelo = "LS1"
tt_criacao_bem_pat_api_10.tta_dat_avaliac_apol_seguro = 07/01/2023
tt_criacao_bem_pat_api_10.tta_val_avaliac_apol_seguro = 50000
tt_criacao_bem_pat_api_10.tta_cod_licenc_uso = '1'
tt_criacao_bem_pat_api_10.tta_cod_especif_tec = '1'
tt_criacao_bem_pat_api_10.tta_cod_arrendador = '10'
tt_criacao_bem_pat_api_10.tta_cod_contrat_leas = '120220'
tt_criacao_bem_pat_api_10.tta_cod_localiz = 'VIDRO-01'
tt_criacao_bem_pat_api_10.tta_cod_imagem = ''
tt_criacao_bem_pat_api_10.ttv_val_exc_icms = 0
tt_criacao_bem_pat_api_10.ttv_row_id = ROWID(tt_criacao_bem_pat_api_10).

CREATE tt_criacao_bem_pat_item_api_2.
ASSIGN tt_criacao_bem_pat_item_api_2.ttv_row_bem = tt_criacao_bem_pat_api_10.ttv_row_id
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.

CREATE tt_criacao_bem_pat_val_resid_1.
ASSIGN tt_criacao_bem_pat_val_resid_1.ttv_row_bem = ROWID(tt_criacao_bem_pat_api_10)
tt_criacao_bem_pat_val_resid_1.tta_cod_tip_calc = "DP"
tt_criacao_bem_pat_val_resid_1.tta_cod_cenar_ctbl = "Fiscal"
tt_criacao_bem_pat_val_resid_1.tta_cod_finalid_econ = "Corrente"
tt_criacao_bem_pat_val_resid_1.tta_val_resid_min = 5000.

CREATE tt_criacao_bem_pat_val_resid_1.
ASSIGN tt_criacao_bem_pat_val_resid_1.ttv_row_bem = ROWID(tt_criacao_bem_pat_api_10)
tt_criacao_bem_pat_val_resid_1.tta_cod_tip_calc = "DP"
tt_criacao_bem_pat_val_resid_1.tta_cod_cenar_ctbl = "Fiscal"
tt_criacao_bem_pat_val_resid_1.tta_cod_finalid_econ = "Fiscal"
tt_criacao_bem_pat_val_resid_1.tta_val_resid_min = 4000.

CREATE tt_criacao_bem_pat_img_1.
ASSIGN tt_criacao_bem_pat_img_1.ttv_row_bem = ROWID(tt_criacao_bem_pat_api_10)
tt_criacao_bem_pat_img_1.tta_des_imagem = "Imagem do Bem Teste API - Numero 1 com observacao"
tt_criacao_bem_pat_img_1.tta_dat_img = TODAY
tt_criacao_bem_pat_img_1.tta_log_princ = yes
tt_criacao_bem_pat_img_1.tta_nom_arq_img = "C:\Users\jaqueline\Downloads\bem_patrimonial_imagem_teste.jpg"
tt_criacao_bem_pat_img_1.tta_des_obs = "Observacao da imagem carregada via API".

CREATE tt_criacao_bem_pat_img_1.
ASSIGN tt_criacao_bem_pat_img_1.ttv_row_bem = ROWID(tt_criacao_bem_pat_api_10)
tt_criacao_bem_pat_img_1.tta_des_imagem = "Imagem do Bem Teste API - Numero 2 sem observacao"
tt_criacao_bem_pat_img_1.tta_dat_img = TODAY
tt_criacao_bem_pat_img_1.tta_log_princ = no
tt_criacao_bem_pat_img_1.tta_nom_arq_img = "C:\Users\jaqueline\Downloads\bem_patrimonial_imagem_sem_obesrvacao.jpg".

CREATE tt_criacao_bem_pat_img_1.
ASSIGN tt_criacao_bem_pat_img_1.ttv_row_bem = ROWID(tt_criacao_bem_pat_api_10)
tt_criacao_bem_pat_img_1.tta_des_imagem = "Imagem do Bem Teste API - Numero 3 sem data e sem observacao"
tt_criacao_bem_pat_img_1.tta_log_princ = no
tt_criacao_bem_pat_img_1.tta_nom_arq_img = "C:\Users\jaqueline\Downloads\nota_fiscal_bem_patrimonial.jpg".

RUN prgfin\fas\fas735zh.py PERSISTENT SET v_hdl_program.

RUN pi_main_api_criacao_bem_pat_14 IN v_hdl_program
(INPUT 1,
INPUT "EMS2" /*matriz traudcao*/,
INPUT "EMS2" /*matriz ccusto*/,
INPUT "EMS2" /*matriz finalidade econ.*/,
INPUT NO /*contabiliza*/,
INPUT TABLE tt_criacao_bem_pat_item_api_2,
INPUT TABLE tt_criacao_bem_pat_val_resid_1,
INPUT TABLE tt_criacao_bem_pat_img_1,
INPUT TABLE tt_criacao_bem_pat_api_10,
OUTPUT v_cod_return,
OUTPUT

output v_cod_return,

output v_des_mensagem).

if v_cod_return = "nok" then do:
   if disp v_des_mensagem.
if can-find (first tt_erros_criacao_bem_pat_api_1) then do:
      for each tt_erros_criacao_bem_pat_api_1:
          disp tt_erros_criacao_bem_pat_api_1.
      end.

end.

else disp v_des_mensagem end.
message "NOK".
end.

delete object DELETE OBJECT v_hdl_program.
assign ASSIGN v_hdl_program = ?.

Árvore de páginas

Versões comparadas

Versão antiga 22

Nova versão 146

Chave

Documento de API

Objetivo

Funcionamento

Parâmetros

Parâmetro

Parâmetros

Retorno

Tabelas Temporárias

Retorno

Tabelas Temporárias

Execução

Leitura e Criação dos Registros

Execução

Leitura e Criação dos Registros

Código do bem patrimonial.
tta_num_seq_bem_pat	integer	>>>>9	Sequência

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 22

Nova versão 146

Chave

Documento de API

Objetivo

Funcionamento

Parâmetros

Parâmetro

Parâmetros

Retorno

Tabelas Temporárias

Retorno

Tabelas Temporárias

Execução

Leitura e Criação dos Registros

Execução

Leitura e Criação dos Registros