ATFA036L - Loading of Asset Posting in Batches Screen

Description

Entry point ATFA036L executed when loading the asset posting in batches screen.

Notes

It replaces the entry point AT030BX.

Examples

/*/{Protheus.doc} ATFA036L

Entry Point executed when loading the asset posting in batches screen. Substituting entry point AT030BX.

@author TOTVS

@since 5/05/2014

@version 1.0

/*/

User Function ATFA036L

Local aParam := PARAMIXB // Vector with parameters received by entry points of asset posting in batches routine.

Local lRet := .T. // Return variable of entry points of routine for asset posting in batches.

Local oObj := aParam[1] // Object of Data Model of routine for asset posting in batches.

Local cIdPonto := aParam[2] // Identifier of entry point to be called through function ATFA036L of asset posting in batches routine.

Local cIdModel := IIf( oObj<> NIL, oObj:GetId(), aParam[3] ) // Identifier of Data Model of routine for asset posting (ATFA036).

Local cClasse := IIf( oObj<> NIL, oObj:ClassName(), '' ) // Name of class used in routine (FWFORMFIELD - Form, FWFORMGRID - Grid)

Local nOperation := 0

/*

 Checking whether the data model is active for using data from the asset posting routine before running entry point procedures.

*/

 If oObj != Nil .AND. oObj:IsActive() /*

• Editing Mode in Routine (4-Posting, 5-Cancellation)
  */
   nOperation := oObj:GetOperation()

/*

• Checking whether the Entry Point Identifier is Processed before Displaying the Postings Screen
   */
   If cIdPonto == "FORMPRE" /*
• Saving of Posting
   */
   If nOperation == MODEL_OPERATION_UPDATE

Help("" ,1, "FORMPRE",,"Entry Point Executed when loading display of form for saving the record of asset posting." ,1,0) lRet := .F. /*

• Saving of Posting Cancellation

 */

 ElseIf nOperation == MODEL_OPERATION_DELETE Help("" ,1, "FORMPRE",,"Entry Point Executed when loading display of form for saving the record of asset posting cancellation." ,1,0) lRet := .F.

EndIf

EndIf

EndIf

Return lRet

Language

Portuguese(Brazil)

Versions

Microsiga_Protheus12

Operating Systems Supported

All

Compatible with the following Databases

TOTVSDBAccess

Return

Logic Return (lRet := (.T./.F.))

Source Program

ATFA036L.PRW