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

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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[


*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

]]></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