dbo.EntidadesBancariasMensual_test

Description

Properties

Name Value
ANSI Nulls ON

True

Quoted Identifier ON

True

Encrypted

False

Execute As
Assembly

Parameters

3
Name Data Type Length Description
@action varchar 20
@idbanco int 4
@nombre varchar 200

SQL Script

Copy
SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

/*
select * from EntidadesBancarias order by created desc
select top 10 * from cendeu where codigo_ent = 55276
*/


/*

EXEC EntidadesBancariasMensual

EXEC EntidadesBancariasMensual 'INSERTAR',55001,'ACCICOM S.A.'
EXEC EntidadesBancariasMensual 'LISTAR',NULL,NULL
EXEC EntidadesBancariasMensual 'LISTAR'
EXEC EntidadesBancariasMensual_test 'LISTAR',88888



*/

/*
exec EntidadesBancariasMensual_test 'PROCESOTXT','88888','Banco Bruno text'
select * from EntidadesBancarias_test where id_banco = 88888
*/

CREATE OR ALTER PROCEDURE  dbo.EntidadesBancariasMensual_test
@action varchar(20) = 'LISTAR',
@idbanco int = NULL,
@nombre varchar(200) = NULL
AS

BEGIN
 SET NOCOUNT ON;


SET @action = UPPER(@action)


if (@action='LISTAR')
 BEGIN 
  if @idbanco is not null 
  SELECT id_banco,nombre_corto,nombre,iif(visible=1,'SI','NO') FROM entidadesBancarias_test where id_banco = @idbanco
  else 
  SELECT id_banco,nombre_corto,nombre,iif(visible=1,'SI','NO') FROM entidadesBancarias_test ORDER BY nombre_corto ASC
 END


if (@action='INSERTAR' AND @idbanco IS NOT NULL AND @nombre IS NOT NULL)
BEGIN
 declare @codigo int=0
 select @codigo = id_banco from entidadesBancarias_test where id_banco = @idbanco

 if (@codigo = 0)
  BEGIN
   insert into entidadesBancarias_test (id_banco,nombre,cod_banco,nombre_corto)
   values (@idbanco,UPPER(@nombre),@idbanco,UPPER(@nombre)) 
  END
END

if (@action='PROCESOTXT' AND @idbanco IS NOT NULL AND @nombre IS NOT NULL)
BEGIN
 declare @codigobanco int=0
 select @codigobanco = id_banco from entidadesBancarias_test where id_banco = @idbanco

 if (@codigobanco = 0)
  BEGIN
   insert into entidadesBancarias_test (id_banco,nombre,cod_banco,nombre_corto,visible) values (@idbanco,UPPER(@nombre),@idbanco,UPPER(@nombre),1) 
            return
  END
    ELSE
        begin
   update entidadesBancarias_test set nombre = UPPER(@nombre),nombre_corto = UPPER(@nombre), visible = 1
   where id_banco = @idbanco
            return
        end

END
END

GO

Used By

No items found