dbo.backend_abm_datos_clientes

Description

Properties

Name Value
ANSI Nulls ON

True

Quoted Identifier ON

True

Encrypted

False

Execute As
Assembly

Parameters

28
Name Data Type Length Description
@p_cliente int 4
@p_cli_codigo int 4
@p_nombre varchar 100
@p_cuit varchar 20
@p_sra_codigo int 4
@p_ram_codigo int 4
@p_ven_codigo int 4
@p_domicilio varchar 100
@p_codpos varchar 20
@p_country_code varchar 10
@p_provincia varchar 100
@p_localidad varchar 100
@p_telefonos varchar 100
@p_telefono_pagos varchar 100
@p_email varchar 100
@p_contacto varchar 100
@p_contacto_2 varchar 100
@p_comprador_nombre varchar 100
@p_comprador_cargo varchar 100
@p_comprador_telefonos varchar 100
@p_comprador_email varchar 100
@p_cod_union varchar 10
@p_email_factura varchar 100
@p_contacto_1 varchar 100
@p_te_1 varchar 100
@p_email_1 varchar 100
@p_te_2 varchar 100
@p_email_2 varchar 100

SQL Script

Copy
SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
/*
select * from clientes where cli_codigo = 66666666
*/




CREATE OR ALTER PROCEDURE dbo.backend_abm_datos_clientes
@p_cliente   int ,
@p_cli_codigo  int,
@p_nombre   varchar(100), 
@p_cuit    varchar(20), 
@p_sra_codigo  int, 
@p_ram_codigo  int, 
@p_ven_codigo       int, 
@p_domicilio  varchar(100), 
@p_codpos      varchar(20),
@p_country_code     varchar(10), 
@p_provincia  varchar(100), 
@p_localidad  varchar(100),
@p_telefonos        varchar(100),
@p_telefono_pagos   varchar(100),
@p_email   varchar(100), 
@p_contacto   varchar(100), 
@p_contacto_2  varchar(100),
@p_comprador_nombre varchar(100),
@p_comprador_cargo  varchar(100),
@p_comprador_telefonos varchar(100),
@p_comprador_email  varchar(100),
@p_cod_union  varchar(10),
@p_email_factura varchar(100),
@p_contacto_1 varchar(100) = null, 
@p_te_1 varchar(100)  = null, 
@p_email_1 varchar(100) = null, 
@p_te_2 varchar(100)  = null, 
@p_email_2 varchar(100) = null
      
AS
BEGIN
 
    SET NOCOUNT ON;
 declare @p_cliente_union int
 declare @p_esta_cliente_union int 
 declare @p_pai_codigo int = null
 if (@p_country_code = '') set @p_country_code = null 
 set @p_cuit = REPLACE(@p_cuit, '-','')
 set @p_cuit = REPLACE(@p_cuit, ' ','')
 set @p_cuit = REPLACE(@p_cuit, '.','')
 set @p_pai_codigo = (select codigo_ifx from country where country_code = @p_country_code)
 update clientes 
     set clientes.nombre_cliente = @p_nombre, 
      clientes.numero = @p_cuit, 
      clientes.cuit   = @p_cuit, 
      clientes.ven_codigo = @p_ven_codigo, 
      clientes.country_code = @p_country_code, 
      clientes.pai_codigo = @p_pai_codigo, 
      clientes.domicilio_pagos = @p_domicilio, 
      clientes.localidad_pagos = @p_localidad,
      clientes.provincia_pagos = @p_provincia, 
      clientes.cp_pagos = @p_codpos, 
      clientes.email = @p_email, 
      clientes.e_mail_factura = @p_email_factura, 
      clientes.contacto = @p_contacto, 
      clientes.contacto_2 = @p_contacto_2,
      comprador_nombre = @p_comprador_nombre,
      comprador_cargo  = @p_comprador_cargo,
      comprador_telefonos  = @p_comprador_telefonos,
      comprador_email      = @p_comprador_email,
      telefonos = @p_telefonos, 
      telefono_pagos = @p_telefono_pagos,
      ram_codigo = @p_ram_codigo, 
      sra_codigo = @p_sra_codigo, 
      contacto_1 = @p_contacto_1, 
               te_1 = @p_te_1, 
      email_1 = @p_email_1, 
      te_2 = @p_te_2,
      email_2 = @p_email_2

   where clientes.cliente  = @p_cliente

 if (ltrim(rtrim(@p_cod_union)) = '') 
  begin
   set @p_cod_union = null
  end 

 if (@p_cod_union is not null)
  begin
   --busco el id del cliente que se cargo con el cod_union
   set @p_cliente_union = (select cliente from clientes where cli_codigo = @p_cod_union)
   
   -- me fijo si este cliente ya esta unificado en la tabla clientes_union
   set @p_esta_cliente_union = (select cliente_union from clientes_union where cli_codigo = @p_cli_codigo) 
   
   if (@p_esta_cliente_union is null -- no esta
       or @p_esta_cliente_union != @p_cliente_union) -- o esta unificado en otro codigo de cliente
   begin
    delete from clientes_union where cli_codigo = @p_cli_codigo
    insert into clientes_union(cliente_union,cli_codigo_union,cliente,cli_codigo) values (@p_cliente_union, @p_cod_union, @p_cliente, @p_cli_codigo) 
   end 
  end 
 else
  begin
   -- me fijo si este cliente esta unificado en la tabla clientes_union
   set @p_esta_cliente_union = (select cliente_union from clientes_union where cli_codigo = @p_cli_codigo) 
   
   if (@p_esta_cliente_union is not null)  -- no esta
   begin
    delete from clientes_union where cli_codigo = @p_cli_codigo
   end 
  end 

 select '0' as error, 'Modificación OK' as mensaje

END

GO

Used By

No items found