diff --git a/Database/Anterior/VISTAS.SQL b/Database/Anterior/VISTAS.SQL
index 528a81e7..5b4af450 100644
--- a/Database/Anterior/VISTAS.SQL
+++ b/Database/Anterior/VISTAS.SQL
@@ -93,7 +93,8 @@ CREATE VIEW V_CLIENTES(
     RECARGO_EQUIVALENCIA,
     ID_TIPO_IVA,
     ID_FORMA_PAGO,
-    TIENDA_WEB)
+    TIENDA_WEB,
+    CODIGO_ASIGNADO)
 AS
 SELECT
   V_CONTACTOS.ID,
@@ -128,7 +129,8 @@ SELECT
   CLIENTES_DATOS.RECARGO_EQUIVALENCIA,
   CLIENTES_DATOS.ID_TIPO_IVA,
   CLIENTES_DATOS.ID_FORMA_PAGO,
-  CLIENTES_DATOS.TIENDA_WEB
+  CLIENTES_DATOS.TIENDA_WEB,
+  CLIENTES_DATOS.CODIGO_ASIGNADO
 FROM
   V_CONTACTOS
   LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 23b3fd1e..b310f0b6 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -243,6 +243,7 @@ CREATE TABLE CLIENTES_DATOS (ID_CLIENTE TIPO_ID NOT NULL,
         ID_FORMA_PAGO TIPO_ID,
         TIENDA_WEB TIPO_BOOLEANO,
         DESCUENTO TIPO_PORCENTAJE,
+	CODIGO_ASIGNADO VARCHAR(255),
 CONSTRAINT PK_CLIENTES_DATOS PRIMARY KEY (ID_CLIENTE));
 
 /* Table: CLIENTES_DTOS_PROVEEDORES, Owner: SYSDBA */
@@ -954,523 +955,213 @@ ALTER TABLE TIENDA_WEB ADD CONSTRAINT FK_EMPRESAS_TIENDA_WEB FOREIGN KEY (ID_EMP
 
 /* View: V_CONTACTOS, Owner: SYSDBA */
 CREATE VIEW V_CONTACTOS (ID, ID_CATEGORIA, NIF_CIF, NOMBRE, PERSONA_CONTACTO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, REFERENCIA) AS
-

-SELECT CONTACTOS.ID,

-       CONTACTOS_CATEGORIAS.ID_CATEGORIA,

-       CONTACTOS.NIF_CIF,

-       CONTACTOS.NOMBRE,

-       CONTACTOS.PERSONA_CONTACTO,

-       CONTACTOS.CALLE,

-       CONTACTOS.POBLACION,

-       CONTACTOS.PROVINCIA,

-       CONTACTOS.CODIGO_POSTAL,

-       CONTACTOS.TELEFONO_1,

-       CONTACTOS.TELEFONO_2,

-       CONTACTOS.MOVIL_1,

-       CONTACTOS.MOVIL_2,

-       CONTACTOS.FAX,

-       CONTACTOS.EMAIL_1,

-       CONTACTOS.EMAIL_2,

-       CONTACTOS.PAGINA_WEB,

-       CONTACTOS.NOTAS,

-       CONTACTOS.FECHA_ALTA,

-       CONTACTOS.FECHA_MODIFICACION,

-       CONTACTOS.USUARIO,

-       EMPRESAS_CONTACTOS.ID_EMPRESA,

-       CONTACTOS.REFERENCIA

-FROM CONTACTOS

-     INNER JOIN CONTACTOS_CATEGORIAS ON (CONTACTOS_CATEGORIAS.ID_CONTACTO =

-     CONTACTOS.ID)

-     INNER JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO =

-     CONTACTOS.ID);
+SELECT CONTACTOS.ID,       CONTACTOS_CATEGORIAS.ID_CATEGORIA,       CONTACTOS.NIF_CIF,       CONTACTOS.NOMBRE,       CONTACTOS.PERSONA_CONTACTO,       CONTACTOS.CALLE,       CONTACTOS.POBLACION,       CONTACTOS.PROVINCIA,       CONTACTOS.CODIGO_POSTAL,       CONTACTOS.TELEFONO_1,       CONTACTOS.TELEFONO_2,       CONTACTOS.MOVIL_1,       CONTACTOS.MOVIL_2,       CONTACTOS.FAX,       CONTACTOS.EMAIL_1,       CONTACTOS.EMAIL_2,       CONTACTOS.PAGINA_WEB,       CONTACTOS.NOTAS,       CONTACTOS.FECHA_ALTA,       CONTACTOS.FECHA_MODIFICACION,       CONTACTOS.USUARIO,       EMPRESAS_CONTACTOS.ID_EMPRESA,       CONTACTOS.REFERENCIAFROM CONTACTOS     INNER JOIN CONTACTOS_CATEGORIAS ON (CONTACTOS_CATEGORIAS.ID_CONTACTO =     CONTACTOS.ID)     INNER JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO =     CONTACTOS.ID);
 
 /* View: V_CLIENTES, Owner: SYSDBA */
 CREATE VIEW V_CLIENTES (ID, ID_CATEGORIA, NIF_CIF, NOMBRE, PERSONA_CONTACTO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, REFERENCIA, GRUPO_CLIENTE, NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, BLOQUEADO, REGIMEN_IVA, MOTIVO_BLOQUEO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB) AS
-

-SELECT

-  V_CONTACTOS.ID,

-  V_CONTACTOS.ID_CATEGORIA,

-  V_CONTACTOS.NIF_CIF,

-  V_CONTACTOS.NOMBRE,

-  V_CONTACTOS.PERSONA_CONTACTO,

-  V_CONTACTOS.CALLE,

-  V_CONTACTOS.POBLACION,

-  V_CONTACTOS.PROVINCIA,

-  V_CONTACTOS.CODIGO_POSTAL,

-  V_CONTACTOS.TELEFONO_1,

-  V_CONTACTOS.TELEFONO_2,

-  V_CONTACTOS.MOVIL_1,

-  V_CONTACTOS.MOVIL_2,

-  V_CONTACTOS.FAX,

-  V_CONTACTOS.EMAIL_1,

-  V_CONTACTOS.EMAIL_2,

-  V_CONTACTOS.PAGINA_WEB,

-  V_CONTACTOS.NOTAS,

-  V_CONTACTOS.FECHA_ALTA,

-  V_CONTACTOS.FECHA_MODIFICACION,

-  V_CONTACTOS.USUARIO,

-  V_CONTACTOS.ID_EMPRESA,

-  V_CONTACTOS.REFERENCIA,

-  CLIENTES_DATOS.GRUPO_CLIENTE,

-  CLIENTES_DATOS.NOMBRE_COMERCIAL,

-  CLIENTES_DATOS.VENCIMIENTO_FACTURAS,

-  CLIENTES_DATOS.BLOQUEADO,

-  CLIENTES_DATOS.REGIMEN_IVA,

-  CLIENTES_DATOS.MOTIVO_BLOQUEO,

-  CLIENTES_DATOS.RECARGO_EQUIVALENCIA,

-  CLIENTES_DATOS.ID_TIPO_IVA,

-  CLIENTES_DATOS.ID_FORMA_PAGO,

-  CLIENTES_DATOS.TIENDA_WEB

-FROM

-  V_CONTACTOS

-  LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)

-WHERE

-  V_CONTACTOS.ID_CATEGORIA = 1;
+SELECT  V_CONTACTOS.ID,  V_CONTACTOS.ID_CATEGORIA,  V_CONTACTOS.NIF_CIF,  V_CONTACTOS.NOMBRE,  V_CONTACTOS.PERSONA_CONTACTO,  V_CONTACTOS.CALLE,  V_CONTACTOS.POBLACION,  V_CONTACTOS.PROVINCIA,  V_CONTACTOS.CODIGO_POSTAL,  V_CONTACTOS.TELEFONO_1,  V_CONTACTOS.TELEFONO_2,  V_CONTACTOS.MOVIL_1,  V_CONTACTOS.MOVIL_2,  V_CONTACTOS.FAX,  V_CONTACTOS.EMAIL_1,  V_CONTACTOS.EMAIL_2,  V_CONTACTOS.PAGINA_WEB,  V_CONTACTOS.NOTAS,  V_CONTACTOS.FECHA_ALTA,  V_CONTACTOS.FECHA_MODIFICACION,  V_CONTACTOS.USUARIO,  V_CONTACTOS.ID_EMPRESA,  V_CONTACTOS.REFERENCIA,  CLIENTES_DATOS.GRUPO_CLIENTE,  CLIENTES_DATOS.NOMBRE_COMERCIAL,  CLIENTES_DATOS.VENCIMIENTO_FACTURAS,  CLIENTES_DATOS.BLOQUEADO,  CLIENTES_DATOS.REGIMEN_IVA,  CLIENTES_DATOS.MOTIVO_BLOQUEO,  CLIENTES_DATOS.RECARGO_EQUIVALENCIA,  CLIENTES_DATOS.ID_TIPO_IVA,  CLIENTES_DATOS.ID_FORMA_PAGO,  CLIENTES_DATOS.TIENDA_WEBFROM  V_CONTACTOS  LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)WHERE  V_CONTACTOS.ID_CATEGORIA = 1;
 
 /* View: V_PROVEEDORES, Owner: SYSDBA */
 CREATE VIEW V_PROVEEDORES (ID, ID_CATEGORIA, NIF_CIF, NOMBRE, PERSONA_CONTACTO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, REFERENCIA, DESCUENTO, DESCRIPCION_PROVEEDOR, CODIGO_ASIGNADO, GRUPO_PROVEEDOR, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION) AS
-

-SELECT

-  V_CONTACTOS.ID,

-  V_CONTACTOS.ID_CATEGORIA,

-  V_CONTACTOS.NIF_CIF,

-  V_CONTACTOS.NOMBRE,

-  V_CONTACTOS.PERSONA_CONTACTO,

-  V_CONTACTOS.CALLE,

-  V_CONTACTOS.POBLACION,

-  V_CONTACTOS.PROVINCIA,

-  V_CONTACTOS.CODIGO_POSTAL,

-  V_CONTACTOS.TELEFONO_1,

-  V_CONTACTOS.TELEFONO_2,

-  V_CONTACTOS.MOVIL_1,

-  V_CONTACTOS.MOVIL_2,

-  V_CONTACTOS.FAX,

-  V_CONTACTOS.EMAIL_1,

-  V_CONTACTOS.EMAIL_2,

-  V_CONTACTOS.PAGINA_WEB,

-  V_CONTACTOS.NOTAS,

-  V_CONTACTOS.FECHA_ALTA,

-  V_CONTACTOS.FECHA_MODIFICACION,

-  V_CONTACTOS.USUARIO,

-  V_CONTACTOS.ID_EMPRESA,

-  V_CONTACTOS.REFERENCIA,

-  PROVEEDORES_DATOS.DESCUENTO,

-  PROVEEDORES_DATOS.DESCRIPCION_PROVEEDOR,

-  PROVEEDORES_DATOS.CODIGO_ASIGNADO,

-  PROVEEDORES_DATOS.GRUPO_PROVEEDOR,

-  PROVEEDORES_DATOS.REGIMEN_IVA,

-  PROVEEDORES_DATOS.ID_TIPO_IVA,

-  PROVEEDORES_DATOS.ID_FORMA_PAGO,

-  PROVEEDORES_DATOS.TIENDA_WEB,

-  PROVEEDORES_DATOS.HOMOLOGADO,

-  PROVEEDORES_DATOS.CERTIFICACION

-FROM

-  PROVEEDORES_DATOS

-  LEFT OUTER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)

-WHERE

-  V_CONTACTOS.ID_CATEGORIA = 2;
+SELECT  V_CONTACTOS.ID,  V_CONTACTOS.ID_CATEGORIA,  V_CONTACTOS.NIF_CIF,  V_CONTACTOS.NOMBRE,  V_CONTACTOS.PERSONA_CONTACTO,  V_CONTACTOS.CALLE,  V_CONTACTOS.POBLACION,  V_CONTACTOS.PROVINCIA,  V_CONTACTOS.CODIGO_POSTAL,  V_CONTACTOS.TELEFONO_1,  V_CONTACTOS.TELEFONO_2,  V_CONTACTOS.MOVIL_1,  V_CONTACTOS.MOVIL_2,  V_CONTACTOS.FAX,  V_CONTACTOS.EMAIL_1,  V_CONTACTOS.EMAIL_2,  V_CONTACTOS.PAGINA_WEB,  V_CONTACTOS.NOTAS,  V_CONTACTOS.FECHA_ALTA,  V_CONTACTOS.FECHA_MODIFICACION,  V_CONTACTOS.USUARIO,  V_CONTACTOS.ID_EMPRESA,  V_CONTACTOS.REFERENCIA,  PROVEEDORES_DATOS.DESCUENTO,  PROVEEDORES_DATOS.DESCRIPCION_PROVEEDOR,  PROVEEDORES_DATOS.CODIGO_ASIGNADO,  PROVEEDORES_DATOS.GRUPO_PROVEEDOR,  PROVEEDORES_DATOS.REGIMEN_IVA,  PROVEEDORES_DATOS.ID_TIPO_IVA,  PROVEEDORES_DATOS.ID_FORMA_PAGO,  PROVEEDORES_DATOS.TIENDA_WEB,  PROVEEDORES_DATOS.HOMOLOGADO,  PROVEEDORES_DATOS.CERTIFICACIONFROM  PROVEEDORES_DATOS  LEFT OUTER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)WHERE  V_CONTACTOS.ID_CATEGORIA = 2;
 
 /* View: V_EMPLEADOS, Owner: SYSDBA */
 CREATE VIEW V_EMPLEADOS (ID, ID_CATEGORIA, NIF_CIF, NOMBRE, PERSONA_CONTACTO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, REFERENCIA, FECHA_NACIMIENTO, CATEGORIA, FECHA_ALTA_EMPRESA, FORMACION_BASE, FORMACION_COMPLE, FORMACION_RECIBIDA, EXPERIENCIA) AS
-

-SELECT V_CONTACTOS.ID,

-  V_CONTACTOS.ID_CATEGORIA,

-  V_CONTACTOS.NIF_CIF,

-  V_CONTACTOS.NOMBRE,

-  V_CONTACTOS.PERSONA_CONTACTO,

-  V_CONTACTOS.CALLE,

-  V_CONTACTOS.POBLACION,

-  V_CONTACTOS.PROVINCIA,

-  V_CONTACTOS.CODIGO_POSTAL,

-  V_CONTACTOS.TELEFONO_1,

-  V_CONTACTOS.TELEFONO_2,

-  V_CONTACTOS.MOVIL_1,

-  V_CONTACTOS.MOVIL_2,

-  V_CONTACTOS.FAX,

-  V_CONTACTOS.EMAIL_1,

-  V_CONTACTOS.EMAIL_2,

-  V_CONTACTOS.PAGINA_WEB,

-  V_CONTACTOS.NOTAS,

-  V_CONTACTOS.FECHA_ALTA,

-  V_CONTACTOS.FECHA_MODIFICACION,

-  V_CONTACTOS.USUARIO,

-  V_CONTACTOS.ID_EMPRESA, 

-  V_CONTACTOS.REFERENCIA,

-  

-  EMPLEADOS_DATOS.FECHA_NACIMIENTO,

-  EMPLEADOS_DATOS.CATEGORIA,

-  EMPLEADOS_DATOS.FECHA_ALTA_EMPRESA,

-  EMPLEADOS_DATOS.FORMACION_BASE,

-  EMPLEADOS_DATOS.FORMACION_COMPLE,

-  EMPLEADOS_DATOS.FORMACION_RECIBIDA,

-  EMPLEADOS_DATOS.EXPERIENCIA

-  

-FROM V_CONTACTOS

-LEFT OUTER JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_EMPLEADO = V_CONTACTOS.ID)

-

-WHERE V_CONTACTOS.ID_CATEGORIA = 3;
+SELECT V_CONTACTOS.ID,  V_CONTACTOS.ID_CATEGORIA,  V_CONTACTOS.NIF_CIF,  V_CONTACTOS.NOMBRE,  V_CONTACTOS.PERSONA_CONTACTO,  V_CONTACTOS.CALLE,  V_CONTACTOS.POBLACION,  V_CONTACTOS.PROVINCIA,  V_CONTACTOS.CODIGO_POSTAL,  V_CONTACTOS.TELEFONO_1,  V_CONTACTOS.TELEFONO_2,  V_CONTACTOS.MOVIL_1,  V_CONTACTOS.MOVIL_2,  V_CONTACTOS.FAX,  V_CONTACTOS.EMAIL_1,  V_CONTACTOS.EMAIL_2,  V_CONTACTOS.PAGINA_WEB,  V_CONTACTOS.NOTAS,  V_CONTACTOS.FECHA_ALTA,  V_CONTACTOS.FECHA_MODIFICACION,  V_CONTACTOS.USUARIO,  V_CONTACTOS.ID_EMPRESA,   V_CONTACTOS.REFERENCIA,    EMPLEADOS_DATOS.FECHA_NACIMIENTO,  EMPLEADOS_DATOS.CATEGORIA,  EMPLEADOS_DATOS.FECHA_ALTA_EMPRESA,  EMPLEADOS_DATOS.FORMACION_BASE,  EMPLEADOS_DATOS.FORMACION_COMPLE,  EMPLEADOS_DATOS.FORMACION_RECIBIDA,  EMPLEADOS_DATOS.EXPERIENCIA  FROM V_CONTACTOSLEFT OUTER JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_EMPLEADO = V_CONTACTOS.ID)WHERE V_CONTACTOS.ID_CATEGORIA = 3;
 SET TERM ^ ;
 
 /* Triggers only will work for SQL triggers */
 CREATE TRIGGER TRI_INSERT_ALBARANES_CLIENTE FOR ALBARANES_CLIENTE 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_ALBARANES_CLIENTE FOR ALBARANES_CLIENTE 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_ALBARANES_CLI_DET FOR ALBARANES_CLIENTE_DETALLES 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_ALBARANES_CLI_DET FOR ALBARANES_CLIENTE_DETALLES 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_ALBARANES_PROVEEDOR FOR ALBARANES_PROVEEDOR 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_ALBARANES_PROVEEDOR FOR ALBARANES_PROVEEDOR 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_ALBARANES_PRO_DET FOR ALBARANES_PROVEEDOR_DETALLES 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_ALBARANES_PRO_DET FOR ALBARANES_PROVEEDOR_DETALLES 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_ALMACENES FOR ALMACENES 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_ALMACENES FOR ALMACENES 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_ARTICULOS FOR ARTICULOS 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_ARTICULOS FOR ARTICULOS 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_COMISIONES_LIQUID FOR COMISIONES_LIQUIDADAS 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_COMISIONES_LIQUID FOR COMISIONES_LIQUIDADAS 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_CONTACTOS FOR CONTACTOS 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_CONTACTOS FOR CONTACTOS 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_CONTACTOS_BANCO FOR CONTACTOS_DATOS_BANCO 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_CONTACTOS_BANCO FOR CONTACTOS_DATOS_BANCO 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_CONTACTOS_DIR FOR CONTACTOS_DIRECCIONES 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_CONTACTOS_DIR FOR CONTACTOS_DIRECCIONES 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_FACTURAS_CLIENTE FOR FACTURAS_CLIENTE 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_FACTURAS_CLIENTE FOR FACTURAS_CLIENTE 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_FACTURAS_CLIENTE_DET FOR FACTURAS_CLIENTE_DETALLES 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_FACTURAS_CLIENTE_DET FOR FACTURAS_CLIENTE_DETALLES 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_FACTURAS_PROVEEDOR FOR FACTURAS_PROVEEDOR 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_FACTURAS_PROVEEDOR FOR FACTURAS_PROVEEDOR 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_FACTURAS_PROV_DET FOR FACTURAS_PROVEEDOR_DETALLES 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_FACTURAS_PROV_DET FOR FACTURAS_PROVEEDOR_DETALLES 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_PAGOS_CLIENTE FOR PAGOS_CLIENTE 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_PAGOS_CLIENTE FOR PAGOS_CLIENTE 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_PAGOS_PROVEEDOR FOR PAGOS_PROVEEDOR 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_PAGOS_PROVEEDOR FOR PAGOS_PROVEEDOR 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_PEDIDOS_CLIENTE FOR PEDIDOS_CLIENTE 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_PEDIDOS_CLIENTE FOR PEDIDOS_CLIENTE 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_PEDIDOS_CLI_DET FOR PEDIDOS_CLIENTE_DETALLES 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_PEDIDOS_CLI_DET FOR PEDIDOS_CLIENTE_DETALLES 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_PEDIDOS_PROVEEDOR FOR PEDIDOS_PROVEEDOR 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_PEDIDOS_PROVEEDOR FOR PEDIDOS_PROVEEDOR 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_PEDIDOS_PROV_DET FOR PEDIDOS_PROVEEDOR_DETALLES 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_PEDIDOS_PROV_DET FOR PEDIDOS_PROVEEDOR_DETALLES 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_RECIBOS_CLIENTE FOR RECIBOS_CLIENTE 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_RECIBOS_CLIENTE FOR RECIBOS_CLIENTE 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_RECIBOS_PROVEEDOR FOR RECIBOS_PROVEEDOR 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_RECIBOS_PROVEEDOR FOR RECIBOS_PROVEEDOR 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_REMESAS_CLIENTE FOR REMESAS_CLIENTE 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_REMESAS_CLI FOR REMESAS_CLIENTE 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 CREATE TRIGGER TRI_INSERT_REMESAS_PROVEEDOR FOR REMESAS_PROVEEDOR 
 ACTIVE BEFORE INSERT POSITION 0 
-AS

-begin

-  NEW.FECHA_ALTA = current_timestamp;

-  NEW.FECHA_MODIFICACION = Null;

-end ^
+ASbegin  NEW.FECHA_ALTA = current_timestamp;  NEW.FECHA_MODIFICACION = Null;end ^
 
 CREATE TRIGGER TRI_UPDATE_REMESAS_PROV FOR REMESAS_PROVEEDOR 
 ACTIVE BEFORE UPDATE POSITION 0 
-AS

-begin

-  NEW.FECHA_MODIFICACION = current_timestamp;

-end ^
+ASbegin  NEW.FECHA_MODIFICACION = current_timestamp;end ^
 
 COMMIT WORK ^
 SET TERM ; ^
diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
index 044cb3d7..6899a5f1 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
@@ -23,6 +23,7 @@ inherited DataModuleClientes: TDataModuleClientes
         Name = 'ID'
         DataType = datAutoInc
         GeneratorName = 'GEN_CONTACTOS_ID'
+        ServerAutoRefresh = True
         DictionaryEntry = 'Contactos_ID'
         InPrimaryKey = True
       end
@@ -58,14 +59,14 @@ inherited DataModuleClientes: TDataModuleClientes
         Name = 'CALLE'
         DataType = datString
         Size = 255
-        DisplayLabel = 'Direcci'#195#179'n'
+        DisplayLabel = 'Direcci'#243'n'
         DictionaryEntry = 'Contactos_CALLE'
       end
       item
         Name = 'POBLACION'
         DataType = datString
         Size = 255
-        DisplayLabel = 'Poblaci'#195#179'n'
+        DisplayLabel = 'Poblaci'#243'n'
         DictionaryEntry = 'Contactos_POBLACION'
       end
       item
@@ -79,7 +80,7 @@ inherited DataModuleClientes: TDataModuleClientes
         Name = 'CODIGO_POSTAL'
         DataType = datString
         Size = 10
-        DisplayLabel = 'C'#195#179'digo postal'
+        DisplayLabel = 'C'#243'digo postal'
         DictionaryEntry = 'Contactos_CODIGO_POSTAL'
       end
       item
@@ -100,7 +101,7 @@ inherited DataModuleClientes: TDataModuleClientes
         Name = 'MOVIL_1'
         DataType = datString
         Size = 25
-        DisplayLabel = 'M'#195#179'vil'
+        DisplayLabel = 'M'#243'vil'
         DictionaryEntry = 'Contactos_MOVIL_1'
       end
       item
@@ -193,14 +194,14 @@ inherited DataModuleClientes: TDataModuleClientes
       item
         Name = 'BLOQUEADO'
         DataType = datSmallInt
-        DisplayLabel = #194#191'Bloqueado?'
+        DisplayLabel = #191'Bloqueado?'
         DictionaryEntry = 'Clientes_BLOQUEADO'
       end
       item
         Name = 'REGIMEN_IVA'
         DataType = datString
         Size = 255
-        DisplayLabel = 'R'#195#169'gimen de IVA'
+        DisplayLabel = 'R'#233'gimen de IVA'
         DictionaryEntry = 'Clientes_REGIMEN_IVA'
       end
       item
@@ -230,6 +231,11 @@ inherited DataModuleClientes: TDataModuleClientes
         Name = 'TIENDA_WEB'
         DataType = datSmallInt
         DictionaryEntry = 'Clientes_TIENDA_WEB'
+      end
+      item
+        Name = 'CODIGO_ASIGNADO'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
index f20323dc..50b40953 100644
--- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
@@ -9,17 +9,17 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_Contactos = '{0535A6E2-6AD1-4247-9A32-BC3C1658EC8C}';
-  RID_GruposCliente = '{0F129451-0E5F-469A-B296-EE11BD5C33F0}';
-  RID_DatosBancarios = '{FFFA1683-A8AC-4087-8158-FB2ADE3241A4}';
-  RID_Clientes = '{C0877263-6E9F-45A1-A89D-284662B5F0D5}';
-  RID_Proveedores = '{EBFE10F1-1C8A-4F44-8512-FAF16349C724}';
-  RID_Empleados = '{436FA492-BFC7-4E36-A8FD-0FAB8603EA7C}';
-  RID_DireccionesContacto = '{55633C2C-41DA-4AAF-8A20-6F8E511BA93F}';
-  RID_ClientesDescuentos = '{836B4D02-8030-460F-A933-85A05194566D}';
-  RID_GruposProveedor = '{F9E85611-2E9A-4918-8EB0-3011DABDA189}';
-  RID_GruposEmpleado = '{616CAF20-6FBF-465D-BA8F-CF10C1F2E167}';
-  RID_Contactos_Refresh = '{A87206B2-F4CF-4C8D-92A1-3B5AC6A4F941}';
+  RID_Contactos = '{F0F9D3C9-E172-4D98-8BEA-17A208B81ACF}';
+  RID_GruposCliente = '{2766FEF7-E91D-4D20-B91A-BF62CD52718B}';
+  RID_DatosBancarios = '{092DF3B2-DF58-4938-9C03-4AFBDE4C21B9}';
+  RID_Clientes = '{3F704A25-87C5-4703-A36E-F43F35015E87}';
+  RID_Proveedores = '{73F3AD79-2DDE-4EAB-BAB0-E07521564344}';
+  RID_Empleados = '{743452C9-C22F-4046-B7B2-5CABC0560120}';
+  RID_DireccionesContacto = '{8A4FC8D1-7B4C-4AB4-8D88-435D399FF11A}';
+  RID_ClientesDescuentos = '{90395716-B88F-4D46-B90F-9EEAACB04FDA}';
+  RID_GruposProveedor = '{575567BD-E019-4A94-9825-D95AACBA47D0}';
+  RID_GruposEmpleado = '{4F6588DD-9088-4CC3-98D9-7BB02932AA89}';
+  RID_Contactos_Refresh = '{98DB65B8-84D8-4031-A653-528C0AE76035}';
 
   { Data table names }
   nme_Contactos = 'Contactos';
@@ -146,6 +146,7 @@ const
   fld_ClientesID_TIPO_IVA = 'ID_TIPO_IVA';
   fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO';
   fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
+  fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
 
   { Clientes field indexes }
   idx_ClientesID = 0;
@@ -181,6 +182,7 @@ const
   idx_ClientesID_TIPO_IVA = 30;
   idx_ClientesID_FORMA_PAGO = 31;
   idx_ClientesTIENDA_WEB = 32;
+  idx_ClientesCODIGO_ASIGNADO = 33;
 
   { Proveedores fields }
   fld_ProveedoresID = 'ID';
@@ -427,7 +429,7 @@ const
 type
   { IContactos }
   IContactos = interface(IDAStronglyTypedDataTable)
-  ['{5145E838-1842-4483-A701-647873835147}']
+  ['{6A311707-BFBF-4A2D-8B23-A1854122C104}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -726,7 +728,7 @@ type
 
   { IGruposCliente }
   IGruposCliente = interface(IDAStronglyTypedDataTable)
-  ['{8359833A-FFFA-4484-9C33-373F52E3F583}']
+  ['{9CAF03A2-A4F1-4258-B816-6F6F3DD28A5C}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -761,7 +763,7 @@ type
 
   { IDatosBancarios }
   IDatosBancarios = interface(IDAStronglyTypedDataTable)
-  ['{4FC2551A-3470-4FCC-9A1C-FFC04AD11D1E}']
+  ['{203B76FC-022A-40EE-9D0F-D349854569B2}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -892,7 +894,7 @@ type
 
   { IClientes }
   IClientes = interface(IDAStronglyTypedDataTable)
-  ['{8031B49A-5DF3-4CEE-B1F9-6454729B6A85}']
+  ['{F556CA82-15D1-4B12-872D-FA8DDC4D3D1F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1025,6 +1027,10 @@ type
     procedure SetTIENDA_WEBValue(const aValue: SmallInt);
     function GetTIENDA_WEBIsNull: Boolean;
     procedure SetTIENDA_WEBIsNull(const aValue: Boolean);
+    function GetCODIGO_ASIGNADOValue: String;
+    procedure SetCODIGO_ASIGNADOValue(const aValue: String);
+    function GetCODIGO_ASIGNADOIsNull: Boolean;
+    procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -1094,6 +1100,8 @@ type
     property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
     property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
     property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+    property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
+    property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
   end;
 
   { TClientesDataTableRules }
@@ -1234,6 +1242,10 @@ type
     procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
     function GetTIENDA_WEBIsNull: Boolean; virtual;
     procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
+    function GetCODIGO_ASIGNADOValue: String; virtual;
+    procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
+    function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
+    procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -1302,6 +1314,8 @@ type
     property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
     property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
     property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+    property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
+    property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1311,7 +1325,7 @@ type
 
   { IProveedores }
   IProveedores = interface(IDAStronglyTypedDataTable)
-  ['{A95870C3-18C8-4F26-A154-FF450D178739}']
+  ['{E78B6920-EA8B-4272-A882-09272EE52570}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1730,7 +1744,7 @@ type
 
   { IEmpleados }
   IEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{42D396C8-77D0-4750-8E63-A5F30DEB4CEB}']
+  ['{163A8B9E-63AC-4F3A-940F-B88797257D87}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2113,7 +2127,7 @@ type
 
   { IDireccionesContacto }
   IDireccionesContacto = interface(IDAStronglyTypedDataTable)
-  ['{38322BE3-0518-4B04-A0D9-EAE063592DD6}']
+  ['{B502F150-DACD-4279-B98F-FD8A8697087E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2328,7 +2342,7 @@ type
 
   { IClientesDescuentos }
   IClientesDescuentos = interface(IDAStronglyTypedDataTable)
-  ['{4D253EA6-435C-4C0B-A1A0-D133E1320C20}']
+  ['{460B58FD-1B6D-4262-B98F-CB39420DA154}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2411,7 +2425,7 @@ type
 
   { IGruposProveedor }
   IGruposProveedor = interface(IDAStronglyTypedDataTable)
-  ['{B7A45421-0C3B-462B-9E58-A27AE1D71575}']
+  ['{2D44AEBA-C652-43E1-B930-414C6BCE4EBD}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -2446,7 +2460,7 @@ type
 
   { IGruposEmpleado }
   IGruposEmpleado = interface(IDAStronglyTypedDataTable)
-  ['{0D368F59-0457-4AAA-88E0-5DC08217AD42}']
+  ['{4E36DEE5-8851-466F-835C-EE1AD7C9DEF6}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -2481,7 +2495,7 @@ type
 
   { IContactos_Refresh }
   IContactos_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{3F747BDC-1167-4192-9CA7-4FC51C649698}']
+  ['{48624E43-02C5-408B-8BCE-41C7B43B3DE0}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4205,6 +4219,27 @@ begin
     DataTable.Fields[idx_ClientesTIENDA_WEB].AsVariant := Null;
 end;
 
+function TClientesDataTableRules.GetCODIGO_ASIGNADOValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString;
+end;
+
+procedure TClientesDataTableRules.SetCODIGO_ASIGNADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString := aValue;
+end;
+
+function TClientesDataTableRules.GetCODIGO_ASIGNADOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsVariant := Null;
+end;
+
 
 { TProveedoresDataTableRules }
 constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
index 485c4f8d..f99c999f 100644
--- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
@@ -9,22 +9,22 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ContactosDelta = '{622299E7-0DE2-41D9-9B00-AD4F0FC58AA8}';
-  RID_GruposClienteDelta = '{2132D071-7709-433A-B339-5B9C763D0995}';
-  RID_DatosBancariosDelta = '{6BA983CD-C9FA-4933-93CD-FCD1CE045256}';
-  RID_ClientesDelta = '{32DF2CC4-F076-4924-B2EF-9218D99294C6}';
-  RID_ProveedoresDelta = '{4A9BB1FB-DE7E-43C2-8F1D-4909191DCC53}';
-  RID_EmpleadosDelta = '{7CEE2A53-5906-42F1-BFDA-753F7BC3769A}';
-  RID_DireccionesContactoDelta = '{10E97AB6-9484-47D3-94FB-EB77DF28A5C8}';
-  RID_ClientesDescuentosDelta = '{F9462554-735C-43D6-96C5-D440B8AE77DC}';
-  RID_GruposProveedorDelta = '{385AB8C2-D9FD-4BAD-955C-3716AEC71CDB}';
-  RID_GruposEmpleadoDelta = '{8EFA344F-C9C4-4113-807A-8876CEE002A2}';
-  RID_Contactos_RefreshDelta = '{D04D6755-FB96-4517-91AF-95AB76C731CF}';
+  RID_ContactosDelta = '{FFB9CD4C-90FA-40DB-B07C-C6C18831EC43}';
+  RID_GruposClienteDelta = '{32C23F16-1B66-4EB6-9F50-F3E65E65BC0D}';
+  RID_DatosBancariosDelta = '{17A3AD70-D8D9-4075-A99E-4B627BB8C3A3}';
+  RID_ClientesDelta = '{AD8AB540-D8AD-4B64-9208-F11CBD8CD7FC}';
+  RID_ProveedoresDelta = '{4F0CEB42-998A-46BC-91ED-8BF3BA828F3A}';
+  RID_EmpleadosDelta = '{8DC6D05D-7FB8-4433-8FE1-B6E9A79592D6}';
+  RID_DireccionesContactoDelta = '{EF8CED74-9CBE-4A6A-8712-3BFD15E1E1E9}';
+  RID_ClientesDescuentosDelta = '{08E01C92-CB8F-4342-A8A8-97CF6E52E6BF}';
+  RID_GruposProveedorDelta = '{D54FF769-D25B-4923-88CC-9585CBA3D60F}';
+  RID_GruposEmpleadoDelta = '{DE8A4095-7B5A-4351-A924-641C7C8AE938}';
+  RID_Contactos_RefreshDelta = '{00F38C32-1DA2-438A-8AB4-5E1832EEA83F}';
 
 type
   { IContactosDelta }
   IContactosDelta = interface(IContactos)
-  ['{622299E7-0DE2-41D9-9B00-AD4F0FC58AA8}']
+  ['{FFB9CD4C-90FA-40DB-B07C-C6C18831EC43}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -323,7 +323,7 @@ type
 
   { IGruposClienteDelta }
   IGruposClienteDelta = interface(IGruposCliente)
-  ['{2132D071-7709-433A-B339-5B9C763D0995}']
+  ['{32C23F16-1B66-4EB6-9F50-F3E65E65BC0D}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -357,7 +357,7 @@ type
 
   { IDatosBancariosDelta }
   IDatosBancariosDelta = interface(IDatosBancarios)
-  ['{6BA983CD-C9FA-4933-93CD-FCD1CE045256}']
+  ['{17A3AD70-D8D9-4075-A99E-4B627BB8C3A3}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -487,7 +487,7 @@ type
 
   { IClientesDelta }
   IClientesDelta = interface(IClientes)
-  ['{32DF2CC4-F076-4924-B2EF-9218D99294C6}']
+  ['{AD8AB540-D8AD-4B64-9208-F11CBD8CD7FC}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -522,6 +522,7 @@ type
     function GetOldID_TIPO_IVAValue : Integer;
     function GetOldID_FORMA_PAGOValue : Integer;
     function GetOldTIENDA_WEBValue : SmallInt;
+    function GetOldCODIGO_ASIGNADOValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -557,6 +558,7 @@ type
     property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
     property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
+    property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
   end;
 
   { TClientesBusinessProcessorRules }
@@ -763,6 +765,12 @@ type
     function GetOldTIENDA_WEBIsNull: Boolean; virtual;
     procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
     procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
+    function GetCODIGO_ASIGNADOValue: String; virtual;
+    function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
+    function GetOldCODIGO_ASIGNADOValue: String; virtual;
+    function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
+    procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
+    procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -897,6 +905,10 @@ type
     property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
     property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
     property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
+    property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
+    property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
+    property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
+    property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -906,7 +918,7 @@ type
 
   { IProveedoresDelta }
   IProveedoresDelta = interface(IProveedores)
-  ['{4A9BB1FB-DE7E-43C2-8F1D-4909191DCC53}']
+  ['{4F0CEB42-998A-46BC-91ED-8BF3BA828F3A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1325,7 +1337,7 @@ type
 
   { IEmpleadosDelta }
   IEmpleadosDelta = interface(IEmpleados)
-  ['{7CEE2A53-5906-42F1-BFDA-753F7BC3769A}']
+  ['{8DC6D05D-7FB8-4433-8FE1-B6E9A79592D6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1712,7 +1724,7 @@ type
 
   { IDireccionesContactoDelta }
   IDireccionesContactoDelta = interface(IDireccionesContacto)
-  ['{10E97AB6-9484-47D3-94FB-EB77DF28A5C8}']
+  ['{EF8CED74-9CBE-4A6A-8712-3BFD15E1E1E9}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -1927,7 +1939,7 @@ type
 
   { IClientesDescuentosDelta }
   IClientesDescuentosDelta = interface(IClientesDescuentos)
-  ['{F9462554-735C-43D6-96C5-D440B8AE77DC}']
+  ['{08E01C92-CB8F-4342-A8A8-97CF6E52E6BF}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -2009,7 +2021,7 @@ type
 
   { IGruposProveedorDelta }
   IGruposProveedorDelta = interface(IGruposProveedor)
-  ['{385AB8C2-D9FD-4BAD-955C-3716AEC71CDB}']
+  ['{D54FF769-D25B-4923-88CC-9585CBA3D60F}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -2043,7 +2055,7 @@ type
 
   { IGruposEmpleadoDelta }
   IGruposEmpleadoDelta = interface(IGruposEmpleado)
-  ['{8EFA344F-C9C4-4113-807A-8876CEE002A2}']
+  ['{DE8A4095-7B5A-4351-A924-641C7C8AE938}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -2077,7 +2089,7 @@ type
 
   { IContactos_RefreshDelta }
   IContactos_RefreshDelta = interface(IContactos_Refresh)
-  ['{D04D6755-FB96-4517-91AF-95AB76C731CF}']
+  ['{00F38C32-1DA2-438A-8AB4-5E1832EEA83F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldNIF_CIFValue : String;
@@ -4464,6 +4476,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := Null;
 end;
 
+function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
+end;
+
+function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO];
+end;
+
+function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := Null;
+end;
+
 
 { TProveedoresBusinessProcessorRules }
 constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas
index e08b4e33..ccb98631 100644
--- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas
@@ -75,6 +75,7 @@ begin
       ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
       ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
       ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
+      ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
 
       Execute;
     end;
@@ -112,6 +113,7 @@ begin
       ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
       ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
       ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
+      ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];      
       Execute;
     end;
   finally
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
index 8f195024..0247a34f 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@@ -512,6 +512,10 @@ object srvContactos: TsrvContactos
               item
                 DatasetField = 'TIENDA_WEB'
                 TableField = 'TIENDA_WEB'
+              end
+              item
+                DatasetField = 'CODIGO_ASIGNADO'
+                TableField = 'CODIGO_ASIGNADO'
               end>
           end>
         Name = 'Clientes'
@@ -703,6 +707,11 @@ object srvContactos: TsrvContactos
             Name = 'TIENDA_WEB'
             DataType = datSmallInt
             DictionaryEntry = 'Clientes_TIENDA_WEB'
+          end
+          item
+            Name = 'CODIGO_ASIGNADO'
+            DataType = datString
+            Size = 255
           end>
       end
       item
@@ -2485,73 +2494,51 @@ object srvContactos: TsrvContactos
         Params = <
           item
             Name = 'ID_CLIENTE'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'GRUPO_CLIENTE'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'RECARGO_EQUIVALENCIA'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'NOMBRE_COMERCIAL'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'VENCIMIENTO_FACTURAS'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'BLOQUEADO'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'MOTIVO_BLOQUEO'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'REGIMEN_IVA'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'ID_TIPO_IVA'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'ID_FORMA_PAGO'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'TIENDA_WEB'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
+          end
+          item
+            Name = 'CODIGO_ASIGNADO'
+            Value = ''
           end>
         Statements = <
           item
@@ -2561,10 +2548,11 @@ object srvContactos: TsrvContactos
               'INSERT'#10'  INTO CLIENTES_DATOS'#10'    (ID_CLIENTE, GRUPO_CLIENTE, REC' +
               'ARGO_EQUIVALENCIA,'#10'     NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, ' +
               'BLOQUEADO, MOTIVO_BLOQUEO,'#10'     REGIMEN_IVA, ID_TIPO_IVA, ID_FOR' +
-              'MA_PAGO, TIENDA_WEB)'#10'  VALUES'#10'    (:ID_CLIENTE, :GRUPO_CLIENTE, ' +
-              ':RECARGO_EQUIVALENCIA,'#10'     :NOMBRE_COMERCIAL, :VENCIMIENTO_FACT' +
-              'URAS,'#10'     :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA,'#10'     :ID_T' +
-              'IPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB)'
+              'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO)'#10'  VALUES'#10'    (:ID_CLIENTE,' +
+              ' :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10'     :NOMBRE_COMERCIAL, ' +
+              ':VENCIMIENTO_FACTURAS,'#10'     :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIME' +
+              'N_IVA,'#10'     :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_A' +
+              'SIGNADO)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -2594,79 +2582,55 @@ object srvContactos: TsrvContactos
         Params = <
           item
             Name = 'ID_CLIENTE'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'GRUPO_CLIENTE'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'MOTIVO_BLOQUEO'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'RECARGO_EQUIVALENCIA'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'NOMBRE_COMERCIAL'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'VENCIMIENTO_FACTURAS'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'BLOQUEADO'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'REGIMEN_IVA'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'ID_TIPO_IVA'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'ID_FORMA_PAGO'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'TIENDA_WEB'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
+          end
+          item
+            Name = 'CODIGO_ASIGNADO'
+            Value = ''
           end
           item
             Name = 'OLD_ID_CLIENTE'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end>
         Statements = <
           item
@@ -2679,8 +2643,9 @@ object srvContactos: TsrvContactos
               'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10'    VENCIMIENTO_FACTURAS = :VE' +
               'NCIMIENTO_FACTURAS,'#10'    BLOQUEADO = :BLOQUEADO,'#10'    REGIMEN_IVA ' +
               '= :REGIMEN_IVA,'#10'    ID_TIPO_IVA = :ID_TIPO_IVA,'#10'    ID_FORMA_PAG' +
-              'O = :ID_FORMA_PAGO,'#10'    TIENDA_WEB = :TIENDA_WEB'#10'  WHERE'#10'    (ID' +
-              '_CLIENTE = :OLD_ID_CLIENTE)'
+              'O = :ID_FORMA_PAGO,'#10'    TIENDA_WEB = :TIENDA_WEB,'#10'    CODIGO_ASI' +
+              'GNADO = :CODIGO_ASIGNADO'#10'  WHERE'#10'    (ID_CLIENTE = :OLD_ID_CLIEN' +
+              'TE)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -4084,15 +4049,15 @@ object srvContactos: TsrvContactos
     Top = 82
     DiagramData = 
       '<Diagrams>'#13#10'  <Diagram Name="Contactos" Left="200" Top="200" Wid' +
-      'th="400" Height="300">'#13#10'    <Entity Name="DatosBancarios" Left="' +
-      '325,90" Top="0,00" />'#13#10'    <Entity Name="DireccionesContacto" Le' +
-      'ft="320,90" Top="183,00" />'#13#10'    <Entity Name="Contactos" Left="' +
-      '0,00" Top="85,50" />'#13#10'  </Diagram>'#13#10'  <Diagram Name="Clientes" L' +
+      'th="400" Height="300">'#13#10'    <Entity Name="Contactos" Left="0,00"' +
+      ' Top="85,50" />'#13#10'    <Entity Name="DatosBancarios" Left="325,90"' +
+      ' Top="0,00" />'#13#10'    <Entity Name="DireccionesContacto" Left="320' +
+      ',90" Top="183,00" />'#13#10'  </Diagram>'#13#10'  <Diagram Name="Clientes" L' +
       'eft="200" Top="200" Width="400" Height="300">'#13#10'    <Entity Name=' +
-      '"DatosBancarios" Left="463,00" Top="175,00" />'#13#10'    <Entity Name' +
-      '="DireccionesContacto" Left="253,00" Top="236,00" />'#13#10'    <Entit' +
-      'y Name="ClientesDescuentos" Left="438,00" Top="0,00" />'#13#10'    <En' +
-      'tity Name="Clientes" Left="0,00" Top="23,00" />'#13#10'  </Diagram>'#13#10' ' +
+      '"Clientes" Left="0,00" Top="23,00" />'#13#10'    <Entity Name="DatosBa' +
+      'ncarios" Left="463,00" Top="175,00" />'#13#10'    <Entity Name="Direcc' +
+      'ionesContacto" Left="253,00" Top="236,00" />'#13#10'    <Entity Name="' +
+      'ClientesDescuentos" Left="438,00" Top="0,00" />'#13#10'  </Diagram>'#13#10' ' +
       ' <Diagram Name="Empleados" Left="200" Top="200" Width="400" Heig' +
       'ht="300">'#13#10'    <Entity Name="DatosBancarios" Left="210,50" Top="' +
       '280,67" />'#13#10'    <Entity Name="DireccionesContacto" Left="295,00"' +
diff --git a/Source/Modulos/Contactos/Views/uViewCliente.dfm b/Source/Modulos/Contactos/Views/uViewCliente.dfm
index b13b44a7..92177670 100644
--- a/Source/Modulos/Contactos/Views/uViewCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uViewCliente.dfm
@@ -11,19 +11,19 @@ inherited frViewCliente: TfrViewCliente
     ExplicitWidth = 646
     ExplicitHeight = 470
     inherited PngSpeedButton1: TPngSpeedButton
-      Left = 601
-      ExplicitLeft = 601
+      Left = 585
+      ExplicitLeft = 585
     end
     inherited PngSpeedButton2: TPngSpeedButton
-      Left = 601
-      ExplicitLeft = 601
+      Left = 585
+      ExplicitLeft = 585
     end
     inherited PngSpeedButton3: TPngSpeedButton
-      Left = 601
-      ExplicitLeft = 601
+      Left = 585
+      ExplicitLeft = 585
     end
     object Label1: TLabel [3]
-      Left = 376
+      Left = 373
       Top = 280
       Width = 269
       Height = 39
@@ -34,50 +34,50 @@ inherited frViewCliente: TfrViewCliente
       WordWrap = True
     end
     inherited eCalle: TcxDBTextEdit
-      Left = 121
-      Top = 284
-      TabOrder = 8
-      ExplicitLeft = 121
-      ExplicitTop = 284
+      Left = 132
+      Top = 304
+      TabOrder = 9
+      ExplicitLeft = 132
+      ExplicitTop = 304
       ExplicitWidth = 175
       Width = 175
     end
     inherited eProvincia: TcxDBTextEdit
-      Left = 121
-      Top = 338
-      TabOrder = 11
-      ExplicitLeft = 121
-      ExplicitTop = 338
+      Left = 132
+      Top = 358
+      TabOrder = 12
+      ExplicitLeft = 132
+      ExplicitTop = 358
       ExplicitWidth = 167
       Width = 167
     end
     inherited ePoblacion: TcxDBTextEdit
-      Left = 121
-      Top = 311
-      TabOrder = 9
-      ExplicitLeft = 121
-      ExplicitTop = 311
+      Left = 132
+      Top = 331
+      TabOrder = 10
+      ExplicitLeft = 132
+      ExplicitTop = 331
       ExplicitWidth = 71
       Width = 71
     end
     inherited eCodigoPostal: TcxDBTextEdit
-      Left = 281
-      Top = 311
-      TabOrder = 10
-      ExplicitLeft = 281
-      ExplicitTop = 311
+      Left = 278
+      Top = 331
+      TabOrder = 11
+      ExplicitLeft = 278
+      ExplicitTop = 331
     end
     inherited eObservaciones: TcxDBMemo
-      Top = 395
-      TabOrder = 20
-      ExplicitTop = 395
+      Top = 415
+      TabOrder = 21
+      ExplicitTop = 415
       ExplicitWidth = 609
       ExplicitHeight = 42
       Height = 42
       Width = 609
     end
     object eNombreComercial: TcxDBTextEdit [9]
-      Left = 121
+      Left = 132
       Top = 82
       DataBinding.DataField = 'NOMBRE_COMERCIAL'
       DataBinding.DataSource = dsContacto
@@ -98,7 +98,7 @@ inherited frViewCliente: TfrViewCliente
     end
     object cbClienteBloqueado: TcxDBCheckBox [10]
       Left = 22
-      Top = 173
+      Top = 193
       Action = actBloqueoCliente
       DataBinding.DataField = 'BLOQUEADO'
       DataBinding.DataSource = dsContacto
@@ -117,12 +117,12 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 5
+      TabOrder = 6
       Width = 163
     end
     object cbGrupoCliente: TcxDBComboBox [11]
-      Left = 121
-      Top = 109
+      Left = 132
+      Top = 136
       DataBinding.DataField = 'GRUPO_CLIENTE'
       DataBinding.DataSource = dsContacto
       Properties.ImmediatePost = True
@@ -141,12 +141,12 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 4
+      TabOrder = 5
       Width = 87
     end
     object eBloqueo: TcxDBTextEdit [12]
-      Left = 121
-      Top = 200
+      Left = 132
+      Top = 220
       DataBinding.DataField = 'MOTIVO_BLOQUEO'
       DataBinding.DataSource = dsContacto
       Style.BorderColor = clWindowFrame
@@ -160,11 +160,11 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 6
+      TabOrder = 7
       Width = 113
     end
     object cxDBCheckBox1: TcxDBCheckBox [13]
-      Left = 376
+      Left = 373
       Top = 325
       Caption = 'Permitir el acceso de este cliente a la tienda web'
       DataBinding.DataField = 'TIENDA_WEB'
@@ -185,82 +185,106 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 19
+      TabOrder = 20
       Width = 249
     end
     inherited eTlfParticular: TcxDBTextEdit
-      Left = 471
-      TabOrder = 13
-      ExplicitLeft = 471
+      Left = 468
+      TabOrder = 14
+      ExplicitLeft = 468
       ExplicitWidth = 157
       Width = 157
     end
     inherited eTlfTrabajo: TcxDBTextEdit
-      Left = 471
-      TabOrder = 12
-      ExplicitLeft = 471
+      Left = 468
+      TabOrder = 13
+      ExplicitLeft = 468
       ExplicitWidth = 157
       Width = 157
     end
     inherited eTlfMovil: TcxDBTextEdit
-      Left = 471
-      TabOrder = 14
-      ExplicitLeft = 471
+      Left = 468
+      TabOrder = 15
+      ExplicitLeft = 468
       ExplicitWidth = 157
       Width = 157
     end
     inherited eFax: TcxDBTextEdit
-      Left = 471
-      TabOrder = 15
-      ExplicitLeft = 471
+      Left = 468
+      TabOrder = 16
+      ExplicitLeft = 468
       ExplicitWidth = 157
       Width = 157
     end
     inherited eNombre: TcxDBTextEdit
-      Left = 121
-      ExplicitLeft = 121
+      Left = 132
+      ExplicitLeft = 132
       ExplicitWidth = 135
       Width = 135
     end
     inherited eNIFCIF: TcxDBTextEdit
-      Left = 282
-      ExplicitLeft = 282
+      Left = 259
+      ExplicitLeft = 259
       ExplicitWidth = 58
       Width = 58
     end
     inherited eMailTrabajo: TcxDBHyperLinkEdit
-      Left = 471
+      Left = 468
       Properties.Prefix = 'mailto:'
-      TabOrder = 16
-      ExplicitLeft = 471
+      TabOrder = 17
+      ExplicitLeft = 468
       ExplicitWidth = 128
       Width = 128
     end
     inherited eMailParticular: TcxDBHyperLinkEdit
-      Left = 471
+      Left = 468
       Properties.Prefix = 'mailto:'
-      TabOrder = 17
-      ExplicitLeft = 471
+      TabOrder = 18
+      ExplicitLeft = 468
       ExplicitWidth = 128
       Width = 128
     end
     inherited ePaginaWeb: TcxDBHyperLinkEdit
-      Left = 471
-      TabOrder = 18
-      ExplicitLeft = 471
+      Left = 468
+      TabOrder = 19
+      ExplicitLeft = 468
       ExplicitWidth = 128
       Width = 128
     end
     inherited eReferencia: TcxDBTextEdit
-      Left = 121
-      ExplicitLeft = 121
+      Left = 132
+      ExplicitLeft = 132
+      ExplicitWidth = 38
+      Width = 38
     end
     inherited ePersonaContacto: TcxDBTextEdit
-      Left = 121
-      Top = 257
-      TabOrder = 7
-      ExplicitLeft = 121
-      ExplicitTop = 257
+      Left = 132
+      Top = 277
+      TabOrder = 8
+      ExplicitLeft = 132
+      ExplicitTop = 277
+      ExplicitWidth = 256
+      Width = 256
+    end
+    object eCodigoAsignado: TcxDBTextEdit [25]
+      Left = 132
+      Top = 109
+      DataBinding.DataField = 'CODIGO_ASIGNADO'
+      DataBinding.DataSource = dsContacto
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clWindow
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 4
+      Width = 227
     end
     inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
       AutoAligns = [aaHorizontal]
@@ -273,6 +297,11 @@ inherited frViewCliente: TfrViewCliente
               Control = eNombreComercial
               ControlOptions.ShowBorder = False
             end
+            object dxLayoutControlContactoItem22: TdxLayoutItem
+              Caption = 'C'#243'digo de proveedor:'
+              Control = eCodigoAsignado
+              ControlOptions.ShowBorder = False
+            end
             object dxLayoutControlContactoItem19: TdxLayoutItem
               AutoAligns = [aaVertical]
               AlignHorz = ahClient
diff --git a/Source/Modulos/Contactos/Views/uViewCliente.pas b/Source/Modulos/Contactos/Views/uViewCliente.pas
index 450eef57..b78b6762 100644
--- a/Source/Modulos/Contactos/Views/uViewCliente.pas
+++ b/Source/Modulos/Contactos/Views/uViewCliente.pas
@@ -34,6 +34,8 @@ type
     cxDBCheckBox1: TcxDBCheckBox;
     dxLayoutControlContactoItem21: TdxLayoutItem;
     Label1: TLabel;
+    dxLayoutControlContactoItem22: TdxLayoutItem;
+    eCodigoAsignado: TcxDBTextEdit;
     procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
     procedure cbGrupoClientePropertiesValidate(Sender: TObject;
       var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);