Felipe Santos

BEGIN
  Logon( :BlLogin.Usuario, :BlLogin.Senha || '@' || :BlLogin.Banco, FALSE );
  IF vConectado IS NULL THEN
    IF Form_Failure THEN
      vConectado := FALSE;
    ELSE
      vConectado := TRUE;
    END IF;
  END IF;
END;