Documento Documento de API

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

Objetivo

Criar bens patrimoniais no módulo de Ativo Fixo do EMS 5.

...

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_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.

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.
Pp_cod_matriz_Tradtrad_ccusto_ext	Deve ser informada a matriz de tradução de centros de custo.
Pp_cod_matriz_trad_finalid_Extext	Deve ser informada a matriz de tradução de finalidade econômica.
Pp_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_ api img_ 7 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_10	Esta temp-table contém os registros dos bens patrimoniais contem os registros dos bens que serão criados.
Pv_cod_return	Retorna string “OK” se não ocorreram erros.
Pv_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.

...

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 p 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.

...

Tabela Temporária	Descrição	Entrada/Saída
tt_criacao_bem_pat_api_710	Conterá as informações dos bens patrimoniais a serem implantados.	localLocal

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
tta_cod_unid_organ_ext	character	x(3)	Código da unidade

organizacional externa (
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)
Conta
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
Seqüência
Número da sequência do bem patrimonial. (
idem
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
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
(o
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.
Obs.
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.
Obs.
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.
Obs.
Importante: Depende que o
Bem
bem patrimonial credite PIS ou COFINS.
O valor passado deverá ser 00 para não credita
e
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.
Exercício de Crédito CSLL
Sim
X
tta_dat_calc_pat date 99/99/9999 Data de início de
cálulo
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
do bemNão
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
do
correspondente ao bem patrimonial. Não
tta_cod_modelo char x(8)
Modelo
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)
Licença
Código da licença de uso. Não
tta_cod_especif_tec char x(8)
Especificação técnica
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)
Arrendador
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)
Contrato
Código do contrato de Leasing. Não
tta_cod_localiz char x(12)
Localização
Código da localização física do bem patrimonial na empresa.
Não
tta_cod_imagem char x(30)
Imagem do bem
Nãottv_rec_idrecid>>>>>>9
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
Recid
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 que não foram importados com a respectiva mensagem de erro.	New Shared

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	PatrimonialCódigo da conta patrimonial.
tta_num_bem_pat	integer	>>>>>>>>9Bem Patrimonial	Código do bem patrimonial.
tta_num_seq_bem_pat	integer	>>>>9	Sequência Bemdo bem patrimonial.
tta_des_bem_pat	character	x(40)	Descrição Bem Patrimonialdo bem patrimonial.
tta_dat_aquis_bem_pat	date	99/99/9999	Data Aquisiçãoda aquisição do bem patrimonial.
tta_cod_finalid_econ_ext	character	x(8)	Finalid Econ ExternaCódigo da Finalidade Econômica Externa.
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 Bembem 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_recrow_bem	recidrowid		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_fornecedor	integer	>>>,>>>,>>9	Código do fornecedor que represente um fornecedor a qual o movimento está associado.	Sim
tta_cod_docto_entr	character	x(8)	Código da ou número do documento/nota fiscal.	Sim
tta_cod_ser_nota	character	X(35)	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 Bembem 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

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
ttv_recrow_bem	recidrowid		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_cod_tip_calc	character	x(7)	Código do tipo de cálculo do bem patrimonial.	Sim
tta_cod_cenar_ctbl	character	x(8)	Código do cenário contábil 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 do bem patrimonial.	Sim
tta_val_resid_min	decimal	>>>>,>>>,>>>,>>9.99	Valor residual mínimo	Sim

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
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 sequência)
Data de cálculo
Quando informada será utilizada como data de início de cálculo do bem. 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
Data de avaliação da apólice de seguros
Caso não seja informado, será utilizado o valor original informado para o bem
Estado físico do bem
Valida se o estado físico informado existe no sistema
Espécie do bem
Valida se a espécie informada existe no sistema
Marca do bem
Valida se a marca informada existe no sistema
Modelo do bem
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
Valida se a especificação técnica informada existe para o bem
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
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 a serem implantados:

/* Esta temp-table (tt_criacao_bem_pat_api_5) somente precisa estar declarada no programa chamador como NEW SHARED, mas não precisa ser alimentada. Ela se faz necessário devido a questões técnicas */

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_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 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 logical format "x(40)" label "Descrição Bem PatSim/Não" initial no label "Credita CSLL" column-label "Descrição Bem PatCredita CSLL"
field ttattv_datnum_aquisexerc_bemcr_pat csll as date integer format "99/99/9999" initial today label "Data AquisiçãoExerc. Crédito CSLL" column-label "Dat AquisExerc. 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_planoorgan_ccusto ext as character format "x(85)" label "Plano Centros CustoUnid Organ Externa" column-label "Plano Centros CustoUnid Organ Externa"
field tta_cod_ccustocta_ext pat as as character format "x(818)" label "Centro Custo ExternoConta Patrimonial" column-label "CCusto ExternoConta Patrimonial"
field tta_codnum_estabbem_ext pat as character integer format "x(8)" >>>>>>>>9" initial 0 label "Estabelecimento ExteBem Patrimonial" column-label "Estabelecimento ExtBem"
field tta_codnum_unidseq_negocbem_ext pat as character as integer format "x(8)" label "Unid Negócio Externa>>>>9" initial 0 label "Sequˆncia Bem" column-label "Unid Negócio ExternaSequˆncia"
field tta_coddes_finalid_econ_ext bem_pat as as character format "x(840)" label "Finalid Econ ExternaDescri‡Æo Bem Pat" column-label "Finalidade ExternaDescri‡Æo Bem Pat"
field ttvtta_valdat_aquis_bem_pat as decimal date format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Aquisição Bem99/99/9999" initial today label "Data Aquisi‡Æo" column-label "Aquisição BemDat Aquis"
field ttvtta_cod_logplano_erro ccusto as logical format "Sim/Não" initial yescharacter format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"
field tta_qtdcod_bem_pat_represen ccusto_ext as decimal character format ">>>>>>>>9" initial 1 label "Quantidade Bens Representadosx(8)" label "Centro Custo Externo" column-label "Bem RepresenCCusto Externo"
field tta_cod_cdnestab_fornecedor ext as Integer as character format ">>>,>>>,>>9" initial 0 label "Fornecedorx(8)" label "Estabelecimento Exte" column-label "FornecedorEstabelecimento Ext"
field tta_cod_unid_doctonegoc_entr ext as character format "x(8)" label "Docto EntradaUnid Neg¢cio Externa" column-label "Docto EntradaUnid Neg¢cio Externa"
field tta_cod_finalid_serecon_nota ext as character format "x(58)" label "Série NotaFinalid Econ Externa" column-label "Série NotaFinalidade Externa"
field ttattv_numval_itemaquis_doctobem_entr pat as integer decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Numero ItemAquisi‡Æo Bem" column-label "Num ItemAquisi‡Æo Bem"
field ttattv_num_id_bem_pat log_erro as integer logical format ">>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bem"Sim/NÆo" initial yes
field tta_desqtd_narrat_bem_pat _represen as character decimal format "x(2000)" label "Narrativa Bem>>>>>>>>9" initial 1 label "Quantidade Bens Representados" column-label "Narrativa Bem Represen"
field tta_logcdn_bem_imptdo fornecedor as logical Integer format "Sim/Não>>>,>>>,>>9" initial no 0 label "Bem ImportadoFornecedor" column-label "Bem ImportadoFornecedor"
field tta_logcod_crdocto_pis entr as logical character format "Sim/Não" initial no label "Credita PISx(8)" label "Docto Entrada" column-label "Credita PISDocto Entrada"
field tta_logcod_crser_cofins nota as logical as character format "Sim/Não" initial no label "Credita COFINSx(5)" label "S‚rie Nota" column-label "Credita COFINSS‚rie Nota"
field ttvtta_num_parcitem_pisdocto_cofins entr as integer format "999>>>,>>9" initial 0 label "Nro ParcelasNumero Item" column-label "Nro ParcelasNum Item"
field tta_num_valid_crbem_pis pat as decimal integer format ">>>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Cred PIS/PASEPIdentifica‡Æo Bem" column-label "Vl Cred PIS/PASEPIdentifica‡Æo Bem"
field tta_valdes_narrat_crbem_cofins pat as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINSas character format "x(2000)" label "Narrativa Bem" column-label "Credito COFINSNarrativa Bem"
field ttvtta_log_crbem_csll imptdo as as logical format "Sim/NãoNÆo" initial no label "Credita CSLLBem Importado" column-label "Credita CSLLBem Importado"
field ttvtta_num_exerclog_cr_csll pis as integer format "99" label "Exerc. Crédito CSLL" column-label "Exerc. Crédito CSLL"
.

/* Esta temp-table (tt_criacao_bem_pat_api_7) conterá os registros dos bens a serem criados no sistema */

as logical format "Sim/NÆo" initial no label "Credita PIS" column-label "Credita PIS"def temp-table tt_criacao_bem_pat_api_7 no-undo
field tta_codlog_unid_organ_ext cr_cofins as character as logical format "x(5)" label "Unid Organ ExternaSim/NÆo" initial no label "Credita COFINS" column-label "Unid Organ ExternaCredita COFINS"
field ttattv_num_codparc_cta_pat pis_cofins as character integer format "x(18)" 999" initial 0 label "Conta PatrimonialNro Parcelas" column-label "Conta PatrimonialNro Parcelas"
field tta_numval_bemcr_pat pis as integer as decimal format ">>>>>>>>9" >>>,>>>,>>9.99" decimals 2 initial 0 label "Bem PatrimonialValor Cred PIS/PASEP" column-label "BemVl Cred PIS/PASEP"
field tta_numval_seq_bem_pat cr_cofins as integer decimal format ">>>>9" >>>,>>>,>>9.99" decimals 2 initial 0 label "Sequência BemValor Cr‚dito COFINS" column-label "SequênciaCredito COFINS"
field tta_desval_bembase_pat pis as character format "x(40)" label "Descrição Bem Patas decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEP" column-label "Descrição Bem PatVl Base PIS/PASEP"
field tta_datval_aquis_bem_pat base_cofins as date decimal format "99/99/9999" initial today label "Data Aquisição>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINS" column-label "Dat AquisBase COFINS"
field ttattv_codlog_planocr_ccusto csll as character as logical format "x(8)" label "Plano Centros CustoSim/NÆo" initial no label "Credita CSLL" column-label "Plano Centros CustoCredita CSLL"
field ttattv_num_codexerc_ccustocr_ext csll as character as integer format "x(8)99" label "Centro Custo ExternoExerc. Cr‚dito CSLL" column-label "CCusto ExternoExerc. Cr‚dito CSLL"
field tta_coddat_estabcalc_ext pat as character as date format "x(8)" label "Estabelecimento Exte99/99/9999" initial today label "Data C lculo" column-label "Estabelecimento ExtData C lculo"
field tta_codcb3_unid_negoc_ext ident_visual as character Character format "x(820)" initial ? label "Unid Negócio ExternaN£mero Plaqueta" column-label "Unid Negócio ExternaN£mero Plaqueta"
field tta_cod_finalidestado_fisic_econbem_ext pat as character format "x(8)" label "Finalid Econ ExternaEstado F¡sico" column-label "Finalidade ExternaEstado F¡sico"
field ttvtta_valcod_aquisespec_bem _pat as decimal character format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Aquisição Bemx(6)" label "Esp‚cie Bem Patrimonial" column-label "Aquisição BemEsp‚cie"
field ttvtta_logcod_erro marca as logical format "Sim/Não" initial yes as character format "x(6)" label "Marca" column-label "Marca"
field tta_qtd_bem_pat_represen cod_modelo as decimal character format ">>>>>>>>9" initial 1 x(8)" label "Quantidade Bens RepresentadosModelo" column-label "Bem RepresenModelo"
field tta_cdn_fornecedor as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedordat_avaliac_apol_seguro as date format "99/99/9999" initial today label "Data Avalia‡Æo Apol" column-label "FornecedorData Avalia‡Æo Apol"
field tta_val_codavaliac_doctoapol_entr seguro as character format "x(8)" label "Docto Entrada as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Avalia‡Æo Apol" column-label "Docto EntradaValor Avalia‡Æo Apol"
field tta_cod_serlicenc_nota uso as character format "x(512)" label "Série NotaLicen‡a Uso" column-label "Série NotaLicen Uso"
field tta_numcod_item_docto_entr especif_tec as integer character format ">>>,>>9" initial 0 label "Numero Itemx(8)" label "Especifica‡Æo T‚cnica" column-label "Num ItemEspecifica‡Æo T‚cnica"
field tta_num_id_bem_pat cod_arrendador as integer character format ">>,>>>,>>9" initial 0 label "Identificação Bemx(6)" label "Arrendador" column-label "Identificação BemArrendador"
field tta_descod_narrat_bem_pat contrat_leas as character format "x(200012)" label "Narrativa BemContrato Leasing" column-label "Narrativa BemContr Leas"
field tta_log_bem_imptdo cod_localiz as logical as character format "Sim/Não" initial no x(12)" label "Bem ImportadoLocaliza‡Æo" column-label "Bem ImportadoLocaliza‡Æo"
field tta_logcod_cr_pis imagem as logical character format "Sim/Não" initial no x(30)" label "Credita PISImagem" column-label "Credita PISImagem"
field ttattv_log_cr_cofins row_id as logical format "Sim/Não" initial no label "Credita COFINS" column-label "Credita COFINS"as Rowid
field ttvtta_numcod_parc_pis_cofins natur_operac as integer as character format "999" initial 0 x(6)" label "Nro ParcelasNatureza Opera‡Æo" column-label "Nro ParcelasNatureza Opera‡Æo"
field ttattv_val_crexc_pis icms as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Cred PIS/PASEPExclusÆo ICMS" 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 "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 decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEP" column-label "Vl Base PIS/PASEP" as Rowid
field tta_val_base_cofins cdn_fornecedor as decimal as Integer format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINSFornecedor" column-label "Base COFINSFornecedor"
field ttvtta_logcod_crdocto_csll entr as logical as character format "Sim/Não" initial no label "Credita CSLLx(8)" label "Docto Entrada" column-label "Credita CSLLDocto Entrada"
field ttvtta_numcod_exerc_cr_csll ser_nota as integer as character format "99x(5)" label "Exerc. Crédito CSLLS‚rie Nota" column-label "Exerc. Crédito CSLLS‚rie Nota"
field tta_num_datitem_calcdocto_pat entr as date format "99/99/9999" initial today label "Data Cálculo as integer format ">>>,>>9" initial 0 label "Numero Item" column-label "Data CálculoNum Item"
field tta_cb3cod_identnatur_visual operac as Character character format "x(206)" initial ? label "Número PlaquetaNatureza Opera‡Æo" column-label "Número PlaquetaNatureza Opera‡Æo"
field tta_codqtd_estadoitem_fisic_bem_pat docto_entr as character as decimal format "x(8)" label "Estado Físico>>>>>>>>9" initial 0 label "Qtde Item Docto" column-label "Estado Físico"
field tta_cod_espec_bem Qtde Item Docto"
index tt_id is primary unique
ttv_row_bem ascending
tta_cdn_fornecedor as character format "x(6)" label "Espécie Bem Patrimonial" column-label "Espécie"ascending
field tta_cod_docto_marca entr ascending
as character format "x(6)" label "Marca" column-label "Marca"
field tta_cod_modelo _ser_nota ascending
tta_num_item_docto_entr as character format "x(8)" label "Modelo" column-label "Modelo" ascending
field tta_datcod_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_licencnatur_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 _uso as character format "x(12)" label "Licença Uso" column-label "Licen Uso" as Rowid
field tta_cod_especiftip_tec calc as as character format "x(87)" label "Especificação TécnicaTipo C lculo" column-label "Especificação TécnicaTipo C lculo"
field tta_cod_arrendador cenar_ctbl as character format "x(68)" label "ArrendadorCen rio Cont bil" column-label "ArrendadorCen rio Cont bil"
field tta_cod_contratfinalid_leas econ as character format "x(1210)" label "Contrato LeasingFinalidade" column-label "Contr LeasFinalidade"
field tta_val_codresid_localiz min as character decimal format "x(12)" label "Localização->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Residual M¡nimo" column-label "Localização"
field tta_cod_imagem Residual"
index tt_id is primary unique
ttv_row_bem ascending
tta_cod_tip_calc as character format "x(30)" label "Imagem" column-label "Imagem"
field ttv_rec_id ascending
tta_cod_cenar_ctbl ascending
tta_cod_finalid_econ as recidascending
.

/* Esta temp-table (tt_criacao_bem_pat_itemimg_api) conterá os itens do documento de entrada a serem vinculados aos bens1) 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_itemimg_api 1 no-undo
field ttv_rec_bem as recid format ">>>>>>9"
field tta_cdn_fornecedor row_bem as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor" as Rowid
field tta_cod_docto_entr des_imagem as character format "x(840)" label "Docto EntradaDescri‡Æo" column-label "Docto EntradaDescri‡Æo"
field tta_cod_ser_nota dat_img as character as date format "x(5)" label "Série Nota99/99/9999" initial ? label "Data Imagem" column-label "Série NotaData Imagem"
field tta_num_item_docto_entr log_princ as integer logical format ">>>,>>9Sim/NÆo" initial 0 no label "Numero ItemPrincipal" column-label "Num ItemPrincipal"
field tta_qtdnom_item_docto_entr arq_img as decimal character format ">>>>>>>>9" initial 0 label "Qtde Item Doctox(200)" label "Arquivo Imagem" column-label "Qtde Item DoctoArquivo"
index tt_id field tta_des_obs is primary unique
ttv 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 _rec_bem ascending
tta_cdn_fornecedor ascending
tta_cod_docto_entr ascending as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"
field tta_codnum_serbem_nota pat ascending as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"
field tta_num_itemseq_doctobem_entr pat ascending
.

/* esta temp-table (tt_criacao_bem_pat_val_resid) conterá os valores residuais dos bens a serem criados no sistema. Não é obrigatório criar registros nesta temp-table */

def temp-table tt_criacao_bem_pat_val_resid no-undo
field ttv_rec_bem as integer format ">>>>9" initial 0 label "Sequncia Bem" column-label "Sequncia"
field tta_des_bem_pat as recid character format ">>>>>>9x(40)" label "DescriÔÇÖo Bem Pat" column-label "DescriÔÇÖo Bem Pat"
field tta_coddat_aquis_tip_calc 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(78)" label "Tipo CálculoFinalid Econ Externa" column-label "Tipo CálculoFinalidade Externa"
field tta_codttv_cenardes_ctbl mensagem as character format "x(850)" label "Cenário ContábilMensagem" column-label "Cenário ContábilMensagem"
field tta.

DEF VAR v_cod_finalidreturn 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 _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= "034"
ttv_rec_bem tt_criacao_bem_pat_api_10.tta_num_bem_pat ascending= 224885
tta_cod_tip_calc tt_criacao_bem_pat_api_10.tta_num_seq_bem_pat ascending= 1
tt_criacao_bem_pat_api_10.tta_coddes_cenarbem_ctbl pat ascending= "Teste API - " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")
tta_cod_finalid_econ tt_criacao_bem_pat_api_10.tta_dat_aquis_bem_pat = 07/01/2023
ascending
./* Esta temp-table (tt_erros tt_criacao_bem_pat_api_1) será criada pela API e conterá os erros ocorridos durante a criação dos bens */
DEF NEW shared temp-table tt_erros_10.tta_cod_plano_ccusto = "Alfa"
tt_criacao_bem_pat_api_1 no-undo
field 10.tta_cod_unidccusto_organ_ext as character format "x(5)" label "Unid Organ Externa" column-label "Unid Organ Externa= "31400"
field tt_criacao_bem_pat_api_10.tta_cod_ctaestab_pat ext as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"= "1"
field tta tt_numcriacao_bem_pat_api_10.tta_cod_unid_negoc_ext = "999"
as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"
field tta_num_seq tt_criacao_bem_pat_api_10.tta_cod_finalid_econ_ext = "0"
tt_criacao_bem_pat_api_10.ttv_val_aquis_bem_pat as integer format ">>>>9" initial 0 label "Sequência Bem" column-label "Sequência"
field tta_des= 50000
tt_criacao_bem_pat_api_10.ttv_log_erro 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_hdl_program AS HANDLE NO-UNDO.
def var p_cod_return as char.
def var p_des_mensagem as char format "x(50)".

create tt= 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_7.10.tta_log_cr_pis = NO
assign tt tt_criacao_bem_pat_api_710.ttattv_codnum_unidparc_organpis_Ext cofins = "10"0
tt_criacao_bem_pat_api_710.tta_codval_Ctacr_pat pis = "034"0
tt_criacao_bem_pat_api_710.tta_numval_bemcr_pat cofins = 220815
0
tt_criacao_bem_pat_api_10.tta_cod_docto_entr = "3232"
tt_criacao_bem_pat_api_710.tta_numcod_seq_bem_pat ser_nota = 1'u'
tt_criacao_bem_pat_api_710.tta_desnum_item_bemdocto_pat entr = "Teste API - " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")= 20
tt_criacao_bem_pat_api_710 .tta_dat_aquis_bemcalc_pat = TODAY - 31
07/01/2023
tt_criacao_bem_pat_api_710.tta_codcb3_planoident_ccusto visual = "Alfa"'12345678'
tt_criacao_bem_pat_api_710.tta_cod_estado_fisic_ccusto_ext bem_pat = "31400ATIVO"
tt_criacao_bem_pat_api_710.tta_cod_estabespec_ext bem = "1"
'004'
tt_criacao_bem_pat_api_710.tta_cod_unid_negoc_ext marca = "999"
= 'COMPAQ'
tt_criacao_bem_pat_api_710.tta_cod_finalid_econ_ext modelo = "0LS1"
tt_criacao_bem_pat_api_710.ttvtta_valdat_aquisavaliac_bemapol_pat seguro = 10000
= 07/01/2023
tt_criacao_bem_pat_api_7.ttv_log_erro = no10.tta_val_avaliac_apol_seguro = 50000
tt_criacao_bem_pat_api_710.tta_qtdcod_Bem_pat_represen licenc_uso = '1'
tt_criacao_bem_pat_api_710.tta_cod_cdnespecif_fornecedor tec = '1'
tt_criacao_bem_pat_api_710.tta_num_id_bem_pat cod_arrendador = 0
'10'
tt_criacao_bem_pat_api_710.tta_descod_narrat_Bem_pat contrat_leas = ""'120220'
tt_criacao_bem_pat_api_710.tta_log_cr_cofins cod_localiz = NO
'VIDRO-01'
tt_criacao_bem_pat_api_710.tta_logcod_cr_pis imagem = NO''
tt_criacao_bem_pat_api_710.ttv_numval_parc_pis_cofins exc_icms = 0
tt_criacao_bem_pat_api_710.ttattv_val_cr_pis row_id = 0
ttROWID(tt_criacao_bem_pat_api_10).

CREATE tt_criacao_bem_pat_item_api_7.tta_val_cr_cofins = 0
2.
ASSIGN tt_criacao_bem_pat_item_api_2.ttv_row_bem tt= tt_criacao_bem_pat_api_710.ttattv_cod_docto_entr = "3232"row_id
tt_criacao_bem_pat_item_api_72.tta_cod_ser_nota cdn_fornecedor = 'u'13
tt_criacao_bem_pat_item_api_72.tta_numcod_item_docto_entr = 20
"2206231"
tt_criacao_bem_pat_item_api_72.tta_datcod_calcser_pat nota = TODAY - 15= "1"
tt_criacao_bem_pat_item_api_72.tta_num_cb3item_ident_visual = '12345678'
docto_entr = 20
tt_criacao_bem_pat_item_api_72.tta_cod_estado_fisic_bem_pat natur_operac = "ATIVO111A90"
tt_criacao_bem_pat_item_api_72.tta_cod_espec_bem = '004'
ttqtd_item_docto_entr = 1.

CREATE tt_criacao_bem_pat_val_resid_1.
ASSIGN tt_criacao_bem_pat_val_apiresid_71.ttattv_cod_marca row_bem = 'COMPAQ'
ROWID(tt_criacao_bem_pat_api_10)
tt_criacao_bem_pat_val_apiresid_71.tta_cod_modelo tip_calc = "LS1DP"

tt_criacao_bem_pat_val_apiresid_71.tta_datcod_avaliaccenar_apol_seguro ctbl = TODAY - 10
"Fiscal"
tt_criacao_bem_pat_apival_resid_71.tta_valcod_avaliac_apol_seguro = 5000finalid_econ = "Corrente"
tt_criacao_bem_pat_val_apiresid_71.tta_codval_licenc_uso resid_min = '1'
tt5000.

CREATE tt_criacao_bem_pat_api_7.tta_cod_especif_tec = '1'
ttval_resid_1.
ASSIGN tt_criacao_bem_pat_apival_resid_71.ttattv_codrow_arrendador bem = '10'
ttROWID(tt_criacao_bem_pat_api_7.tta_cod_contrat_leas = '120220'
10)
tt_criacao_bem_pat_val_apiresid_71.tta_cod_localiz = 'VIDRO-01'
tip_calc = "DP"
tt_criacao_bem_pat_val_apiresid_71.tta_cod_imagem = '0.30.600'cenar_ctbl = "Fiscal"
tt_criacao_bem_pat_val_apiresid_71.ttvtta_cod_rec_id finalid_econ = "Fiscal"
= RECID(tt tt_criacao_bem_pat_val_apiresid_7).1.tta_val_resid_min = 4000.

CREATE tt_criacao_bem_pat_itemimg_api1.
ASSIGN tt_criacao_bem_pat_itemimg_api1.ttv_rec_bem row_bem = ROWID(tt_criacao_bem_pat_api_7.ttv_rec_id10)
tt_criacao_bem_pat_itemimg_api1.tta_cdndes_fornecedor imagem = 1
= "Imagem do Bem Teste API - Numero 1 com observacao"
tt_criacao_bem_pat_itemimg_api1.tta_cod_docto_entr dat_img = "3232"TODAY
tt_criacao_bem_pat_itemimg_api1.tta_codlog_ser_nota = "u"
princ = yes
tt_criacao_bem_pat_item_api.tta_num_item_docto_entr = 20_img_1.tta_nom_arq_img = "C:\Users\jaqueline\Downloads\bem_patrimonial_imagem_teste.jpg"
tt_criacao_bem_pat_itemimg_api1.tta_qtd_item_docto_entr = 1. des_obs = "Observacao da imagem carregada via API".

CREATE tt_criacao_bem_pat_valimg_resid1.
ASSIGN tt_criacao_bem_pat_valimg_resid1.ttv_recrow_bem = RECIDROWID(tt_criacao_bem_pat_api_710)
tt_criacao_bem_pat_valimg_resid1.tta_cod_tip_calc = "DP"
des_imagem = "Imagem do Bem Teste API - Numero 2 sem observacao"
tt_criacao_bem_pat_valimg_resid1.tta_cod_cenar_ctbl = "Fiscal"   dat_img = TODAY
tt_criacao_bem_pat_valimg_resid1.tta_cod_finalid_econ = "Corrente"   log_princ = no
tt_criacao_bem_pat_valimg_resid1.tta_valnom_residarq_min = 500. img = "C:\Users\jaqueline\Downloads\bem_patrimonial_imagem_sem_obesrvacao.jpg".

CREATE tt_criacao_bem_pat_valimg_resid1.
ASSIGN tt_criacao_bem_pat_valimg_resid1.ttv_recrow_bem = RECIDROWID(tt_criacao_bem_pat_api_710)
tt_criacao_bem_pat_valimg_resid1.tta_cod_tip_calc des_imagem = "DP"
Imagem do Bem Teste API - Numero 3 sem data e sem observacao"
tt_criacao_bem_pat_valimg_resid1.tta_codlog_cenar_ctbl princ = "Fiscal"   no
tt_criacao_bem_pat_valimg_resid1.tta_codnom_finalidarq_econ = "Fiscal"
tt_criacao_bem_pat_val_resid.tta_val_resid_min = 400.img = "C:\Users\jaqueline\Downloads\nota_fiscal_bem_patrimonial.jpg".

RUN

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

run RUN pi_main_api_criacao_bem_pat_10 14 IN v_hdl_program
(input INPUT 1,
input INPUT "EMS2" /*matriz traudcao*/,
input INPUT "EMS2" /*matriz ccusto*/,
input INPUT "EMS2" /*matriz finalidade econ.*/,
INPUT NO /*contabiliza*/,
input NO /*contabiliza*/INPUT TABLE tt_criacao_bem_pat_item_api_2,
INPUT INPUT TABLE tt_criacao_bem_pat_itemval_resid_api1,
INPUT INPUT TABLE tt_criacao_bem_pat_valimg_resid1,
INPUT INPUT TABLE tt_criacao_bem_pat_api_710,
output pOUTPUT v_cod_return,
output pOUTPUT 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 100

Nova versão 139

Chave

Documento Documento de API

Objetivo

Parâmetros

Execução

Leitura e Criação dos Registros

Execução

Leitura e Criação dos Registros

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

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

.	Sim
tta_cod_estab_ext	character	x(8)	Código do estabelecimento externo

unidade de negócio responsável pelo bem patrimonial.	Sim
tta_cod_finalid_econ_ext	character	x(8)	Código da finalidade externa

.	Sim
ttv_val_aquis_bem_pat	decimal	->>,>>>,>>>,>>9.99	Valor de aquisição do bem

.	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.

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

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 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 da localização física do bem patrimonial na empresa.	Não
tta_cod_imagem	char	x(30)	Imagem do bem

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 100

Nova versão 139

Chave

Documento Documento de API

Objetivo

Parâmetros

Execução

Leitura e Criação dos Registros

Execução

Leitura e Criação dos Registros