dbo.completar_cuit_socios_aa3

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
/*
select * from socios_aa3 
inner join  padrones on (cuerpo_clave = dni and habilitado = 1)
where procesado = 'P'  
and socios_aa3.identificacion = '' and [column 1] = 'DNI'
and exists (select * from padrones p2 where p2.nombre_persona = padrones.nombre_persona and p2.identificacion != padrones.identificacion and p2.habilitado = 1)
order by dni

update socios_aa3 set procesado = 'N', identificacion = '', nombre_persona = null,  id_padron = null, apellido_ok = null where dni = '03778203'
select procesado, count(*) from socios_aa3 group by procesado
update socios_aa3 set apellido_ok = 'P' where identificacion != '' and apellido_ok = 'N' and 
REPLACE(nombre_persona,'Ñ','N') like '%' + REPLACE(nombre,'Ñ','N')
-- 21747
select * from consultar_afip  where proceso='AA_FALLECIDOS_2' and procesado  = 0
update socios_
*/
CREATE OR ALTER PROCEDURE dbo.completar_cuit_socios_aa3
-- Cuando termine afip hay que pasar todos los procesado = 'E' como procesado = 'N' y ejecutarlos.

AS
BEGIN
BEGIN TRY
    SET NOCOUNT ON
 declare @p_dni      varchar(20)
 declare @p_apellido varchar(100)
 declare @p_nombre   varchar(100)
 declare @p_nombre_completo varchar(200)
 declare @p_nombre_persona  varchar(200)
 declare @p_cuit  varchar(20) = null 
 declare @cuits table (cuit varchar(20), nombre varchar(200))
 declare @cuits_posibles table (cuit varchar(20))

 declare @id int 
 declare @total_procesado int = 0
 declare @p_dni2 varchar(12) 

 /*declare @desde bigint = (select max(id) from socios_aa where isnull(identificacion,'') != '')*/
 DECLARE C_padron CURSOR FOR
  select top 250 dni, 
      apellido, 
      nombre, 
      id 
    from Socios_AA3
   where isnull(identificacion,'') = '' 
    and procesado = 'N' 
  

 OPEN C_Padron
 FETCH NEXT FROM C_Padron INTO @p_dni, @p_apellido, @p_nombre, @id
 WHILE @@fetch_status = 0
 BEGIN
 
  set @total_procesado = @total_procesado + 1
  if (isnull(@p_dni,'') != '' and isnull(@p_apellido, '') != '' and isnull(@p_nombre,'') != '') 
  begin 
   /*if @p_dni like '[FfMm]%' 
    begin
    set @p_dni = REPLACE(@p_dni, 'F','')
    set @p_dni = REPLACE(@p_dni, 'f','')
    set @p_dni = REPLACE(@p_dni, 'M','')
    set @p_dni = REPLACE(@p_dni, 'm','')
    end 
   
    set @p_dni = REPLACE(@p_dni, '.','')
    */
   if (ISNUMERIC(@p_dni) != 1 or @p_dni like '%[A-Za-z]%')
   begin
      update Socios_AA3 
         set procesado='P' 
       where id = @id 
    FETCH NEXT FROM C_Padron INTO @p_dni, @p_apellido, @p_nombre, @id
    continue
   end 

   set @p_apellido = ltrim(rtrim(isnull(@p_apellido, '')))
   set @p_nombre = ltrim(rtrim(isnull(@p_nombre, '')))

   --set @p_nombre_completo = ltrim(rtrim(isnull(@p_apellido, ''))) + ' ' + ltrim(rtrim(isnull(@p_nombre,'')))
   set @p_nombre_completo =  @p_apellido  + ' ' +  @p_nombre 
   set @p_cuit = null 

   set @p_dni2 = right('00000000'+@p_dni,8)
   set @p_dni = convert(int,@p_dni)
   if (select count(*) 
      from padrones 
     where (cuerpo_clave =  @p_dni or cuerpo_clave =  @p_dni2) 
       and nombre_persona = @p_nombre_completo
       and habilitado = 1) = 1 
   begin
      select @p_cuit = identificacion, @p_nombre_persona = nombre_persona
     from padrones where (cuerpo_clave =  @p_dni or cuerpo_clave =  @p_dni2) 
      and nombre_persona = @p_nombre_completo
      and habilitado = 1
   end 


   if (@p_cuit is null)
   begin
    delete from @cuits
    insert into @cuits 
    exec [sp_buscar_cuit] null, @p_dni, null 
    if (select COUNT(*) from @cuits) = 1
    begin 
     select @p_cuit = cuit, @p_nombre_persona = nombre from @cuits
    end
   end 
 
   if (@p_cuit is null)
   begin
    delete from @cuits
    insert into @cuits 
    exec [sp_buscar_cuit] @p_nombre_completo, @p_dni, null 
    if (select COUNT(*) from @cuits) = 1
    begin 
     select @p_cuit = cuit, @p_nombre_persona = nombre from @cuits
    end
   end 

   if (@p_cuit is null)
   begin
    declare @palabra_1 table (palabra varchar(30), id int identity(1,1))
    declare @palabra varchar(100) = null 
    insert into @palabra_1
     exec sp_separo_nombres @p_nombre_completo 
    declare @total int = (select MAX(id) from @palabra_1)
    declare @i int = 1 
    while (@i <= @total and @p_cuit is null) 
    begin
     set @palabra = null 
     select @palabra = palabra from @palabra_1 where id = @i
     if (@palabra is not null)
     begin
      set @palabra = '"' + @palabra + '"'
      delete from @cuits
      insert into @cuits 
      exec [sp_buscar_cuit] @p_nombre_completo, @p_dni, @palabra 
      if (select COUNT(*) from @cuits) = 1
      begin 
       select @p_cuit = cuit, @p_nombre_persona = nombre from @cuits
      end
     end 
     set @i = @i + 1 
    end
   end 
   
   set @p_nombre_persona = REPLACE(@p_nombre_persona,'¥','Ñ')
      
   declare @es_cuit bit = 0 
   if (@p_cuit is not null and LEN(@p_cuit) = 11) set @es_cuit = 1  

   if (@es_cuit = 1)
   begin
    /*
     if exists (select * from consultar_afip where cuit = @p_cuit and proceso = 'AA_FALLECIDOS_2' and procesado = 0 or (procesado=1 and ierror=1))
     begin 
     -- Todavia no pasó por afip entonces lo saltea
     UPDATE Socios_AA3 SET procesado = 'E' where id = @id
     FETCH NEXT FROM C_Padron INTO @p_dni, @p_apellido, @p_nombre, @id
     continue
     end 
     */
    declare @iguales char(1) = 'N'
    if (REPLACE(@p_nombre_persona,'Ñ','N') like REPLACE(@p_apellido,'Ñ','N') + '%')
    begin
     set @iguales = 'S'
    end 

    if (@iguales = 'N' and (REPLACE(@p_nombre_persona,'Ñ','N') like REPLACE(@p_apellido,'NI','N') + '%'))
    begin
     set @iguales = 'S'
    end

    if (@iguales = 'N' and @p_apellido like '% %' and -- para apellidos compuestos 
     (REPLACE(@p_nombre_persona,'Ñ','N') like REPLACE((substring(@p_apellido,1,charindex(' ',@p_apellido,1))),'Ñ','N') + '%'))
    begin
     set @iguales = 'P'
    end
    -- Por si el apellido vino en el nombre
    if (REPLACE(@p_nombre_persona,'Ñ','N') like REPLACE(@p_nombre,'Ñ','N') + '%')
    begin
     set @iguales = 'P'
    end 

    if (@iguales = 'N' and (REPLACE(@p_nombre_persona,'Ñ','N') like REPLACE(@p_nombre,'NI','N') + '%'))
    begin
     set @iguales = 'P'
    end

    if (@iguales = 'N' and (REPLACE(@p_nombre_persona,'Ñ','N') like '%' + REPLACE(@p_nombre,'NI','N')))
    begin
     set @iguales = 'P'
    end


    if (@iguales = 'N' and @p_apellido like '% %' and -- para apellidos compuestos 
     (REPLACE(@p_nombre_persona,'Ñ','N') like REPLACE((substring(@p_apellido,1,charindex(' ',@p_nombre,1))),'Ñ','N') + '%'))
    begin
     set @iguales = 'P'
    end

    if (@iguales = 'N' and @p_nombre_persona like '%?%')
    begin 
     if (REPLACE(@p_nombre_persona,'?','N') like REPLACE(@p_apellido,'Ñ','N') + '%') set @iguales = 'S'
     if (REPLACE(@p_nombre_persona,'?','A') like @p_apellido + '%') set @iguales = 'S'
     if (REPLACE(@p_nombre_persona,'?','E') like @p_apellido + '%') set @iguales = 'S'
     if (REPLACE(@p_nombre_persona,'?','I') like @p_apellido + '%') set @iguales = 'S'
     if (REPLACE(@p_nombre_persona,'?','O') like @p_apellido + '%') set @iguales = 'S'
     if (REPLACE(@p_nombre_persona,'?','U') like @p_apellido + '%') set @iguales = 'S'
    end
   
    update Socios_AA3
       set identificacion = @p_cuit, 
        nombre_persona = @p_nombre_persona,
        --apellido_ok = iif(REPLACE(nombre_persona,'Ñ','N') like REPLACE(apellido,'Ñ','N') + '%', 'S','N'), 
        apellido_ok = @iguales, 
        procesado = 'P' 
    where id = @id 

    /*
     if (@p_apellido like '% %') -- Si tiene mas de una palabra el apellido, compara la primer palabra 
                                 -- y si apellido_ok habia quedado en 'N', lo pone = 'P'
                                 -- (porque a veces mandan dos apellido, y en padron está solo el primero)
     begin
     update socios_aa set apellido_ok = 'P'
     where id = @id and apellido_ok = 'N' 
     and REPLACE(nombre_persona,'Ñ','N') like REPLACE((substring(apellido,1,charindex(' ',apellido,1))),'Ñ','N') + '%'
     and apellido like '% %'
     end 
     */
   end
   else 
   begin
    if (select count(*) 
      from padrones 
     where (cuerpo_clave =  @p_dni or cuerpo_clave =  @p_dni2) 
       and habilitado = 1) = 0
    begin
     delete from @cuits_posibles
     insert into @cuits_posibles 
     exec [dni_buscar_cuit_posible] @p_dni, 'S'
     if exists (select * from @cuits_posibles)
     begin
      insert into consultar_afip (proceso,cuit,fecha,procesado,prioridad)
      select 'AA_FALLECIDOS_3' AS proceso, cuit,'2021-08-31' as fecha,0 as procesado,1 as prioridad
      from @cuits_posibles
     end
    end

    update Socios_AA3
       set procesado='P' 
    where id = @id 
   end 
  end 
  FETCH NEXT FROM C_Padron INTO @p_dni, @p_apellido, @p_nombre, @id

 END 
 CLOSE C_Padron
 DEALLOCATE C_Padron
 select @total_procesado as total_procesado
 
END TRY
BEGIN CATCH
 DEALLOCATE C_Padron
 
 UPDATE Socios_AA3 SET procesado = 'E' where id = @id

 select  @p_dni as dni_error, @id as id_error, 
 @total_procesado as total_procesado,
 ERROR_NUMBER() as error
END CATCH

END
GO