Fórum Mensagem na procedure que retorna valor. #402869

SET TERM ^ ;
CREATE OR ALTER PROCEDURE SP_VALIDA_USUARIO (
    PLOGIN DM_LOGIN,
    PSENHA DM_SENHA )
RETURNS (
    VRESULT Integer )
AS
DECLARE VARIABLE vCOUNT DM_INTEIRO; 
BEGIN  
  
   vResult = 0;
  
    select count(idusuario)
        from usuario
        where lower(login) = lower(:plogin)
        INTO :vcount;
        
    if (:vcount = 0) then 
         vResult = 1;  
        exception e_acesso_negado;
        
                       
  suspend;  
        
END^
SET TERM ; ^

GRANT EXECUTE
 ON PROCEDURE SP_VALIDA_USUARIO TO  SYSDBA;