Product: |
TOTVS Backoffice
|
Product Line: | Protheus Line |
Segment: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGAFIS)
|
Function: | CTBA240 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46748 |
The CT240BUT entry point aims to allow the inclusion of new buttons in the navigation interface (browse) of the Consolidation Route registration routine (CTBA240) This point is executed during the construction of the Private aRotina, making it possible for additional buttons to be configured and dynamically integrated into the interface.
With this functionality, it is possible to customize access to specific features, providing greater flexibility in adapting the system to the user's needs. This point is ideal for meeting custom demands, such as creating shortcuts to specific routines or including complementary actions directly in the registration browse.
If ExistBlock( "CT240BUT" ) aCT240BUT := ExecBlock( "CT240BUT", .F., .F., aRotina ) IF ValType( aCT240BUT ) == "A" .AND. Len( aCT240BUT ) > 0 For nX := 1 To Len( aCT240BUT ) aAdd( aRotina, aCT240BUT[ nX ] ) Next ENDIF EndIf
#include "rwmake.ch"
User Function CT240BUT
Local aCT240BUT := {}
aAdd( aCT240BUT, { "NOVO", "ALERT(' Entrie Point AF040BUT') ", 0, 3 } )
Return aCT240BUT
Important!