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
""
Exemplo:
#include "protheus.ch"
User Function TestFinal()
If ( Type("__cUserId") == "C" .and. __cUserId <> '000000' )
Final("Usuário sem acesso ao sistema")
EndIf
Return
