Histórico da Página

If ExistBlock("AT030BX")
      If !ExecBlock("AT030BX",.F.,.F.,{cMotivo,cNota,cSerie,lCancela})
            nOPt:=0
      Else
            nOPt:=1
      EndIf
EndIf

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

• It is noteworthy that the customer is responsible for EP utilization and its impacts on the system.
• The examples used in this documentation are for demonstration purposes only. Each customer must check what behavior they want to perform according to the scope of the entry point.