Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFA030 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
Entry point ATFA036 is executed when loading the manual asset posting screen. It runs prior to screen display, allowing the handling of parameters or needed adjustments.
Entry points AF030CHA of routine ATFA030 and AF035CHA of routine ATFA035, were substituted, consolidating the feature in routine ATFA036.
User Function ATFA036
Local aParam := PARAMIXB // Vector with parameters received by entry points of the manual asset posting routine.
Local lRet := .T. // Return variable of entry points of manual asset posting routine.
Local oObj := aParam1 // Object of Data Model of asset posting in batches routine.
Local cIdPonto := aParam2 // Identifier of entry point to be called through function ATFA036 of manual asset posting routine.
Local cIdModel := IIf( oObj<> NIL, oObj:GetId(), aParam3 ) // 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 |
|