dbo.PadronesBCRAUpdate

Description

Properties

Name Value
ANSI Nulls ON

True

Quoted Identifier ON

True

Encrypted

False

Execute As
Assembly

SQL Script

Copy
SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

/*
exec PadronesBCRAUpdate


select count(*) from padron_ext_faltante3 where procesado=0

733487

*/



CREATE OR ALTER PROCEDURE  dbo.PadronesBCRAUpdate
AS

BEGIN
 SET NOCOUNT ON;

DECLARE @ERRORNUMBER int

declare @numero varchar(20)
declare @identificacion varchar(20)
declare @nombre_persona varchar(100)
declare @tipo_persona varchar(1)
declare @identificador varchar(4)
declare @habilitado bit
declare @pre_clave varchar(2)
declare @cuerpo_clave varchar(20)
declare @suf_clave varchar(1)
declare @idreg int

 begin
  
 /* Averiguamos la lista de clientes a procesar -23.3*/
  DECLARE LedClientesActivos Cursor
  FOR
  
  select top 1000 padron_ext_faltante3.numero,identificacion,nombre_persona,tipo_persona,identificador,habilitado,
  substring(identificacion,1,2) as pre_clave,substring(identificacion,3,8) as cuerpo_clave,substring(identificacion,11,1) as suf_clave,
  idreg 
  from padron_ext_faltante3 where procesado=0

--- update padron_ext_faltante3 set procesado = 1 where idreg < 3000

  Open LedClientesActivos


  Fetch NEXT FROM LedClientesActivos INTO @numero,@identificacion,@nombre_persona,@tipo_persona,@identificador,@habilitado,@pre_clave,@cuerpo_clave,@suf_clave,@idreg
  While (@@FETCH_STATUS = 0)
  BEGIN

  begin try
  insert into padrones (numero,identificacion,nombre_persona,tipo_persona,identificador,habilitado,pre_clave,cuerpo_clave,suf_clave)
  values (@numero,@identificacion,@nombre_persona,@tipo_persona,@identificador,@habilitado,@pre_clave,@cuerpo_clave,@suf_clave)

  update padron_ext_faltante3 set procesado = 1 where idreg = @idreg
  select @idreg

  end try
  begin catch
  end catch

  Fetch NEXT FROM LedClientesActivos INTO @numero,@identificacion,@nombre_persona,@tipo_persona,@identificador,@habilitado,@pre_clave,@cuerpo_clave,@suf_clave,@idreg

  END

  CLOSE LedClientesActivos
  DEALLOCATE LedClientesActivos


end



END

GO

Used By

No items found