CREATE DEFINER = 'root'@'%' PROCEDURE `ups_Campos`(
        IN P_Accion VARCHAR(20),
        IN P_EstadoU CHAR(1),
        IN P_EstadoD CHAR(1),
        IN P_IDInforme INTEGER(11),
        IN P_NombreCampo VARCHAR(30),
        IN P_ValorCampo VARCHAR(50),
        IN P_Estado CHAR(1),
        IN P_CodUsuario VARCHAR(20),
        IN P_IDCampo INTEGER(11)
    )
    NOT DETERMINISTIC
    CONTAINS SQL
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
IF P_Accion ='XInforme' THEN
SELECT 
tblcampos.IDCampo,
tblcampos.NombreCampo,
tblcampos.ValorCampo,
IF(tblcampos.Estado='A','Activo','Inactivo') As Estado
FROM 
tblcampos
WHERE (tblcampos.Estado=P_EstadoU OR tblcampos.Estado=P_EstadoD)
AND tblcampos.IDInforme=P_IDInforme ORDER BY tblcampos.Creado;
ELSEIF P_Accion='Insertar' THEN
INSERT INTO 
  tblcampos
(
  IDInforme,
  NombreCampo,
  ValorCampo,
  Estado,
  Creado,
  Actualizado,
  CodUsuario
) 
VALUE (
  P_IDInforme,
  P_NombreCampo,
  P_ValorCampo,
  P_Estado,
  NOW(),
  NOW(),
  P_CodUsuario
);
ELSEIF P_Accion='Actualizar' THEN
UPDATE 
  tblcampos  
SET 
  NombreCampo = P_NombreCampo,
  ValorCampo = P_ValorCampo,
  Estado = P_Estado,
  Actualizado = NOW(),
  CodUsuario = P_CodUsuario 
WHERE 
  IDCampo = P_IDCampo;
END IF;
END;
/*********************************************************/
CREATE DEFINER = 'root'@'%' PROCEDURE `usp_Clientes`(
        IN P_Accion VARCHAR(20),
        IN P_EstadoU CHAR(1),
        IN P_EstadoD CHAR(1),
        IN P_IDCliente INTEGER(11),
        IN P_NombreCliente VARCHAR(50),
        IN P_Usuario VARCHAR(100),
        IN P_Clave VARCHAR(100),
        IN P_Servidor VARCHAR(50),
        IN P_BaseDatos VARCHAR(100),
        IN P_Puerto VARCHAR(20),
        IN P_RutaMSR TEXT,
        IN P_Estado CHAR(1),
        IN P_CodUsuario VARCHAR(20)
    )
    NOT DETERMINISTIC
    CONTAINS SQL
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
IF P_Accion='Inicio' THEN
SELECT 
  `IDCliente`,
  `NombreCliente`,
  `Usuario`,
  `Clave`,
  `Servidor`,
  `BaseDatos`,
  `Puerto`,
  `RutaMSR`,
  IF(Estado='A','Activo','Inactivo') As Estado
FROM 
  `tblclientes`  WHERE (Estado=P_EstadoU OR Estado =P_EstadoD);
ELSEIF P_Accion='Insertar' THEN
  INSERT INTO 
  `tblclientes`
(
  `NombreCliente`,
  `Usuario`,
  `Clave`,
  `Servidor`,
  `BaseDatos`,
  `Puerto`,
  `RutaMSR`,
  `Estado`,
  `Creado`,
  `Actualizado`,
  `CodUsuario`
) 
VALUE (
  P_NombreCliente,
  P_Usuario,
  P_Clave,
  P_Servidor,
  P_BaseDatos,
  P_Puerto,
  P_RutaMSR,
  P_Estado,
  NOW(),
  NOW(),
  P_CodUsuario
);
ELSEIF P_Accion='Actualizar' THEN
UPDATE 
  `tblclientes`  
SET 
  `NombreCliente` = P_NombreCliente,
  `Usuario` = P_Usuario,
  `Clave` = P_Clave,
  `Servidor` = P_Servidor,
  `BaseDatos` = P_BaseDatos,
   `Puerto`=P_Puerto,
  `RutaMSR` = P_RutaMSR,
  `Estado` = P_Estado,
  `Actualizado` = NOW(),
  `CodUsuario` = P_CodUsuario
WHERE 
  `IDCliente` = P_IDCliente
;
END IF;
END;
/******************************************************************/
CREATE DEFINER = 'root'@'%' PROCEDURE `usp_Informes`(
        IN P_Accion VARCHAR(20),
        IN P_EstadoU CHAR(1),
        IN P_EstadoD CHAR(1),
        IN P_IDInforme INTEGER(11),
        IN P_NombreInforme VARCHAR(100),
        IN P_Descripcion TEXT,
        IN P_Consulta LONGTEXT,
        IN P_Tipo CHAR(1),
        IN P_Estado CHAR(1),
        IN P_CodUsuario VARCHAR(20),
        IN P_Image LONGBLOB,
        IN P_IDCliente INTEGER(11)
    )
    NOT DETERMINISTIC
    CONTAINS SQL
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
IF P_Accion='Todos' THEN
SELECT 
tblinformes.ID,
tblinformes.NombreInforme,
tblinformes.Descripcion,
tblinformes.Tipo,
tblinformes.Consulta,
tblinformes.Image,
tblinformes.Estado
FROM
tblinformes
INNER JOIN tblinformesxusuario ON (tblinformes.ID = tblinformesxusuario.IDInforme)
INNER JOIN tblusuarios ON (tblinformesxusuario.CodUsuario = tblusuarios.CodUsuario)
INNER JOIN tblinformesxcliente ON (tblinformes.ID = tblinformesxcliente.IDInforme)
WHERE tblinformesxusuario.CodUsuario=P_CodUsuario AND (tblinformes.Estado=P_EstadoU Or tblinformes.Estado=P_EstadoD)
AND tblinformesxcliente.IDCliente=P_IDCliente
ORDER BY tblinformes.Creado;
ELSEIF P_Accion='Uno' THEN
SELECT 
  ID,  NombreInforme,  Descripcion,  Consulta,  Tipo
FROM 
  tblinformes
WHERE   
 ID=P_IDInforme ;
 ELSEIF P_Accion='Insertar' THEN
 INSERT INTO 
  tblinformes
(
  NombreInforme,
  Descripcion,
  Consulta,
  Tipo,
  Estado,
  Creado,
  Actualizado,
  CodUsuario,
  Image
) 
VALUE (
  P_NombreInforme,
  P_Descripcion,
  P_Consulta,
  P_Tipo,
  P_Estado,
  NOW(),
  NOW(),
  P_CodUsuario,
  P_Image
);
ELSEIF P_Accion ='AllRecords' THEN
SELECT 
tblinformes.ID,
tblinformes.NombreInforme,
tblinformes.Descripcion,
IF(tblinformes.Tipo='P','Procedimiento','Consulta') AS Tipo,
tblinformes.Consulta,
IF(tblinformes.Estado='A','Activo','Inactivo') AS Estado,
tblinformes.Image
FROM
tblinformes
WHERE (tblinformes.Estado=P_EstadoU Or tblinformes.Estado=P_EstadoD) ORDER BY tblinformes.ID;
ELSEIF P_Accion='Actualizar' THEN
UPDATE 
  tblinformes  
SET 
  NombreInforme = P_NombreInforme,
  Descripcion = P_Descripcion,
  Consulta = P_Consulta,
  Tipo = P_Tipo,
  Estado = P_Estado,
  Actualizado = NOW()
 WHERE 
  ID = P_IDInforme;
END IF;
END;
/***************************************************************************/
CREATE DEFINER = 'root'@'%' PROCEDURE `usp_InformesXCliente`(
        IN P_IDInforme INTEGER(11),
        IN P_IDCliente INTEGER(11),
        IN P_Accion VARCHAR(20)
    )
    NOT DETERMINISTIC
    CONTAINS SQL
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
IF P_Accion='XInforme' THEN
SELECT 
  `IDInforme`,
  `IDCliente`,
  `Actualizado`
FROM 
  `tblinformesxcliente`
WHERE  IDInforme =P_IDInforme  ;
ELSEIF P_Accion='Borrar' THEN 
DELETE FROM 
  `tblinformesxcliente` 
WHERE 
  `IDInforme` = P_IDInforme ;
ELSEIF P_Accion='Insertar' THEN
INSERT INTO 
  `tblinformesxcliente`
(
  `IDInforme`,
  `IDCliente`,
  `Actualizado`
) 
VALUE (
  P_IDInforme,
  P_IDCliente,
  NOW()
);
END IF;
END;
/***************************************************************/
CREATE DEFINER = 'root'@'%' PROCEDURE `usp_InformesXUsuario`(
        IN P_Accion VARCHAR(20),
        IN P_IDInforme INTEGER(11),
        IN P_CodUsuario VARCHAR(20)
    )
    NOT DETERMINISTIC
    CONTAINS SQL
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
IF P_Accion='Insertar' THEN
INSERT INTO 
  `tblinformesxusuario`
(
  `IDInforme`,
  `CodUsuario`,
  `Actualizado`,
  `Inserto`
) 
VALUE (
 P_IDInforme,
 P_CodUsuario,
 NOW(),
 NOW()
);
ELSEIF P_Accion='Actualizar' THEN
DELETE FROM `tblinformesxusuario` WHERE  `CodUsuario` = P_CodUsuario;
ELSEIF P_Accion='Todos' THEN
SELECT `IDInforme` FROM 
  `tblinformesxusuario`
  WHERE  `CodUsuario`=P_CodUsuario ;
END IF;
END;
/*********************************************************************/
CREATE DEFINER = 'root'@'%' PROCEDURE `usp_Parametros`(
        IN P_Accion VARCHAR(20),
        IN P_EstadoU CHAR(1),
        IN P_EstadoD CHAR(1),
        IN P_IDInforme INTEGER(11),
        IN P_NombrePar VARCHAR(50),
        IN P_DescripcionPar VARCHAR(50),
        IN P_TipoPar VARCHAR(20),
        IN P_Tipo CHAR(1),
        IN P_Consulta TEXT,
        IN P_Display VARCHAR(20),
        IN P_Value VARCHAR(20),
        IN P_Estado CHAR(1)
    )
    NOT DETERMINISTIC
    CONTAINS SQL
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
IF P_Accion='Todos' THEN
SELECT 
tblparametros.IDInforme,
tblparametros.NombrePar,
tblparametros.DescripcionPar,
tblparametros.Consulta,
tblparametros.TipoPar,
CASE tblparametros.Tipo WHEN 'P' THEN 'Procedimiento' WHEN 'D' THEN 'Consulta' WHEN 'E' THEN 'Elementos' END  AS Tipo,
tblparametros.Display,
tblparametros.`Value`,
IF(tblparametros.Estado='A','Activo','Inactivo') As Estado
FROM
tblinformes
INNER JOIN tblparametros ON (tblinformes.ID = tblparametros.IDInforme)
WHERE (tblparametros.Estado =P_EstadoU OR tblparametros.Estado=P_EstadoD) AND
tblparametros.IDInforme=P_IDInforme ORDER By tblparametros.Creado;
ELSEIF P_Accion='Insertar' THEN
INSERT INTO 
  tblparametros
(
  IDInforme,
  NombrePar,
  DescripcionPar,
  TipoPar,
  Tipo,
  Consulta,
  Display,
  `Value`,
  Estado,
  Creado,
  Actualizado
) 
VALUE (
  P_IDInforme,
  P_NombrePar,
  P_DescripcionPar,
  P_TipoPar,
  P_Tipo,
  P_Consulta,
  P_Display,
  P_Value,
  P_Estado,
  NOW(),
  NOW()
);
ELSEIF P_Accion='Actualizar' THEN
UPDATE 
  tblparametros  
SET 
  DescripcionPar = P_DescripcionPar,
  TipoPar = P_TipoPar,
  Tipo = P_Tipo,
  Consulta = P_Consulta,
  Display = P_Display,
  Value = P_Value,
  Estado = P_Estado,
  Actualizado = NOW()
WHERE 
  IDInforme = P_IDInforme AND 
  NombrePar = P_NombrePar
;
END IF;
END;
/*******************************************************************/
CREATE DEFINER = 'root'@'%' PROCEDURE `usp_Usuarios`(
        IN P_Accion VARCHAR(20),
        IN P_EstadoU CHAR(1),
        IN P_EstadoD CHAR(1),
        IN P_CodUsuario VARCHAR(20),
        IN P_Password INTEGER(11),
        IN P_Nombres VARCHAR(50),
        IN P_Apellidos VARCHAR(50),
        IN P_Cargo VARCHAR(100),
        IN P_Estado CHAR(1),
        IN P_Perfil CHAR(1)
    )
    NOT DETERMINISTIC
    CONTAINS SQL
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
IF P_Accion='Insertar' THEN
INSERT INTO 
  `tblusuarios`
(
  `CodUsuario`,
  `Password`,
  `Nombres`,
  `Apellidos`,
  `Cargo`,
  `Estado`,
  `Creado`,
  `Actualizado`,
  `Perfil`
) 
VALUE (
  P_CodUsuario,
  MD5(P_Password),
  P_Nombres,
  P_Apellidos,
  P_Cargo,
  P_Estado,
  NOW(),
  NOW(),
  P_Perfil
);
ELSEIF P_Accion='Actualizar' THEN
UPDATE 
  `tblusuarios`  
SET 
  `Nombres` = P_Nombres,
  `Apellidos` = P_Apellidos,
  `Cargo` = P_Cargo,
  `Estado` = P_Estado,
  `Actualizado` = NOW(),
  `Perfil` = P_Perfil
 WHERE 
  `CodUsuario` = P_CodUsuario
;
ELSEIF P_Accion='Todos' THEN
SELECT 
  `CodUsuario`,
  `Nombres`,
  `Apellidos`,
  `Cargo`,
  IF(`Estado`='A','Activo','Inactivo') AS Estado,
  `Creado`,
  `Actualizado`,
  CASE  `Perfil` WHEN 'A' THEN 'Administrador' WHEN 'G' THEN 'General' WHEN 'S' THEN 'Super' END AS Perfil
FROM 
  `tblusuarios`
WHERE (Estado=P_EstadoU Or Estado=P_EstadoD) ;
ELSEIF P_Accion='IniciarSesion' THEN
SELECT 
  `CodUsuario`,
  `Password`,
  CONCAT(`Nombres`,' ', `Apellidos`) Nombre,
  `Cargo`,
  `Estado`,
  `Perfil`
FROM 
  `tblusuarios`
 WHERE (Estado=P_EstadoU Or Estado=P_EstadoD) AND ( CodUsuario =P_CodUsuario AND `Password`=MD5(P_Password));
END IF;
END;