Utilizada para finalizar o sistema.
Sintaxe
FINAL( [ cMensagem1 ], [ cMensagem2 ] ) -> lógico
Descrição
Esta função executa operações básicas que garantem a integridade dos dados ao finalizar o sistema desmontando as transações (se houver), desbloqueando os semáforos e fechando as tabelas abertas.
Exemplo
User Function <nome-do-programa>( cUsuario, cSenha )
Local cMensag1 := “Usuário inválido!”
Local cMensag2 := “Opção disponível para usuários Administradores!”
If !PswAdmin( cUsuario, cSenha )
Final( cMensag1, cMensag2 )
EndIf
Return