| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | CTBA500 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/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 == "Administrador"
Alert("Usuário " + cUserName + " sem acesso a rotina!")
Return (.F.)
Else
Return (.T.)
EndIf
Return |
|