diff --git a/Database/Procedures.txt b/Database/Procedures.txt
new file mode 100644
index 00000000..1edbefe1
--- /dev/null
+++ b/Database/Procedures.txt
@@ -0,0 +1,140 @@
+delete from new_table;
+CREATE TABLE NEW_TABLE (
+    ID INTEGER,
+    SS INTEGER);
+    
+	
+CREATE PROCEDURE PROC_CREATE_SUBCUENTAS_CLI 
+as
+declare variable id_cliente integer;
+declare variable ref_cliente varchar(255);
+declare variable id_subcuenta integer;
+declare variable nombre_cliente varchar(255);
+declare variable id_subcuenta_inser integer;
+begin
+  
+
+  for select GEN_ID(gen_cont_subcuentas_id, 1), contactos.ID, '430' || coalesce(empresas_tiendas.codigo_contable, '00') || substr(contactos.REFERENCIA,6,12),
+      contactos.nombre
+      from contactos
+      left join contactos_categorias on (contactos_categorias.id_contacto = contactos.id)
+      left join empresas_tiendas on (empresas_tiendas.id = contactos.id_tienda)
+      where contactos_categorias.id_categoria = 1   /*solo clientes*/
+      order by contactos.ID
+      into :id_subcuenta_inser, :id_cliente, :ref_cliente, :nombre_cliente do
+  begin
+    id_subcuenta = null;
+    select cont_subcuentas.ID
+    from cont_subcuentas
+    where cont_subcuentas.ID_CONTACTO = :id_cliente
+    into :id_subcuenta;
+
+    if (id_subcuenta is null) then
+    begin
+      insert into new_table (id, ss)
+      values (:id_cliente, 0);
+
+      insert into CONT_SUBCUENTAS (ID, REF_SUBCUENTA, DESCRIPCION, ID_EJERCICIO, ID_CUENTA, ID_CONTACTO)
+      values (:id_subcuenta_inser, :ref_cliente, 'Cuenta cliente: ' || :nombre_cliente, 3, 1434, :id_cliente);
+
+      update clientes_datos
+      set ignorar_contabilidad = 0,
+      tiene_subcuenta = 1
+      where id_cliente = :id_cliente;
+    end
+    else
+    begin
+      insert into new_table (id, ss)
+      values (:id_cliente, 1);
+
+      update cont_subcuentas
+      set ref_subcuenta = :ref_cliente
+      where cont_subcuentas.ID = :id_subcuenta;
+
+      update clientes_datos
+      set ignorar_contabilidad = 0,
+      tiene_subcuenta = 1
+      where id_cliente = :id_cliente;
+    end
+  end
+
+  suspend;
+end
+
+
+
+
+
+select ref_subcuenta, count(id)
+from cont_subcuentas
+group by ref_subcuenta
+
+//mas de 3
+
+ select cont_subcuentas.id_ejercicio, cont_subcuentas.ID, cont_subcuentas.ref_subcuenta, cont_subcuentas.descripcion, cont_subcuentas.ID_CONTACTO
+    from cont_subcuentas
+    where cont_subcuentas.ref_subcuenta = '4300000000'
+    
+    
+    
+    
+
+CREATE PROCEDURE PROC_CREATE_SUBCUENTAS_PRO
+as
+declare variable id_proveedor integer;
+declare variable ref_proveedor varchar(255);
+declare variable id_subcuenta integer;
+declare variable nombre_proveedor varchar(255);
+declare variable id_subcuenta_inser integer;
+begin
+  
+
+  for select GEN_ID(gen_cont_subcuentas_id, 1), contactos.ID, '400' || coalesce(empresas_tiendas.codigo_contable, '00') || substr(contactos.REFERENCIA,6,12),
+      contactos.nombre
+      from contactos
+      left join contactos_categorias on (contactos_categorias.id_contacto = contactos.id)
+      left join empresas_tiendas on (empresas_tiendas.id = contactos.id_tienda)
+      where contactos_categorias.id_categoria = 2   /*solo proveedores*/
+      order by contactos.ID
+      into :id_subcuenta_inser, :id_proveedor, :ref_proveedor, :nombre_proveedor do
+  begin
+    id_subcuenta = null;
+    select cont_subcuentas.ID
+    from cont_subcuentas
+    where cont_subcuentas.ID_CONTACTO = :id_proveedor
+    into :id_subcuenta;
+
+    if (id_subcuenta is null) then
+    begin
+      insert into new_table (id, ss)
+      values (:id_proveedor, 0);
+
+      insert into CONT_SUBCUENTAS (ID, REF_SUBCUENTA, DESCRIPCION, ID_EJERCICIO, ID_CUENTA, ID_CONTACTO)
+      values (:id_subcuenta_inser, :ref_proveedor, 'Cuenta proveedor: ' || :nombre_proveedor, 3, 1434, :id_proveedor);
+
+      update proveedores_datos
+      set ignorar_contabilidad = 0,
+      tiene_subcuenta = 1,
+      es_Acreedor = 0
+      where id_proveedor = :id_proveedor;
+    end
+    else
+    begin
+      insert into new_table (id, ss)
+      values (:id_proveedor, 1);
+
+      update cont_subcuentas
+      set ref_subcuenta = :ref_proveedor
+      where cont_subcuentas.ID = :id_subcuenta;
+
+      update proveedores_datos
+      set ignorar_contabilidad = 0,
+      tiene_subcuenta = 1,
+      es_Acreedor = 0
+      where id_proveedor = :id_proveedor;
+    end
+  end
+
+  suspend;
+end
+    
\ No newline at end of file
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index d1f30ab1..d01d32e1 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -1198,7 +1198,8 @@ CREATE TABLE PROVEEDORES_DATOS (
     HOMOLOGADO             SMALLINT,
     IGNORAR_CONTABILIDAD   TIPO_ID,
     TIENE_SUBCUENTA        TIPO_ID,
-    NOMBRE_COMERCIAL       VARCHAR(255)
+    NOMBRE_COMERCIAL       VARCHAR(255),
+    ES_ACREEDOR               SMALLINT
 );
 
 CREATE TABLE PROVEEDORES_GRUPOS (
@@ -1864,7 +1865,8 @@ CREATE VIEW V_PROVEEDORES(
     CERTIFICACION,
     IGNORAR_CONTABILIDAD,
     TIENE_SUBCUENTA,
-    NOMBRE_COMERCIAL)
+    NOMBRE_COMERCIAL,
+    ES_ACREEDOR)
 AS
 SELECT
   V_CONTACTOS.ID,
@@ -1904,7 +1906,8 @@ SELECT
   PROVEEDORES_DATOS.CERTIFICACION,
   PROVEEDORES_DATOS.IGNORAR_CONTABILIDAD,
   PROVEEDORES_DATOS.TIENE_SUBCUENTA,
-  PROVEEDORES_DATOS.NOMBRE_COMERCIAL
+  PROVEEDORES_DATOS.NOMBRE_COMERCIAL,
+  PROVEEDORES_DATOS.ES_ACREEDOR
 FROM
   PROVEEDORES_DATOS
   INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)
diff --git a/Database/scripts/replicador_sysdata.sql b/Database/scripts/replicador_sysdata.sql
index 72645978..c657a69d 100644
--- a/Database/scripts/replicador_sysdata.sql
+++ b/Database/scripts/replicador_sysdata.sql
@@ -85,12 +85,12 @@ INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (5
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (58, 1, 'CATEGORIAS', 'U', 'UPDATE CATEGORIAS SET ID=?,CATEGORIA=? WHERE ID=?', 0);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (59, 1, 'CATEGORIAS', 'D', 'DELETE FROM CATEGORIAS WHERE ID=?', 0);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (60, 1, 'CLIENTES_DATOS', 'S', 'SELECT ID_CLIENTE,BLOQUEADO,CODIGO_ASIGNADO,DESCUENTO,GRUPO_CLIENTE,ID_AGENTE,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,MOTIVO_BLOQUEO,NOMBRE_COMERCIAL,PROCEDENCIA_CLIENTE,RECARGO_EQUIVALENCIA,REGIMEN_IVA', 1);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (61, 1, 'CLIENTES_DATOS', 'S', ',TIENDA_WEB,VENCIMIENTO_FACTURAS  FROM CLIENTES_DATOS', 2);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (61, 1, 'CLIENTES_DATOS', 'S', ',TIENDA_WEB,VENCIMIENTO_FACTURAS,TIENE_SUBCUENTA  FROM CLIENTES_DATOS', 2);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (62, 1, 'CLIENTES_DATOS', 'S', ' WHERE ID_CLIENTE=?', 3);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (63, 1, 'CLIENTES_DATOS', 'I', 'INSERT INTO CLIENTES_DATOS (ID_CLIENTE,BLOQUEADO,CODIGO_ASIGNADO,DESCUENTO,GRUPO_CLIENTE,ID_AGENTE,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,MOTIVO_BLOQUEO,NOMBRE_COMERCIAL,PROCEDENCIA_CLIENTE,RECARGO_EQUIVALENCIA', 1);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (64, 1, 'CLIENTES_DATOS', 'I', ',REGIMEN_IVA,TIENDA_WEB,VENCIMIENTO_FACTURAS ) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (64, 1, 'CLIENTES_DATOS', 'I', ',REGIMEN_IVA,TIENDA_WEB,VENCIMIENTO_FACTURAS,TIENE_SUBCUENTA ) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (65, 1, 'CLIENTES_DATOS', 'U', 'UPDATE CLIENTES_DATOS SET ID_CLIENTE=?,BLOQUEADO=?,CODIGO_ASIGNADO=?,DESCUENTO=?,GRUPO_CLIENTE=?,ID_AGENTE=?,ID_FORMA_PAGO=?,ID_TIPO_IVA=?,IGNORAR_CONTABILIDAD=?,MOTIVO_BLOQUEO=?,NOMBRE_COMERCIAL=?,PROCEDENCIA_CLIENTE=?', 1);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (66, 1, 'CLIENTES_DATOS', 'U', ',RECARGO_EQUIVALENCIA=?,REGIMEN_IVA=?,TIENDA_WEB=?,VENCIMIENTO_FACTURAS =? WHERE ID_CLIENTE=?', 2);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (66, 1, 'CLIENTES_DATOS', 'U', ',RECARGO_EQUIVALENCIA=?,REGIMEN_IVA=?,TIENDA_WEB=?,VENCIMIENTO_FACTURAS =?,TIENE_SUBCUENTA=? WHERE ID_CLIENTE=?', 2);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (67, 1, 'CLIENTES_DATOS', 'D', 'DELETE FROM CLIENTES_DATOS WHERE ID_CLIENTE=?', 0);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (68, 1, 'CLIENTES_DTOS_PROVEEDORES', 'S', 'SELECT ID,DESCUENTO,ID_CLIENTE,ID_PROVEEDOR FROM CLIENTES_DTOS_PROVEEDORES', 1);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (69, 1, 'CLIENTES_DTOS_PROVEEDORES', 'S', ' WHERE ID=?', 2);
@@ -175,17 +175,17 @@ INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (1
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (148, 1, 'CONTACTOS_DATOS_BANCO', 'I', 'INSERT INTO CONTACTOS_DATOS_BANCO (ID,CUENTA,DC,ENTIDAD,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,SUCURSAL,TITULAR) VALUES (?,?,?,?,?,?,?,?,?)', 0);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (149, 1, 'CONTACTOS_DATOS_BANCO', 'U', 'UPDATE CONTACTOS_DATOS_BANCO SET ID=?,CUENTA=?,DC=?,ENTIDAD=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_CONTACTO=?,SUCURSAL=?,TITULAR=? WHERE ID=?', 0);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (150, 1, 'CONTACTOS_DATOS_BANCO', 'D', 'DELETE FROM CONTACTOS_DATOS_BANCO WHERE ID=?', 0);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (151, 1, 'CONTACTOS_DIRECCIONES', 'S', 'SELECT ID,CALLE,CODIGO_POSTAL,EMAIL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,MOVIL,NOMBRE,NOTAS,PERSONA_CONTACTO,POBLACION,PORTE,PROVINCIA,TELEFONO FROM CONTACTOS_DIRECCIONES', 1);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (151, 1, 'CONTACTOS_DIRECCIONES', 'S', 'SELECT ID,CALLE,CODIGO_POSTAL,EMAIL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,MOVIL,NOMBRE,NOTAS,PERSONA_CONTACTO,POBLACION,PORTE,PROVINCIA,TELEFONO FROM CONTACTOS_DIRECCIONES,NIF_CIF', 1);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (152, 1, 'CONTACTOS_DIRECCIONES', 'S', ' WHERE ID=?', 2);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (153, 1, 'CONTACTOS_DIRECCIONES', 'I', 'INSERT INTO CONTACTOS_DIRECCIONES (ID,CALLE,CODIGO_POSTAL,EMAIL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,MOVIL,NOMBRE,NOTAS,PERSONA_CONTACTO,POBLACION,PORTE,PROVINCIA,TELEFONO) VALUES (?,?,?,?,?,?', 1);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (153, 1, 'CONTACTOS_DIRECCIONES', 'I', 'INSERT INTO CONTACTOS_DIRECCIONES (ID,CALLE,CODIGO_POSTAL,EMAIL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,MOVIL,NOMBRE,NOTAS,PERSONA_CONTACTO,POBLACION,PORTE,PROVINCIA,TELEFONO,NIF_CIF) VALUES (?,?,?,?,?,?,?', 1);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (154, 1, 'CONTACTOS_DIRECCIONES', 'I', ',?,?,?,?,?,?,?,?,?,?)', 2);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (155, 1, 'CONTACTOS_DIRECCIONES', 'U', 'UPDATE CONTACTOS_DIRECCIONES SET ID=?,CALLE=?,CODIGO_POSTAL=?,EMAIL=?,FAX=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_CONTACTO=?,MOVIL=?,NOMBRE=?,NOTAS=?,PERSONA_CONTACTO=?,POBLACION=?,PORTE=?,PROVINCIA=?,TELEFONO=?', 1);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (156, 1, 'CONTACTOS_DIRECCIONES', 'U', ' WHERE ID=?', 2);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (155, 1, 'CONTACTOS_DIRECCIONES', 'U', 'UPDATE CONTACTOS_DIRECCIONES SET ID=?,CALLE=?,CODIGO_POSTAL=?,EMAIL=?,FAX=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_CONTACTO=?,MOVIL=?,NOMBRE=?,NOTAS=?,PERSONA_CONTACTO=?,POBLACION=?,PORTE=?,PROVINCIA=?,TELEFONO=?,', 1);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (156, 1, 'CONTACTOS_DIRECCIONES', 'U', 'NIF_CIF=? WHERE ID=?', 2);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (157, 1, 'CONTACTOS_DIRECCIONES', 'D', 'DELETE FROM CONTACTOS_DIRECCIONES WHERE ID=?', 0);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (158, 1, 'EMPLEADOS_DATOS', 'S', 'SELECT ID_EMPLEADO,CATEGORIA,EXPERIENCIA,FECHA_ALTA_EMPRESA,FECHA_NACIMIENTO,FORMACION_BASE,FORMACION_COMPLE,FORMACION_RECIBIDA,ID_USUARIO FROM EMPLEADOS_DATOS', 1);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (158, 1, 'EMPLEADOS_DATOS', 'S', 'SELECT ID_EMPLEADO,CATEGORIA,EXPERIENCIA,FECHA_ALTA_EMPRESA,FECHA_NACIMIENTO,FORMACION_BASE,FORMACION_COMPLE,FORMACION_RECIBIDA,ID_USUARIO,COMISION FROM EMPLEADOS_DATOS', 1);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (159, 1, 'EMPLEADOS_DATOS', 'S', ' WHERE ID_EMPLEADO=?', 2);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (160, 1, 'EMPLEADOS_DATOS', 'I', 'INSERT INTO EMPLEADOS_DATOS (ID_EMPLEADO,CATEGORIA,EXPERIENCIA,FECHA_ALTA_EMPRESA,FECHA_NACIMIENTO,FORMACION_BASE,FORMACION_COMPLE,FORMACION_RECIBIDA,ID_USUARIO) VALUES (?,?,?,?,?,?,?,?,?)', 0);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (161, 1, 'EMPLEADOS_DATOS', 'U', 'UPDATE EMPLEADOS_DATOS SET ID_EMPLEADO=?,CATEGORIA=?,EXPERIENCIA=?,FECHA_ALTA_EMPRESA=?,FECHA_NACIMIENTO=?,FORMACION_BASE=?,FORMACION_COMPLE=?,FORMACION_RECIBIDA=?,ID_USUARIO=? WHERE ID_EMPLEADO=?', 0);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (160, 1, 'EMPLEADOS_DATOS', 'I', 'INSERT INTO EMPLEADOS_DATOS (ID_EMPLEADO,CATEGORIA,EXPERIENCIA,FECHA_ALTA_EMPRESA,FECHA_NACIMIENTO,FORMACION_BASE,FORMACION_COMPLE,FORMACION_RECIBIDA,ID_USUARIO,COMISION) VALUES (?,?,?,?,?,?,?,?,?,?)', 0);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (161, 1, 'EMPLEADOS_DATOS', 'U', 'UPDATE EMPLEADOS_DATOS SET ID_EMPLEADO=?,CATEGORIA=?,EXPERIENCIA=?,FECHA_ALTA_EMPRESA=?,FECHA_NACIMIENTO=?,FORMACION_BASE=?,FORMACION_COMPLE=?,FORMACION_RECIBIDA=?,ID_USUARIO=?,COMISION=? WHERE ID_EMPLEADO=?', 0);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (162, 1, 'EMPLEADOS_DATOS', 'D', 'DELETE FROM EMPLEADOS_DATOS WHERE ID_EMPLEADO=?', 0);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (163, 1, 'EMPLEADOS_GRUPOS', 'S', 'SELECT ID,DESCRIPCION FROM EMPLEADOS_GRUPOS', 1);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (164, 1, 'EMPLEADOS_GRUPOS', 'S', ' WHERE ID=?', 2);
@@ -233,14 +233,14 @@ INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (2
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (207, 1, 'FACTURAS_CLIENTE_DETALLES', 'U', ',VISIBLE=? WHERE ID=?', 2);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (208, 1, 'FACTURAS_CLIENTE_DETALLES', 'D', 'DELETE FROM FACTURAS_CLIENTE_DETALLES WHERE ID=?', 0);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (209, 1, 'FACTURAS_PROVEEDOR', 'S', 'SELECT ID,BASE_IMPONIBLE,CALLE,CODIGO_POSTAL,DESCUENTO,FECHA_ALTA,FECHA_FACTURA,FECHA_MODIFICACION,ID_EMPRESA,ID_FORMA_PAGO,ID_PROVEEDOR,ID_TIENDA,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,IMPORTE_DESCUENTO,IMPORTE_IVA', 1);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (210, 1, 'FACTURAS_PROVEEDOR', 'S', ',IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_RE,IMPORTE_TOTAL,IVA,NIF_CIF,NOMBRE,OBSERVACIONES,POBLACION,PROVINCIA,RE,RECARGO_EQUIVALENCIA,REFERENCIA,REFERENCIA_PROVEEDOR,USUARIO FROM FACTURAS_PROVEEDOR', 2);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (210, 1, 'FACTURAS_PROVEEDOR', 'S', ',IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_RE,IMPORTE_TOTAL,IVA,NIF_CIF,NOMBRE,OBSERVACIONES,POBLACION,PROVINCIA,RE,RECARGO_EQUIVALENCIA,REFERENCIA,REFERENCIA_PROVEEDOR,USUARIO,FECHA_VENCIMIENTO FROM FACTURAS_PROVEEDOR', 2);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (211, 1, 'FACTURAS_PROVEEDOR', 'S', ' WHERE ID=?', 3);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (212, 1, 'FACTURAS_PROVEEDOR', 'I', 'INSERT INTO FACTURAS_PROVEEDOR (ID,BASE_IMPONIBLE,CALLE,CODIGO_POSTAL,DESCUENTO,FECHA_ALTA,FECHA_FACTURA,FECHA_MODIFICACION,ID_EMPRESA,ID_FORMA_PAGO,ID_PROVEEDOR,ID_TIENDA,ID_TIPO_IVA,IGNORAR_CONTABILIDAD', 1);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (213, 1, 'FACTURAS_PROVEEDOR', 'I', ',IMPORTE_DESCUENTO,IMPORTE_IVA,IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_RE,IMPORTE_TOTAL,IVA,NIF_CIF,NOMBRE,OBSERVACIONES,POBLACION,PROVINCIA,RE,RECARGO_EQUIVALENCIA,REFERENCIA,REFERENCIA_PROVEEDOR,USUARIO) VALUES (?', 2);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (214, 1, 'FACTURAS_PROVEEDOR', 'I', ',?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 3);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (213, 1, 'FACTURAS_PROVEEDOR', 'I', ',IMPORTE_DESCUENTO,IMPORTE_IVA,IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_RE,IMPORTE_TOTAL,IVA,NIF_CIF,NOMBRE,OBSERVACIONES,POBLACION,PROVINCIA,RE,RECARGO_EQUIVALENCIA,REFERENCIA,REFERENCIA_PROVEEDOR,USUARIO,FECHA_VENCIMIENTO)', 2);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (214, 1, 'FACTURAS_PROVEEDOR', 'I', ' VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 3);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (215, 1, 'FACTURAS_PROVEEDOR', 'U', 'UPDATE FACTURAS_PROVEEDOR SET ID=?,BASE_IMPONIBLE=?,CALLE=?,CODIGO_POSTAL=?,DESCUENTO=?,FECHA_ALTA=?,FECHA_FACTURA=?,FECHA_MODIFICACION=?,ID_EMPRESA=?,ID_FORMA_PAGO=?,ID_PROVEEDOR=?,ID_TIENDA=?,ID_TIPO_IVA=?', 1);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (216, 1, 'FACTURAS_PROVEEDOR', 'U', ',IGNORAR_CONTABILIDAD=?,IMPORTE_DESCUENTO=?,IMPORTE_IVA=?,IMPORTE_NETO=?,IMPORTE_PORTE=?,IMPORTE_RE=?,IMPORTE_TOTAL=?,IVA=?,NIF_CIF=?,NOMBRE=?,OBSERVACIONES=?,POBLACION=?,PROVINCIA=?,RE=?,RECARGO_EQUIVALENCIA=?', 2);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (217, 1, 'FACTURAS_PROVEEDOR', 'U', ',REFERENCIA=?,REFERENCIA_PROVEEDOR=?,USUARIO=? WHERE ID=?', 3);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (217, 1, 'FACTURAS_PROVEEDOR', 'U', ',REFERENCIA=?,REFERENCIA_PROVEEDOR=?,USUARIO=?,FECHA_VENCIMIENTO=? WHERE ID=?', 3);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (218, 1, 'FACTURAS_PROVEEDOR', 'D', 'DELETE FROM FACTURAS_PROVEEDOR WHERE ID=?', 0);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (219, 1, 'FACTURAS_PROVEEDOR_DETALLES', 'S', 'SELECT ID,CANTIDAD,CONCEPTO,DESCUENTO,FECHA_ALTA,FECHA_MODIFICACION,ID_ARTICULO,ID_FACTURA,IMPORTE_PORTE,IMPORTE_TOTAL,IMPORTE_UNIDAD,POSICION,TIPO_DETALLE,VISIBLE FROM FACTURAS_PROVEEDOR_DETALLES', 1);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (220, 1, 'FACTURAS_PROVEEDOR_DETALLES', 'S', ' WHERE ID=?', 2);
@@ -345,12 +345,12 @@ INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (3
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (319, 1, 'PRESUPUESTOS_CLIENTE_DETALLES', 'U', 'UPDATE PRESUPUESTOS_CLIENTE_DETALLES SET ID=?,CANTIDAD=?,CONCEPTO=?,DESCUENTO=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_ARTICULO=?,ID_PRESUPUESTO=?,IMPORTE_PORTE=?,IMPORTE_TOTAL=?,IMPORTE_UNIDAD=?,POSICION=?', 1);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (320, 1, 'PRESUPUESTOS_CLIENTE_DETALLES', 'U', ',TIPO_DETALLE=?,VISIBLE=? WHERE ID=?', 2);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (321, 1, 'PRESUPUESTOS_CLIENTE_DETALLES', 'D', 'DELETE FROM PRESUPUESTOS_CLIENTE_DETALLES WHERE ID=?', 0);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (322, 1, 'PROVEEDORES_DATOS', 'S', 'SELECT ID_PROVEEDOR,CERTIFICACION,CODIGO_ASIGNADO,DESCRIPCION_PROVEEDOR,DESCUENTO,GRUPO_PROVEEDOR,HOMOLOGADO,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,REGIMEN_IVA,TIENDA_WEB FROM PROVEEDORES_DATOS', 1);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (323, 1, 'PROVEEDORES_DATOS', 'S', ' WHERE ID_PROVEEDOR=?', 2);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (324, 1, 'PROVEEDORES_DATOS', 'I', 'INSERT INTO PROVEEDORES_DATOS (ID_PROVEEDOR,CERTIFICACION,CODIGO_ASIGNADO,DESCRIPCION_PROVEEDOR,DESCUENTO,GRUPO_PROVEEDOR,HOMOLOGADO,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,REGIMEN_IVA,TIENDA_WEB', 1);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (325, 1, 'PROVEEDORES_DATOS', 'I', ') VALUES (?,?,?,?,?,?,?,?,?,?,?,?)', 2);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (322, 1, 'PROVEEDORES_DATOS', 'S', 'SELECT ID_PROVEEDOR,CERTIFICACION,CODIGO_ASIGNADO,DESCRIPCION_PROVEEDOR,DESCUENTO,GRUPO_PROVEEDOR,HOMOLOGADO,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,REGIMEN_IVA,TIENDA_WEB,TIENE_SUBCUENTA,NOMBRE_COMERCIAL', 1);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (323, 1, 'PROVEEDORES_DATOS', 'S', ',ES_ACREEDOR FROM PROVEEDORES_DATOS WHERE ID_PROVEEDOR=?', 2);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (324, 1, 'PROVEEDORES_DATOS', 'I', 'INSERT INTO PROVEEDORES_DATOS (ID_PROVEEDOR,CERTIFICACION,CODIGO_ASIGNADO,DESCRIPCION_PROVEEDOR,DESCUENTO,GRUPO_PROVEEDOR,HOMOLOGADO,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,REGIMEN_IVA,TIENDA_WEB,TIENE_SUBCUENTA', 1);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (325, 1, 'PROVEEDORES_DATOS', 'I', ',NOMBRE_COMERCIAL,ES_ACREEDOR) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (326, 1, 'PROVEEDORES_DATOS', 'U', 'UPDATE PROVEEDORES_DATOS SET ID_PROVEEDOR=?,CERTIFICACION=?,CODIGO_ASIGNADO=?,DESCRIPCION_PROVEEDOR=?,DESCUENTO=?,GRUPO_PROVEEDOR=?,HOMOLOGADO=?,ID_FORMA_PAGO=?,ID_TIPO_IVA=?,IGNORAR_CONTABILIDAD=?,REGIMEN_IVA=?', 1);
-INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (327, 1, 'PROVEEDORES_DATOS', 'U', ',TIENDA_WEB=? WHERE ID_PROVEEDOR=?', 2);
+INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (327, 1, 'PROVEEDORES_DATOS', 'U', ',TIENDA_WEB=?,TIENE_SUBCUENTA=?,NOMBRE_COMERCIAL=?,ES_ACREEDOR=? WHERE ID_PROVEEDOR=?', 2);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (328, 1, 'PROVEEDORES_DATOS', 'D', 'DELETE FROM PROVEEDORES_DATOS WHERE ID_PROVEEDOR=?', 0);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (329, 1, 'PROVEEDORES_GRUPOS', 'S', 'SELECT ID,DESCRIPCION FROM PROVEEDORES_GRUPOS', 1);
 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (330, 1, 'PROVEEDORES_GRUPOS', 'S', ' WHERE ID=?', 2);
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 2a3770d4..8706ea4f 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,34 +44,6 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -86,6 +58,47 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\designide.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\PluginSDK_D10R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
@@ -110,44 +123,10 @@
       <Form>dmBase</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
-    <DCCReference Include="Utiles\adortl.dcp" />
     <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
-    <DCCReference Include="Utiles\cxIntl6D11.dcp" />
-    <DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="Utiles\dbrtl.dcp" />
-    <DCCReference Include="Utiles\dclIndyCore.dcp" />
-    <DCCReference Include="Utiles\designide.dcp" />
-    <DCCReference Include="Utiles\dsnap.dcp" />
-    <DCCReference Include="Utiles\GUISDK_D11.dcp" />
-    <DCCReference Include="Utiles\IndyCore.dcp" />
-    <DCCReference Include="Utiles\IndyProtocols.dcp" />
-    <DCCReference Include="Utiles\IndySystem.dcp" />
-    <DCCReference Include="Utiles\Jcl.dcp" />
-    <DCCReference Include="Utiles\JclVcl.dcp" />
-    <DCCReference Include="Utiles\JSDialog100.dcp" />
-    <DCCReference Include="Utiles\JvCmpD11R.dcp" />
-    <DCCReference Include="Utiles\JvCoreD11R.dcp" />
-    <DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
-    <DCCReference Include="Utiles\JvDlgsD11R.dcp" />
-    <DCCReference Include="Utiles\JvMMD11R.dcp" />
-    <DCCReference Include="Utiles\JvNetD11R.dcp" />
-    <DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
-    <DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="Utiles\JvSystemD11R.dcp" />
-    <DCCReference Include="Utiles\pckMD5.dcp" />
-    <DCCReference Include="Utiles\pckUCDataConnector.dcp" />
-    <DCCReference Include="Utiles\pckUserControl_RT.dcp" />
-    <DCCReference Include="Utiles\PluginSDK_D10R.dcp" />
-    <DCCReference Include="Utiles\PngComponentsD10.dcp" />
-    <DCCReference Include="Utiles\PNG_D10.dcp" />
-    <DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="Utiles\rtl.dcp" />
-    <DCCReference Include="Utiles\TB2k_D10.dcp" />
-    <DCCReference Include="Utiles\tbx_d10.dcp" />
     <DCCReference Include="Utiles\uAppInfoUtils.pas" />
     <DCCReference Include="Utiles\uCalculosUtils.pas" />
     <DCCReference Include="Utiles\uDataTableUtils.pas" />
@@ -162,13 +141,6 @@
     <DCCReference Include="Utiles\uPasswordUtils.pas" />
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
     <DCCReference Include="Utiles\uStringsUtils.pas" />
-    <DCCReference Include="Utiles\vcl.dcp" />
-    <DCCReference Include="Utiles\vclactnband.dcp" />
-    <DCCReference Include="Utiles\vcldb.dcp" />
-    <DCCReference Include="Utiles\vcljpg.dcp" />
-    <DCCReference Include="Utiles\VclSmp.dcp" />
-    <DCCReference Include="Utiles\vclx.dcp" />
-    <DCCReference Include="Utiles\xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index e2125852..878d4890 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
       
       
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 754f8139..a661d87e 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 2,1,8,0
-PRODUCTVERSION 2,1,8,0
+FILEVERSION 2,1,9,0
+PRODUCTVERSION 2,1,9,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.1.8.0\0"
+              VALUE "FileVersion", "2.1.9.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "2.1.8.0\0"
+              VALUE "ProductVersion", "2.1.9.0\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 9a5a5c59..0fde2b86 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas b/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas
index af1af745..3cdd0bff 100644
--- a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas
+++ b/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas
@@ -21,6 +21,7 @@ uses
 const
   REFERENCIA_CLIENTES = 430;
   REFERENCIA_PROVEEDORES = 400;
+  REFERENCIA_ACREEDORES = 410;  
 
 type
   { TsrvContabilidad }
@@ -42,7 +43,7 @@ type
   public
     function TieneCuentaAsociada(const ID_CONTACTO: Integer; const ID_EMPRESA: Integer): Boolean;
     function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean;
-    function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
+    function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
   end;
 
 implementation
@@ -141,7 +142,7 @@ begin
   end;
 end;
 
-function TsrvContabilidad.AnadirSubCuentaProveedor(const ID_CONTACTO, ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
+function TsrvContabilidad.AnadirSubCuentaProveedor(const ID_CONTACTO, ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
 var
   AConn : IDAConnection;
   dsData: IDADataset;
@@ -161,7 +162,11 @@ begin
   try
     try
       dsData := NIL;
-      dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuentaProv', ['ID_EJERCICIO', 'REF_CUENTA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
+      if ES_ACREEDOR = 1 then
+         dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuentaProv', ['ID_EJERCICIO', 'REF_CUENTA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_ACREEDORES])
+      else
+         dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuentaProv', ['ID_EJERCICIO', 'REF_CUENTA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
+
       dsData.Active := True;
 
       if VarIsNull(dsData.FieldValues[0]) then
@@ -170,10 +175,18 @@ begin
          NumCuenta := dsData.FieldValues[0];
       Inc(NumCuenta);
       RefSubCuenta := format('%.7d', [NumCuenta]);
-      RefSubCuenta := IntToStr(REFERENCIA_PROVEEDORES) + RefSubCuenta;
+
+      if ES_ACREEDOR = 1 then
+         RefSubCuenta := IntToStr(REFERENCIA_ACREEDORES) + RefSubCuenta
+      else
+         RefSubCuenta := IntToStr(REFERENCIA_PROVEEDORES) + RefSubCuenta;
 
       dsData := NIL;
-      dsData := schContabilidad.NewDataset(AConn, 'DarIDCuenta', ['ID_EJERCICIO', 'REFERENCIA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
+
+      if ES_ACREEDOR = 1 then
+         dsData := schContabilidad.NewDataset(AConn, 'DarIDCuenta', ['ID_EJERCICIO', 'REFERENCIA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_ACREEDORES])
+      else
+         dsData := schContabilidad.NewDataset(AConn, 'DarIDCuenta', ['ID_EJERCICIO', 'REFERENCIA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
       dsData.Active := True;
 
       if VarIsNull(dsData.FieldValues[0]) then
diff --git a/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm b/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
index bbb6d99b..9749b7c2 100644
--- a/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
+++ b/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
@@ -32,7 +32,7 @@ inherited fEditorDiario: TfEditorDiario
   end
   inherited TBXDock: TTBXDock
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 403
+      ExplicitWidth = 543
     end
     inherited tbxFiltro: TTBXToolbar
       ExplicitWidth = 269
@@ -163,6 +163,12 @@ inherited fEditorDiario: TfEditorDiario
     inherited actNuevo: TAction
       ImageIndex = 23
     end
+    inherited actPrevisualizar: TAction
+      Visible = True
+    end
+    inherited actImprimir: TAction
+      Visible = True
+    end
     inherited actDuplicar: TAction
       Enabled = False
       Visible = False
diff --git a/Source/Modulos/Contabilidad/Views/uEditorDiario.pas b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas
index eb838dcf..cb022b09 100644
--- a/Source/Modulos/Contabilidad/Views/uEditorDiario.pas
+++ b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas
@@ -33,6 +33,8 @@ type
     procedure EliminarInterno; override;
     procedure ModificarInterno; override;
     procedure DuplicarInterno; override;
+    procedure PrevisualizarInterno; override;
+    procedure ImprimirInterno; override;
 
   public
     procedure PonerTitulos(const ATitulo: string = ''); override;
@@ -76,6 +78,11 @@ begin
   Result := FDiario;
 end;
 
+procedure TfEditorDiario.ImprimirInterno;
+begin
+  inherited;
+end;
+
 function TfEditorDiario.GetController: IAsientosController;
 begin
   Result := FController;
@@ -109,6 +116,11 @@ begin
   inherited PonerTitulos(FTitulo);
 end;
 
+procedure TfEditorDiario.PrevisualizarInterno;
+begin
+  inherited;
+end;
+
 procedure TfEditorDiario.SetDiario(const Value: IBizDiario);
 begin
   FDiario := Value;
diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
index 847e3b50..a5326678 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
@@ -406,6 +406,10 @@ inherited DataModuleProveedores: TDataModuleProveedores
         Name = 'NOMBRE_COMERCIAL'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'ES_ACREEDOR'
+        DataType = datSmallInt
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
index fe9c34b8..2d70e8cd 100644
--- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
@@ -9,19 +9,19 @@ 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_SubCuentasContacto = '{A665876F-88B1-480D-B671-45BF9CE0354E}';
-  RID_Contactos = '{DBF3555C-25B6-4111-B564-08223B7DEDFF}';
-  RID_GruposCliente = '{B8A3C655-7B91-441C-A02D-56D6F4515A73}';
-  RID_DatosBancarios = '{95A679A6-2656-43A4-AD76-B221555120D1}';
-  RID_Clientes = '{B0C7F62A-2118-4C8E-A088-399FB5F4172A}';
-  RID_Proveedores = '{905725EC-B1B7-4EEE-878E-5298DA5A4651}';
-  RID_Empleados = '{CC3BA198-8F62-4919-9635-F6B9A76A6944}';
-  RID_DireccionesContacto = '{25680D30-D90A-4CF6-AF42-3A6607831C93}';
-  RID_ClientesDescuentos = '{760ADCE2-83B9-47D1-ADBE-79EBD056D223}';
-  RID_ProcedenciasCliente = '{AF653A27-737C-46A1-ADAC-34A2572D34C6}';
-  RID_GruposProveedor = '{C9B66220-03F7-4D77-B00D-8ADBC3C50FED}';
-  RID_GruposEmpleado = '{E3EAF37B-5015-4CAD-930B-D54819909607}';
-  RID_Contactos_Refresh = '{E9F852B8-287F-4A82-92EC-0E1BF028802D}';
+  RID_SubCuentasContacto = '{C590CC84-6AC7-4513-8D77-7258F8EB4535}';
+  RID_Contactos = '{B90A91FA-E62F-42FC-A978-194A0DD6A4BD}';
+  RID_GruposCliente = '{3AE7D1E5-3CBB-49C7-A3BC-3E8738099CC0}';
+  RID_DatosBancarios = '{8788C035-B5A3-44D6-83A4-DFCBD4B62098}';
+  RID_Clientes = '{363F240A-531E-4C17-924D-FDA78492B088}';
+  RID_Proveedores = '{47BD57F0-0117-4609-B36E-DE4F8054FE96}';
+  RID_Empleados = '{18570434-D839-4C1D-907E-F266CA08F759}';
+  RID_DireccionesContacto = '{0BCC33E0-DDFB-4718-A63F-66326ACDD55C}';
+  RID_ClientesDescuentos = '{397118E3-6034-4264-B378-A646EE472E09}';
+  RID_ProcedenciasCliente = '{C452DC28-9F89-43A4-A245-CC9C2DF12458}';
+  RID_GruposProveedor = '{93523FFC-C70F-4769-98A6-7E07BEBF14BD}';
+  RID_GruposEmpleado = '{EFC3E233-2239-4D54-A23D-B859102E8AAB}';
+  RID_Contactos_Refresh = '{DAFCE1F7-9449-4170-BA9A-182DFBD2B440}';
 
   { Data table names }
   nme_SubCuentasContacto = 'SubCuentasContacto';
@@ -259,6 +259,7 @@ const
   fld_ProveedoresIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
   fld_ProveedoresTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
   fld_ProveedoresNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
+  fld_ProveedoresES_ACREEDOR = 'ES_ACREEDOR';
 
   { Proveedores field indexes }
   idx_ProveedoresID = 0;
@@ -299,6 +300,7 @@ const
   idx_ProveedoresIGNORAR_CONTABILIDAD = 35;
   idx_ProveedoresTIENE_SUBCUENTA = 36;
   idx_ProveedoresNOMBRE_COMERCIAL = 37;
+  idx_ProveedoresES_ACREEDOR = 38;
 
   { Empleados fields }
   fld_EmpleadosID = 'ID';
@@ -495,7 +497,7 @@ const
 type
   { ISubCuentasContacto }
   ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
-  ['{A265AC9F-4CE6-4C65-9B80-55A01FAD8DE7}']
+  ['{3C6FCE2A-1F78-4B2A-9DDE-E49783DB3354}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -590,7 +592,7 @@ type
 
   { IContactos }
   IContactos = interface(IDAStronglyTypedDataTable)
-  ['{B82C612C-9B19-47AC-A153-33F40F1F966C}']
+  ['{F6F2F867-4B4A-412F-B4E6-73621D0BDE0A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -913,7 +915,7 @@ type
 
   { IGruposCliente }
   IGruposCliente = interface(IDAStronglyTypedDataTable)
-  ['{F20A31CD-092A-4808-8E35-91F913A0404B}']
+  ['{A016FE21-06D0-42D0-8080-FA263A898337}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -960,7 +962,7 @@ type
 
   { IDatosBancarios }
   IDatosBancarios = interface(IDAStronglyTypedDataTable)
-  ['{F7E3B1A8-464E-441D-96F9-2A8ABBAB189F}']
+  ['{5FA0CE9B-73F8-490C-9238-2AB1C6B97A82}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1091,7 +1093,7 @@ type
 
   { IClientes }
   IClientes = interface(IDAStronglyTypedDataTable)
-  ['{267B0187-B441-4FC0-BDF7-8E14D73A9112}']
+  ['{4B798E26-1BFF-4E85-B130-683F79FF8F6C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1582,7 +1584,7 @@ type
 
   { IProveedores }
   IProveedores = interface(IDAStronglyTypedDataTable)
-  ['{80234880-B682-4597-90DF-CDD58C95F600}']
+  ['{C2FC4275-80D5-469C-8A86-72F71CDE26FD}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1735,6 +1737,10 @@ type
     procedure SetNOMBRE_COMERCIALValue(const aValue: String);
     function GetNOMBRE_COMERCIALIsNull: Boolean;
     procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+    function GetES_ACREEDORValue: SmallInt;
+    procedure SetES_ACREEDORValue(const aValue: SmallInt);
+    function GetES_ACREEDORIsNull: Boolean;
+    procedure SetES_ACREEDORIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -1814,6 +1820,8 @@ type
     property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
     property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
     property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
+    property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
+    property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
   end;
 
   { TProveedoresDataTableRules }
@@ -1974,6 +1982,10 @@ type
     procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
     function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
     procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
+    function GetES_ACREEDORValue: SmallInt; virtual;
+    procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual;
+    function GetES_ACREEDORIsNull: Boolean; virtual;
+    procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -2052,6 +2064,8 @@ type
     property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
     property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
     property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
+    property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
+    property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -2061,7 +2075,7 @@ type
 
   { IEmpleados }
   IEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{0675CA38-A22F-410D-B6C8-8A3C41629E91}']
+  ['{7BE5930F-DFEB-42FF-A1B5-1F208AE7E423}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2480,7 +2494,7 @@ type
 
   { IDireccionesContacto }
   IDireccionesContacto = interface(IDAStronglyTypedDataTable)
-  ['{BBD6E216-B44C-4757-837E-2C63DBAB1B87}']
+  ['{6D18A60E-F841-46E1-BB6F-FA840C83D1CA}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2707,7 +2721,7 @@ type
 
   { IClientesDescuentos }
   IClientesDescuentos = interface(IDAStronglyTypedDataTable)
-  ['{92A3F3B0-C9C4-4D4D-A311-93FDDA3C6C0D}']
+  ['{6DD4A9BD-5260-47AC-844C-A83424002EA9}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2790,7 +2804,7 @@ type
 
   { IProcedenciasCliente }
   IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
-  ['{52E73E0C-71AE-443B-86D2-9F0DC0D5FDF7}']
+  ['{B3F0B2C9-DE6D-4E46-858B-28517AF13733}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2837,7 +2851,7 @@ type
 
   { IGruposProveedor }
   IGruposProveedor = interface(IDAStronglyTypedDataTable)
-  ['{94B8A3A8-8683-43DA-B13A-1E0DBF3901C4}']
+  ['{F70EB01C-2913-44ED-A784-1DB30C28CF24}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2884,7 +2898,7 @@ type
 
   { IGruposEmpleado }
   IGruposEmpleado = interface(IDAStronglyTypedDataTable)
-  ['{B3995733-40B5-4A77-B050-2722DEDEF5E8}']
+  ['{07795EB8-F353-4AB7-9956-3F1CEB045506}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2931,7 +2945,7 @@ type
 
   { IContactos_Refresh }
   IContactos_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{60A8DD40-4B90-40FA-A22C-2FFF67737F64}']
+  ['{7AB51E50-F1FC-460B-B962-2E16691C8DFC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -5799,6 +5813,27 @@ begin
     DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsVariant := Null;
 end;
 
+function TProveedoresDataTableRules.GetES_ACREEDORValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsSmallInt;
+end;
+
+procedure TProveedoresDataTableRules.SetES_ACREEDORValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsSmallInt := aValue;
+end;
+
+function TProveedoresDataTableRules.GetES_ACREEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ProveedoresES_ACREEDOR].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetES_ACREEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsVariant := Null;
+end;
+
 
 { TEmpleadosDataTableRules }
 constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
index c7002e1f..bb7eebf7 100644
--- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
@@ -9,24 +9,24 @@ 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_SubCuentasContactoDelta = '{6520A6E9-3616-416C-BAF2-9F4B13AAF858}';
-  RID_ContactosDelta = '{A2B38C37-E3AE-4E22-85F7-E76DE13652AB}';
-  RID_GruposClienteDelta = '{67072B81-C667-4450-B8E8-9C42A3EE0E3C}';
-  RID_DatosBancariosDelta = '{221A80E1-2A34-4D52-963B-4D8A6E8CB277}';
-  RID_ClientesDelta = '{A4468099-7600-4411-A559-107949CA1601}';
-  RID_ProveedoresDelta = '{0117BBC8-1EBE-40CA-9819-E5990B88B58C}';
-  RID_EmpleadosDelta = '{E6D706EA-9D87-4656-BA13-EFEDD8224652}';
-  RID_DireccionesContactoDelta = '{AA255A88-7186-42B2-A48E-5729B8789BFB}';
-  RID_ClientesDescuentosDelta = '{B4309DDF-8679-46EC-9355-28E776C4AC89}';
-  RID_ProcedenciasClienteDelta = '{A8BEF20C-78CE-47DE-8509-46E9442F07A2}';
-  RID_GruposProveedorDelta = '{20FC55C8-45F0-46C4-ABCE-7B7B7F339F9A}';
-  RID_GruposEmpleadoDelta = '{37AA7500-1C16-43A6-B55D-869846E760D3}';
-  RID_Contactos_RefreshDelta = '{8150E144-7B4B-45AC-8DC6-B0879134E571}';
+  RID_SubCuentasContactoDelta = '{E8742466-5EA1-44A5-9AE5-DD451737894B}';
+  RID_ContactosDelta = '{E9202FAC-8B98-444B-8CF8-A67FBC3792D7}';
+  RID_GruposClienteDelta = '{278CCE1C-1F40-43F9-BA7E-0BFCA21BBA4A}';
+  RID_DatosBancariosDelta = '{27FB76DE-2C27-4DEE-AB5A-B66F77A5688E}';
+  RID_ClientesDelta = '{61AA99B2-A336-4CF4-B737-F7002CAE26A8}';
+  RID_ProveedoresDelta = '{9F1B09AD-D218-4081-9531-51647613FE85}';
+  RID_EmpleadosDelta = '{9E2B39E4-C45A-489E-B91D-8115E398AAE4}';
+  RID_DireccionesContactoDelta = '{3BEFC631-A199-4025-9A4A-535780FC7FB1}';
+  RID_ClientesDescuentosDelta = '{6A749D0D-D126-40CC-856C-A1EA0042B3B2}';
+  RID_ProcedenciasClienteDelta = '{58146E09-69C6-4A3D-9D4E-067BCA148B35}';
+  RID_GruposProveedorDelta = '{1CFF788E-11F9-4CB6-B76F-8486A316784C}';
+  RID_GruposEmpleadoDelta = '{3804414A-7B65-4D1B-AAC1-027A1ED130AE}';
+  RID_Contactos_RefreshDelta = '{D9CC832B-B08B-489C-8562-A79E392C9510}';
 
 type
   { ISubCuentasContactoDelta }
   ISubCuentasContactoDelta = interface(ISubCuentasContacto)
-  ['{6520A6E9-3616-416C-BAF2-9F4B13AAF858}']
+  ['{E8742466-5EA1-44A5-9AE5-DD451737894B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREF_SUBCUENTAValue : String;
@@ -120,7 +120,7 @@ type
 
   { IContactosDelta }
   IContactosDelta = interface(IContactos)
-  ['{A2B38C37-E3AE-4E22-85F7-E76DE13652AB}']
+  ['{E9202FAC-8B98-444B-8CF8-A67FBC3792D7}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -443,7 +443,7 @@ type
 
   { IGruposClienteDelta }
   IGruposClienteDelta = interface(IGruposCliente)
-  ['{67072B81-C667-4450-B8E8-9C42A3EE0E3C}']
+  ['{278CCE1C-1F40-43F9-BA7E-0BFCA21BBA4A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -489,7 +489,7 @@ type
 
   { IDatosBancariosDelta }
   IDatosBancariosDelta = interface(IDatosBancarios)
-  ['{221A80E1-2A34-4D52-963B-4D8A6E8CB277}']
+  ['{27FB76DE-2C27-4DEE-AB5A-B66F77A5688E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -619,7 +619,7 @@ type
 
   { IClientesDelta }
   IClientesDelta = interface(IClientes)
-  ['{A4468099-7600-4411-A559-107949CA1601}']
+  ['{61AA99B2-A336-4CF4-B737-F7002CAE26A8}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1110,7 +1110,7 @@ type
 
   { IProveedoresDelta }
   IProveedoresDelta = interface(IProveedores)
-  ['{0117BBC8-1EBE-40CA-9819-E5990B88B58C}']
+  ['{9F1B09AD-D218-4081-9531-51647613FE85}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1150,6 +1150,7 @@ type
     function GetOldIGNORAR_CONTABILIDADValue : Integer;
     function GetOldTIENE_SUBCUENTAValue : Integer;
     function GetOldNOMBRE_COMERCIALValue : String;
+    function GetOldES_ACREEDORValue : SmallInt;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -1190,6 +1191,7 @@ type
     property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
     property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
     property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+    property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue;
   end;
 
   { TProveedoresBusinessProcessorRules }
@@ -1426,6 +1428,12 @@ type
     function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
     procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
     procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
+    function GetES_ACREEDORValue: SmallInt; virtual;
+    function GetES_ACREEDORIsNull: Boolean; virtual;
+    function GetOldES_ACREEDORValue: SmallInt; virtual;
+    function GetOldES_ACREEDORIsNull: Boolean; virtual;
+    procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual;
+    procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -1580,6 +1588,10 @@ type
     property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
     property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
     property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
+    property ES_ACREEDOR : SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
+    property ES_ACREEDORIsNull : Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
+    property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue;
+    property OldES_ACREEDORIsNull : Boolean read GetOldES_ACREEDORIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1589,7 +1601,7 @@ type
 
   { IEmpleadosDelta }
   IEmpleadosDelta = interface(IEmpleados)
-  ['{E6D706EA-9D87-4656-BA13-EFEDD8224652}']
+  ['{9E2B39E4-C45A-489E-B91D-8115E398AAE4}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -2012,7 +2024,7 @@ type
 
   { IDireccionesContactoDelta }
   IDireccionesContactoDelta = interface(IDireccionesContacto)
-  ['{AA255A88-7186-42B2-A48E-5729B8789BFB}']
+  ['{3BEFC631-A199-4025-9A4A-535780FC7FB1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -2239,7 +2251,7 @@ type
 
   { IClientesDescuentosDelta }
   IClientesDescuentosDelta = interface(IClientesDescuentos)
-  ['{B4309DDF-8679-46EC-9355-28E776C4AC89}']
+  ['{6A749D0D-D126-40CC-856C-A1EA0042B3B2}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -2321,7 +2333,7 @@ type
 
   { IProcedenciasClienteDelta }
   IProcedenciasClienteDelta = interface(IProcedenciasCliente)
-  ['{A8BEF20C-78CE-47DE-8509-46E9442F07A2}']
+  ['{58146E09-69C6-4A3D-9D4E-067BCA148B35}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2367,7 +2379,7 @@ type
 
   { IGruposProveedorDelta }
   IGruposProveedorDelta = interface(IGruposProveedor)
-  ['{20FC55C8-45F0-46C4-ABCE-7B7B7F339F9A}']
+  ['{1CFF788E-11F9-4CB6-B76F-8486A316784C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2413,7 +2425,7 @@ type
 
   { IGruposEmpleadoDelta }
   IGruposEmpleadoDelta = interface(IGruposEmpleado)
-  ['{37AA7500-1C16-43A6-B55D-869846E760D3}']
+  ['{3804414A-7B65-4D1B-AAC1-027A1ED130AE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2459,7 +2471,7 @@ type
 
   { IContactos_RefreshDelta }
   IContactos_RefreshDelta = interface(IContactos_Refresh)
-  ['{8150E144-7B4B-45AC-8DC6-B0879134E571}']
+  ['{D9CC832B-B08B-489C-8562-A79E392C9510}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldNIF_CIFValue : String;
@@ -6521,6 +6533,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL] := Null;
 end;
 
+function TProveedoresBusinessProcessorRules.GetES_ACREEDORValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR];
+end;
+
+function TProveedoresBusinessProcessorRules.GetES_ACREEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR]);
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldES_ACREEDORValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresES_ACREEDOR];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldES_ACREEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresES_ACREEDOR]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetES_ACREEDORValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR] := aValue;
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetES_ACREEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR] := Null;
+end;
+
 
 { TEmpleadosBusinessProcessorRules }
 constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas
index f7eb8113..ec84183f 100644
--- a/Source/Modulos/Contactos/Model/uBizContactos.pas
+++ b/Source/Modulos/Contactos/Model/uBizContactos.pas
@@ -160,6 +160,10 @@ type
     function GetTiene_Subcuenta: Integer;
     procedure SetTiene_Subcuenta(const Value: Integer);
     property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
+
+    function GetEs_Acreedor: Integer;
+    procedure SetEs_Acreedor(const Value: Integer);
+    property ES_ACREEDOR: Integer read GetEs_Acreedor write SetEs_Acreedor;
   end;
 
   IBizEmpleado = interface (IBizContacto)
@@ -347,6 +351,9 @@ type
     function GetTiene_Subcuenta: Integer;
     procedure SetTiene_Subcuenta(const Value: Integer);
 
+    function GetEs_Acreedor: Integer;
+    procedure SetEs_Acreedor(const Value: Integer);
+
     function GetSubCuentas: IBizSubCuentasContacto;
     procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
 
@@ -367,6 +374,7 @@ type
     property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
     property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
     property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
+    property ES_ACREEDOR: Integer read GetEs_Acreedor write SetEs_Acreedor;    
   end;
 
 
@@ -742,9 +750,11 @@ begin
   {$IFDEF CONTABILIDAD}
     IGNORAR_CONTABILIDAD := 0;
     TIENE_SUBCUENTA := 0;
+    ES_ACREEDOR := 0;
   {$ELSE}
     IGNORAR_CONTABILIDAD := 1;
     TIENE_SUBCUENTA := 0;
+    ES_ACREEDOR := 0;    
   {$ENDIF}
 end;
 
@@ -784,6 +794,11 @@ begin
   result := DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat;
 end;
 
+function TBizProveedor.GetEs_Acreedor: Integer;
+begin
+  result := DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsInteger;
+end;
+
 procedure TBizProveedor.SetCERTIFICACIONValue(const aValue: String);
 begin
   DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString := aValue;
@@ -804,6 +819,11 @@ begin
   DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat := aValue;
 end;
 
+procedure TBizProveedor.SetEs_Acreedor(const Value: Integer);
+begin
+  DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsInteger := Value;
+end;
+
 procedure TBizProveedor.SetGRUPO_PROVEEDORValue(const aValue: String);
 begin
   DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].AsString := aValue;
diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
index 5f1b5f3a..1e42ac66 100644
--- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
@@ -125,7 +125,7 @@ var
   ACommand : IDASQLCommand;
 
   idProveedor: integer;
-  idTienda: integer;
+  EsAcreedor: integer;
   idEmpresa: integer;
   Nombre: string;
 
@@ -153,6 +153,7 @@ begin
       ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
       ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
       ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
+      ParamByName('ES_ACREEDOR').Value := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR];
       Execute;
     end;
 
@@ -163,11 +164,11 @@ begin
       with TsrvContabilidad.Create(NIL) do
         try
           IdProveedor := aChange.NewValueByName[fld_ProveedoresID];
-          IdTienda := aChange.NewValueByName[fld_ProveedoresID_TIENDA];
+          EsAcreedor := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR];
           IdEmpresa := aChange.NewValueByName[fld_ProveedoresID_EMPRESA];
           Nombre := aChange.NewValueByName[fld_ProveedoresNOMBRE];
           if not TieneCuentaAsociada(IdProveedor, IdEmpresa) then
-             AnadirSubCuentaProveedor(IdProveedor, IdTienda, IdEmpresa, Nombre);
+             AnadirSubCuentaProveedor(IdProveedor, EsAcreedor, IdEmpresa, Nombre);
         finally
           Free;
         end;
@@ -186,10 +187,10 @@ var
   ACommand : IDASQLCommand;
 
   idProveedor: integer;
-  idTienda: integer;
+  EsAcreedor: integer;
   idEmpresa: integer;
   Nombre: string;
-  
+
 begin
   inherited;
 
@@ -214,7 +215,8 @@ begin
       ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
       ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
       ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
-      ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];      
+      ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
+      ParamByName('ES_ACREEDOR').Value := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR];      
       Execute;
     end;
 
@@ -225,11 +227,11 @@ begin
       with TsrvContabilidad.Create(NIL) do
         try
           IdProveedor := aChange.NewValueByName[fld_ProveedoresID];
-          IdTienda := aChange.NewValueByName[fld_ProveedoresID_TIENDA];
+          EsAcreedor := aChange.NewValueByName[fld_ProveedoresEs_ACREEDOR];
           IdEmpresa := aChange.NewValueByName[fld_ProveedoresID_EMPRESA];
           Nombre := aChange.NewValueByName[fld_ProveedoresNOMBRE];
           if not TieneCuentaAsociada(IdProveedor, IdEmpresa) then
-             AnadirSubCuentaProveedor(IdProveedor, IdTienda, IdEmpresa, Nombre);
+             AnadirSubCuentaProveedor(IdProveedor, EsAcreedor, IdEmpresa, Nombre);
         finally
           Free;
         end;
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
index 45a1cbf3..16681843 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@@ -1029,6 +1029,10 @@ object srvContactos: TsrvContactos
               item
                 DatasetField = 'NOMBRE_COMERCIAL'
                 TableField = 'NOMBRE_COMERCIAL'
+              end
+              item
+                DatasetField = 'ES_ACREEDOR'
+                TableField = 'ES_ACREEDOR'
               end>
           end>
         Name = 'Proveedores'
@@ -1249,6 +1253,10 @@ object srvContactos: TsrvContactos
             Name = 'NOMBRE_COMERCIAL'
             DataType = datString
             Size = 255
+          end
+          item
+            Name = 'ES_ACREEDOR'
+            DataType = datSmallInt
           end>
       end
       item
@@ -2934,6 +2942,10 @@ object srvContactos: TsrvContactos
           item
             Name = 'NOMBRE_COMERCIAL'
             Value = ''
+          end
+          item
+            Name = 'ES_ACREEDOR'
+            Value = ''
           end>
         Statements = <
           item
@@ -2944,11 +2956,11 @@ object srvContactos: TsrvContactos
               'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10'    CODIGO_ASIGNADO, ID_TIPO_I' +
               'VA,'#10'    ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' +
               'UPO_PROVEEDOR,'#10'    IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA, NOMBRE' +
-              '_COMERCIAL)'#10'  VALUES'#10'    (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENT' +
-              'O, :DESCRIPCION_PROVEEDOR,'#10'    :CODIGO_ASIGNADO, :ID_TIPO_IVA,'#10' ' +
-              '   :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTIFICACION, :GR' +
-              'UPO_PROVEEDOR,'#10'    :IGNORAR_CONTABILIDAD, :TIENE_SUBCUENTA, :NOM' +
-              'BRE_COMERCIAL)'#10
+              '_COMERCIAL, ES_ACREEDOR)'#10'  VALUES'#10'    (:ID_PROVEEDOR, :REGIMEN_I' +
+              'VA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10'    :CODIGO_ASIGNADO, :I' +
+              'D_TIPO_IVA,'#10'    :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTI' +
+              'FICACION, :GRUPO_PROVEEDOR,'#10'    :IGNORAR_CONTABILIDAD, :TIENE_SU' +
+              'BCUENTA, :NOMBRE_COMERCIAL, :ES_ACREEDOR)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -3032,6 +3044,10 @@ object srvContactos: TsrvContactos
             Name = 'NOMBRE_COMERCIAL'
             Value = ''
           end
+          item
+            Name = 'ES_ACREEDOR'
+            Value = ''
+          end
           item
             Name = 'OLD_ID_PROVEEDOR'
             Value = ''
@@ -3049,8 +3065,8 @@ object srvContactos: TsrvContactos
               ' HOMOLOGADO = :HOMOLOGADO,'#10'    CERTIFICACION = :CERTIFICACION,'#10' ' +
               '   GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10'    IGNORAR_CONTABILIDAD ' +
               '= :IGNORAR_CONTABILIDAD,'#10'    TIENE_SUBCUENTA = :TIENE_SUBCUENTA,' +
-              #10'    NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL'#10'  WHERE'#10'    (ID_PROVEE' +
-              'DOR = :OLD_ID_PROVEEDOR)'#10
+              #10'    NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL,'#10'    ES_ACREEDOR = :ES' +
+              '_ACREEDOR'#10'  WHERE'#10'    (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
index ef567f72..54326b13 100644
--- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
@@ -55,6 +55,7 @@ inherited fEditorProveedor: TfEditorProveedor
   inherited pgPaginas: TPageControl
     Width = 642
     Height = 489
+    ActivePage = PagContabilidad
     ExplicitWidth = 642
     ExplicitHeight = 489
     inherited pagGeneral: TTabSheet
@@ -248,6 +249,12 @@ inherited fEditorProveedor: TfEditorProveedor
             ExplicitWidth = 165
             Width = 165
           end
+          inherited eNombreComercial: TcxDBTextEdit
+            Top = 84
+            ExplicitTop = 84
+            ExplicitWidth = 192
+            Width = 192
+          end
           inherited eReferencia: TcxDBTextEdit
             Top = 30
             ExplicitTop = 30
@@ -272,12 +279,6 @@ inherited fEditorProveedor: TfEditorProveedor
               end
             end
           end
-          inherited eNombreComercial: TcxDBTextEdit
-            Top = 84
-            ExplicitTop = 84
-            ExplicitWidth = 192
-            Width = 192
-          end
         end
       end
     end
@@ -414,18 +415,6 @@ inherited fEditorProveedor: TfEditorProveedor
         inherited ToolBar1: TToolBar
           Width = 634
           ExplicitWidth = 634
-          inherited ToolButton1: TToolButton
-            ExplicitWidth = 113
-          end
-          inherited ToolButton4: TToolButton
-            ExplicitWidth = 113
-          end
-          inherited ToolButton2: TToolButton
-            ExplicitWidth = 113
-          end
-          inherited ToolButton7: TToolButton
-            ExplicitWidth = 113
-          end
         end
       end
     end
@@ -481,6 +470,24 @@ inherited fEditorProveedor: TfEditorProveedor
           end
         end
       end
+      object rdTipoSubcuenta: TDBRadioGroup
+        Left = 93
+        Top = 111
+        Width = 212
+        Height = 58
+        Caption = 'Tipo subcuenta'
+        Columns = 2
+        DataField = 'ES_ACREEDOR'
+        DataSource = dsDataTable
+        Items.Strings = (
+          'Proveedor'
+          'Acreedor')
+        ParentBackground = True
+        TabOrder = 1
+        Values.Strings = (
+          '0'
+          '1')
+      end
     end
   end
   inherited StatusBar: TJvStatusBar
diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.pas b/Source/Modulos/Contactos/Views/uEditorProveedor.pas
index 1675ac40..5c9121ff 100644
--- a/Source/Modulos/Contactos/Views/uEditorProveedor.pas
+++ b/Source/Modulos/Contactos/Views/uEditorProveedor.pas
@@ -14,7 +14,7 @@ uses
   cxSpinEdit, cxDBEdit, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
   dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos,
   uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega,
-  uDAInterfaces, uViewSubCuentaContacto;
+  uDAInterfaces, uViewSubCuentaContacto, StdCtrls, DBCtrls;
 
 type
   TfEditorProveedor = class(TfEditorContacto, IEditorProveedor)
@@ -26,6 +26,7 @@ type
     actGruposProveedor: TAction;
     PagContabilidad: TTabSheet;
     frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
+    rdTipoSubcuenta: TDBRadioGroup;
     procedure actGruposProveedorExecute(Sender: TObject);
   protected
     procedure GuardarInterno; override;
@@ -88,6 +89,8 @@ begin
   else
      (Controller as IProveedoresController).SetTieneSubCuenta(Contacto as IBizProveedor, False);
 
+  (Contacto as IBizProveedor).ES_ACREEDOR := StrToInt(rdTipoSubcuenta.Value);
+
   //Evitamos que cada vez que se añada un proveedor te pregunta por defecto se crea y punto.
   //Otro caso es al modificar que si que hay que preguntar por si acaso desea asignar el manualmente una subcuenta existente
   if not Contacto.EsNuevo
@@ -122,6 +125,9 @@ begin
     frViewDireccionesEntrega1.dsDetalles.DataTable := Contacto.Direcciones.DataTable;
     frViewProveedorDatosComerciales1.Contacto := Contacto;
     frViewSubCuentaContacto1.Contacto := Contacto;
+
+    if Contacto.EsNuevo then
+       rdTipoSubcuenta.ItemIndex := 0;
   end
   else
   begin
diff --git a/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm b/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm
index a5e93d80..b1e54efc 100644
--- a/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm
+++ b/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm
@@ -1,6 +1,6 @@
 inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
-  Width = 680
-  Height = 305
+  Width = 577
+  Height = 143
   Align = alClient
   AutoSize = True
   OnCreate = CustomViewCreate
@@ -10,8 +10,8 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
   object layoutApunte: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 680
-    Height = 305
+    Width = 577
+    Height = 143
     Align = alClient
     ParentBackground = True
     TabOrder = 0
@@ -19,8 +19,8 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
     ExplicitWidth = 451
     ExplicitHeight = 304
     DesignSize = (
-      680
-      305)
+      577
+      143)
     object eRefSubCuenta: TcxDBTextEdit
       Left = 93
       Top = 37
@@ -42,7 +42,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
       Width = 346
     end
     object BitBtn3: TBitBtn
-      Left = 338
+      Left = 235
       Top = 37
       Width = 110
       Height = 25
@@ -106,7 +106,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
       Width = 265
     end
     object BitBtn1: TBitBtn
-      Left = 454
+      Left = 351
       Top = 37
       Width = 120
       Height = 25
@@ -150,7 +150,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
         E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00}
     end
     object BitBtn2: TBitBtn
-      Left = 580
+      Left = 477
       Top = 37
       Width = 90
       Height = 25
diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index e7e3c374..84485c71 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -419,7 +419,7 @@
 </Parameter>
 <Parameter Name="ID_CONTACTO" DataType="Integer" Flag="In" >
 </Parameter>
-<Parameter Name="ID_TIENDA" DataType="Integer" Flag="In" >
+<Parameter Name="ES_ACREEDOR" DataType="Integer" Flag="In" >
 </Parameter>
 <Parameter Name="ID_EMPRESA" DataType="Integer" Flag="In" >
 </Parameter>
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index edf87c1f..c146a343 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -615,7 +615,7 @@ type
     ['{04CDF2E1-EFC2-4247-AA4F-09BE782C73FA}']
     function TieneCuentaAsociada(const ID_CONTACTO: Integer; const ID_EMPRESA: Integer): Boolean;
     function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean;
-    function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
+    function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
   end;
 
   { CosrvContabilidad }
@@ -630,7 +630,7 @@ type
 
     function TieneCuentaAsociada(const ID_CONTACTO: Integer; const ID_EMPRESA: Integer): Boolean;
     function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean;
-    function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
+    function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
   end;
 
   { IsrvUnidadesMedida }
@@ -1648,12 +1648,12 @@ begin
   end
 end;
 
-function TsrvContabilidad_Proxy.AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
+function TsrvContabilidad_Proxy.AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
 begin
   try
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'AnadirSubCuentaProveedor');
     __Message.Write('ID_CONTACTO', TypeInfo(Integer), ID_CONTACTO, []);
-    __Message.Write('ID_TIENDA', TypeInfo(Integer), ID_TIENDA, []);
+    __Message.Write('ES_ACREEDOR', TypeInfo(Integer), ES_ACREEDOR, []);
     __Message.Write('ID_EMPRESA', TypeInfo(Integer), ID_EMPRESA, []);
     __Message.Write('PROVEEDOR', TypeInfo(String), PROVEEDOR, []);
     __Message.Finalize;
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index c42055c3..413973eb 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -828,21 +828,21 @@ begin
 end;
 
 procedure TsrvContabilidad_Invoker.Invoke_AnadirSubCuentaProveedor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean; }
+{ function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean; }
 var
   ID_CONTACTO: Integer;
-  ID_TIENDA: Integer;
+  ES_ACREEDOR: Integer;
   ID_EMPRESA: Integer;
   PROVEEDOR: String;
   lResult: Boolean;
 begin
   try
     __Message.Read('ID_CONTACTO', TypeInfo(Integer), ID_CONTACTO, []);
-    __Message.Read('ID_TIENDA', TypeInfo(Integer), ID_TIENDA, []);
+    __Message.Read('ES_ACREEDOR', TypeInfo(Integer), ES_ACREEDOR, []);
     __Message.Read('ID_EMPRESA', TypeInfo(Integer), ID_EMPRESA, []);
     __Message.Read('PROVEEDOR', TypeInfo(String), PROVEEDOR, []);
 
-    lResult := (__Instance as IsrvContabilidad).AnadirSubCuentaProveedor(ID_CONTACTO, ID_TIENDA, ID_EMPRESA, PROVEEDOR);
+    lResult := (__Instance as IsrvContabilidad).AnadirSubCuentaProveedor(ID_CONTACTO, ES_ACREEDOR, ID_EMPRESA, PROVEEDOR);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContabilidad', 'AnadirSubCuentaProveedorResponse');
     __Message.Write('Result', TypeInfo(Boolean), lResult, []);
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index 3d2f6f92..bbf8d508 100644
Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index f42789ca..daf6b62c 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 6f0c210d..8f826aa1 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -114,12 +114,12 @@ uses
   uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas',
   schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
   schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
-  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
   schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
   schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
-  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
+  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index d2c78f5c..1c3e118b 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -28,7 +28,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 10 de abril de 2008 14:43</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 09 de abril de 2008 20:40</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
 						<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index e93f48e5..7f07d7c1 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,1,8,0
-PRODUCTVERSION 2,1,8,0
+FILEVERSION 2,1,9,0
+PRODUCTVERSION 2,1,9,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.1.8.0\0"
+              VALUE "FileVersion", "2.1.9.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
-              VALUE "ProductVersion", "2.1.8.0\0"
-              VALUE "CompileDate", "jueves, 10 de abril de 2008 14:55\0"
+              VALUE "ProductVersion", "2.1.9.0\0"
+              VALUE "CompileDate", "martes, 15 de abril de 2008 11:15\0"
          END
     END
     BLOCK "VarFileInfo"