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

Description

The entry point AF036DEP() ignores the last depreciation date in the process of posting a fixed asset using the request process (ATFA125.PRW) and the approval and posting process (ATFA126.PRW). This creation is an improvement to the Postings routine (ATFA036).

Note

The responsibility in relation to the depreciation calculation is on the account of the customer because the default product does not allow posting in 1+ month after the last calculation

Examples

User Function AF036DEP()

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

dDataBx - 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 lAF036DEP lRetDepr := ExecBlock("AF030DEP", .F., .F.,

{dUltDepr,dDataBx})

EndIf

Variables

Local lRetDepr := .F.

Local lAF036DEP := ExistBlock("AF036DEP")

Source Program

ATFA036.PRW

  • Sem rótulos