miércoles, 26 de febrero de 2020

SP sistema abmtabla seguridad 271220

----------
  INDICE
----------
nota: el orden del envio de los parametros desde vb.net a sql server implica en erroes graves y perdida de datos.
****************************************************************
CONTROL + B, LUEGO CONTROL + V 
****************************************************************
------------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]    Script Date: 12/2/2020 13:15:14 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA: seguridad
 --MODULO DE DEPENDENCIA.: Abm tabla editar pérmisos
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]
@_perfil INT,
@_modulo int
AS

 IF @_modulo = 0
begin

 SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo AS IDMODULO,
SA.codAplic AS APLICACION,
SA.idAplic AS IDAPLICACION,
PA.Activo AS ACTIVO,
PF.idPerfil AS IDPERFIL
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil
ORDER BY SM.codModulo ASC 

 END

 IF @_modulo <> 0
begin
SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo AS IDMODULO,
SA.codAplic AS APLICACION,
SA.idAplic AS IDAPLICACION,
PA.Activo AS ACTIVO,
PF.idPerfil AS IDPERFIL
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PM.idPerfil=@_perfil AND PM.Activo=1 AND PA.Activo=1 AND sm.idModulo=@_modulo
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil  
ORDER BY SM.codModulo ASC 
end
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_PERFILES_ELIMINAR_APLICACION]    Script Date: 12/2/2020 10:50:37 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....: 12-02-2020
 --APLICACION DEPENDENCIA: seguridad
 --MODULO DE DEPENDENCIA.: Abm tabla editar pérmisos
 --ULTIMA MODIFICACIÓN...:
 --******************************************* 
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_PERFILES_ELIMINAR_APLICACION]

 @IDPERFIL AS INT,
@IDAPLICACION AS INT


 AS
DELETE FROM PERFIL_APLICACIONES WHERE idPerfil=@IDPERFIL AND idAplicacion=@IDAPLICACION
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_PERFILES_ELIMINAR_MODULO]    Script Date: 12/2/2020 10:49:14 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....: 12-02-2020
 --APLICACION DEPENDENCIA: seguridad
 --MODULO DE DEPENDENCIA.: Abm tabla editar pérmisos
 --ULTIMA MODIFICACIÓN...:
 --******************************************* 
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_PERFILES_ELIMINAR_MODULO]

 @IDPERFIL AS INT,
@IDMODULO AS INT

 AS
DELETE dbo.PERFIL_MODULOS WHERE idPerfil=@IDPERFIL AND idModulo=@IDMODULO






--SELECT * FROM PERFIL_MODULOS PM WHERE PM.idPerfil= 1 AND PM.idModulo=40
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]    Script Date: 11/2/2020 15:41:59 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA: seguridad
 --MODULO DE DEPENDENCIA.: Abm tabla editar pérmisos
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]
@_perfil INT,
@_modulo int
AS

 IF @_modulo = 0
begin

 SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo AS IDMODULO,
SA.codAplic AS APLICACION,
SA.idAplic AS IDAPLICACION,
PA.Activo AS ACTIVO,
PF.idPerfil AS IDPERFIL
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil
ORDER BY SM.codModulo ASC 

 END

 IF @_modulo <> 0
begin
SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo AS IDMODULO,
SA.codAplic AS APLICACION,
SA.idAplic AS IDAPLICACION,
PA.Activo AS ACTIVO,
PF.idPerfil AS IDPERFIL
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1 AND sm.idModulo=@_modulo
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil  
ORDER BY SM.codModulo ASC 
end
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]    Script Date: 11/2/2020 15:25:27 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA: seguridad
 --MODULO DE DEPENDENCIA.: Abm tabla editar pérmisos
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]
@_perfil INT,
@_modulo int
AS

 IF @_modulo = 0
begin

 SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo,
SA.codAplic AS APLICACION,
SA.idAplic,
PA.Activo AS ACTIVO,
PF.idPerfil 
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil
ORDER BY SM.codModulo ASC 

 END

 IF @_modulo <> 0
begin
SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo,
SA.codAplic AS APLICACION,
SA.idAplic,
PA.Activo AS ACTIVO,
PF.idPerfil  
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1 AND sm.idModulo=@_modulo
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil  
ORDER BY SM.codModulo ASC 
end
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULO_APTUALIZAR]    Script Date: 11/2/2020 14:52:19 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....: 11/02/2020
 --APLICACION DEPENDENCIA: SEGURIDAD
 --MODULO DE DEPENDENCIA.: MODULO ACTUALIZAR
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULO_APTUALIZAR]
@IDMODULO AS INT,
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

 AS

 UPDATE SISTEMA_MODULOS SET
CODMODULO = @NOMBRE,
DESCMODULO = @DESC,
ACTIVO = @ACTIVO,
IDUSUARIO = @IDUSUARIO,
CODTILE =@CODTILE,
TS = GETDATE()
WHERE IDMODULO = @IDMODULO

 -----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_AMBTABLAS_CARGAR_MODULO]    Script Date: 11/2/2020 14:50:30 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....: 11/02/2020
 --APLICACION DEPENDENCIA: SEGURIDAD
 --MODULO DE DEPENDENCIA.: MODULO AGREGAR
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_AMBTABLAS_CARGAR_MODULO]

 AS

SELECT  IDMODULO as ID,
CODMODULO as CODIGO,
    DESCMODULO as DESCRIPCION,
ACTIVO,
    CODTILE AS TILE,
    idUsuario AS USUARIO
   FROM SISTEMA_MODULOS
WHERE ACTIVO = 1 ORDER BY id ASC

 -----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULOS_INSERTAR]    Script Date: 11/2/2020 14:48:17 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....: 11/02/2020
 --APLICACION DEPENDENCIA: SEGURIDAD
 --MODULO DE DEPENDENCIA.: MODULO AGREGAR
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULOS_INSERTAR]
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

 AS

 INSERT INTO SISTEMA_MODULOS VALUES(@NOMBRE,@DESC,@ACTIVO,@IDUSUARIO,GETDATE(),@CODTILE)

 -----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_LISTAR_PERFILES]    Script Date: 11/2/2020 14:42:44 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_LISTAR_PERFILES]

 AS

 SELECT  IDPERFIL AS ID,
NOMPERFIL AS NOMBRE,
DESCPERFIL AS DESCRIPCIÓN,
ACTIVO
FROM SISTEMA_PERFILES
where activo = 1
ORDER BY NOMPERFIL
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_MODULOS_LISTAR]    Script Date: 11/2/2020 14:41:16 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_MODULOS_LISTAR]

 AS

 SELECT IDMODULO as id,
CODMODULO as nombre, 
DESCMODULO as descripcion,
ACTIVO
FROM SISTEMA_MODULOS
WHERE ACTIVO = 1 ORDER BY codModulo ASC

 -----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_BUSCAR_APLICACION_MODULO_POR_PERFIL]    Script Date: 11/2/2020 14:35:20 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_BUSCAR_APLICACION_MODULO_POR_PERFIL]
@IDAPLICACION INT,
@IDPERFIL INT,
--@ACTIVO BIT,
@IDMODULO INT
--@USUARIO VARCHAR(10)

 AS

 SELECT a.idPerfil AS perfil FROM dbo.PERFIL_APLICACIONES A INNER JOIN PERFIL_MODULOS M
ON
A.IDAPLICACION = @IDAPLICACION
AND
M.IDMODULO = @IDMODULO
AND
M.IDPERFIL = @IDPERFIL
WHERE A.IDPERFIL = @IDPERFIL
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_LISTADO_APLICACIONES]    Script Date: 11/2/2020 11:48:35 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_LISTADO_APLICACIONES]
@_idmodulo int
AS

 SELECT IDAPLIC AS 'IDAPLIC', 
CODAPLIC AS 'CODAPLIC',
DESCAPLIC AS 'DESCAPLIC'
FROM SISTEMA_APLICACIONES
WHERE idModulo= @_idmodulo AND ACTIVO = 1
ORDER BY IDAPLIC ASC
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]    Script Date: 11/2/2020 12:19:40 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]
@_perfil INT,
@_modulo int
AS

 IF @_modulo = 0
begin

 SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo,
SA.codAplic AS APLICACION,
SA.idAplic,
PA.Activo AS ACTIVO 
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo 
ORDER BY SM.codModulo ASC 

 END

 IF @_modulo <> 0
begin
SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo,
SA.codAplic AS APLICACION,
SA.idAplic,
PA.Activo AS ACTIVO 
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1 AND sm.idModulo=@_modulo
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo 
ORDER BY SM.codModulo ASC 
end
 --*******************************************
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_GRABAR_APLICACION_MODULO_POR_PERFIL]    Script Date: 11/2/2020 14:21:25 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************

       
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_GRABAR_APLICACION_MODULO_POR_PERFIL]
@IDAPLICACION INT,
@IDPERFIL INT,
@IDMODULO INT,
@USUARIO VARCHAR(10)
--@ACTIVO BIT,
--@_VARIA INT
AS

INSERT INTO PERFIL_APLICACIONES (idPerfil, idAplicacion, Activo, idUsuario, TS)
VALUES (@IDPERFIL,@IDAPLICACION, 1, @USUARIO, GETDATE())

 INSERT INTO dbo.PERFIL_MODULOS VALUES(@IDPERFIL,@IDMODULO,1,@USUARIO,GETDATE()) 

 ------------------------------------------------------------------------------------------------------------------------

 USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_LISTADO_APLICACIONES]    Script Date: 11/2/2020 08:23:09 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

 ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_LISTADO_APLICACIONES]
AS

 SELECT IDAPLIC AS 'IDAPLIC', 
CODAPLIC AS 'CODAPLIC',
DESCAPLIC AS 'DESCAPLIC'
FROM SISTEMA_APLICACIONES
WHERE ACTIVO = 1
ORDER BY IDAPLIC ASC
------------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_MODULOS_LISTAR]    Script Date: 10/2/2020 16:08:17 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_MODULOS_LISTAR]

 AS

 SELECT IDMODULO as id,
CODMODULO as nombre, 
DESCMODULO as descripcion,
ACTIVO
FROM SISTEMA_MODULOS
WHERE ACTIVO = 1 ORDER BY CODMODULO ASC
-----------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_LISTAR_PERFILES]    Script Date: 10/2/2020 15:59:55 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_LISTAR_PERFILES]

 AS

 SELECT  IDPERFIL AS ID,
NOMPERFIL AS NOMBRE,
DESCPERFIL AS DESCRIPCIÓN,
ACTIVO
FROM SISTEMA_PERFILES
where activo = 1
ORDER BY NOMPERFIL

 SELECT * FROM dbo.SISTEMA_PERFILES
--------------------------------------------------------------------------------------------
CREATE PROCEDURE SP_PLUS_SEGURIDAD_ABMTABLA_MODULOS_LISTAR

 AS

 SELECT CODMODULO as nombre,IDMODULO as id
FROM SISTEMA_MODULOS
WHERE ACTIVO = 1
-------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_MODULOS_LISTAR]    Script Date: 10/2/2020 14:01:05 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_AMBTABLAS_CARGAR_MODULO]

 AS

SELECT CODMODULO as CODIGO,
   DESCMODULO as DESCRIPCION,
   IDMODULO as id, 
   CODTILE AS TILE,
   idUsuario AS USUARIO,
   ACTIVO
FROM SISTEMA_MODULOS
WHERE ACTIVO = 1 ORDER BY CODIGO ASC
--------------------------------------------------------------------

 USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_MODULOS_LISTAR]    Script Date: 4/2/2020 17:06:47 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_SISTEMA_SEGURIDAD_ABMTABLA_MODULOS_LISTAR]
@activo as bit
AS

 SELECT CODMODULO as nombre, DESCMODULO as descripcion, IDMODULO as id, ACTIVO
FROM SISTEMA_MODULOS
WHERE ACTIVO = @activo

*****************************************************************

 USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES_INSERTAR]    Script Date: 6/2/2020 10:54:06 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

 ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES_INSERTAR]

 --@_IDAPLICACION AS INT,
@_IDMODULO AS INT,
@_CODAPLIC AS VARCHAR(30),
@_DESCAPLIC AS VARCHAR(100),
@_ARCHEJEA AS VARCHAR(50),
@_IMAGAPLI AS IMAGE,
@_ACTIVO AS BIT,
@_IDUSUARIO AS INT,
@_NOMBIMAG AS VARCHAR(50),
@_VERSION AS VARCHAR(10)

 AS

INSERT INTO dbo.SISTEMA_APLICACIONES
        ( idModulo ,
          codAplic ,
          DescAplic ,
          Ejecutable ,
          IMGAplic ,
          Activo ,
          idUsuario ,
          TS ,
          NombreImagen ,
          Version
        )
VALUES  ( @_IDMODULO,
@_codAplic,
@_DescAplic,
@_ARCHEJEA,
@_IMAGAPLI,
@_ACTIVO,
@_IDUSUARIO,
GETDATE(),
@_NOMBIMAG,
@_Version) 

 **************************************************************

 USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_APLICACIONES_APTUALIZAR]    Script Date: 5/2/2020 16:34:45 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

alter PROCEDURE [dbo].[SP_SISTEMA_APLICACIONES_ABMTABLE_APTUALIZAR]

 @_IDAPLICACION AS INT,
@_IDMODULO AS INT,
@_CODAPLIC AS VARCHAR(30),
@_DESCAPLIC AS VARCHAR(100),
@_ARCHEJEA AS VARCHAR(50),
@_IMAGAPLI AS IMAGE,
@_ACTIVO AS BIT,
@_IDUSUARIO AS INT,
@_NOMBIMAG AS VARCHAR(50),
@_VERSION AS VARCHAR(10)

 AS
UPDATE SISTEMA_APLICACIONES SET IDMODULO = @_IDMODULO,
CODAPLIC = @_CODAPLIC, 
DESCAPLIC = @_DESCAPLIC, 
EJECUTABLE = @_ARCHEJEA,
    IMGAPLIC = @_IMAGAPLI,
ACTIVO = @_ACTIVO,
IDUSUARIO = @_IDUSUARIO,
TS = GETDATE(),
NOMBREIMAGEN = @_NOMBIMAG,
VERSION = @_VERSION
WHERE IDAPLIC = @_IDAPLICACION








-------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_MODULOS_MODIFICAR]    Script Date: 5/2/2020 16:05:23 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
create PROCEDURE [dbo].[SP_SISTEMA_MODULOS_ABMTABLA_APTUALIZAR]
@IDMODULO AS INT,
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

 AS

 UPDATE SISTEMA_MODULOS SET
CODMODULO = @NOMBRE,
DESCMODULO = @DESC,
ACTIVO = @ACTIVO,
IDUSUARIO = @IDUSUARIO,
CODTILE =@CODTILE,
TS = GETDATE()
WHERE IDMODULO = @IDMODULO
--------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_MODULOS_INSERTAR]    Script Date: 5/2/2020 15:49:44 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
create PROCEDURE [dbo].[SP_SISTEMA_MODULOS_ABMTABLA_INSERTAR]
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

 AS

 INSERT INTO SISTEMA_MODULOS VALUES(@NOMBRE,@DESC,@ACTIVO,@IDUSUARIO,GETDATE(),@CODTILE)

------------------------------------------------------------------------------------

 CREATE PROCEDURE SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES_CONSULTA_IMAGEN

 AS 

 SELECT IMGAplic FROM SISTEMA_APLICACIONES WHERE idAplic=1

 ------------------------------------------------------------
alter PROCEDURE SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES
as
SELECT AP.idAplic AS "ID",
AP.codAplic AS "CODIGO",
AP.DescAplic AS "DESCRIPCIÓN",
AP.Ejecutable AS "ARCHIVO EJECUTABLE", 
AP.Activo AS "ACTIVO",
USU.codUsuario AS "USUARIO",
MO.codModulo AS "MODULO",
AP.TS AS "FECHA DE CREACIÓN",
AP.Version AS "VERSION"
 FROM SISTEMA_APLICACIONES AP INNER JOIN SISTEMA_MODULOS MO ON AP.idModulo = MO.idModulo 
INNER JOIN SISTEMA_USUARIOS USU ON AP.idUsuario = USU.idUsuario ORDER BY AP.idAplic ASC 
--------------------------------------------------------------
ALTER PROCEDURE SP_PLUS_SEGURIDAD_SISTEMA_AMBTABLAS_MODULO
AS
SELECT MO.IDMODULO AS "ID",MO.CODMODULO AS "CODIGO",MO.DESCMODULO AS "DESCRIPCION",MO.ACTIVO AS "ACTIVO",MO.CODTILE AS "TILE", USU.CODUSUARIO AS "USUARIO" FROM SISTEMA_MODULOS MO INNER JOIN
SISTEMA_USUARIOS USU ON MO.IDUSUARIO = USU.IDUSUARIO 
--------------------------------------------------------------

 para llenar el combo

 USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_MODULOS_LISTAR]    Script Date: 27/1/2020 15:49:11 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_SISTEMA_MODULOS_LISTAR_ACTIVOS]

 AS

 SELECT CODMODULO as nombre,IDMODULO as id
FROM SISTEMA_MODULOS
WHERE ACTIVO = 1

 -------------------------------------------------------

 CREATE PROCEDURE SP_SISTEMA_APLICACIONES_APTUALIZAR

 @_IDAPLICACION AS INT,
@_IDMODULO AS INT,
@_CODAPLIC AS VARCHAR(30),
@_DESCAPLIC AS VARCHAR(100),
@_ARCHEJEA AS VARCHAR(50),
@_IMAGEN AS IMAGE,
@_ACTIVO AS BIT,
@_IDUSUARIO AS INT,
@_NOMBIMAG AS VARCHAR(50),
@_VERSION AS VARCHAR(10)

 AS

 UPDATE SISTEMA_APLICACIONES SET IDMODULO = @_IDMODULO,
CODAPLIC = @_CODAPLIC, 
DESCAPLIC = @_DESCAPLIC, 
EJECUTABLE = @_ARCHEJEA,
IMGAPLIC = @_IMAGEN,
ACTIVO = @_ACTIVO,
IDUSUARIO = @_IDUSUARIO,
TS = GETDATE(),
NOMBREIMAGEN = @_NOMBIMAG,
VERSION = @_VERSION
WHERE IDAPLIC = @_IDAPLICACION

-----------------------------------------------

 CREATE PROCEDURE SP_SISTEMA_ABMTABLA_USUARIOS_LISTAR

 AS

 SELECT  u.descusuario as Descripción, P.nomperfil as Perfil, 
        U.idusuario as IDUsuario
        FROM SISTEMA_USUARIOS U
INNER JOIN SISTEMA_PERFILES P
ON U.IDPERFIL = P.IDPERFIL
WHERE U.ACTIVO = 1  
ORDER BY CODUSUARIO
------------------------------------------------------

USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES_INSERTAR]    Script Date: 3/2/2020 10:30:27 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES_INSERTAR]

 --@_IDAPLICACION AS INT,
@_IDMODULO AS INT,
@_CODAPLIC AS VARCHAR(30),
@_DESCAPLIC AS VARCHAR(100),
@_ARCHEJEA AS VARCHAR(50),
@_IMAGEN AS IMAGE,
@_ACTIVO AS BIT,
@_IDUSUARIO AS INT,
@_NOMBIMAG AS VARCHAR(50),
@_VERSION AS VARCHAR(10)

 AS

INSERT INTO dbo.SISTEMA_APLICACIONES
        ( idModulo ,
          codAplic ,
          DescAplic ,
          Ejecutable ,
          IMGAplic ,
          Activo ,
          idUsuario ,
          TS ,
          NombreImagen ,
          Version
        )
VALUES  ( @_IDMODULO,
@_codAplic,
@_DescAplic,
@_ARCHEJEA,
@_IMAGEN,
@_ACTIVO,
@_IDUSUARIO,
GETDATE(),
@_NOMBIMAG,
@_Version) 

***********************************************************************

USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES]    Script Date: 4/2/2020 15:21:24 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES]
as
SELECT AP.idAplic AS "ID",
AP.codAplic AS "CODIGO",
AP.DescAplic AS "DESCRIPCION",
AP.Ejecutable AS "ARCHIVO EJECUTABLE", 
AP.Activo AS "ACTIVO",
USU.codUsuario AS "USUARIO",
MO.IDMODULO AS "IDMODULO",
MO.CODMODULO AS "MODULO",
AP.NombreImagen AS "NOMBRE DE LA IMAGEN",
AP.Version AS "VERSION",
AP.IMGAplic AS "."
 FROM SISTEMA_APLICACIONES AP INNER JOIN SISTEMA_MODULOS MO ON AP.idModulo = MO.idModulo 
INNER JOIN SISTEMA_USUARIOS USU ON AP.idUsuario = USU.idUsuario ORDER BY AP.idAplic ASC 

  
--------------------------------------------------

create PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULOS_INSERTAR]
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

 AS

 INSERT INTO SISTEMA_MODULOS VALUES(@NOMBRE,@DESC,@ACTIVO,@IDUSUARIO,GETDATE(),@CODTILE)
------------------------------------------------------

 *************************
un archivo de ayuda
**************************
Delegate Sub MiDelegate(ByVal Control As ComboBox, ByVal Texto As String)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ComboBox1.DisplayMember = "Nombre2"
        ComboBox1.ValueMember = "Nombre1"
        ComboBox1.DataSource = DataTable
        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim Texto As String
        Dim Arreglo(1) As Object

        If ComboBox1.SelectedIndex > -1 Then
            Texto = ComboBox1.SelectedValue.ToString()
            Arreglo(0) = ComboBox1
            Arreglo(1) = Texto
            Me.BeginInvoke(New MiDelegate(AddressOf MetodoDelegado), Arreglo)
        End If

    End Sub

    Public Sub MetodoDelegado(ByVal TheControl As ComboBox, ByVal Texto As String)
        ComboBox1.Text = Texto
    End Sub
-------------------------------------------------------------------.
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULO_APTUALIZAR]
@IDMODULO AS INT,
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

 AS

 UPDATE SISTEMA_MODULOS SET
CODMODULO = @NOMBRE,
DESCMODULO = @DESC,
ACTIVO = @ACTIVO,
IDUSUARIO = @IDUSUARIO,
CODTILE =@CODTILE,
TS = GETDATE()
WHERE IDMODULO = @IDMODULO
----------
  INDICE
----------
nota: el orden del envio de los parametros desde vb.net a sql server implica en erroes graves y perdida de datos.
****************************************************************
CONTROL + B, LUEGO CONTROL + V 
****************************************************************
------------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]    Script Date: 12/2/2020 13:15:14 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA: seguridad
 --MODULO DE DEPENDENCIA.: Abm tabla editar pérmisos
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]
@_perfil INT,
@_modulo int
AS

IF @_modulo = 0
begin

SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo AS IDMODULO,
SA.codAplic AS APLICACION,
SA.idAplic AS IDAPLICACION,
PA.Activo AS ACTIVO,
PF.idPerfil AS IDPERFIL
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil
ORDER BY SM.codModulo ASC 

END

IF @_modulo <> 0
begin
SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo AS IDMODULO,
SA.codAplic AS APLICACION,
SA.idAplic AS IDAPLICACION,
PA.Activo AS ACTIVO,
PF.idPerfil AS IDPERFIL
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PM.idPerfil=@_perfil AND PM.Activo=1 AND PA.Activo=1 AND sm.idModulo=@_modulo
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil  
ORDER BY SM.codModulo ASC 
end
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_PERFILES_ELIMINAR_APLICACION]    Script Date: 12/2/2020 10:50:37 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....: 12-02-2020
 --APLICACION DEPENDENCIA: seguridad
 --MODULO DE DEPENDENCIA.: Abm tabla editar pérmisos
 --ULTIMA MODIFICACIÓN...:
 --******************************************* 
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_PERFILES_ELIMINAR_APLICACION]

@IDPERFIL AS INT,
@IDAPLICACION AS INT

AS

DELETE FROM PERFIL_APLICACIONES WHERE idPerfil=@IDPERFIL AND idAplicacion=@IDAPLICACION


-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_PERFILES_ELIMINAR_MODULO]    Script Date: 12/2/2020 10:49:14 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....: 12-02-2020
 --APLICACION DEPENDENCIA: seguridad
 --MODULO DE DEPENDENCIA.: Abm tabla editar pérmisos
 --ULTIMA MODIFICACIÓN...:
 --******************************************* 
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_PERFILES_ELIMINAR_MODULO]

@IDPERFIL AS INT,
@IDMODULO AS INT

AS


DELETE dbo.PERFIL_MODULOS WHERE idPerfil=@IDPERFIL AND idModulo=@IDMODULO






--SELECT * FROM PERFIL_MODULOS PM WHERE PM.idPerfil= 1 AND PM.idModulo=40
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]    Script Date: 11/2/2020 15:41:59 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA: seguridad
 --MODULO DE DEPENDENCIA.: Abm tabla editar pérmisos
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]
@_perfil INT,
@_modulo int
AS

IF @_modulo = 0
begin

SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo AS IDMODULO,
SA.codAplic AS APLICACION,
SA.idAplic AS IDAPLICACION,
PA.Activo AS ACTIVO,
PF.idPerfil AS IDPERFIL
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil
ORDER BY SM.codModulo ASC 

END

IF @_modulo <> 0
begin
SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo AS IDMODULO,
SA.codAplic AS APLICACION,
SA.idAplic AS IDAPLICACION,
PA.Activo AS ACTIVO,
PF.idPerfil AS IDPERFIL
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1 AND sm.idModulo=@_modulo
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil  
ORDER BY SM.codModulo ASC 
end
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]    Script Date: 11/2/2020 15:25:27 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA: seguridad
 --MODULO DE DEPENDENCIA.: Abm tabla editar pérmisos
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]
@_perfil INT,
@_modulo int
AS

IF @_modulo = 0
begin

SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo,
SA.codAplic AS APLICACION,
SA.idAplic,
PA.Activo AS ACTIVO,
PF.idPerfil 
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil
ORDER BY SM.codModulo ASC 

END

IF @_modulo <> 0
begin
SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo,
SA.codAplic AS APLICACION,
SA.idAplic,
PA.Activo AS ACTIVO,
PF.idPerfil  
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1 AND sm.idModulo=@_modulo
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo,
PF.idPerfil  
ORDER BY SM.codModulo ASC 
end
-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULO_APTUALIZAR]    Script Date: 11/2/2020 14:52:19 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....: 11/02/2020
 --APLICACION DEPENDENCIA: SEGURIDAD
 --MODULO DE DEPENDENCIA.: MODULO ACTUALIZAR
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULO_APTUALIZAR]
@IDMODULO AS INT,
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

AS

UPDATE SISTEMA_MODULOS SET
CODMODULO = @NOMBRE,
DESCMODULO = @DESC,
ACTIVO = @ACTIVO,
IDUSUARIO = @IDUSUARIO,
CODTILE =@CODTILE,
TS = GETDATE()
WHERE IDMODULO = @IDMODULO

-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_AMBTABLAS_CARGAR_MODULO]    Script Date: 11/2/2020 14:50:30 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....: 11/02/2020
 --APLICACION DEPENDENCIA: SEGURIDAD
 --MODULO DE DEPENDENCIA.: MODULO AGREGAR
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_AMBTABLAS_CARGAR_MODULO]

AS
SELECT  IDMODULO as ID,
CODMODULO as CODIGO,
    DESCMODULO as DESCRIPCION,
ACTIVO,
    CODTILE AS TILE,
    idUsuario AS USUARIO
   FROM SISTEMA_MODULOS
WHERE ACTIVO = 1 ORDER BY id ASC

-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULOS_INSERTAR]    Script Date: 11/2/2020 14:48:17 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....: 11/02/2020
 --APLICACION DEPENDENCIA: SEGURIDAD
 --MODULO DE DEPENDENCIA.: MODULO AGREGAR
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULOS_INSERTAR]
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

AS

INSERT INTO SISTEMA_MODULOS VALUES(@NOMBRE,@DESC,@ACTIVO,@IDUSUARIO,GETDATE(),@CODTILE)

-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_LISTAR_PERFILES]    Script Date: 11/2/2020 14:42:44 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_LISTAR_PERFILES]

AS

SELECT  IDPERFIL AS ID,
NOMPERFIL AS NOMBRE,
DESCPERFIL AS DESCRIPCIÓN,
ACTIVO
FROM SISTEMA_PERFILES
where activo = 1
ORDER BY NOMPERFIL

-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_MODULOS_LISTAR]    Script Date: 11/2/2020 14:41:16 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_MODULOS_LISTAR]

AS

SELECT IDMODULO as id,
CODMODULO as nombre, 
DESCMODULO as descripcion,
ACTIVO
FROM SISTEMA_MODULOS
WHERE ACTIVO = 1 ORDER BY codModulo ASC

-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_BUSCAR_APLICACION_MODULO_POR_PERFIL]    Script Date: 11/2/2020 14:35:20 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_BUSCAR_APLICACION_MODULO_POR_PERFIL]
@IDAPLICACION INT,
@IDPERFIL INT,
--@ACTIVO BIT,
@IDMODULO INT
--@USUARIO VARCHAR(10)

AS
 SELECT a.idPerfil AS perfil FROM dbo.PERFIL_APLICACIONES A INNER JOIN PERFIL_MODULOS M
ON
A.IDAPLICACION = @IDAPLICACION
AND
M.IDMODULO = @IDMODULO
AND
M.IDPERFIL = @IDPERFIL
WHERE A.IDPERFIL = @IDPERFIL

-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_LISTADO_APLICACIONES]    Script Date: 11/2/2020 11:48:35 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_LISTADO_APLICACIONES]
@_idmodulo int
AS

SELECT IDAPLIC AS 'IDAPLIC', 
CODAPLIC AS 'CODAPLIC',
DESCAPLIC AS 'DESCAPLIC'
FROM SISTEMA_APLICACIONES
WHERE idModulo= @_idmodulo AND ACTIVO = 1
ORDER BY IDAPLIC ASC

-----------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]    Script Date: 11/2/2020 12:19:40 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_CARGAR_PERFILES]
@_perfil INT,
@_modulo int
AS

IF @_modulo = 0
begin

SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo,
SA.codAplic AS APLICACION,
SA.idAplic,
PA.Activo AS ACTIVO 
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo 
ORDER BY SM.codModulo ASC 

END

IF @_modulo <> 0
begin
SELECT PF.nomperfil AS PERFIL,
SM.codModulo AS MODULO,
SM.idModulo,
SA.codAplic AS APLICACION,
SA.idAplic,
PA.Activo AS ACTIVO 
FROM
dbo.PERFIL_MODULOS PM
INNER JOIN dbo.SISTEMA_MODULOS SM ON SM.idModulo = PM.idModulo
INNER JOIN dbo.SISTEMA_APLICACIONES SA ON SA.idModulo = SM.idModulo
INNER JOIN dbo.PERFIL_APLICACIONES PA ON PA.IDAPLICACION = SA.idAplic 
INNER JOIN dbo.SISTEMA_PERFILES PF ON PF.IdPerfil = PM.idPerfil
WHERE PF.idPerfil = @_perfil AND PA.Activo=1 AND sm.idModulo=@_modulo
GROUP BY 
PF.nomperfil,
SM.codModulo,
SM.idModulo,
SA.codAplic,
SA.idAplic,
PA.Activo 
ORDER BY SM.codModulo ASC 
end


 --*******************************************


USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_GRABAR_APLICACION_MODULO_POR_PERFIL]    Script Date: 11/2/2020 14:21:25 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 --*******************************************
 --FECHA DE CREACION.....:
 --APLICACION DEPENDENCIA:
 --MODULO DE DEPENDENCIA.:
 --ULTIMA MODIFICACIÓN...:
 --*******************************************
       
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_GRABAR_APLICACION_MODULO_POR_PERFIL]
@IDAPLICACION INT,
@IDPERFIL INT,
@IDMODULO INT,
@USUARIO VARCHAR(10)
--@ACTIVO BIT,
--@_VARIA INT
AS
INSERT INTO PERFIL_APLICACIONES (idPerfil, idAplicacion, Activo, idUsuario, TS)
VALUES (@IDPERFIL,@IDAPLICACION, 1, @USUARIO, GETDATE())

INSERT INTO dbo.PERFIL_MODULOS VALUES(@IDPERFIL,@IDMODULO,1,@USUARIO,GETDATE()) 

------------------------------------------------------------------------------------------------------------------------

USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_LISTADO_APLICACIONES]    Script Date: 11/2/2020 08:23:09 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_LISTADO_APLICACIONES]
AS

SELECT IDAPLIC AS 'IDAPLIC', 
CODAPLIC AS 'CODAPLIC',
DESCAPLIC AS 'DESCAPLIC'
FROM SISTEMA_APLICACIONES
WHERE ACTIVO = 1
ORDER BY IDAPLIC ASC
------------------------------------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_MODULOS_LISTAR]    Script Date: 10/2/2020 16:08:17 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_MODULOS_LISTAR]

AS

SELECT IDMODULO as id,
CODMODULO as nombre, 
DESCMODULO as descripcion,
ACTIVO
FROM SISTEMA_MODULOS
WHERE ACTIVO = 1 ORDER BY CODMODULO ASC


-----------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_ABMTABLA_LISTAR_PERFILES]    Script Date: 10/2/2020 15:59:55 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_PLUS_ABMTABLA_LISTAR_PERFILES]

AS

SELECT  IDPERFIL AS ID,
NOMPERFIL AS NOMBRE,
DESCPERFIL AS DESCRIPCIÓN,
ACTIVO
FROM SISTEMA_PERFILES
where activo = 1
ORDER BY NOMPERFIL

SELECT * FROM dbo.SISTEMA_PERFILES
--------------------------------------------------------------------------------------------
CREATE PROCEDURE SP_PLUS_SEGURIDAD_ABMTABLA_MODULOS_LISTAR

AS

SELECT CODMODULO as nombre,IDMODULO as id
FROM SISTEMA_MODULOS
WHERE ACTIVO = 1
-------------------------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_MODULOS_LISTAR]    Script Date: 10/2/2020 14:01:05 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_AMBTABLAS_CARGAR_MODULO]

AS
SELECT CODMODULO as CODIGO,
   DESCMODULO as DESCRIPCION,
   IDMODULO as id, 
   CODTILE AS TILE,
   idUsuario AS USUARIO,
   ACTIVO
FROM SISTEMA_MODULOS
WHERE ACTIVO = 1 ORDER BY CODIGO ASC
--------------------------------------------------------------------

USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_MODULOS_LISTAR]    Script Date: 4/2/2020 17:06:47 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_SISTEMA_SEGURIDAD_ABMTABLA_MODULOS_LISTAR]
@activo as bit
AS

SELECT CODMODULO as nombre, DESCMODULO as descripcion, IDMODULO as id, ACTIVO
FROM SISTEMA_MODULOS
WHERE ACTIVO = @activo
*****************************************************************

USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES_INSERTAR]    Script Date: 6/2/2020 10:54:06 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES_INSERTAR]

--@_IDAPLICACION AS INT,
@_IDMODULO AS INT,
@_CODAPLIC AS VARCHAR(30),
@_DESCAPLIC AS VARCHAR(100),
@_ARCHEJEA AS VARCHAR(50),
@_IMAGAPLI AS IMAGE,
@_ACTIVO AS BIT,
@_IDUSUARIO AS INT,
@_NOMBIMAG AS VARCHAR(50),
@_VERSION AS VARCHAR(10)

AS
INSERT INTO dbo.SISTEMA_APLICACIONES
        ( idModulo ,
          codAplic ,
          DescAplic ,
          Ejecutable ,
          IMGAplic ,
          Activo ,
          idUsuario ,
          TS ,
          NombreImagen ,
          Version
        )
VALUES  ( @_IDMODULO,
@_codAplic,
@_DescAplic,
@_ARCHEJEA,
@_IMAGAPLI,
@_ACTIVO,
@_IDUSUARIO,
GETDATE(),
@_NOMBIMAG,
@_Version) 

**************************************************************

USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_APLICACIONES_APTUALIZAR]    Script Date: 5/2/2020 16:34:45 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO



alter PROCEDURE [dbo].[SP_SISTEMA_APLICACIONES_ABMTABLE_APTUALIZAR]

@_IDAPLICACION AS INT,
@_IDMODULO AS INT,
@_CODAPLIC AS VARCHAR(30),
@_DESCAPLIC AS VARCHAR(100),
@_ARCHEJEA AS VARCHAR(50),
@_IMAGAPLI AS IMAGE,
@_ACTIVO AS BIT,
@_IDUSUARIO AS INT,
@_NOMBIMAG AS VARCHAR(50),
@_VERSION AS VARCHAR(10)

AS

UPDATE SISTEMA_APLICACIONES SET IDMODULO = @_IDMODULO,
CODAPLIC = @_CODAPLIC, 
DESCAPLIC = @_DESCAPLIC, 
EJECUTABLE = @_ARCHEJEA,
    IMGAPLIC = @_IMAGAPLI,
ACTIVO = @_ACTIVO,
IDUSUARIO = @_IDUSUARIO,
TS = GETDATE(),
NOMBREIMAGEN = @_NOMBIMAG,
VERSION = @_VERSION
WHERE IDAPLIC = @_IDAPLICACION










-------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_MODULOS_MODIFICAR]    Script Date: 5/2/2020 16:05:23 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
create PROCEDURE [dbo].[SP_SISTEMA_MODULOS_ABMTABLA_APTUALIZAR]
@IDMODULO AS INT,
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

AS

UPDATE SISTEMA_MODULOS SET
CODMODULO = @NOMBRE,
DESCMODULO = @DESC,
ACTIVO = @ACTIVO,
IDUSUARIO = @IDUSUARIO,
CODTILE =@CODTILE,
TS = GETDATE()
WHERE IDMODULO = @IDMODULO


--------------------------------------------------------------------------
USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_MODULOS_INSERTAR]    Script Date: 5/2/2020 15:49:44 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
create PROCEDURE [dbo].[SP_SISTEMA_MODULOS_ABMTABLA_INSERTAR]
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

AS

INSERT INTO SISTEMA_MODULOS VALUES(@NOMBRE,@DESC,@ACTIVO,@IDUSUARIO,GETDATE(),@CODTILE)



------------------------------------------------------------------------------------

CREATE PROCEDURE SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES_CONSULTA_IMAGEN

AS 

SELECT IMGAplic FROM SISTEMA_APLICACIONES WHERE idAplic=1

------------------------------------------------------------
alter PROCEDURE SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES
as
SELECT AP.idAplic AS "ID",
AP.codAplic AS "CODIGO",
AP.DescAplic AS "DESCRIPCIÓN",
AP.Ejecutable AS "ARCHIVO EJECUTABLE", 
AP.Activo AS "ACTIVO",
USU.codUsuario AS "USUARIO",
MO.codModulo AS "MODULO",
AP.TS AS "FECHA DE CREACIÓN",
AP.Version AS "VERSION"
 FROM SISTEMA_APLICACIONES AP INNER JOIN SISTEMA_MODULOS MO ON AP.idModulo = MO.idModulo 
INNER JOIN SISTEMA_USUARIOS USU ON AP.idUsuario = USU.idUsuario ORDER BY AP.idAplic ASC 
--------------------------------------------------------------
ALTER PROCEDURE SP_PLUS_SEGURIDAD_SISTEMA_AMBTABLAS_MODULO
AS
SELECT MO.IDMODULO AS "ID",MO.CODMODULO AS "CODIGO",MO.DESCMODULO AS "DESCRIPCION",MO.ACTIVO AS "ACTIVO",MO.CODTILE AS "TILE", USU.CODUSUARIO AS "USUARIO" FROM SISTEMA_MODULOS MO INNER JOIN
SISTEMA_USUARIOS USU ON MO.IDUSUARIO = USU.IDUSUARIO 


--------------------------------------------------------------

para llenar el combo

USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_MODULOS_LISTAR]    Script Date: 27/1/2020 15:49:11 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_SISTEMA_MODULOS_LISTAR_ACTIVOS]

AS

SELECT CODMODULO as nombre,IDMODULO as id
FROM SISTEMA_MODULOS
WHERE ACTIVO = 1

-------------------------------------------------------

CREATE PROCEDURE SP_SISTEMA_APLICACIONES_APTUALIZAR

@_IDAPLICACION AS INT,
@_IDMODULO AS INT,
@_CODAPLIC AS VARCHAR(30),
@_DESCAPLIC AS VARCHAR(100),
@_ARCHEJEA AS VARCHAR(50),
@_IMAGEN AS IMAGE,
@_ACTIVO AS BIT,
@_IDUSUARIO AS INT,
@_NOMBIMAG AS VARCHAR(50),
@_VERSION AS VARCHAR(10)

AS

UPDATE SISTEMA_APLICACIONES SET IDMODULO = @_IDMODULO,
CODAPLIC = @_CODAPLIC, 
DESCAPLIC = @_DESCAPLIC, 
EJECUTABLE = @_ARCHEJEA,
IMGAPLIC = @_IMAGEN,
ACTIVO = @_ACTIVO,
IDUSUARIO = @_IDUSUARIO,
TS = GETDATE(),
NOMBREIMAGEN = @_NOMBIMAG,
VERSION = @_VERSION
WHERE IDAPLIC = @_IDAPLICACION



-----------------------------------------------

CREATE PROCEDURE SP_SISTEMA_ABMTABLA_USUARIOS_LISTAR

AS

SELECT  u.descusuario as Descripción, P.nomperfil as Perfil, 
        U.idusuario as IDUsuario
        FROM SISTEMA_USUARIOS U
INNER JOIN SISTEMA_PERFILES P
ON U.IDPERFIL = P.IDPERFIL
WHERE U.ACTIVO = 1  
ORDER BY CODUSUARIO
------------------------------------------------------



USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES_INSERTAR]    Script Date: 3/2/2020 10:30:27 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO


ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES_INSERTAR]

--@_IDAPLICACION AS INT,
@_IDMODULO AS INT,
@_CODAPLIC AS VARCHAR(30),
@_DESCAPLIC AS VARCHAR(100),
@_ARCHEJEA AS VARCHAR(50),
@_IMAGEN AS IMAGE,
@_ACTIVO AS BIT,
@_IDUSUARIO AS INT,
@_NOMBIMAG AS VARCHAR(50),
@_VERSION AS VARCHAR(10)

AS
INSERT INTO dbo.SISTEMA_APLICACIONES
        ( idModulo ,
          codAplic ,
          DescAplic ,
          Ejecutable ,
          IMGAplic ,
          Activo ,
          idUsuario ,
          TS ,
          NombreImagen ,
          Version
        )
VALUES  ( @_IDMODULO,
@_codAplic,
@_DescAplic,
@_ARCHEJEA,
@_IMAGEN,
@_ACTIVO,
@_IDUSUARIO,
GETDATE(),
@_NOMBIMAG,
@_Version) 


***********************************************************************



USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES]    Script Date: 4/2/2020 15:21:24 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES]
as
SELECT AP.idAplic AS "ID",
AP.codAplic AS "CODIGO",
AP.DescAplic AS "DESCRIPCION",
AP.Ejecutable AS "ARCHIVO EJECUTABLE", 
AP.Activo AS "ACTIVO",
USU.codUsuario AS "USUARIO",
MO.IDMODULO AS "IDMODULO",
MO.CODMODULO AS "MODULO",
AP.NombreImagen AS "NOMBRE DE LA IMAGEN",
AP.Version AS "VERSION",
AP.IMGAplic AS "."
 FROM SISTEMA_APLICACIONES AP INNER JOIN SISTEMA_MODULOS MO ON AP.idModulo = MO.idModulo 
INNER JOIN SISTEMA_USUARIOS USU ON AP.idUsuario = USU.idUsuario ORDER BY AP.idAplic ASC 

 
--------------------------------------------------
create PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULOS_INSERTAR]
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

AS

INSERT INTO SISTEMA_MODULOS VALUES(@NOMBRE,@DESC,@ACTIVO,@IDUSUARIO,GETDATE(),@CODTILE)
------------------------------------------------------

*************************
un archivo de ayuda
**************************


Delegate Sub MiDelegate(ByVal Control As ComboBox, ByVal Texto As String)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.DisplayMember = "Nombre2"
        ComboBox1.ValueMember = "Nombre1"
        ComboBox1.DataSource = DataTable
        ComboBox1.SelectedIndex = 0
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim Texto As String
        Dim Arreglo(1) As Object
        If ComboBox1.SelectedIndex > -1 Then
            Texto = ComboBox1.SelectedValue.ToString()
            Arreglo(0) = ComboBox1
            Arreglo(1) = Texto
            Me.BeginInvoke(New MiDelegate(AddressOf MetodoDelegado), Arreglo)
        End If
    End Sub
    Public Sub MetodoDelegado(ByVal TheControl As ComboBox, ByVal Texto As String)
        ComboBox1.Text = Texto
    End Sub
-------------------------------------------------------------------.
ALTER PROCEDURE [dbo].[SP_PLUS_SEGURIDAD_ABMTABLA_MODULO_APTUALIZAR]
@IDMODULO AS INT,
@NOMBRE AS VARCHAR(30),
@DESC AS VARCHAR(100),
@ACTIVO AS BIT,
@IDUSUARIO AS INT,
@CODTILE AS VARCHAR(4)

AS

UPDATE SISTEMA_MODULOS SET
CODMODULO = @NOMBRE,
DESCMODULO = @DESC,
ACTIVO = @ACTIVO,
IDUSUARIO = @IDUSUARIO,
CODTILE =@CODTILE,
TS = GETDATE()
WHERE IDMODULO = @IDMODULO

en

No hay comentarios:

Publicar un comentario

Suscribirse a: Enviar comentarios (Atom)

Los mail de oulook no se pueden reenviar.

 cuando en el asunto poseen un caracter especial por ejemplo @#$ los correos no salen y no te muestra ningun correo de rebote, especialmente...

  • Methods access 2010
    https://msdn.microsoft.com/en-us/library/office/ff192694.aspx filtros DoCmd.SetFilter Method (Access) Office 2013 and later Ot...
  • Operadores Para Microsoft Access
    Tabla de operadores Access para Office 365   Access 2019   Access 2016   Access 2013   Access 2010   Access 2007 Un operador es...