dbo.Imperium_listas

Description

Properties

Name Value
ANSI Nulls ON

True

Quoted Identifier ON

True

Encrypted

False

Execute As
Assembly

Parameters

8
Name Data Type Length Description
@p_accion varchar 20
@p_cliente int 4
@p_userid int 4
@p_idblacklist int 4
@p_idpadron int 4
@p_causa varchar 100
@p_activo bit 1
@p_tipolista varchar 1

SQL Script

Copy
SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
/*

exec Imperium_LISTAS 'LISTALL', 9936068,1,NULL,'E',1,NULL

*/

CREATE OR ALTER PROCEDURE dbo.Imperium_listas 
 @p_accion        varchar(20), /* INSERTAR / EDITAR / MODIFICAR / LISTAR */
 @p_cliente        int,
 @p_userid        int,
 @p_idblacklist       INT = NULL,
 @p_idpadron        int = NULL,
 @p_causa        varchar(100) = NULL,
 @p_activo        bit = 1,
 @p_tipolista       varchar(1) = NULL
 
 
AS
BEGIN
 SET NOCOUNT ON;
declare @V_accion  varchar(20) = @p_accion
declare @V_cliente  int = @p_cliente
declare @V_userid  int = @p_userid
declare @V_idpadron  int = @p_idpadron
declare @V_causa  varchar(100) = @p_causa
declare @V_activo  bit = @p_activo
declare @V_tipolista varchar(1) = @p_tipolista
DECLARE @V_idblacklist INT = @p_idblacklist
declare @V_Username  varchar(100) 

select @V_Username= first_name + ' ' + last_name from users where user_id = @V_userid


 if (upper(@V_accion) = 'INSERTAR')
 BEGIN
    insert into led_blacklist (cliente,id_padron,causa,activo,tipo_lista)
  values (@V_cliente,@V_idpadron,convert(varchar(20),getdate(),103) + ' ' + @V_Username +  '<br>' +   @V_causa,@V_activo,@V_tipolista)
 END



 if (upper(@V_accion) = 'MODIFICAR')
 BEGIN
    UPDATE led_blacklist set 
  led_blacklist.causa = led_blacklist.causa + '<br>' + convert(varchar(20),getdate(),103) + ' ' + @V_Username + ' ' +   @V_causa,
  led_blacklist.activo = @V_activo,
  led_blacklist.tipo_lista = @V_tipolista 
  from led_blacklist INNER JOIN PADRONES on led_blacklist.id_padron= PADRONES.id_padron where led_blacklist.id_blacklist = @V_idblacklist 

 END


 if (upper(@V_accion) = 'EDITAR')
 BEGIN
    select PADRONES.identificador,padrones.identificacion,padrones.nombre_persona,led_blacklist.causa,
  led_blacklist.activo as estado,
  led_blacklist.tipo_lista  as tipo_lista 
  from led_blacklist INNER JOIN PADRONES on led_blacklist.id_padron= PADRONES.id_padron where led_blacklist.id_blacklist = @V_idblacklist 
  order by padrones.nombre_persona asc
 END

 if (upper(@V_accion) = 'LISTAR')
 BEGIN
    select led_blacklist.id_blacklist, PADRONES.identificador,padrones.identificacion,padrones.nombre_persona,led_blacklist.causa,
  iif(led_blacklist.activo=1,'Activo','No Activo') as estado,
  iif(led_blacklist.tipo_lista='X','Negra','Blanca') as tipo_lista,led_blacklist.tipo_lista as cod_tipo_lista 
  from led_blacklist INNER JOIN PADRONES on led_blacklist.id_padron= PADRONES.id_padron where cliente = @V_cliente order by padrones.nombre_persona asc
 END

 
END
GO

Used By

No items found