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

<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="b1dd215d-d0c6-4b8f-bc96-af11b3b459b4"><ac:plain-text-body><![CDATA[

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

]]></ac:plain-text-body></ac:structured-macro>

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