Histórico da Página

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:

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

Example in PROCEDURE:

Image Added

If encoded in ADVPL:

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

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

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

Parameters in ADVPL:

Parameters in PROCEDURE:

Return of Entry Point ADVPL and PROCEDURE: