Histórico da Página

If ExistBlock("CTB500USU") 
	lUsu := ExecBlock( "CTB500USU", .F. , .F. ) 
	If !lUsu 
		Return
	EndIf
EndIf    

User function CTB500USU	

	If cUserName == "AdministradorAdministrator" 		
		Alert("UsuárioUser " + cUserName + " semno access acessoto athe rotinaroutine!")
		Return (.F.)	
	Else          		
		Return (.T.)	
	EndIf

Return

• Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
• Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

• It should be noted that the use of the Entry Point (PE) and its impacts on the system are the customer's responsibility.
• The examples used in this documentation are for demonstration purposes only; each customer must determine the behavior they wish to implement according to the scope of the entry point.