Histórico da Página

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.