Product: |
TOTVS Backoffice
|
Product Line: | Protheus Line |
Segment: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGACTB)
|
Function: | CTBA500 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
O ponto de entrada CTB500USU é utilizado para validação de usuário na rotina de Contabilização via arquivo TXT. Esse ponto de entrada permite restringir o acesso a determinados usuários, garantindo que apenas aqueles com a devida autorização possam realizar operações de contabilização através de importações TXT.
If ExistBlock("CTB500USU")
lUsu := ExecBlock( "CTB500USU", .F. , .F. )
If !lUsu
Return
EndIf
EndIf
User function CTB500USU
If cUserName == "Administrator"
Alert("User " + cUserName + " no access to the routine!")
Return (.F.)
Else
Return (.T.)
EndIf
Return
Important!