Histórico da Página

01.

...

GENERAL DATA

Produto:

Solucoes_totvs

Solucoes_totvs_crossSolucaoCross

Product:

TOTVS Backoffice

Solucoes_totvs_parceirosSolucaoParceiros

Product Line:	Microsiga Protheus Line
Industry:	Services
Module:

Solucoes_totvs_parceirosexptotvsSolucaoParcsExpsTOTVSLinha de Produto:

Linhas_totvs

Linha	Linha Protheus

Segmento:

Segmentos_totvs

Segmento	Serviços

Módulo: Modulos_cross_segmentosModulosCrossSegmentos

TOTVS Backoffice (

Linha

Protheus Line) -

Ativo Fixo

Fixed Asset (

SIGAATF)

Modulos_framework

Modulos_totvs_construcao

Modulos_totvs_juridico

Modulos_totvs_logistica

Modulos_totvs_manufatura

Modulos_totvs_rh

Modulos_totvs_saude

SIGAFIS)

Function

Função

:	ATFA050 - AF050FPR

País

Country:

Brasil

Brazil

Ticket:

Interno

Internal

Requisito

Requirement/

Story

Story/Issue:

DSERCTR1-39974

02.

...

STATUS/

...

REQUISITION

Entry point AF050FPR allows selecting certain assets to be disregarded in the Monthly Calculation of depreciation

...

O ponto de entrada AF050FPR permite a seleção de determinados ativos a serem desconsiderados no Cálculo Mensal de depreciação.

Informações

title	Atenção	Attention

The examples used in this document are merely illustrativeOs exemplos utilizados nesse documento são meramente ilustrativos.

Aviso

title	IMPORTANTE !!!	IMPORTANT

The impacts caused by using the entry point are the total responsibility of the customer that implements them.

You may run this EP via PROCEDURE or ADVPL. If you perform the depreciation calculation without procedure, use the EP in ADVPL; whereas, if you perform the depreciation calculation with PROCEDURE, use the EP

Os impactos causados pela utilização do ponto de entrada são de total responsabilidade do cliente que o implementou.

Este PE pode ser executado via PROCEDURE ou ADVPL, se for executado o calculo de depreciação sem procedure utiliza-se o PE em ADVPL, agora se for executado o calculo de depreciação com PROCEDURE deve ser utilizado o PE via PROCEDURE

03.

...

SOLUTION

Explanation and contextualization regarding the use of the EP

...

Explicação e contextualização sobre o uso do PE.

Totvs custom tabs box

tabs	Passo Step 01, Passo Step 02, Passo Step 03, Passo Step 04
ids	passo1step1,passo2step2

Totvs custom tabs box items

default	yes
referencia	passo1	step1

Entry point when the Depreciation Calculation is performed by procedures. Note that, to use procedure AF050FPR, you must encode/develop it in the native language of the SGBD you are using. If you use ORACLE, encode it in ORACLE, if MSSQLSERVER, encode it in SQLSERVER and if in POSTGRES, encode it in POSTGRES.

The example below is in Oracle.

Procedure to use the procedure AF050FPR or any other Entry Point in procedure.

Install the main procedure package and check whether the Entry Point was created, being mindful of parameter MV_DROPPE.
It must be set to "F" to not delete the Entry Points.

Note this procedure is always installed in the database:

Image Added

Note: note that the EP is always executed in the call of the main procedure ATF001 as follows

Ponto de entrada quando o Cálculo de Depreciação é realizada por procedures. Detalhe que para ser utilizada, esta procedure AF050FPR deve ser codificada/desenvolvida na linguagem nativa do SGBD utilizado. Se utiliza ORACLE, codificar em ORACLE, se MSSQLSERVER codificar em SQLSERVER e se POSTGRES codificar em POSTGRES.

O exemplo abaixo está em Oracle.

Procedimento para utilizar a procedure AF050FPR ou qualquer outro Ponto de Entrada em procedure.

Instalar o pacote principal de procedure e verificar se o ponto de Entrada foi criada, atentando-se para o parâmetro MV_DROPPE.
Este deve estar parametrizado com "F" para que não se excluam os Pontos de Entradas.

Observe que essa procedure é sempre instalada no banco:

Image Removed

Obs: observe que o PE é sempre executada na chamada da procedure principal ATF001 da seguinte forma:

Bloco de código

language	sql
title	Chamada do PE EP Call via SQL
linenumbers	true

AF050FPR_11_T1 (vcFilial , vcN3_CBASE , vcN3_ITEM , vcN3_TIPO , vcN3_SEQ , IN_DATADEP , vcCalcula );

Totvs custom tabs box items

default	no
referencia	passo2step2

Exemplo em Example in PROCEDURE:

Aviso

title	Atenção

Importante se atentar que em procedure deve-se codificar, na linguagem do banco de Dados.

Attention

It is important to pay attention to the procedure in which you must encode, in the database language.

If encoded in Se codificado em ADVPL:

Bloco de código

language	cpp
title	Exemplo em Example in ADVPL
linenumbers	true

User Function AF050FPR()

	Local lRet := .F.
	Local cChave := Paramixb[1]
	Local aChave := {}

	// Monta array para itens que não serão depreciados
	// CBASE CITEM
	AADD(aChave, "100003 03 " )
	AADD(aChave, "100005 05 " )
	AADD(aChave, "111111 11 " )

	If Ascan(aChave, cChave) # 0
		lRet := .T.
		Alert("Ponto de entrada AF050FPR() executado")
	EndIf

Return lRet

04.

...

OTHER INFORMATION

Informações

title	Contextualização PEEP Contextualization

Bloco de código

language	cpp
title	Evento de Chamada do PE EP Call Event via ADVPL
linenumbers	true

If ExistBlock("AF050FPR")
	If ExecBlock("AF050FPR",.F.,.F.,{cChave})
		DbSelectarea(cAliasSn3)
		(cAliasSn3)->( DbSkip() )
		Loop
	EndIf
EndIf

Bloco de código

language	sql
title	Evento de Chamada do PE EP Call Event via PROCEDURE
linenumbers	true

AF050FPR_11_XX (vcFilial , vcN3_CBASE , vcN3_ITEM , vcN3_TIPO , vcN3_SEQ , IN_DATADEP , vcCalcula );

Informações

title	Parâmetros e Retorno	Parameters and Return

Parameters in Parâmetros em ADVPL:

ParâmetrosTipoDescrição

Parameters	Type	Description
cChave - PARAMIXB[1]	Caractere	Chave retornada para utilização	Character	Key returned for use

Parameters in Parâmetros em PROCEDURE:

ParâmetrosTipoDescriçãoCaractereCódigo baseCaractere do Código BaseTipo do bemSequencia da inclusão do bemData da depreciaçãoResultado retornado da Se pula o registro, Se não

Parameters	Type	Description
IN_FILIAL	Caractere Character	Filial utilizada Branch used
IN_CBASE	Character	Base Code
IN_ITEM	Character	Base Code Item
IN_TIPO	Caractere	Character	Asset Type
IN_SEQ	Caractere	Character	Asset addition sequence
IN_DATA	Caractere	Character	Depreciation Date
OUT_RESULT	Caractere	Character	Result returned from procedure.	If "0"	skip the record, If "1"	do not

Return of Entry Point ADVPL and Retorno do ponto de entrada ADVPL e PROCEDURE:

ModoRetornoTipoLógico

Mode	Return	Type
PROCEDURE	OUT_RESULT	Caractere Character
ADVPL	lRet	Logical

05.

...

RELATED SUBJECTS

Not Applicable

...

Não se aplica.

Páginas filhas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

01.

GENERAL DATA

02.

STATUS/

REQUISITION

03.

SOLUTION

04.

OTHER INFORMATION

05.

RELATED SUBJECTS