EP AF030CHA

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