dbo.carga_clientes_new

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

CREATE OR ALTER PROCEDURE dbo.carga_clientes_new
AS
BEGIN
    SET NOCOUNT ON;

 DECLARE @p_cli_codigo int
 DECLARE @p_cliente    int
    DECLARE @ok     char(1)

 DECLARE cursor_1 CURSOR FOR
         SELECT cli_codigo from clientes_11
 
 OPEN cursor_1
 FETCH cursor_1 INTO @p_cli_codigo

  WHILE (@@FETCH_STATUS = 0)
  BEGIN
         
   if (select count(*) from clientes where cli_codigo = @p_cli_codigo) > 0 
       begin 
       set @p_cliente = (select cliente from clientes where cli_codigo = @p_cli_codigo) 
    end 
    else 
    begin
      set @ok = 'N'  
      WHILE (@ok = 'N')
        BEGIN
           set @p_cliente = ROUND(((999999999 - 1) * RAND() + 1), 0)
           if (select count(*) from clientes where cliente = @p_cliente) = 0
              begin 
            set @ok = 'S'
           end
           END 
    end 

         insert into clientes_new (cliente,cli_codigo,nombre_cliente,cuit,telefonos,contacto,contacto_2,domicilio_pagos,loc_codigo,cp_pagos,prv_codigo,pai_codigo,cli_resiva,ram_codigo,sra_codigo,ven_codigo,e_mail_factura)
                 select @p_cliente, cli_codigo,nombre_cliente,cuit,telefonos,contacto,contacto_2,domicilio_pagos,loc_codigo,cp_pagos,prv_codigo,pai_codigo,cli_resiva,ram_codigo,sra_codigo,ven_codigo,e_mail_factura
          from clientes_11
       where cli_codigo = @p_cli_codigo

             delete from clientes_11 
     where cli_codigo = @p_cli_codigo

     
   FETCH cursor_1 INTO @p_cli_codigo
     END

 CLOSE cursor_1
 DEALLOCATE cursor_1

END 

GO

Depends On

1

Used By

No items found