SHARE
TWEET

Untitled

a guest Mar 19th, 2019 49 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DELIMITER //
  2.  
  3. CREATE PROCEDURE pa_categoriapermiso
  4. (
  5.     IN Funcion INT,
  6.     IN Id_CategoriaPermisos INT,
  7.     IN Nombre_CatPer VARCHAR(50),
  8.     IN Siglas_CatPermisos VARCHAR(10),
  9.     IN Descripci贸n VARCHAR(100),
  10.     OUT Sw BOOL
  11. )
  12. BEGIN
  13.     If (Funcion = 1) --Registrar Categoria de Permiso
  14.             INSERT INTO `tbl_categoria_permisos`
  15.             (`Id_CategoriaPermisos`, `Nombre_CatPer`, `Siglas_CatPermisos`, `Descripci贸n`, `Activo`, `Fecha_Hora`)
  16.         VALUES
  17.             (NULL, Nombre_CatPer, Siglas_CatPermisos, Descripci贸n, UNHEX('1'), CURRENT_TIMESTAMP);
  18.         ElseIf (Funcion = 2) --Modificar Categoria de Permiso
  19.                 UPDATE
  20.                     `tbl_categoria_permisos`
  21.                         SET
  22.                         `Nombre_CatPer`=Nombre_CatPer,
  23.                         `Siglas_CatPermisos`=Siglas_CatPermisos,
  24.                         `Descripci贸n`=Descripci贸n,
  25.                         `Fecha_Hora`=[value-6]
  26.                 WHERE
  27.                     Id_CategoriaPermisos = Id_CategoriaPermisos
  28.                 Sw = True
  29.         ElseIf (Funcion = 3) --Eliminar Categoria de Permiso
  30.                 UPDATE
  31.                     `tbl_categoria_permisos`
  32.                         SET
  33.                         `Activo`=UNHEX('0'),
  34.                 WHERE
  35.                     `Id_CategoriaPermisos` = Id_CategoriaPermisos
  36.                 DECLARE Activo INT
  37.  
  38.         SELECT Activo=`Activo` FROM  `tbl_categoria_permisos` WHERE `Id_CategoriaPermisos` = Id_CategoriaPermisos
  39.  
  40.                 If Activo==0
  41.                     Sw = True
  42.                 else
  43.                     Sw = False
  44.                 End If;
  45.         ElseIf (Funcion >= 4) --ERROR
  46.             Sw = False
  47.         END IF;
  48. END//
  49.  
  50. DELIMITER ;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top