Páginas filhas
  • AF030DEP() - Ignore the last depreciation calculation

Description

Entry point AF030DEP() ignores the last depreciation date in the process of posting a fixed asset through the request process (ATFA125.PRW) and the approval and posting process (ATFA126.PRW). This creation is an improvement to the Postings routine (ATFA030).


*THE RESPONSIBILITY IN RELATION TO THE DEPRECIATION CALCULATION IS ON THE CHARGE OF THE CUSTOMER, BECAUSE THE STANDARD PRODUCT DOES NOT ALLOW POSTING IN MONTHS +1 AFTER THE CALCULATION.

Examples

User Function AF030DEP()

Local dUltDepr := ParamIxb[1]

Local dBaixa030 := ParamIxb[2]

Local lRetDepr := .F.


If MsgYesNo( "Ignore the last depreciation date?", "Notice" )

lRetDepr := .T.

Else

lRetDepr := .F.

EndIf


Return lRetDepr

Language

Portuguese(Brazil)

Versions

Previous_Versions

Operating Systems Supported

All

Compatible with the following Databases

All

Parameters

dUltDepr - Date of the last depreciation

dBaixa030 - Date of posting

Return

lRetDepr - Returns .T. if the user does not want to consider the last depreciation date.

Call events of the Entry Point

If lAF030DEP

lRetDepr := ExecBlock("AF030DEP", .F., .F.,{dUltDepr,dBaixa030})

EndIf

Variables

Local lRetDepr := .F.

Local lAF030DEP := ExistBlock("AF030DEP")

Source Program

ATFA030.PRX

  • Sem rótulos