01. GENERAL DATA

Product:

TOTVS Backoffice

Product Line:

Protheus Line

Industry:

Services

Module:

TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF)

Function:

ATFA240

Country:

Brazil

Ticket:

Internal

Requisite/Story/Issue

DSERCTR1-46748

02. DESCRIPTION

You can use entry point AF240BUT to add buttons to the Purchase Classification screen. With this entry point, the user can add specific features or customized accesses as the need arises.


If ExistBlock( "AF240BUT" )
      aAF240BUT := ExecBlock( "AF240BUT", .F., .F., aRotina )
      IF ValType( aAF240BUT ) == "A" .AND. Len( aAF240BUT ) > 0
            For nX := 1 To Len( aAF240BUT )
                  aAdd( aRotina, aAF240BUT[ nX ] )
            Next
      ENDIF
EndIf




User Function AF240BUT()

      //Button to be added
      Local aBotao := {}

      //Default Routine Buttons
      Private aRotina := ParamIXB[1]

      //Message
      MsgAlert("Entry Point executed for adding new buttons")

      //New button added
      aBotao := { { "Test Button", "AF010Visua" , 0 , 2 , ,.F.} }

Return aBotao




  • 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.


04. RELATED SUBJECTS