Versões comparadas

Chave

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

01. GENERAL DATA

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

02. DESCRIPTION

Entry point AT030BX is executed when loading the asset posting in batches screen in routine ATFA036L. It allows the application of specific filters or customizations before displaying data, adjusting the process of posting in batches in accordance with customized viewing or validation requirements.

03. OTHER INFORMATION

Handling of EP in the system

Bloco de código
languagecpp
themeRDark
titleHandling of EP in the system
If ExistBlock("AT030BX")
      If !ExecBlock("AT030BX",.F.,.F.,{cMotivo,cNota,cSerie,lCancela})
            nOPt:=0
      Else
            nOPt:=1
      EndIf
EndIf

...

Bloco de código
languagecpp
themeRDark
titleEP Example
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

...