[firebase-br] Campo Boolean em Procedure no Firebird 1.5

[Luis Almeida]

Amigos, como uso um campo boolean em uma procedure no Firebird 1.5? 

Estou estudando a edição nº 76 da ClubDephi que ensina o Controle de Acesso de usuário, mas não estou conseguindo cria essa procedure. Estava lendo que não tem campo boolean no Firebird 1.5 Eu posso criar um domínio, e usar em uma procedure.


CREATE PROCEDURE PROC_VERIFICA_ACESSO_MENU ( 
CODUSUARIO INTEGER, CODMENU INTEGER) 
RETURNS (CONSULTAR CHAR(1)) 
AS 
DECLARE VARIABLE GU_CONSULTAR LOGICO; 
BEGIN 
CONSULTAR = 'F'; 
FOR SELECT PU_CONSULTAR FROM PERMISSOES_USUARIOS 
WHERE USU_CODIGO = :CODUSUARIO AND 
MEN_CODIGO = :CODMENU 
UNION 
SELECT PG_CONSULTAR FROM PERMISSOES_GRUPOS 
WHERE GRU_CODIGO IN ( 
SELECT GRU_CODIGO FROM GRUPOS_USUARIOS 
WHERE USU_CODIGO = :CODUSUARIO) AND 
MEN_CODIGO = :CODMENU 
INTO :GU_CONSULTAR 
DO 
BEGIN 
IF (:GU_CONSULTAR = TRUE) THEN 
BEGIN 
CONSUTAR = 'T'; 
EXIT; 
END 
END 
END 


ESTE É O ERRO: 

  Invalid token. 
Dynamic SQL Error. 
SQL error code = -104. 
Token unknown - line 5, char 31. 
LOGICO.
_________________
LUIS JR


Luis Jr

       
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!