Utilizada para finalizar o sistema, essa função executa operações básicas que garantem a integridade dos dados ao finalizar o sistema, desmontando as transações, desbloqueando os semáforos e fechando as tabelas abertas.
Sintaxe:
Final( [ cStr ] , [ cStr1 ] )
Parâmetros:
Nome
Tipo
Descrição
Default
Obrigatório
cStr
Character
Cabeçalho da tela de finalização
""
cStr1
Character
Continuação da string de finalização
""
lLogOff
Logical
Indica se apresenta as opções de logoff do sistema
.F.
lLogin
Logical
Indica que está em login e não irá realizar o logout do usuário
.F.
nTimer
Numérico
Indica o tempo de espera para o fechamento da tela
0
aTHBtn
Array
Cria objeto do tipo botão para aparência de hiperlink
Exemplo:
#include "protheus.ch"
User Function TestFinal()
If ( Type("__cUserId") == "C" .and. __cUserId <> '000000' )
Final("Usuário sem acesso ao sistema")
EndIf
Return
