diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB
index 0b8e3c42..62ef90ca 100644
Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ
diff --git a/Database/Script.txt b/Database/Script.txt
index aa65b8fe..095178f7 100644
--- a/Database/Script.txt
+++ b/Database/Script.txt
@@ -1,32 +1,828 @@
-ALTER TABLE ALBARANES_CLIENTE_DETALLES
-ADD ID_PEDIDO TIPO_ID;
+CREATE TABLE IMPRESIONES(
+ID TIPO_ID NOT NULL,
+ID_TABLA TIPO_ID,
+TABLA VARCHAR(50) COLLATE ES_ES,
+NUM_COPIAS SMALLINT
+);
 
-update albaranes_cliente_detalles
-set id_pedido = (select albaranes_cliente.id_pedido
-                 from albaranes_cliente
-                 where albaranes_cliente.id = albaranes_cliente_detalles.ID_ALBARAN);
+/* Create generator... */
+CREATE GENERATOR GEN_IMPRESIONES_ID;
 
-ALTER TABLE ALBARANES_PROVEEDOR_DETALLES
-ADD ID_PEDIDO TIPO_ID;
-
-update albaranes_proveedor_detalles
-set id_pedido = (select albaranes_proveedor.id_pedido
-                 from albaranes_proveedor
-                 where albaranes_proveedor.id = albaranes_proveedor_detalles.ID_ALBARAN);
-
-
-
-
-CREATE TRIGGER FACTURAS_CLIENTE_DELETE FOR FACTURAS_CLIENTE
-ACTIVE BEFORE DELETE POSITION 0
-AS
+CREATE PROCEDURE PRO_ANADIR_MARCA_IMPRESION (
+    tabla varchar(255),
+    id_tabla integer)
+as
+declare variable id integer;
 begin
-  update albaranes_cliente
-  set albaranes_cliente.fecha_recepcion = null
-  where albaranes_cliente.id_factura = id_factura;
-end
-^
+  select ID
+  from IMPRESIONES
+  where ID_TABLA = :ID_TABLA
+  and TABLA = UPPER(:TABLA)
+  into :ID;
+
+  /*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemetno*/
+  if (ID > 0) then
+  begin
+    update IMPRESIONES
+    set NUM_COPIAS = NUM_COPIAS + 1
+    where ID = :ID;
+  end
+  else
+  begin
+    insert into IMPRESIONES (ID, TABLA, ID_TABLA, NUM_COPIAS)
+    values (GEN_ID(GEN_IMPRESIONES_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
+  end
+  suspend;
+end;
 
 
-SET TERM ; ^
+DROP VIEW V_ALBARANES_CLIENTE;
 
+/* Create altered view: V_ALBARANES_CLIENTE */
+/* Create view: V_ALBARANES_CLIENTE (ViwData.CreateDependDef) */
+CREATE VIEW V_ALBARANES_CLIENTE(
+ID,
+ID_EMPRESA,
+ID_CLIENTE,
+NOMBRE,
+FECHA_ALBARAN,
+REFERENCIA,
+REFERENCIA_CLIENTE,
+TIPO,
+SITUACION,
+ID_ALMACEN,
+NOMBRE_ALMACEN,
+ID_PEDIDO,
+REF_PEDIDO,
+ID_FACTURA,
+REF_FACTURA,
+CALLE,
+CODIGO_POSTAL,
+POBLACION,
+PROVINCIA,
+PERSONA_CONTACTO,
+TELEFONO,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+BASE_IMPONIBLE,
+IVA,
+IMPORTE_IVA,
+IMPORTE_TOTAL,
+OBSERVACIONES,
+INCIDENCIAS,
+INCIDENCIAS_ACTIVAS,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+ID_FORMA_PAGO,
+FECHA_PREVISTA_ENVIO,
+FECHA_ENVIO,
+FECHA_RECEPCION,
+ID_AGENTE,
+AGENTE,
+NUM_COPIAS)
+ AS 
+SELECT
+  ALBARANES_CLIENTE.ID,
+  ALBARANES_CLIENTE.ID_EMPRESA,
+  ALBARANES_CLIENTE.ID_CLIENTE,
+  CLIENTES.NOMBRE,
+  ALBARANES_CLIENTE.FECHA_ALBARAN,
+  ALBARANES_CLIENTE.REFERENCIA,
+  ALBARANES_CLIENTE.REFERENCIA_CLIENTE,
+  ALBARANES_CLIENTE.TIPO,
+  V_ALB_CLI_SITUACION.SITUACION,
+  ALBARANES_CLIENTE.ID_ALMACEN,
+  ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
+  ALBARANES_CLIENTE.ID_PEDIDO,
+  PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO,
+  ALBARANES_CLIENTE.ID_FACTURA,
+  FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA,
+  ALBARANES_CLIENTE.CALLE,
+  ALBARANES_CLIENTE.CODIGO_POSTAL,
+  ALBARANES_CLIENTE.POBLACION,
+  ALBARANES_CLIENTE.PROVINCIA,
+  ALBARANES_CLIENTE.PERSONA_CONTACTO,
+  ALBARANES_CLIENTE.TELEFONO,
+  ALBARANES_CLIENTE.IMPORTE_NETO,
+  ALBARANES_CLIENTE.IMPORTE_PORTE,
+  ALBARANES_CLIENTE.DESCUENTO,
+  ALBARANES_CLIENTE.IMPORTE_DESCUENTO,
+  ALBARANES_CLIENTE.BASE_IMPONIBLE,
+  ALBARANES_CLIENTE.IVA,
+  ALBARANES_CLIENTE.IMPORTE_IVA,
+  ALBARANES_CLIENTE.IMPORTE_TOTAL,
+  ALBARANES_CLIENTE.OBSERVACIONES,
+  ALBARANES_CLIENTE.INCIDENCIAS,
+  ALBARANES_CLIENTE.INCIDENCIAS_ACTIVAS,
+  ALBARANES_CLIENTE.FECHA_ALTA,
+  ALBARANES_CLIENTE.FECHA_MODIFICACION,
+  ALBARANES_CLIENTE.USUARIO,
+  ALBARANES_CLIENTE.ID_FORMA_PAGO,
+  ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,
+  ALBARANES_CLIENTE.FECHA_ENVIO,
+  ALBARANES_CLIENTE.FECHA_RECEPCION,
+  CLIENTES_DATOS.ID_AGENTE,
+  AGENTES.NOMBRE,
+  IMPRESIONES.NUM_COPIAS
+
+FROM
+  ALBARANES_CLIENTE
+  INNER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID)
+  INNER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ALBARANES_CLIENTE.ID_CLIENTE)
+  LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = ALBARANES_CLIENTE.ID_CLIENTE)
+  LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
+  LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)
+  LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA)
+  LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN)
+  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'));
+;
+
+
+
+
+/* Drop altered view: V_ALBARANES_PROVEEDOR */
+DROP VIEW V_ALBARANES_PROVEEDOR;
+
+/* Create altered view: V_ALBARANES_PROVEEDOR */
+/* Create view: V_ALBARANES_PROVEEDOR (ViwData.CreateDependDef) */
+CREATE VIEW V_ALBARANES_PROVEEDOR(
+ID,
+ID_EMPRESA,
+ID_PROVEEDOR,
+NOMBRE,
+FECHA_ALBARAN,
+REFERENCIA,
+REFERENCIA_PROVEEDOR,
+TIPO,
+ID_ALMACEN,
+NOMBRE_ALMACEN,
+ID_PEDIDO,
+REF_PED_PROVEEDOR,
+ID_FACTURA,
+REF_FACTURA,
+REF_FACTURA_PROV,
+CALLE,
+CODIGO_POSTAL,
+POBLACION,
+PROVINCIA,
+PERSONA_CONTACTO,
+TELEFONO,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+BASE_IMPONIBLE,
+IVA,
+IMPORTE_IVA,
+IMPORTE_TOTAL,
+OBSERVACIONES,
+INCIDENCIAS,
+INCIDENCIAS_ACTIVAS,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+ID_FORMA_PAGO,
+NUM_COPIAS)
+ AS 
+SELECT
+  ALBARANES_PROVEEDOR.ID,
+  ALBARANES_PROVEEDOR.ID_EMPRESA,
+  ALBARANES_PROVEEDOR.ID_PROVEEDOR,
+  CONTACTOS.NOMBRE,
+  ALBARANES_PROVEEDOR.FECHA_ALBARAN,
+  ALBARANES_PROVEEDOR.REFERENCIA,
+  ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
+  ALBARANES_PROVEEDOR.TIPO,
+  ALBARANES_PROVEEDOR.ID_ALMACEN,
+  ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
+  ALBARANES_PROVEEDOR.ID_PEDIDO,
+  PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR,
+  ALBARANES_PROVEEDOR.ID_FACTURA,
+  FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA,
+  ALBARANES_PROVEEDOR.REF_FACTURA_PROV,
+  ALBARANES_PROVEEDOR.CALLE,
+  ALBARANES_PROVEEDOR.CODIGO_POSTAL,
+  ALBARANES_PROVEEDOR.POBLACION,
+  ALBARANES_PROVEEDOR.PROVINCIA,
+  ALBARANES_PROVEEDOR.PERSONA_CONTACTO,
+  ALBARANES_PROVEEDOR.TELEFONO,
+  ALBARANES_PROVEEDOR.IMPORTE_NETO,
+  ALBARANES_PROVEEDOR.IMPORTE_PORTE,
+  ALBARANES_PROVEEDOR.DESCUENTO,
+  ALBARANES_PROVEEDOR.IMPORTE_DESCUENTO,
+  ALBARANES_PROVEEDOR.BASE_IMPONIBLE,
+  ALBARANES_PROVEEDOR.IVA,
+  ALBARANES_PROVEEDOR.IMPORTE_IVA,
+  ALBARANES_PROVEEDOR.IMPORTE_TOTAL,
+  ALBARANES_PROVEEDOR.OBSERVACIONES,
+  ALBARANES_PROVEEDOR.INCIDENCIAS,
+  ALBARANES_PROVEEDOR.INCIDENCIAS_ACTIVAS,
+  ALBARANES_PROVEEDOR.FECHA_ALTA,
+  ALBARANES_PROVEEDOR.FECHA_MODIFICACION,
+  ALBARANES_PROVEEDOR.USUARIO,
+  ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
+  IMPRESIONES.NUM_COPIAS
+FROM
+  ALBARANES_PROVEEDOR
+  INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
+  LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO)
+  LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA)
+  LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN)
+  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR'));
+;
+
+
+
+
+
+/* Drop altered view: V_FACTURAS_CLIENTE */
+DROP VIEW V_AGENTES_COMISIONES_DET_FAC;
+
+DROP VIEW V_FACTURAS_CLIENTE;
+
+/* Create altered view: V_FACTURAS_CLIENTE */
+/* Create view: V_FACTURAS_CLIENTE (ViwData.CreateDependDef) */
+CREATE VIEW V_FACTURAS_CLIENTE(
+ID,
+ID_EMPRESA,
+REFERENCIA,
+TIPO,
+ID_COMISION_LIQUIDADA,
+FECHA_FACTURA,
+SITUACION,
+BASE_IMPONIBLE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+IVA,
+IMPORTE_IVA,
+RE,
+IMPORTE_RE,
+IMPORTE_TOTAL,
+OBSERVACIONES,
+ID_CLIENTE,
+NIF_CIF,
+NOMBRE,
+CALLE,
+POBLACION,
+PROVINCIA,
+CODIGO_POSTAL,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+ID_FORMA_PAGO,
+RECARGO_EQUIVALENCIA,
+ID_TIPO_IVA,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+ID_AGENTE,
+REFERENCIA_COMISION,
+NUM_COPIAS)
+ AS 
+SELECT FACTURAS_CLIENTE.ID,
+  FACTURAS_CLIENTE.ID_EMPRESA,
+  FACTURAS_CLIENTE.REFERENCIA,
+  CASE WHEN (FACTURAS_CLIENTE.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
+  FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,
+  FACTURAS_CLIENTE.FECHA_FACTURA,
+  V_FAC_CLI_SITUACION.SITUACION,
+  FACTURAS_CLIENTE.BASE_IMPONIBLE,
+  FACTURAS_CLIENTE.DESCUENTO,
+  FACTURAS_CLIENTE.IMPORTE_DESCUENTO,
+  FACTURAS_CLIENTE.IVA,
+  FACTURAS_CLIENTE.IMPORTE_IVA,
+  FACTURAS_CLIENTE.RE,
+  FACTURAS_CLIENTE.IMPORTE_RE,
+  FACTURAS_CLIENTE.IMPORTE_TOTAL,
+  FACTURAS_CLIENTE.OBSERVACIONES,
+  FACTURAS_CLIENTE.ID_CLIENTE,
+  FACTURAS_CLIENTE.NIF_CIF,
+  FACTURAS_CLIENTE.NOMBRE,
+  FACTURAS_CLIENTE.CALLE,
+  FACTURAS_CLIENTE.POBLACION,
+  FACTURAS_CLIENTE.PROVINCIA,
+  FACTURAS_CLIENTE.CODIGO_POSTAL,
+  FACTURAS_CLIENTE.FECHA_ALTA,
+  FACTURAS_CLIENTE.FECHA_MODIFICACION,
+  FACTURAS_CLIENTE.USUARIO,
+  FACTURAS_CLIENTE.ID_FORMA_PAGO,
+  FACTURAS_CLIENTE.RECARGO_EQUIVALENCIA,
+  FACTURAS_CLIENTE.ID_TIPO_IVA,
+  FACTURAS_CLIENTE.IMPORTE_NETO,
+  FACTURAS_CLIENTE.IMPORTE_PORTE,
+  CLIENTES_DATOS.ID_AGENTE,
+  COMISIONES_LIQUIDADAS.REFERENCIA,
+  IMPRESIONES.NUM_COPIAS
+  FROM V_FAC_CLI_SITUACION
+  LEFT JOIN FACTURAS_CLIENTE
+  ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
+  LEFT JOIN COMISIONES_LIQUIDADAS
+  ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
+  LEFT JOIN CLIENTES_DATOS
+  ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
+  LEFT JOIN IMPRESIONES
+  ON ((IMPRESIONES.ID_TABLA = FACTURAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'FACTURASCLIENTE'));
+;
+
+
+/* Drop altered view: V_FACTURAS_PROVEEDOR */
+DROP VIEW V_FACTURAS_PROVEEDOR;
+
+/* Create altered view: V_FACTURAS_PROVEEDOR */
+/* Create view: V_FACTURAS_PROVEEDOR (ViwData.CreateDependDef) */
+CREATE VIEW V_FACTURAS_PROVEEDOR(
+ID,
+ID_EMPRESA,
+REFERENCIA,
+TIPO,
+REFERENCIA_PROVEEDOR,
+FECHA_FACTURA,
+SITUACION,
+BASE_IMPONIBLE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+IVA,
+IMPORTE_IVA,
+RE,
+IMPORTE_RE,
+IMPORTE_TOTAL,
+OBSERVACIONES,
+ID_PROVEEDOR,
+NIF_CIF,
+NOMBRE,
+CALLE,
+POBLACION,
+PROVINCIA,
+CODIGO_POSTAL,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+ID_FORMA_PAGO,
+RECARGO_EQUIVALENCIA,
+ID_TIPO_IVA,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+NUM_COPIAS)
+ AS 
+SELECT FACTURAS_PROVEEDOR.ID,
+  FACTURAS_PROVEEDOR.ID_EMPRESA,
+  FACTURAS_PROVEEDOR.REFERENCIA,
+  CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
+  FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,
+  FACTURAS_PROVEEDOR.FECHA_FACTURA,
+  V_FAC_PRO_SITUACION.SITUACION,
+  FACTURAS_PROVEEDOR.BASE_IMPONIBLE,
+  FACTURAS_PROVEEDOR.DESCUENTO,
+  FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO,
+  FACTURAS_PROVEEDOR.IVA,
+  FACTURAS_PROVEEDOR.IMPORTE_IVA,
+  FACTURAS_PROVEEDOR.RE,
+  FACTURAS_PROVEEDOR.IMPORTE_RE,
+  FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
+  FACTURAS_PROVEEDOR.OBSERVACIONES,
+  FACTURAS_PROVEEDOR.ID_PROVEEDOR,
+  FACTURAS_PROVEEDOR.NIF_CIF,
+  FACTURAS_PROVEEDOR.NOMBRE,
+  FACTURAS_PROVEEDOR.CALLE,
+  FACTURAS_PROVEEDOR.POBLACION,
+  FACTURAS_PROVEEDOR.PROVINCIA,
+  FACTURAS_PROVEEDOR.CODIGO_POSTAL,
+  FACTURAS_PROVEEDOR.FECHA_ALTA,
+  FACTURAS_PROVEEDOR.FECHA_MODIFICACION,
+  FACTURAS_PROVEEDOR.USUARIO,
+  FACTURAS_PROVEEDOR.ID_FORMA_PAGO,
+  FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA,
+  FACTURAS_PROVEEDOR.ID_TIPO_IVA,
+  FACTURAS_PROVEEDOR.IMPORTE_NETO,
+  FACTURAS_PROVEEDOR.IMPORTE_PORTE,
+  IMPRESIONES.NUM_COPIAS
+  FROM V_FAC_PRO_SITUACION
+  LEFT JOIN FACTURAS_PROVEEDOR
+  ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
+  LEFT JOIN PROVEEDORES_DATOS
+  ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
+  LEFT JOIN IMPRESIONES
+  ON ((IMPRESIONES.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'FACTURASPROVEEDOR'));
+;
+
+
+
+/* Drop altered view: V_PEDIDOS_CLIENTE */
+DROP VIEW V_PEDIDOS_CLIENTE;
+
+/* Create altered view: V_PEDIDOS_CLIENTE */
+/* Create view: V_PEDIDOS_CLIENTE (ViwData.CreateDependDef) */
+CREATE VIEW V_PEDIDOS_CLIENTE(
+ID,
+ID_EMPRESA,
+ID_CLIENTE,
+NOMBRE,
+REFERENCIA,
+REFERENCIA_CLIENTE,
+SITUACION,
+FECHA_PEDIDO,
+CALLE,
+CODIGO_POSTAL,
+POBLACION,
+PROVINCIA,
+PERSONA_CONTACTO,
+TELEFONO,
+OBSERVACIONES,
+INCIDENCIAS,
+INCIDENCIAS_ACTIVAS,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+BASE_IMPONIBLE,
+IVA,
+IMPORTE_IVA,
+IMPORTE_TOTAL,
+ID_FORMA_PAGO,
+REF_TIENDA_WEB,
+FECHA_PREVISTA_ENVIO,
+NUM_COPIAS)
+ AS 
+SELECT
+  PEDIDOS_CLIENTE.ID,
+  PEDIDOS_CLIENTE.ID_EMPRESA,
+  PEDIDOS_CLIENTE.ID_CLIENTE,
+  V_CLIENTES.NOMBRE,
+  PEDIDOS_CLIENTE.REFERENCIA,
+  PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,  
+  V_PED_CLI_SITUACION.SITUACION,
+  PEDIDOS_CLIENTE.FECHA_PEDIDO,
+  PEDIDOS_CLIENTE.CALLE,
+  PEDIDOS_CLIENTE.CODIGO_POSTAL,
+  PEDIDOS_CLIENTE.POBLACION,
+  PEDIDOS_CLIENTE.PROVINCIA,
+  PEDIDOS_CLIENTE.PERSONA_CONTACTO,
+  PEDIDOS_CLIENTE.TELEFONO,
+  PEDIDOS_CLIENTE.OBSERVACIONES,
+  PEDIDOS_CLIENTE.INCIDENCIAS,
+  PEDIDOS_CLIENTE.INCIDENCIAS_ACTIVAS,
+  PEDIDOS_CLIENTE.FECHA_ALTA,
+  PEDIDOS_CLIENTE.FECHA_MODIFICACION,
+  PEDIDOS_CLIENTE.USUARIO,
+  PEDIDOS_CLIENTE.IMPORTE_NETO,
+  PEDIDOS_CLIENTE.IMPORTE_PORTE,
+  PEDIDOS_CLIENTE.DESCUENTO,
+  PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,
+  PEDIDOS_CLIENTE.BASE_IMPONIBLE,
+  PEDIDOS_CLIENTE.IVA,
+  PEDIDOS_CLIENTE.IMPORTE_IVA,
+  PEDIDOS_CLIENTE.IMPORTE_TOTAL,
+  PEDIDOS_CLIENTE.ID_FORMA_PAGO,
+  PEDIDOS_CLIENTE.REF_TIENDA_WEB,
+  PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
+  IMPRESIONES.NUM_COPIAS
+FROM
+  V_PED_CLI_SITUACION
+  INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
+  INNER JOIN V_CLIENTES ON (PEDIDOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)
+  LEFT JOIN IMPRESIONES
+  ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'));
+;
+
+/* Drop altered view: V_PEDIDOS_PROVEEDOR */
+DROP VIEW V_PEDIDOS_PROVEEDOR;
+
+/* Create altered view: V_PEDIDOS_PROVEEDOR */
+/* Create view: V_PEDIDOS_PROVEEDOR (ViwData.CreateDependDef) */
+CREATE VIEW V_PEDIDOS_PROVEEDOR(
+ID,
+ID_EMPRESA,
+ID_PROVEEDOR,
+NOMBRE,
+REFERENCIA,
+SITUACION,
+FECHA_ENVIO,
+FECHA_PEDIDO,
+FECHA_CONFIRMACION,
+FECHA_ENTREGA,
+ID_ALMACEN,
+NOMBRE_ALMACEN,
+OBSERVACIONES,
+IMPORTE_TOTAL,
+INCIDENCIAS,
+INCIDENCIAS_ACTIVAS,
+CALLE,
+POBLACION,
+PROVINCIA,
+CODIGO_POSTAL,
+PERSONA_CONTACTO,
+TELEFONO,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+ID_PEDIDO_CLIENTE,
+REF_PED_CLIENTE,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+BASE_IMPONIBLE,
+IVA,
+IMPORTE_IVA,
+ID_FORMA_PAGO,
+NUM_COPIAS)
+ AS 
+SELECT
+  PEDIDOS_PROVEEDOR.ID,
+  PEDIDOS_PROVEEDOR.ID_EMPRESA,
+  PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
+  V_PROVEEDORES.NOMBRE,
+  PEDIDOS_PROVEEDOR.REFERENCIA,
+  V_PED_PROV_SITUACION.SITUACION,
+  PEDIDOS_PROVEEDOR.FECHA_ENVIO,
+  PEDIDOS_PROVEEDOR.FECHA_PEDIDO,
+  PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION,
+  PEDIDOS_PROVEEDOR.FECHA_ENTREGA,
+  PEDIDOS_PROVEEDOR.ID_ALMACEN,
+  ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
+  PEDIDOS_PROVEEDOR.OBSERVACIONES,
+  PEDIDOS_PROVEEDOR.IMPORTE_TOTAL,
+  PEDIDOS_PROVEEDOR.INCIDENCIAS,
+  PEDIDOS_PROVEEDOR.INCIDENCIAS_ACTIVAS,
+  PEDIDOS_PROVEEDOR.CALLE,
+  PEDIDOS_PROVEEDOR.POBLACION,
+  PEDIDOS_PROVEEDOR.PROVINCIA,
+  PEDIDOS_PROVEEDOR.CODIGO_POSTAL,
+  PEDIDOS_PROVEEDOR.PERSONA_CONTACTO,
+  PEDIDOS_PROVEEDOR.TELEFONO,
+  PEDIDOS_PROVEEDOR.FECHA_ALTA,
+  PEDIDOS_PROVEEDOR.FECHA_MODIFICACION,
+  PEDIDOS_PROVEEDOR.USUARIO,
+  PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE,
+  PEDIDOS_CLIENTE.REFERENCIA AS REF_PED_CLIENTE,
+  PEDIDOS_PROVEEDOR.IMPORTE_NETO,
+  PEDIDOS_PROVEEDOR.IMPORTE_PORTE,
+  PEDIDOS_PROVEEDOR.DESCUENTO,
+  PEDIDOS_PROVEEDOR.IMPORTE_DESCUENTO,
+  PEDIDOS_PROVEEDOR.BASE_IMPONIBLE,
+  PEDIDOS_PROVEEDOR.IVA,
+  PEDIDOS_PROVEEDOR.IMPORTE_IVA,
+  PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
+  IMPRESIONES.NUM_COPIAS
+FROM
+  PEDIDOS_PROVEEDOR
+  INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
+  INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
+  LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
+  LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
+  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = PEDIDOS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSPROVEEDOR'));
+;
+
+
+/* Drop altered view: V_RECIBOS_CLIENTE */
+DROP VIEW V_RECIBOS_CLIENTE;
+
+/* Create altered view: V_RECIBOS_CLIENTE */
+/* Create view: V_RECIBOS_CLIENTE (ViwData.CreateDependDef) */
+CREATE VIEW V_RECIBOS_CLIENTE(
+ID,
+ID_RECIBO_COMPENSADO,
+REFERENCIA_REC_COMPENSADO,
+REFERENCIA,
+SITUACION,
+ID_FACTURA,
+ID_REMESA,
+REFERENCIA_REMESA,
+FECHA_EMISION,
+FECHA_VENCIMIENTO,
+DESCRIPCION,
+OBSERVACIONES,
+IMPORTE,
+OTROS_GASTOS,
+IMPORTE_TOTAL,
+FECHA_FACTURA,
+FORMA_PAGO_FACTURA,
+IMPORTE_FACTURA,
+ID_EMPRESA,
+ID_CLIENTE,
+NOMBRE_CLIENTE,
+NIF_CIF_CLIENTE,
+ENTIDAD_CLIENTE,
+SUCURSAL_CLIENTE,
+DC_CLIENTE,
+CUENTA_CLIENTE,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+NUM_COPIAS)
+ AS 
+SELECT RECIBOS_CLIENTE.ID,
+       RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
+       RECIBO_COMPENSADO1.REFERENCIA,
+       RECIBOS_CLIENTE.REFERENCIA,
+       CASE
+       WHEN RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO IS NULL
+       THEN V_REC_CLI_SITUACION.SITUACION
+       ELSE RECIBO_COMPENSADO2.SITUACION
+       END,
+       RECIBOS_CLIENTE.ID_FACTURA,
+       RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA,
+       RECIBOS_CLIENTE.FECHA_EMISION, RECIBOS_CLIENTE.FECHA_VENCIMIENTO, RECIBOS_CLIENTE.DESCRIPCION,
+       RECIBOS_CLIENTE.OBSERVACIONES, RECIBOS_CLIENTE.IMPORTE, RECIBOS_CLIENTE.OTROS_GASTOS,
+       COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),
+
+       FACTURAS_CLIENTE.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_CLIENTE.IMPORTE_TOTAL,
+       FACTURAS_CLIENTE.ID_EMPRESA,
+
+       CONTACTOS.ID as ID_CLIENTE, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD,
+       CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA,
+
+       RECIBOS_CLIENTE.FECHA_ALTA,
+       RECIBOS_CLIENTE.FECHA_MODIFICACION,
+       RECIBOS_CLIENTE.USUARIO,
+       IMPRESIONES.NUM_COPIAS
+
+FROM RECIBOS_CLIENTE
+LEFT JOIN V_REC_CLI_SITUACION
+ON (V_REC_CLI_SITUACION.ID_RECIBO = RECIBOS_CLIENTE.ID)
+LEFT JOIN FACTURAS_CLIENTE
+ON (FACTURAS_CLIENTE.ID = RECIBOS_CLIENTE.ID_FACTURA)
+LEFT JOIN FORMAS_PAGO
+ON (FORMAS_PAGO.ID = FACTURAS_CLIENTE.ID_FORMA_PAGO)
+LEFT JOIN CONTACTOS
+ON (CONTACTOS.ID = FACTURAS_CLIENTE.ID_CLIENTE)
+LEFT JOIN CONTACTOS_DATOS_BANCO
+ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID)
+LEFT JOIN REMESAS_CLIENTE
+ON (REMESAS_CLIENTE.ID = RECIBOS_CLIENTE.ID_REMESA)
+LEFT JOIN V_REC_CLI_COMPENSADOS
+ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
+LEFT JOIN RECIBOS_CLIENTE RECIBO_COMPENSADO1
+ON (RECIBO_COMPENSADO1.ID = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
+LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2
+ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
+LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = RECIBOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'RECIBOSCLIENTE'));
+;
+
+/* Drop altered view: V_REMESAS_CLIENTE */
+DROP VIEW V_REMESAS_CLIENTE;
+
+/* Create altered view: V_REMESAS_CLIENTE */
+/* Create view: V_REMESAS_CLIENTE (ViwData.CreateDependDef) */
+CREATE VIEW V_REMESAS_CLIENTE(
+ID,
+ID_EMPRESA,
+REFERENCIA,
+TIPO,
+FECHA_REMESA,
+DESCRIPCION,
+ID_DATOS_BANCO,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+NOMBRE,
+ENTIDAD,
+SUCURSAL,
+DC,
+CUENTA,
+SUFIJO_N19,
+SUFIJO_N58,
+NUM_COPIAS,
+IMPORTE_TOTAL)
+ AS 
+SELECT
+  REMESAS_CLIENTE.ID,
+  REMESAS_CLIENTE.ID_EMPRESA,
+  REMESAS_CLIENTE.REFERENCIA,
+  REMESAS_CLIENTE.TIPO,
+  REMESAS_CLIENTE.FECHA_REMESA,
+  REMESAS_CLIENTE.DESCRIPCION,
+  REMESAS_CLIENTE.ID_DATOS_BANCO,
+  REMESAS_CLIENTE.FECHA_ALTA,
+  REMESAS_CLIENTE.FECHA_MODIFICACION,
+  REMESAS_CLIENTE.USUARIO,
+  EMPRESAS_DATOS_BANCO.NOMBRE,
+  EMPRESAS_DATOS_BANCO.ENTIDAD,
+  EMPRESAS_DATOS_BANCO.SUCURSAL,
+  EMPRESAS_DATOS_BANCO.DC,
+  EMPRESAS_DATOS_BANCO.CUENTA,
+  EMPRESAS_DATOS_BANCO.SUFIJO_N19,
+  EMPRESAS_DATOS_BANCO.SUFIJO_N58,
+  IMPRESIONES.NUM_COPIAS,
+  SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
+
+FROM
+  REMESAS_CLIENTE
+  LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO)
+  LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID)
+  LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
+  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = REMESAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'REMESASCLIENTE'))
+GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18;
+;
+
+
+/* Drop altered view: V_REMESAS_PROVEEDOR */
+DROP VIEW V_REMESAS_PROVEEDOR;
+
+/* Create altered view: V_REMESAS_PROVEEDOR */
+/* Create view: V_REMESAS_PROVEEDOR (ViwData.CreateDependDef) */
+CREATE VIEW V_REMESAS_PROVEEDOR(
+ID,
+ID_EMPRESA,
+REFERENCIA,
+TIPO,
+FECHA_REMESA,
+DESCRIPCION,
+ID_DATOS_BANCO,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+NOMBRE,
+ENTIDAD,
+SUCURSAL,
+DC,
+CUENTA,
+SUFIJO_N19,
+SUFIJO_N58,
+NUM_COPIAS,
+IMPORTE_TOTAL)
+ AS 
+SELECT
+  REMESAS_PROVEEDOR.ID,
+  REMESAS_PROVEEDOR.ID_EMPRESA,
+  REMESAS_PROVEEDOR.REFERENCIA,
+  REMESAS_PROVEEDOR.TIPO,
+  REMESAS_PROVEEDOR.FECHA_REMESA,
+  REMESAS_PROVEEDOR.DESCRIPCION,
+  REMESAS_PROVEEDOR.ID_DATOS_BANCO,
+  REMESAS_PROVEEDOR.FECHA_ALTA,
+  REMESAS_PROVEEDOR.FECHA_MODIFICACION,
+  REMESAS_PROVEEDOR.USUARIO,
+  EMPRESAS_DATOS_BANCO.NOMBRE,
+  EMPRESAS_DATOS_BANCO.ENTIDAD,
+  EMPRESAS_DATOS_BANCO.SUCURSAL,
+  EMPRESAS_DATOS_BANCO.DC,
+  EMPRESAS_DATOS_BANCO.CUENTA,
+  EMPRESAS_DATOS_BANCO.SUFIJO_N19,
+  EMPRESAS_DATOS_BANCO.SUFIJO_N58,
+  IMPRESIONES.NUM_COPIAS,
+  SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
+
+FROM
+  REMESAS_PROVEEDOR
+  LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO)
+  LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID)
+  LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)  
+  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = REMESAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'REMESASPROVEEDOR'))
+GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18;
+;
+
+
+/* Create index... */
+CREATE INDEX IMPRESIONES_IDX1 ON IMPRESIONES(ID_TABLA);
+
+CREATE INDEX IMPRESIONES_IDX2 ON IMPRESIONES(TABLA);
+
+/* Create Primary Key... */
+ALTER TABLE IMPRESIONES ADD CONSTRAINT PK_IMPRESIONES PRIMARY KEY (ID);
+
+
+CREATE VIEW V_AGENTES_COMISIONES_DET_FAC(
+ID_FACTURA,
+ID_EMPRESA,
+FECHA,
+REFERENCIA,
+SITUACION,
+ID_COMISION_LIQUIDADA,
+ID_CLIENTE,
+ID_AGENTE,
+ID_ARTICULO,
+ID_PROVEEDOR,
+IMPORTE_TOTAL,
+COMISION,
+IMPORTE_COMISION)
+ AS 
+SELECT V_FACTURAS_CLIENTE.ID,
+       V_FACTURAS_CLIENTE.ID_EMPRESA,
+       V_FACTURAS_CLIENTE.FECHA_FACTURA,
+       V_FACTURAS_CLIENTE.REFERENCIA,
+       V_FACTURAS_CLIENTE.SITUACION,
+       V_FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,
+       V_FACTURAS_CLIENTE.ID_CLIENTE,
+       V_FACTURAS_CLIENTE.ID_AGENTE,
+
+       FACTURAS_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.ID_PROVEEDOR,
+       FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL, COALESCE(AGENTES_COMISIONES.COMISION, 0) as COMISION,
+
+       (CASE COALESCE(AGENTES_COMISIONES.COMISION, 0) WHEN 0 THEN 0
+       ELSE ((FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL * AGENTES_COMISIONES.COMISION)/100) END) as IMPORTE_COMISION
+
+FROM V_FACTURAS_CLIENTE
+LEFT JOIN FACTURAS_CLIENTE_DETALLES ON (FACTURAS_CLIENTE_DETALLES.ID_FACTURA = V_FACTURAS_CLIENTE.ID)
+LEFT JOIN ARTICULOS ON (ARTICULOS.ID = FACTURAS_CLIENTE_DETALLES.ID_ARTICULO)
+LEFT JOIN AGENTES_COMISIONES ON ((AGENTES_COMISIONES.ID_AGENTE = V_FACTURAS_CLIENTE.ID_AGENTE)
+AND (AGENTES_COMISIONES.ID_PROVEEDOR = ARTICULOS.ID_PROVEEDOR))
+WHERE (FACTURAS_CLIENTE_DETALLES.TIPO_DETALLE = 'Concepto')
+AND (ARTICULOS.ID is not null)
+AND (ARTICULOS.COMISIONABLE = 1);
+;
diff --git a/Database/VISTAS.SQL b/Database/VISTAS.SQL
index f25a90ac..70eab00c 100644
--- a/Database/VISTAS.SQL
+++ b/Database/VISTAS.SQL
@@ -294,44 +294,46 @@ WHERE
   V_CONTACTOS.ID_CATEGORIA = 2;
   
   
+
 CREATE VIEW V_ALBARANES_PROVEEDOR(
-    ID,
-    ID_EMPRESA,
-    ID_PROVEEDOR,
-    NOMBRE,
-    FECHA_ALBARAN,
-    REFERENCIA,
-    REFERENCIA_PROVEEDOR,
-    TIPO,
-    ID_ALMACEN,
-    NOMBRE_ALMACEN,
-    ID_PEDIDO,
-    REF_PED_PROVEEDOR,
-    ID_FACTURA,
-    REF_FACTURA,
-    REF_FACTURA_PROV,
-    CALLE,
-    CODIGO_POSTAL,
-    POBLACION,
-    PROVINCIA,
-    PERSONA_CONTACTO,
-    TELEFONO,
-    IMPORTE_NETO,
-    IMPORTE_PORTE,
-    DESCUENTO,
-    IMPORTE_DESCUENTO,
-    BASE_IMPONIBLE,
-    IVA,
-    IMPORTE_IVA,
-    IMPORTE_TOTAL,
-    OBSERVACIONES,
-    INCIDENCIAS,
-    INCIDENCIAS_ACTIVAS,
-    FECHA_ALTA,
-    FECHA_MODIFICACION,
-    USUARIO,
-    ID_FORMA_PAGO)
-AS
+ID,
+ID_EMPRESA,
+ID_PROVEEDOR,
+NOMBRE,
+FECHA_ALBARAN,
+REFERENCIA,
+REFERENCIA_PROVEEDOR,
+TIPO,
+ID_ALMACEN,
+NOMBRE_ALMACEN,
+ID_PEDIDO,
+REF_PED_PROVEEDOR,
+ID_FACTURA,
+REF_FACTURA,
+REF_FACTURA_PROV,
+CALLE,
+CODIGO_POSTAL,
+POBLACION,
+PROVINCIA,
+PERSONA_CONTACTO,
+TELEFONO,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+BASE_IMPONIBLE,
+IVA,
+IMPORTE_IVA,
+IMPORTE_TOTAL,
+OBSERVACIONES,
+INCIDENCIAS,
+INCIDENCIAS_ACTIVAS,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+ID_FORMA_PAGO,
+NUM_COPIAS)
+ AS 
 SELECT
   ALBARANES_PROVEEDOR.ID,
   ALBARANES_PROVEEDOR.ID_EMPRESA,
@@ -368,13 +370,15 @@ SELECT
   ALBARANES_PROVEEDOR.FECHA_ALTA,
   ALBARANES_PROVEEDOR.FECHA_MODIFICACION,
   ALBARANES_PROVEEDOR.USUARIO,
-  ALBARANES_PROVEEDOR.ID_FORMA_PAGO
+  ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
+  IMPRESIONES.NUM_COPIAS
 FROM
   ALBARANES_PROVEEDOR
   INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
   LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO)
   LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA)
-  LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN);
+  LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN)
+  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR'));
 
 
 CREATE VIEW V_AGENTES(
@@ -579,36 +583,37 @@ group by ID_RECIBO_COMPENSADO;
 
 
 CREATE VIEW V_RECIBOS_CLIENTE(
-    ID,
-    ID_RECIBO_COMPENSADO,
-    REFERENCIA_REC_COMPENSADO,
-    REFERENCIA,
-    SITUACION,
-    ID_FACTURA,
-    ID_REMESA,
-    REFERENCIA_REMESA,
-    FECHA_EMISION,
-    FECHA_VENCIMIENTO,
-    DESCRIPCION,
-    OBSERVACIONES,
-    IMPORTE,
-    OTROS_GASTOS,
-    IMPORTE_TOTAL,
-    FECHA_FACTURA,
-    FORMA_PAGO_FACTURA,
-    IMPORTE_FACTURA,
-    ID_EMPRESA,
-    ID_CLIENTE,
-    NOMBRE_CLIENTE,
-    NIF_CIF_CLIENTE,
-    ENTIDAD_CLIENTE,
-    SUCURSAL_CLIENTE,
-    DC_CLIENTE,
-    CUENTA_CLIENTE,
-    FECHA_ALTA,
-    FECHA_MODIFICACION,
-    USUARIO)
-AS
+ID,
+ID_RECIBO_COMPENSADO,
+REFERENCIA_REC_COMPENSADO,
+REFERENCIA,
+SITUACION,
+ID_FACTURA,
+ID_REMESA,
+REFERENCIA_REMESA,
+FECHA_EMISION,
+FECHA_VENCIMIENTO,
+DESCRIPCION,
+OBSERVACIONES,
+IMPORTE,
+OTROS_GASTOS,
+IMPORTE_TOTAL,
+FECHA_FACTURA,
+FORMA_PAGO_FACTURA,
+IMPORTE_FACTURA,
+ID_EMPRESA,
+ID_CLIENTE,
+NOMBRE_CLIENTE,
+NIF_CIF_CLIENTE,
+ENTIDAD_CLIENTE,
+SUCURSAL_CLIENTE,
+DC_CLIENTE,
+CUENTA_CLIENTE,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+NUM_COPIAS)
+ AS 
 SELECT RECIBOS_CLIENTE.ID,
        RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
        RECIBO_COMPENSADO1.REFERENCIA,
@@ -632,7 +637,8 @@ SELECT RECIBOS_CLIENTE.ID,
 
        RECIBOS_CLIENTE.FECHA_ALTA,
        RECIBOS_CLIENTE.FECHA_MODIFICACION,
-       RECIBOS_CLIENTE.USUARIO
+       RECIBOS_CLIENTE.USUARIO,
+       IMPRESIONES.NUM_COPIAS
 
 FROM RECIBOS_CLIENTE
 LEFT JOIN V_REC_CLI_SITUACION
@@ -652,30 +658,32 @@ ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
 LEFT JOIN RECIBOS_CLIENTE RECIBO_COMPENSADO1
 ON (RECIBO_COMPENSADO1.ID = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
 LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2
-ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO);
+ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
+LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = RECIBOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'RECIBOSCLIENTE'));
 
 
 
 CREATE VIEW V_REMESAS_CLIENTE(
-    ID,
-    ID_EMPRESA,
-    REFERENCIA,
-    TIPO,
-    FECHA_REMESA,
-    DESCRIPCION,
-    ID_DATOS_BANCO,
-    FECHA_ALTA,
-    FECHA_MODIFICACION,
-    USUARIO,
-    NOMBRE,
-    ENTIDAD,
-    SUCURSAL,
-    DC,
-    CUENTA,
-    SUFIJO_N19,
-    SUFIJO_N58,
-    IMPORTE_TOTAL)
-AS
+ID,
+ID_EMPRESA,
+REFERENCIA,
+TIPO,
+FECHA_REMESA,
+DESCRIPCION,
+ID_DATOS_BANCO,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+NOMBRE,
+ENTIDAD,
+SUCURSAL,
+DC,
+CUENTA,
+SUFIJO_N19,
+SUFIJO_N58,
+NUM_COPIAS,
+IMPORTE_TOTAL)
+ AS 
 SELECT
   REMESAS_CLIENTE.ID,
   REMESAS_CLIENTE.ID_EMPRESA,
@@ -694,6 +702,7 @@ SELECT
   EMPRESAS_DATOS_BANCO.CUENTA,
   EMPRESAS_DATOS_BANCO.SUFIJO_N19,
   EMPRESAS_DATOS_BANCO.SUFIJO_N58,
+  IMPRESIONES.NUM_COPIAS,
   SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
 
 FROM
@@ -701,7 +710,8 @@ FROM
   LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO)
   LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID)
   LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
-GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17;
+  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = REMESAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'REMESASCLIENTE'))
+GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18;
 
 
 
@@ -773,38 +783,39 @@ GROUP BY ID_FACTURA;
 
 
 CREATE VIEW V_FACTURAS_PROVEEDOR(
-    ID,
-    ID_EMPRESA,
-    REFERENCIA,
-    TIPO,
-    REFERENCIA_PROVEEDOR,
-    FECHA_FACTURA,
-    SITUACION,
-    BASE_IMPONIBLE,
-    DESCUENTO,
-    IMPORTE_DESCUENTO,
-    IVA,
-    IMPORTE_IVA,
-    RE,
-    IMPORTE_RE,
-    IMPORTE_TOTAL,
-    OBSERVACIONES,
-    ID_PROVEEDOR,
-    NIF_CIF,
-    NOMBRE,
-    CALLE,
-    POBLACION,
-    PROVINCIA,
-    CODIGO_POSTAL,
-    FECHA_ALTA,
-    FECHA_MODIFICACION,
-    USUARIO,
-    ID_FORMA_PAGO,
-    RECARGO_EQUIVALENCIA,
-    ID_TIPO_IVA,
-    IMPORTE_NETO,
-    IMPORTE_PORTE)
-AS
+ID,
+ID_EMPRESA,
+REFERENCIA,
+TIPO,
+REFERENCIA_PROVEEDOR,
+FECHA_FACTURA,
+SITUACION,
+BASE_IMPONIBLE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+IVA,
+IMPORTE_IVA,
+RE,
+IMPORTE_RE,
+IMPORTE_TOTAL,
+OBSERVACIONES,
+ID_PROVEEDOR,
+NIF_CIF,
+NOMBRE,
+CALLE,
+POBLACION,
+PROVINCIA,
+CODIGO_POSTAL,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+ID_FORMA_PAGO,
+RECARGO_EQUIVALENCIA,
+ID_TIPO_IVA,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+NUM_COPIAS)
+ AS 
 SELECT FACTURAS_PROVEEDOR.ID,
   FACTURAS_PROVEEDOR.ID_EMPRESA,
   FACTURAS_PROVEEDOR.REFERENCIA,
@@ -835,49 +846,54 @@ SELECT FACTURAS_PROVEEDOR.ID,
   FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA,
   FACTURAS_PROVEEDOR.ID_TIPO_IVA,
   FACTURAS_PROVEEDOR.IMPORTE_NETO,
-  FACTURAS_PROVEEDOR.IMPORTE_PORTE
+  FACTURAS_PROVEEDOR.IMPORTE_PORTE,
+  IMPRESIONES.NUM_COPIAS
   FROM V_FAC_PRO_SITUACION
   LEFT JOIN FACTURAS_PROVEEDOR
   ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
   LEFT JOIN PROVEEDORES_DATOS
-  ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR);
+  ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
+  LEFT JOIN IMPRESIONES
+  ON ((IMPRESIONES.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'FACTURASPROVEEDOR'));
+
 
 
 CREATE VIEW V_FACTURAS_CLIENTE(
-    ID,
-    ID_EMPRESA,
-    REFERENCIA,
-    TIPO,
-    ID_COMISION_LIQUIDADA,
-    FECHA_FACTURA,
-    SITUACION,
-    BASE_IMPONIBLE,
-    DESCUENTO,
-    IMPORTE_DESCUENTO,
-    IVA,
-    IMPORTE_IVA,
-    RE,
-    IMPORTE_RE,
-    IMPORTE_TOTAL,
-    OBSERVACIONES,
-    ID_CLIENTE,
-    NIF_CIF,
-    NOMBRE,
-    CALLE,
-    POBLACION,
-    PROVINCIA,
-    CODIGO_POSTAL,
-    FECHA_ALTA,
-    FECHA_MODIFICACION,
-    USUARIO,
-    ID_FORMA_PAGO,
-    RECARGO_EQUIVALENCIA,
-    ID_TIPO_IVA,
-    IMPORTE_NETO,
-    IMPORTE_PORTE,
-    ID_AGENTE,
-    REFERENCIA_COMISION)
-AS
+ID,
+ID_EMPRESA,
+REFERENCIA,
+TIPO,
+ID_COMISION_LIQUIDADA,
+FECHA_FACTURA,
+SITUACION,
+BASE_IMPONIBLE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+IVA,
+IMPORTE_IVA,
+RE,
+IMPORTE_RE,
+IMPORTE_TOTAL,
+OBSERVACIONES,
+ID_CLIENTE,
+NIF_CIF,
+NOMBRE,
+CALLE,
+POBLACION,
+PROVINCIA,
+CODIGO_POSTAL,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+ID_FORMA_PAGO,
+RECARGO_EQUIVALENCIA,
+ID_TIPO_IVA,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+ID_AGENTE,
+REFERENCIA_COMISION,
+NUM_COPIAS)
+ AS 
 SELECT FACTURAS_CLIENTE.ID,
   FACTURAS_CLIENTE.ID_EMPRESA,
   FACTURAS_CLIENTE.REFERENCIA,
@@ -910,14 +926,18 @@ SELECT FACTURAS_CLIENTE.ID,
   FACTURAS_CLIENTE.IMPORTE_NETO,
   FACTURAS_CLIENTE.IMPORTE_PORTE,
   CLIENTES_DATOS.ID_AGENTE,
-  COMISIONES_LIQUIDADAS.REFERENCIA
+  COMISIONES_LIQUIDADAS.REFERENCIA,
+  IMPRESIONES.NUM_COPIAS
   FROM V_FAC_CLI_SITUACION
   LEFT JOIN FACTURAS_CLIENTE
   ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
   LEFT JOIN COMISIONES_LIQUIDADAS
   ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
   LEFT JOIN CLIENTES_DATOS
-  ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE);
+  ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
+  LEFT JOIN IMPRESIONES
+  ON ((IMPRESIONES.ID_TABLA = FACTURAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'FACTURASCLIENTE'));
+
 
 
 CREATE VIEW V_AGENTES_COMISIONES_DET_FAC(
@@ -974,49 +994,51 @@ SELECT ALBARANES_CLIENTE.ID,
   end as SITUACION
 FROM ALBARANES_CLIENTE;
 
+
 CREATE VIEW V_ALBARANES_CLIENTE(
-    ID,
-    ID_EMPRESA,
-    ID_CLIENTE,
-    NOMBRE,
-    FECHA_ALBARAN,
-    REFERENCIA,
-    REFERENCIA_CLIENTE,
-    TIPO,
-    SITUACION,
-    ID_ALMACEN,
-    NOMBRE_ALMACEN,
-    ID_PEDIDO,
-    REF_PEDIDO,
-    ID_FACTURA,
-    REF_FACTURA,
-    CALLE,
-    CODIGO_POSTAL,
-    POBLACION,
-    PROVINCIA,
-    PERSONA_CONTACTO,
-    TELEFONO,
-    IMPORTE_NETO,
-    IMPORTE_PORTE,
-    DESCUENTO,
-    IMPORTE_DESCUENTO,
-    BASE_IMPONIBLE,
-    IVA,
-    IMPORTE_IVA,
-    IMPORTE_TOTAL,
-    OBSERVACIONES,
-    INCIDENCIAS,
-    INCIDENCIAS_ACTIVAS,
-    FECHA_ALTA,
-    FECHA_MODIFICACION,
-    USUARIO,
-    ID_FORMA_PAGO,
-    FECHA_PREVISTA_ENVIO,
-    FECHA_ENVIO,
-    FECHA_RECEPCION,
-    ID_AGENTE,
-    AGENTE)
-AS
+ID,
+ID_EMPRESA,
+ID_CLIENTE,
+NOMBRE,
+FECHA_ALBARAN,
+REFERENCIA,
+REFERENCIA_CLIENTE,
+TIPO,
+SITUACION,
+ID_ALMACEN,
+NOMBRE_ALMACEN,
+ID_PEDIDO,
+REF_PEDIDO,
+ID_FACTURA,
+REF_FACTURA,
+CALLE,
+CODIGO_POSTAL,
+POBLACION,
+PROVINCIA,
+PERSONA_CONTACTO,
+TELEFONO,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+BASE_IMPONIBLE,
+IVA,
+IMPORTE_IVA,
+IMPORTE_TOTAL,
+OBSERVACIONES,
+INCIDENCIAS,
+INCIDENCIAS_ACTIVAS,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+ID_FORMA_PAGO,
+FECHA_PREVISTA_ENVIO,
+FECHA_ENVIO,
+FECHA_RECEPCION,
+ID_AGENTE,
+AGENTE,
+NUM_COPIAS)
+ AS 
 SELECT
   ALBARANES_CLIENTE.ID,
   ALBARANES_CLIENTE.ID_EMPRESA,
@@ -1058,7 +1080,8 @@ SELECT
   ALBARANES_CLIENTE.FECHA_ENVIO,
   ALBARANES_CLIENTE.FECHA_RECEPCION,
   CLIENTES_DATOS.ID_AGENTE,
-  AGENTES.NOMBRE
+  AGENTES.NOMBRE,
+  IMPRESIONES.NUM_COPIAS
 
 FROM
   ALBARANES_CLIENTE
@@ -1068,7 +1091,9 @@ FROM
   LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
   LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)
   LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA)
-  LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN);  
+  LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN)
+  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'));
+
 
 
 /*Agrupa los artículos de un mismo albarán (ya que en un albarán puede existir varias lineas con el mismo artículo).
@@ -1638,38 +1663,39 @@ group by id_pedido
 
 
 CREATE VIEW V_PEDIDOS_CLIENTE(
-    ID,
-    ID_EMPRESA,
-    ID_CLIENTE,
-    NOMBRE,
-    REFERENCIA,
-    REFERENCIA_CLIENTE,
-    SITUACION,
-    FECHA_PEDIDO,
-    CALLE,
-    CODIGO_POSTAL,
-    POBLACION,
-    PROVINCIA,
-    PERSONA_CONTACTO,
-    TELEFONO,
-    OBSERVACIONES,
-    INCIDENCIAS,
-    INCIDENCIAS_ACTIVAS,
-    FECHA_ALTA,
-    FECHA_MODIFICACION,
-    USUARIO,
-    IMPORTE_NETO,
-    IMPORTE_PORTE,
-    DESCUENTO,
-    IMPORTE_DESCUENTO,
-    BASE_IMPONIBLE,
-    IVA,
-    IMPORTE_IVA,
-    IMPORTE_TOTAL,
-    ID_FORMA_PAGO,
-	REF_TIENDA_WEB,
-	FECHA_PREVISTA_ENVIO)
-AS
+ID,
+ID_EMPRESA,
+ID_CLIENTE,
+NOMBRE,
+REFERENCIA,
+REFERENCIA_CLIENTE,
+SITUACION,
+FECHA_PEDIDO,
+CALLE,
+CODIGO_POSTAL,
+POBLACION,
+PROVINCIA,
+PERSONA_CONTACTO,
+TELEFONO,
+OBSERVACIONES,
+INCIDENCIAS,
+INCIDENCIAS_ACTIVAS,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+BASE_IMPONIBLE,
+IVA,
+IMPORTE_IVA,
+IMPORTE_TOTAL,
+ID_FORMA_PAGO,
+REF_TIENDA_WEB,
+FECHA_PREVISTA_ENVIO,
+NUM_COPIAS)
+ AS 
 SELECT
   PEDIDOS_CLIENTE.ID,
   PEDIDOS_CLIENTE.ID_EMPRESA,
@@ -1701,50 +1727,53 @@ SELECT
   PEDIDOS_CLIENTE.IMPORTE_TOTAL,
   PEDIDOS_CLIENTE.ID_FORMA_PAGO,
   PEDIDOS_CLIENTE.REF_TIENDA_WEB,
-  PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO
+  PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
+  IMPRESIONES.NUM_COPIAS
 FROM
   V_PED_CLI_SITUACION
   INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
-  INNER JOIN V_CLIENTES ON (PEDIDOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID);
+  INNER JOIN V_CLIENTES ON (PEDIDOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)
+  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'));
 
 
 CREATE VIEW V_PEDIDOS_PROVEEDOR(
-    ID,
-    ID_EMPRESA,
-    ID_PROVEEDOR,
-    NOMBRE,
-    REFERENCIA,
-    SITUACION,
-    FECHA_ENVIO,
-    FECHA_PEDIDO,
-    FECHA_CONFIRMACION,
-    FECHA_ENTREGA,
-    ID_ALMACEN,
-    NOMBRE_ALMACEN,
-    OBSERVACIONES,
-    IMPORTE_TOTAL,
-    INCIDENCIAS,
-    INCIDENCIAS_ACTIVAS,
-    CALLE,
-    POBLACION,
-    PROVINCIA,
-    CODIGO_POSTAL,
-    PERSONA_CONTACTO,
-    TELEFONO,
-    FECHA_ALTA,
-    FECHA_MODIFICACION,
-    USUARIO,
-    ID_PEDIDO_CLIENTE,
-    REF_PED_CLIENTE,
-    IMPORTE_NETO,
-    IMPORTE_PORTE,
-    DESCUENTO,
-    IMPORTE_DESCUENTO,
-    BASE_IMPONIBLE,
-    IVA,
-    IMPORTE_IVA,
-    ID_FORMA_PAGO)
-AS
+ID,
+ID_EMPRESA,
+ID_PROVEEDOR,
+NOMBRE,
+REFERENCIA,
+SITUACION,
+FECHA_ENVIO,
+FECHA_PEDIDO,
+FECHA_CONFIRMACION,
+FECHA_ENTREGA,
+ID_ALMACEN,
+NOMBRE_ALMACEN,
+OBSERVACIONES,
+IMPORTE_TOTAL,
+INCIDENCIAS,
+INCIDENCIAS_ACTIVAS,
+CALLE,
+POBLACION,
+PROVINCIA,
+CODIGO_POSTAL,
+PERSONA_CONTACTO,
+TELEFONO,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+ID_PEDIDO_CLIENTE,
+REF_PED_CLIENTE,
+IMPORTE_NETO,
+IMPORTE_PORTE,
+DESCUENTO,
+IMPORTE_DESCUENTO,
+BASE_IMPONIBLE,
+IVA,
+IMPORTE_IVA,
+ID_FORMA_PAGO,
+NUM_COPIAS)
+ AS 
 SELECT
   PEDIDOS_PROVEEDOR.ID,
   PEDIDOS_PROVEEDOR.ID_EMPRESA,
@@ -1780,30 +1809,15 @@ SELECT
   PEDIDOS_PROVEEDOR.BASE_IMPONIBLE,
   PEDIDOS_PROVEEDOR.IVA,
   PEDIDOS_PROVEEDOR.IMPORTE_IVA,
-  PEDIDOS_PROVEEDOR.ID_FORMA_PAGO
+  PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
+  IMPRESIONES.NUM_COPIAS
 FROM
   PEDIDOS_PROVEEDOR
   INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
   INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
   LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
-  LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE);
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+  LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
+  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = PEDIDOS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSPROVEEDOR'));
 
 
 
@@ -2268,25 +2282,26 @@ AND   (ARTICULOS.INVENTARIABLE = 1);
 
 
 CREATE VIEW V_REMESAS_PROVEEDOR(
-    ID,
-    ID_EMPRESA,
-    REFERENCIA,
-    TIPO,
-    FECHA_REMESA,
-    DESCRIPCION,
-    ID_DATOS_BANCO,
-    FECHA_ALTA,
-    FECHA_MODIFICACION,
-    USUARIO,
-    NOMBRE,
-    ENTIDAD,
-    SUCURSAL,
-    DC,
-    CUENTA,
-    SUFIJO_N19,
-    SUFIJO_N58,
-    IMPORTE_TOTAL)
-AS
+ID,
+ID_EMPRESA,
+REFERENCIA,
+TIPO,
+FECHA_REMESA,
+DESCRIPCION,
+ID_DATOS_BANCO,
+FECHA_ALTA,
+FECHA_MODIFICACION,
+USUARIO,
+NOMBRE,
+ENTIDAD,
+SUCURSAL,
+DC,
+CUENTA,
+SUFIJO_N19,
+SUFIJO_N58,
+NUM_COPIAS,
+IMPORTE_TOTAL)
+ AS 
 SELECT
   REMESAS_PROVEEDOR.ID,
   REMESAS_PROVEEDOR.ID_EMPRESA,
@@ -2305,14 +2320,17 @@ SELECT
   EMPRESAS_DATOS_BANCO.CUENTA,
   EMPRESAS_DATOS_BANCO.SUFIJO_N19,
   EMPRESAS_DATOS_BANCO.SUFIJO_N58,
-  SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL  
+  IMPRESIONES.NUM_COPIAS,
+  SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
 
 FROM
   REMESAS_PROVEEDOR
   LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO)
   LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID)
   LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)  
-GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17;
+  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = REMESAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'REMESASPROVEEDOR'))
+GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18;
+
 
 
 /*Vista para ver para quien estan reservados los articulos del inventario*/
diff --git a/Database/factuges.sql b/Database/factuges.sql
index 31ab936e..49065785 100644
--- a/Database/factuges.sql
+++ b/Database/factuges.sql
@@ -60,6 +60,7 @@ VARCHAR(20);
 /****                              Generators                              ****/
 /******************************************************************************/
 
+CREATE GENERATOR GEN_IMPRESIONES_ID;
 CREATE GENERATOR GEN_AGENTES_COMISIONES_ID;
 CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID;
 CREATE GENERATOR GEN_ALBARANES_CLI_ID;
@@ -105,6 +106,12 @@ CREATE GENERATOR GEN_USUARIOS_ID;
 /****                                Tables                                ****/
 /******************************************************************************/
 
+CREATE TABLE IMPRESIONES(
+ID TIPO_ID NOT NULL,
+ID_TABLA TIPO_ID,
+TABLA VARCHAR(50) COLLATE ES_ES,
+NUM_COPIAS SMALLINT
+);
 
 
 CREATE TABLE AGENTES_COMISIONES (
@@ -989,6 +996,7 @@ SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 80;
 /****                             Primary Keys                             ****/
 /******************************************************************************/
 
+ALTER TABLE IMPRESIONES ADD CONSTRAINT PK_IMPRESIONES PRIMARY KEY (ID);
 ALTER TABLE AGENTES_COMISIONES ADD CONSTRAINT PK_AGENTES_COMISIONES PRIMARY KEY (ID);
 ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT PK_ALBARAN_CLIENTE PRIMARY KEY (ID);
 ALTER TABLE ALBARANES_CLIENTE_DETALLES ADD CONSTRAINT PK_ALBARANES_CLIENTE_DETALLES PRIMARY KEY (ID);
@@ -1077,6 +1085,8 @@ ALTER TABLE TIENDA_WEB ADD CONSTRAINT FK_EMPRESAS_TIENDA_WEB FOREIGN KEY (ID_EMP
 /****                               Indices                                ****/
 /******************************************************************************/
 
+CREATE INDEX IMPRESIONES_IDX1 ON IMPRESIONES(ID_TABLA);
+CREATE INDEX IMPRESIONES_IDX2 ON IMPRESIONES(TABLA);
 CREATE INDEX IDX_AGENTES_COMISIONES1 ON AGENTES_COMISIONES (ID_AGENTE);
 CREATE INDEX IDX_AGENTES_COMISIONES2 ON AGENTES_COMISIONES (ID_PROVEEDOR);
 CREATE INDEX ALBARANES_CLIENTE_IDX1 ON ALBARANES_CLIENTE (TIPO);
@@ -1648,3 +1658,31 @@ end
 
 
 SET TERM ; ^
+
+
+CREATE PROCEDURE PRO_ANADIR_MARCA_IMPRESION (
+    tabla varchar(255),
+    id_tabla integer)
+as
+declare variable id integer;
+begin
+  select ID
+  from IMPRESIONES
+  where ID_TABLA = :ID_TABLA
+  and TABLA = UPPER(:TABLA)
+  into :ID;
+
+  /*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemetno*/
+  if (ID > 0) then
+  begin
+    update IMPRESIONES
+    set NUM_COPIAS = NUM_COPIAS + 1
+    where ID = :ID;
+  end
+  else
+  begin
+    insert into IMPRESIONES (ID, TABLA, ID_TABLA, NUM_COPIAS)
+    values (GEN_ID(GEN_IMPRESIONES_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
+  end
+  suspend;
+end;
\ No newline at end of file
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Base/GUIBase/uEditorPreview.pas b/Source/Base/GUIBase/uEditorPreview.pas
index 41aaff56..9cdda95d 100644
--- a/Source/Base/GUIBase/uEditorPreview.pas
+++ b/Source/Base/GUIBase/uEditorPreview.pas
@@ -19,7 +19,7 @@ type
     property Report: TfrxReport read GetReport;
     procedure LoadFromStream(AStream : TStream);
     function ExportToFile : String;
-    procedure Print;
+    function Print: Boolean;
     procedure Preview;
 
     function GetTablaImpresion: String;
@@ -106,6 +106,7 @@ type
     procedure actPrimeraPaginaUpdate(Sender: TObject);
     procedure actPaginaAnteriorUpdate(Sender: TObject);
   private
+    FVariable: Boolean;
     FPreview : TfrViewPreview;
     procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer);
     procedure UpdateZoom;
@@ -126,7 +127,7 @@ type
 
     constructor Create(AOwner: TComponent); override;
     property Report: TfrxReport read GetReport;
-    procedure Print;
+    function Print: Boolean;
     procedure Preview;
     procedure LoadFromStream(AStream : TStream);
     function ExportToFile : String;
@@ -315,7 +316,9 @@ end;
 
 procedure TfEditorPreview.OnPrint(Sender: Tobject);
 begin
-  dmImpresiones.AnadirMarcaImpresion(TablaImpresion, IdTablaImpresion);
+  FVariable := True;
+  if (FTablaImpresion <> '-1') and (FIdTablaImpresion <> '-1') then
+     dmImpresiones.AnadirMarcaImpresion(TablaImpresion, IdTablaImpresion);
 end;
 
 constructor TfEditorPreview.Create(AOwner: TComponent);
@@ -347,15 +350,18 @@ begin
   Self.ShowModal;
 end;
 
-procedure TfEditorPreview.Print;
+function TfEditorPreview.Print: Boolean;
 begin
-  FPreview.Preview.Report.OnPrintReport := onprint;
+  FVariable := False;
+  FPreview.Preview.Report.OnPrintReport := OnPrint;
 
   if not frxPrinters.HasPhysicalPrinters then
     frxErrorMsg(frxResources.Get('clNoPrinters'))
   else
     FPreview.Preview.Print;
+
   Enabled := True;
+  Result := FVariable;
 end;
 
 procedure TfEditorPreview.SetIdTablaImpresion(Value: String);
diff --git a/Source/Base/GUIBase/uViewGridBase.pas b/Source/Base/GUIBase/uViewGridBase.pas
index 2e87530d..d79d0b04 100644
--- a/Source/Base/GUIBase/uViewGridBase.pas
+++ b/Source/Base/GUIBase/uViewGridBase.pas
@@ -36,6 +36,8 @@ type
 
     procedure SaveGridStatus;
     procedure RestoreGridStatus;
+    procedure DesactivarGrid;
+    procedure ActivarGrid;
 
     procedure GotoFirst;
     procedure GotoLast;
@@ -136,6 +138,8 @@ type
 
     procedure SaveGridStatus;
     procedure RestoreGridStatus;
+    procedure DesactivarGrid;
+    procedure ActivarGrid;
 
     procedure GotoFirst;
     procedure GotoLast;
@@ -145,7 +149,7 @@ type
 
     function Locate(const AItemIndex: Integer; const AValue: String;
       const APartialCompare: Boolean = False) : Boolean;
-    
+
     property Filter: string read GetFilter write SetFilter;
     property Filtered : Boolean read GetFiltered;
 
@@ -177,6 +181,12 @@ end;
 
 { TfrViewGrid }
 
+procedure TfrViewGridBase.ActivarGrid;
+begin
+  if Assigned(_FocusedView) then
+     _FocusedView.EndUpdate;
+end;
+
 procedure TfrViewGridBase.AjustarAncho;
 begin
   if Assigned(_FocusedView) then
@@ -431,6 +441,12 @@ begin
 //
 end;
 
+procedure TfrViewGridBase.DesactivarGrid;
+begin
+  if Assigned(_FocusedView) then
+    _FocusedView.BeginUpdate;
+end;
+
 destructor TfrViewGridBase.Destroy;
 begin
   FOnFilterChanged := Nil;
diff --git a/Source/Cliente/FactuGES.bdsproj b/Source/Cliente/FactuGES.bdsproj
index 8b558b2c..cf225069 100644
--- a/Source/Cliente/FactuGES.bdsproj
+++ b/Source/Cliente/FactuGES.bdsproj
@@ -149,7 +149,7 @@
 			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
 			<VersionInfo Name="MajorVer">3</VersionInfo>
 			<VersionInfo Name="MinorVer">0</VersionInfo>
-			<VersionInfo Name="Release">3</VersionInfo>
+			<VersionInfo Name="Release">5</VersionInfo>
 			<VersionInfo Name="Build">0</VersionInfo>
 			<VersionInfo Name="Debug">False</VersionInfo>
 			<VersionInfo Name="PreRelease">False</VersionInfo>
@@ -162,13 +162,13 @@
 		<VersionInfoKeys>
 			<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
 			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-			<VersionInfoKeys Name="FileVersion">3.0.3.0</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.5.0</VersionInfoKeys>
 			<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
 			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
 			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
 			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-			<VersionInfoKeys Name="ProductVersion">3.0.3.0</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">3.0.5.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>  <Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index c3f95ae4..6a4931db 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 3,0,3,0
-PRODUCTVERSION 3,0,3,0
+FILEVERSION 3,0,5,0
+PRODUCTVERSION 3,0,5,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,9 +13,9 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "3.0.3.0\0"
+              VALUE "FileVersion", "3.0.5.0\0"
               VALUE "InternalName", "FactuGES\0"
-              VALUE "ProductVersion", "3.0.3.0\0"
+              VALUE "ProductVersion", "3.0.5.0\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 56e9f0ab..69629f0e 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Iconos/fac.png b/Source/Iconos/fac.png
deleted file mode 100644
index 35374432..00000000
Binary files a/Source/Iconos/fac.png and /dev/null differ
diff --git a/Source/Iconos/no_comisionable.png b/Source/Iconos/no_comisionable.png
new file mode 100644
index 00000000..187e6add
Binary files /dev/null and b/Source/Iconos/no_comisionable.png differ
diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.bdsproj b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.bdsproj
index f7310459..cca165d5 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.bdsproj	
+++ b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.bdsproj	
@@ -172,7 +172,7 @@
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>
 	</Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=1
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
index 6eaec2f3..75680c4a 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
@@ -6,7 +6,8 @@ interface
 uses
   SysUtils, uDADataTable, uEditorDBItem,
   uControllerBase, uIDataModuleAlbaranesCliente, uClientesController,
-  uDetallesAlbaranClienteController, uBizAlbaranesCliente, uBizDireccionesContacto;
+  uDetallesAlbaranClienteController, uBizAlbaranesCliente, uBizDireccionesContacto,
+  uViewGridBase;
 
 type
   IAlbaranesClienteController = interface(IObservador)
@@ -39,11 +40,11 @@ type
     function Existe(const ID: Integer) : Boolean;
     function Duplicar(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
 
-    function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
+    function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranCliente;
     function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
 
     procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
-    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
+    function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
     procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
 
@@ -119,7 +120,7 @@ type
       AAlbaran: IBizAlbaranCliente);
 
     procedure QuitarDireccionEnvio(AAlbaran: IBizAlbaranCliente);
-    function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
+    function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranCliente;
     function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
 
     procedure RecuperarCliente(AAlbaran : IBizAlbaranCliente);
@@ -137,7 +138,7 @@ type
       DoPost: Boolean = True) : Boolean;
 
     procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
-    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
+    function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
     procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
   end;
@@ -817,13 +818,26 @@ begin
   end;
 end;
 
-function TAlbaranesClienteController.ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
+function TAlbaranesClienteController.ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil): IBizAlbaranCliente;
 var
   ASeleccionados : IBizAlbaranCliente;
 begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranCliente);
   CopyDataTable(AAlbaran.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
 end;
 
 procedure TAlbaranesClienteController.FiltrarEmpresa(
@@ -963,12 +977,13 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
+function TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
 var
   AReportController : IAlbaranesClienteReportController;
   ID_Albaranes: TStringList;
 
 begin
+  Result := False;
   AReportController := TAlbaranesClienteReportController.Create;
   try
    ID_Albaranes := TStringList.Create;
@@ -990,7 +1005,7 @@ begin
    else
      ID_Albaranes.Add(IntToStr(AAlbaran.ID));
 
-    AReportController.Print(ID_Albaranes.CommaText);
+    Result := AReportController.Print(ID_Albaranes.CommaText);
 
   finally
     AReportController := NIL;
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
index 12f8eb7c..fe746ba5 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas	
@@ -11,7 +11,7 @@ type
   IAlbaranesClienteReportController = interface
   ['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
     procedure Preview(const AID : String);
-    procedure Print(const AID : String);
+    function Print(const AID : String): Boolean;
     procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
   end;
@@ -26,7 +26,7 @@ type
     destructor Destroy; override;
 
     procedure Preview(const AID : String);
-    procedure Print(const AID : String);
+    function Print(const AID : String): Boolean;
     procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean);
     procedure EtiquetasPrint(const AID : integer; const withRefCliente: Boolean);
   end;
@@ -36,7 +36,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorAlbaranesClientePreview,
-  uEditorPreview, uDataModuleAlbaranesCliente, uEditorBase, cxControls;
+  uEditorPreview, uDataModuleAlbaranesCliente, uEditorBase, cxControls,
+  schAlbaranesClienteClient_Intf;
 
 { TAlbaranesClienteReportController }
 
@@ -130,11 +131,12 @@ begin
     AEditor.Preview;
 end;
 
-procedure TAlbaranesClienteReportController.Print(const AID : String);
+function TAlbaranesClienteReportController.Print(const AID : String): Boolean;
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesClientePreview;
 begin
+  Result := False;
   AEditor := NIL;
 
   ShowHourglassCursor;
@@ -151,7 +153,11 @@ begin
   end;
 
   if Assigned(AEditor) then
-    AEditor.Print
+  begin
+    AEditor.TablaImpresion := nme_AlbaranesCliente;
+    AEditor.IdTablaImpresion := AID;
+    Result := AEditor.Print;
+  end;
 end;
 
 end.
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
index 7616fd38..a619f05b 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas	
@@ -9,7 +9,7 @@ uses
 type
   IDetallesAlbaranClienteController = interface(IControllerDetallesArticulos)
   ['{6AD99D47-2856-47B1-9620-DD115726B0E1}']
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
     procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
     function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
@@ -31,7 +31,7 @@ type
     function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
 
   public
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
     constructor Create; override;
     destructor Destroy; override;
@@ -60,7 +60,7 @@ begin
   end;
 end;
 
-procedure TDetallesAlbaranClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente);
+procedure TDetallesAlbaranClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1);
 var
   AArticulos: IBizArticulo;
 begin
@@ -68,8 +68,19 @@ begin
   begin
     try
       AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
-      AArticulos := (FArticulosController as IArticulosAlbaranClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este albarán de cliente', True);
-      Add(ADetalles, AArticulos);
+
+      //Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
+      if ANuevaFila then
+      begin
+        AArticulos := (FArticulosController as IArticulosAlbaranClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este albarán de cliente', True);
+        Add(ADetalles, AArticulos, ACantidad)
+      end
+      else
+      begin
+        AArticulos := (FArticulosController as IArticulosAlbaranClienteController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a este albarán de cliente', False);
+        RellenarDetalle(ADetalles, AArticulos, ACantidad);
+      end;
+
     finally
       AArticulos := Nil;
     end;
diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
index 18ee0d51..7258c4c1 100644
--- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm	
@@ -614,6 +614,17 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
         Calculated = False
         Lookup = False
         LookupCache = False
+      end
+      item
+        Name = 'NUM_COPIAS'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
       end>
     Params = <>
     MasterMappingMode = mmDataRequest
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
index 832aa03e..0a321e0a 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas	
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas	
@@ -9,11 +9,11 @@ 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_DarReferencia = '{082B0C4D-3177-4BB4-B3B3-768B55A2D4CD}';
-  RID_AlbaranesCliente = '{3BDADEA6-ACB7-4E6F-8877-8634A2F4B4FB}';
-  RID_AlbaranesCliente_Detalles = '{0ACEBB64-A4A0-410C-BA50-BE62510542C0}';
-  RID_AlbaranesCliente_Detalles_Refresh = '{0E3B100E-D70D-41C4-BC7C-D53C5C732E65}';
-  RID_AlbaranesCliente_Refresh = '{19951F6E-3BFD-4195-A2F3-0D66AAC9B375}';
+  RID_DarReferencia = '{DCC75E0A-1413-4F74-8EF2-D5261717689F}';
+  RID_AlbaranesCliente = '{BD15D29D-2048-44B3-BE79-0485BDB36C8E}';
+  RID_AlbaranesCliente_Detalles = '{4CA5BC9A-72EA-4187-BD2E-A9EF5BAAF24E}';
+  RID_AlbaranesCliente_Detalles_Refresh = '{9F94485D-D822-4622-A4C0-30D76050FD48}';
+  RID_AlbaranesCliente_Refresh = '{2CF53053-8A71-4901-80B3-3527508FD486}';
 
   { Data table names }
   nme_DarReferencia = 'DarReferencia';
@@ -70,6 +70,7 @@ const
   fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
   fld_AlbaranesClienteID_AGENTE = 'ID_AGENTE';
   fld_AlbaranesClienteAGENTE = 'AGENTE';
+  fld_AlbaranesClienteNUM_COPIAS = 'NUM_COPIAS';
 
   { AlbaranesCliente field indexes }
   idx_AlbaranesClienteID = 0;
@@ -113,6 +114,7 @@ const
   idx_AlbaranesClienteFECHA_RECEPCION = 38;
   idx_AlbaranesClienteID_AGENTE = 39;
   idx_AlbaranesClienteAGENTE = 40;
+  idx_AlbaranesClienteNUM_COPIAS = 41;
 
   { AlbaranesCliente_Detalles fields }
   fld_AlbaranesCliente_DetallesID = 'ID';
@@ -224,6 +226,7 @@ const
   fld_AlbaranesCliente_RefreshFECHA_RECEPCION = 'FECHA_RECEPCION';
   fld_AlbaranesCliente_RefreshID_AGENTE = 'ID_AGENTE';
   fld_AlbaranesCliente_RefreshAGENTE = 'AGENTE';
+  fld_AlbaranesCliente_RefreshNUM_COPIAS = 'NUM_COPIAS';
 
   { AlbaranesCliente_Refresh field indexes }
   idx_AlbaranesCliente_RefreshID = 0;
@@ -267,11 +270,12 @@ const
   idx_AlbaranesCliente_RefreshFECHA_RECEPCION = 38;
   idx_AlbaranesCliente_RefreshID_AGENTE = 39;
   idx_AlbaranesCliente_RefreshAGENTE = 40;
+  idx_AlbaranesCliente_RefreshNUM_COPIAS = 41;
 
 type
   { IDarReferencia }
   IDarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{7E399946-10F5-4182-AF9A-88118707303F}']
+  ['{569D59FB-01EC-4F5E-B15D-B32F804F2345}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -300,7 +304,7 @@ type
 
   { IAlbaranesCliente }
   IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
-  ['{A9F7185C-D38D-4987-8371-EAAABA04D66F}']
+  ['{121684CB-5C66-4812-9536-EAD43E7D4B71}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -384,6 +388,8 @@ type
     procedure SetID_AGENTEValue(const aValue: Integer);
     function GetAGENTEValue: String;
     procedure SetAGENTEValue(const aValue: String);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
 
 
     { Properties }
@@ -428,6 +434,7 @@ type
     property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
     property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
     property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
   end;
 
   { TAlbaranesClienteDataTableRules }
@@ -517,6 +524,8 @@ type
     procedure SetID_AGENTEValue(const aValue: Integer); virtual;
     function GetAGENTEValue: String; virtual;
     procedure SetAGENTEValue(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -560,6 +569,7 @@ type
     property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
     property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
     property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -569,7 +579,7 @@ type
 
   { IAlbaranesCliente_Detalles }
   IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{B10831B5-8141-4090-8D71-0F09742F86ED}']
+  ['{0D42AFD8-9D02-42A7-A52E-4BD1087377C2}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -682,7 +692,7 @@ type
 
   { IAlbaranesCliente_Detalles_Refresh }
   IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{48F905D6-3C7F-4E0F-9E48-8B91954739ED}']
+  ['{370021CC-EFF6-465B-9577-8DD5FFB6F162}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -795,7 +805,7 @@ type
 
   { IAlbaranesCliente_Refresh }
   IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{D51B67F3-2EC6-46BC-82F7-B2BE93663E91}']
+  ['{20F45447-E91C-4B75-9381-526433477CD7}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -879,6 +889,8 @@ type
     procedure SetID_AGENTEValue(const aValue: Integer);
     function GetAGENTEValue: String;
     procedure SetAGENTEValue(const aValue: String);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
 
 
     { Properties }
@@ -923,6 +935,7 @@ type
     property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
     property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
     property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
   end;
 
   { TAlbaranesCliente_RefreshDataTableRules }
@@ -1012,6 +1025,8 @@ type
     procedure SetID_AGENTEValue(const aValue: Integer); virtual;
     function GetAGENTEValue: String; virtual;
     procedure SetAGENTEValue(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -1055,6 +1070,7 @@ type
     property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
     property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
     property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1511,6 +1527,16 @@ begin
   DataTable.Fields[idx_AlbaranesClienteAGENTE].AsString := aValue;
 end;
 
+function TAlbaranesClienteDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_AlbaranesClienteNUM_COPIAS].AsInteger;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_AlbaranesClienteNUM_COPIAS].AsInteger := aValue;
+end;
+
 
 { TAlbaranesCliente_DetallesDataTableRules }
 constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@@ -2259,6 +2285,16 @@ begin
   DataTable.Fields[idx_AlbaranesCliente_RefreshAGENTE].AsString := aValue;
 end;
 
+function TAlbaranesCliente_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_AlbaranesCliente_RefreshNUM_COPIAS].AsInteger;
+end;
+
+procedure TAlbaranesCliente_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_AlbaranesCliente_RefreshNUM_COPIAS].AsInteger := aValue;
+end;
+
 
 initialization
   RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
index f55599b9..886cd159 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas	
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas	
@@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{3D8FD5D2-A886-493F-8792-FF470F196654}';
-  RID_AlbaranesClienteDelta = '{B423BC9B-11C5-4CD6-B4DE-15BD0746B77F}';
-  RID_AlbaranesCliente_DetallesDelta = '{07D56912-3A90-4AB6-A546-53E07A7F32FA}';
-  RID_AlbaranesCliente_Detalles_RefreshDelta = '{180849FA-AF37-4138-A0D9-B89C55E94A4D}';
-  RID_AlbaranesCliente_RefreshDelta = '{53C27CD8-3116-4171-97EE-4DDD39E6DFF3}';
+  RID_DarReferenciaDelta = '{BB048978-E82B-4CB5-9C1D-7107E5F17BB1}';
+  RID_AlbaranesClienteDelta = '{D5AF214C-6088-4F9D-B3AD-31F0331285DE}';
+  RID_AlbaranesCliente_DetallesDelta = '{2BB9CAA9-9328-4A65-BE4C-B06D2B48303A}';
+  RID_AlbaranesCliente_Detalles_RefreshDelta = '{E0DD7094-E6BE-4AB9-B6F6-DD1989A64904}';
+  RID_AlbaranesCliente_RefreshDelta = '{036CCB6F-FFF2-4369-8F75-FE0D068481B6}';
 
 type
   { IDarReferenciaDelta }
   IDarReferenciaDelta = interface(IDarReferencia)
-  ['{3D8FD5D2-A886-493F-8792-FF470F196654}']
+  ['{BB048978-E82B-4CB5-9C1D-7107E5F17BB1}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -47,7 +47,7 @@ type
 
   { IAlbaranesClienteDelta }
   IAlbaranesClienteDelta = interface(IAlbaranesCliente)
-  ['{B423BC9B-11C5-4CD6-B4DE-15BD0746B77F}']
+  ['{D5AF214C-6088-4F9D-B3AD-31F0331285DE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -90,6 +90,7 @@ type
     function GetOldFECHA_RECEPCIONValue : DateTime;
     function GetOldID_AGENTEValue : Integer;
     function GetOldAGENTEValue : String;
+    function GetOldNUM_COPIASValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -133,6 +134,7 @@ type
     property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
     property OldAGENTE : String read GetOldAGENTEValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
   end;
 
   { TAlbaranesClienteBusinessProcessorRules }
@@ -263,6 +265,9 @@ type
     function GetAGENTEValue: String; virtual;
     function GetOldAGENTEValue: String; virtual;
     procedure SetAGENTEValue(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -347,6 +352,8 @@ type
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
     property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
     property OldAGENTE : String read GetOldAGENTEValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -356,7 +363,7 @@ type
 
   { IAlbaranesCliente_DetallesDelta }
   IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
-  ['{07D56912-3A90-4AB6-A546-53E07A7F32FA}']
+  ['{2BB9CAA9-9328-4A65-BE4C-B06D2B48303A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ALBARANValue : Integer;
@@ -483,7 +490,7 @@ type
 
   { IAlbaranesCliente_Detalles_RefreshDelta }
   IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
-  ['{180849FA-AF37-4138-A0D9-B89C55E94A4D}']
+  ['{E0DD7094-E6BE-4AB9-B6F6-DD1989A64904}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ALBARANValue : Integer;
@@ -610,7 +617,7 @@ type
 
   { IAlbaranesCliente_RefreshDelta }
   IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
-  ['{53C27CD8-3116-4171-97EE-4DDD39E6DFF3}']
+  ['{036CCB6F-FFF2-4369-8F75-FE0D068481B6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -653,6 +660,7 @@ type
     function GetOldFECHA_RECEPCIONValue : DateTime;
     function GetOldID_AGENTEValue : Integer;
     function GetOldAGENTEValue : String;
+    function GetOldNUM_COPIASValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -696,6 +704,7 @@ type
     property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
     property OldAGENTE : String read GetOldAGENTEValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
   end;
 
   { TAlbaranesCliente_RefreshBusinessProcessorRules }
@@ -826,6 +835,9 @@ type
     function GetAGENTEValue: String; virtual;
     function GetOldAGENTEValue: String; virtual;
     procedure SetAGENTEValue(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -910,6 +922,8 @@ type
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
     property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
     property OldAGENTE : String read GetOldAGENTEValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1579,6 +1593,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE] := aValue;
 end;
 
+function TAlbaranesClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_COPIAS];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNUM_COPIAS];
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_COPIAS] := aValue;
+end;
+
 
 { TAlbaranesCliente_DetallesBusinessProcessorRules }
 constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -2684,6 +2713,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE] := aValue;
 end;
 
+function TAlbaranesCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS];
+end;
+
+function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS];
+end;
+
+procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS] := aValue;
+end;
+
 
 initialization
   RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
index 63ea4c15..3753f75a 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm	
@@ -79,7 +79,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               'TOTAL, OBSERVACIONES, '#10'    INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
               'HA_ALTA,'#10'    FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
               'REVISTA_ENVIO, FECHA_ENVIO,'#10'    FECHA_RECEPCION, ID_AGENTE, AGEN' +
-              'TE'#10'  FROM'#10'    V_ALBARANES_CLIENTE'
+              'TE, NUM_COPIAS'#10'  FROM'#10'    V_ALBARANES_CLIENTE'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -106,6 +106,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
                 DatasetField = 'ID_PEDIDO'
                 TableField = 'ID_PEDIDO'
               end
+              item
+                DatasetField = 'REFERENCIA_CLIENTE'
+                TableField = 'REFERENCIA_CLIENTE'
+              end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
               item
                 DatasetField = 'SITUACION'
                 TableField = 'SITUACION'
@@ -114,14 +122,26 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
                 DatasetField = 'ID_ALMACEN'
                 TableField = 'ID_ALMACEN'
               end
+              item
+                DatasetField = 'NOMBRE_ALMACEN'
+                TableField = 'NOMBRE_ALMACEN'
+              end
               item
                 DatasetField = 'ID_FACTURA'
                 TableField = 'ID_FACTURA'
               end
+              item
+                DatasetField = 'REF_PEDIDO'
+                TableField = 'REF_PEDIDO'
+              end
               item
                 DatasetField = 'CALLE'
                 TableField = 'CALLE'
               end
+              item
+                DatasetField = 'REF_FACTURA'
+                TableField = 'REF_FACTURA'
+              end
               item
                 DatasetField = 'CODIGO_POSTAL'
                 TableField = 'CODIGO_POSTAL'
@@ -206,6 +226,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
                 DatasetField = 'ID_FORMA_PAGO'
                 TableField = 'ID_FORMA_PAGO'
               end
+              item
+                DatasetField = 'FECHA_PREVISTA_ENVIO'
+                TableField = 'FECHA_PREVISTA_ENVIO'
+              end
               item
                 DatasetField = 'FECHA_ENVIO'
                 TableField = 'FECHA_ENVIO'
@@ -215,28 +239,16 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
                 TableField = 'FECHA_RECEPCION'
               end
               item
-                DatasetField = 'REF_PEDIDO'
-                TableField = 'REF_PEDIDO'
+                DatasetField = 'ID_AGENTE'
+                TableField = 'ID_AGENTE'
               end
               item
-                DatasetField = 'REF_FACTURA'
-                TableField = 'REF_FACTURA'
+                DatasetField = 'AGENTE'
+                TableField = 'AGENTE'
               end
               item
-                DatasetField = 'NOMBRE_ALMACEN'
-                TableField = 'NOMBRE_ALMACEN'
-              end
-              item
-                DatasetField = 'FECHA_PREVISTA_ENVIO'
-                TableField = 'FECHA_PREVISTA_ENVIO'
-              end
-              item
-                DatasetField = 'TIPO'
-                TableField = 'TIPO'
-              end
-              item
-                DatasetField = 'REFERENCIA_CLIENTE'
-                TableField = 'REFERENCIA_CLIENTE'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'AlbaranesCliente'
@@ -666,6 +678,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -1193,8 +1216,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               'TOTAL, OBSERVACIONES, '#10'    INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
               'HA_ALTA,'#10'    FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
               'REVISTA_ENVIO, FECHA_ENVIO,'#10'    FECHA_RECEPCION, ID_AGENTE, AGEN' +
-              'TE'#10'  FROM'#10'    V_ALBARANES_CLIENTE'#10'  WHERE V_ALBARANES_CLIENTE.ID' +
-              ' = :ID'
+              'TE, NUM_COPIAS'#10'  FROM'#10'    V_ALBARANES_CLIENTE'#10'  WHERE V_ALBARANE' +
+              'S_CLIENTE.ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -1221,6 +1244,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
                 DatasetField = 'ID_PEDIDO'
                 TableField = 'ID_PEDIDO'
               end
+              item
+                DatasetField = 'REFERENCIA_CLIENTE'
+                TableField = 'REFERENCIA_CLIENTE'
+              end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
               item
                 DatasetField = 'SITUACION'
                 TableField = 'SITUACION'
@@ -1229,14 +1260,26 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
                 DatasetField = 'ID_ALMACEN'
                 TableField = 'ID_ALMACEN'
               end
+              item
+                DatasetField = 'NOMBRE_ALMACEN'
+                TableField = 'NOMBRE_ALMACEN'
+              end
               item
                 DatasetField = 'ID_FACTURA'
                 TableField = 'ID_FACTURA'
               end
+              item
+                DatasetField = 'REF_PEDIDO'
+                TableField = 'REF_PEDIDO'
+              end
               item
                 DatasetField = 'CALLE'
                 TableField = 'CALLE'
               end
+              item
+                DatasetField = 'REF_FACTURA'
+                TableField = 'REF_FACTURA'
+              end
               item
                 DatasetField = 'CODIGO_POSTAL'
                 TableField = 'CODIGO_POSTAL'
@@ -1321,6 +1364,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
                 DatasetField = 'ID_FORMA_PAGO'
                 TableField = 'ID_FORMA_PAGO'
               end
+              item
+                DatasetField = 'FECHA_PREVISTA_ENVIO'
+                TableField = 'FECHA_PREVISTA_ENVIO'
+              end
               item
                 DatasetField = 'FECHA_ENVIO'
                 TableField = 'FECHA_ENVIO'
@@ -1330,28 +1377,16 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
                 TableField = 'FECHA_RECEPCION'
               end
               item
-                DatasetField = 'REF_PEDIDO'
-                TableField = 'REF_PEDIDO'
+                DatasetField = 'ID_AGENTE'
+                TableField = 'ID_AGENTE'
               end
               item
-                DatasetField = 'REF_FACTURA'
-                TableField = 'REF_FACTURA'
+                DatasetField = 'AGENTE'
+                TableField = 'AGENTE'
               end
               item
-                DatasetField = 'NOMBRE_ALMACEN'
-                TableField = 'NOMBRE_ALMACEN'
-              end
-              item
-                DatasetField = 'FECHA_PREVISTA_ENVIO'
-                TableField = 'FECHA_PREVISTA_ENVIO'
-              end
-              item
-                DatasetField = 'TIPO'
-                TableField = 'TIPO'
-              end
-              item
-                DatasetField = 'REFERENCIA_CLIENTE'
-                TableField = 'REFERENCIA_CLIENTE'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'AlbaranesCliente_Refresh'
@@ -1784,6 +1819,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
index db46321e..cf5c4550 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm	
@@ -200,6 +200,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
index e52f4895..934f7871 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas	
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas	
@@ -275,9 +275,6 @@ begin
       if (FAlbaran.Detalles.RecordCount > 0) then
       begin
          FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Cliente);
-         //En caso de ser una orden de devolucion también debe cambiar el signo a los detalles
-         if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
-         Controller.DetallesController.CambiarSignoDetalles(FAlbaran.Detalles);
       end;
 
     finally
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
index 1fffaaaa..1b7fa4b6 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm	
@@ -2,6 +2,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
   Caption = 'Lista de albaranes de cliente'
   ClientWidth = 583
   ExplicitWidth = 591
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -133,7 +134,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
     end
     inherited TBXTMain2: TTBXToolbar
       Visible = True
-      ExplicitWidth = 246
+      ExplicitWidth = 242
       object TBXItem42: TTBXItem
         Action = actEnviar
         DisplayMode = nbdmImageAndText
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
index 3d3421d6..3195aaf9 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas	
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas	
@@ -301,7 +301,7 @@ begin
     if (Application.MessageBox('¿Desea borrar los albaranes de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then
     begin
       SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
-      AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes) as IBizAlbaranCliente;
+      AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranCliente;
     end
   end
   else begin
@@ -387,13 +387,14 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
-                    AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes) as IBizAlbaranCliente;
+                    AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranCliente;
                   end
                   else
                     AAlbaranes := Albaranes;
 
                   if Assigned(AAlbaranes) then
-                     FController.Print(AAlbaranes, AllItems);
+                     if FController.Print(AAlbaranes, AllItems) then
+                        RefrescarInterno;
                 end;
       end;
     end;
@@ -471,7 +472,7 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
-                    AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes) as IBizAlbaranCliente;
+                    AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranCliente;
                   end
                   else
                     AAlbaranes := Albaranes;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
index 774cb750..550ffbb8 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm	
@@ -38,6 +38,15 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
         end>
       OptionsCustomize.ColumnHidingOnGrouping = False
       OptionsView.GroupFooters = gfAlwaysVisible
+      object cxGridViewNUM_COPIAS: TcxGridDBColumn
+        DataBinding.FieldName = 'NUM_COPIAS'
+        OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
+        MinWidth = 30
+        Options.HorzSizing = False
+        VisibleForCustomization = False
+        Width = 30
+        IsCaptionAssigned = True
+      end
       object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn
         Caption = 'Incidencias'
         DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@@ -369,6 +378,20 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
           CF0000000049454E44AE426082}
         Name = 'PngImage3'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
+          83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
+          CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
+          F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
+          28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
+          B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
+          2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
+          B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
+        Name = 'PngImage4'
+        Background = clWindow
       end>
     Left = 64
     Top = 72
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
index a879cec7..4861547e 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas	
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas	
@@ -61,6 +61,7 @@ type
     TBXItem4: TTBXItem;
     actAgentes: TAction;
     cxGridViewAGENTE: TcxGridDBColumn;
+    cxGridViewNUM_COPIAS: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@@ -78,6 +79,9 @@ type
       Y: Integer);
     procedure actAgentesExecute(Sender: TObject);
     procedure actAgentesUpdate(Sender: TObject);
+    procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
 
   private
     //Filtros relativos a la vista
@@ -271,6 +275,23 @@ begin
   end;
 end;
 
+procedure TfrViewAlbaranesCliente.cxGridViewNUM_COPIASCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
+    ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
+    ADone := True;
+  end;
+end;
+
 procedure TfrViewAlbaranesCliente.cxGridViewStylesGetContentStyle(Sender:
         TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
         TcxCustomGridTableItem; out AStyle: TcxStyle);
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
index 7edeefc8..68a57852 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas	
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas	
@@ -30,6 +30,7 @@ type
     procedure SetAlbaran(const Value: IBizAlbaranCliente);
 
     procedure AnadirArticulosInterno; override;
+    procedure RellenarArticulosInterno; override;    
     function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
 
   public
@@ -45,18 +46,18 @@ uses uDetallesAlbaranClienteController, uViewDetallesBase;
 
 function TfrViewDetallesAlbaranCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
 begin
-  Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia);
-
   if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
-     (Controller as IDetallesAlbaranClienteController).CambiarSignoDetalles(Detalles);
+     Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, -1)
+  else
+     Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID)
 end;
 
 procedure TfrViewDetallesAlbaranCliente.AnadirArticulosInterno;
 begin
-  (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente);
-
   if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
-     (Controller as IDetallesAlbaranClienteController).CambiarSignoDetalles(Detalles);
+     (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, true, -1)
+  else
+     (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente);
 end;
 
 function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
@@ -69,4 +70,12 @@ begin
   FAlbaran := Value;
 end;
 
+procedure TfrViewDetallesAlbaranCliente.RellenarArticulosInterno;
+begin
+  if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
+    (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False, -1)
+  else
+    (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False);
+end;
+
 end.
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
index 88590d8c..149e0c57 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas	
@@ -7,7 +7,7 @@ uses
   SysUtils, uDADataTable, uEditorDBItem,
   uControllerBase, uIDataModuleAlbaranesProveedor, uProveedoresController,
   uDetallesAlbaranProveedorController, uBizAlbaranesProveedor,
-  uBizDireccionesContacto, uBizInventario;
+  uBizDireccionesContacto, uBizInventario, uViewGridBase;
 
 type
   IAlbaranesProveedorController = interface(IObservador)
@@ -41,7 +41,7 @@ type
     function Existe(const ID: Integer) : Boolean;
     function Duplicar(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
 
-    function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor) : IBizAlbaranProveedor;
+    function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranProveedor;
     function ElegirAlbaranes(AAlbaran: IBizAlbaranProveedor; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranProveedor;
 
     procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto; AAlbaran: IBizAlbaranProveedor);
@@ -53,7 +53,7 @@ type
     function EsEliminable(AAlbaran: IBizAlbaranProveedor): Boolean;
 
     procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
-    procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
+    function Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false): Boolean;
 
     procedure Limpiardireccion(AAlbaran: IBizAlbaranProveedor);
   end;
@@ -112,7 +112,7 @@ type
       AAlbaran: IBizAlbaranProveedor);
 
     procedure QuitarDireccionEnvio(AAlbaran: IBizAlbaranProveedor);
-    function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor) : IBizAlbaranProveedor;
+    function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranProveedor;
     function ElegirAlbaranes(AAlbaran: IBizAlbaranProveedor; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranProveedor;
 
     procedure RecalcularImportes(AAlbaran: IBizAlbaranProveedor);
@@ -120,7 +120,7 @@ type
     function EsEliminable(AAlbaran: IBizAlbaranProveedor): Boolean;
 
     procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
-    procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
+    function Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false): Boolean;
 
     procedure Limpiardireccion(AAlbaran: IBizAlbaranProveedor);
   end;
@@ -906,13 +906,26 @@ begin
   end;
 end;
 
-function TAlbaranesProveedorController.ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
+function TAlbaranesProveedorController.ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor; Const ViewGrid: IViewGridBase = Nil): IBizAlbaranProveedor;
 var
   ASeleccionados : IBizAlbaranProveedor;
 begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranProveedor);
   CopyDataTable(AAlbaran.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
 end;
 
 procedure TAlbaranesProveedorController.FiltrarEmpresa(
@@ -1034,12 +1047,13 @@ begin
   end;
 end;
 
-procedure TAlbaranesProveedorController.Print(AAlbaran: IBizAlbaranProveedor; AllItems: Boolean = false);
+function TAlbaranesProveedorController.Print(AAlbaran: IBizAlbaranProveedor; AllItems: Boolean = false): Boolean;
 var
   AReportController : IAlbaranesProveedorReportController;
   ID_Albaranes: TStringList;
 
 begin
+  Result := False;
   AReportController := TAlbaranesProveedorReportController.Create;
   try
    ID_Albaranes := TStringList.Create;
@@ -1061,7 +1075,7 @@ begin
    else
      ID_Albaranes.Add(IntToStr(AAlbaran.ID));
 
-    AReportController.Print(ID_Albaranes.CommaText);
+    Result := AReportController.Print(ID_Albaranes.CommaText);
 
   finally
     AReportController := NIL;
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas
index 4234631a..f7b6b940 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas	
@@ -11,7 +11,7 @@ type
   IAlbaranesProveedorReportController = interface
   ['{AAE252CE-D407-4FF4-AF2A-350C5A421C89}']
     procedure Preview(const AID : String);
-    procedure Print(const AID : String);
+    function Print(const AID : String): Boolean;
   end;
 
   TAlbaranesProveedorReportController = class(TInterfacedObject, IAlbaranesProveedorReportController)
@@ -23,7 +23,7 @@ type
     destructor Destroy; override;
 
     procedure Preview(const AID : String);
-    procedure Print(const AID : String);
+    function Print(const AID : String): Boolean;
   end;
 
 
@@ -31,7 +31,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorAlbaranesProveedorPreview,
-  uEditorPreview, uDataModuleAlbaranesProveedor, uEditorBase, cxControls;
+  uEditorPreview, uDataModuleAlbaranesProveedor, uEditorBase, cxControls,
+  schAlbaranesProveedorClient_Intf;
 
 { TAlbaranesProveedorReportController }
 
@@ -77,11 +78,12 @@ begin
     AEditor.Preview;
 end;
 
-procedure TAlbaranesProveedorReportController.Print(const AID : String);
+function TAlbaranesProveedorReportController.Print(const AID : String): Boolean;
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesProveedorPreview;
 begin
+  Result := False;
   AEditor := NIL;
 
   ShowHourglassCursor;
@@ -98,7 +100,11 @@ begin
   end;
 
   if Assigned(AEditor) then
-    AEditor.Print
+  begin
+    AEditor.TablaImpresion := nme_AlbaranesProveedor;
+    AEditor.IdTablaImpresion := AID;
+    Result := AEditor.Print;
+  end;
 end;
 
 end.
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas
index a7cd0ec9..f518d6e0 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas	
@@ -9,7 +9,7 @@ uses
 type
   IDetallesAlbaranProveedorController = interface(IControllerDetallesArticulos)
   ['{6E35D49A-C78D-481D-93E9-859CD27EB79F}']
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True;  const ACantidad: Integer = 1); overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
     procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
     function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
@@ -32,7 +32,7 @@ type
     function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
 
   public
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True;  const ACantidad: Integer = 1); overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
     constructor Create; override;
     destructor Destroy; override;
@@ -62,7 +62,7 @@ begin
   end;
 end;
 
-procedure TDetallesAlbaranProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor);
+procedure TDetallesAlbaranProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True;  const ACantidad: Integer = 1);
 var
   AArticulos: IBizArticulo;
 begin
@@ -70,8 +70,17 @@ begin
   begin
     try
       AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
-      AArticulos := (FArticulosController as IArticulosAlbaranProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este albarán de proveedor', True, AProveedor);
-      Add(ADetalles, AArticulos);
+      //Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
+      if ANuevaFila then
+      begin
+        AArticulos := (FArticulosController as IArticulosAlbaranProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este albarán de proveedor', True, AProveedor);
+        Add(ADetalles, AArticulos, ACantidad)
+      end
+      else
+      begin
+        AArticulos := (FArticulosController as IArticulosAlbaranProveedorController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a este albarán de proveedor', False, AProveedor);
+        RellenarDetalle(ADetalles, AArticulos, ACantidad);
+      end;
     finally
       AArticulos := Nil;
     end;
diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
index 51b7f65c..0d5614b4 100644
--- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm	
+++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm	
@@ -548,6 +548,17 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
         Calculated = False
         Lookup = False
         LookupCache = False
+      end
+      item
+        Name = 'NUM_COPIAS'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
       end>
     Params = <>
     MasterMappingMode = mmDataRequest
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
index bdb99be2..0bc87218 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas	
@@ -9,11 +9,11 @@ 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_DarReferencia = '{A2ECE4F2-2EB0-4440-ABB5-C4FFB59A4AF3}';
-  RID_AlbaranesProveedor = '{1BF52D88-3541-47DD-8059-7E82D70C2657}';
-  RID_AlbaranesProveedor_Detalles = '{ED78D0F8-7B91-4C95-AB71-6716DFEFA4CA}';
-  RID_AlbaranesProveedor_Detalles_Refresh = '{4EDD3252-7B35-485A-89BE-A39DFE97FD43}';
-  RID_AlbaranesProveedor_Refresh = '{54A2F0B0-5BB2-49F3-B7E1-8FCBFE19A211}';
+  RID_DarReferencia = '{3F50C24C-9A27-46B2-BA07-3363BB4C42F0}';
+  RID_AlbaranesProveedor = '{4EE00E6F-CE2D-4A3F-8BB7-4CC56A04C494}';
+  RID_AlbaranesProveedor_Detalles = '{EAEB48A8-713D-4559-AF51-B102B0EE4CDC}';
+  RID_AlbaranesProveedor_Detalles_Refresh = '{C0B6846B-07A4-407C-9D66-AC584AF21C0D}';
+  RID_AlbaranesProveedor_Refresh = '{4A135BA2-5325-45B4-B75C-59B39DEF034F}';
 
   { Data table names }
   nme_DarReferencia = 'DarReferencia';
@@ -65,6 +65,7 @@ const
   fld_AlbaranesProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
   fld_AlbaranesProveedorUSUARIO = 'USUARIO';
   fld_AlbaranesProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
+  fld_AlbaranesProveedorNUM_COPIAS = 'NUM_COPIAS';
 
   { AlbaranesProveedor field indexes }
   idx_AlbaranesProveedorID = 0;
@@ -103,6 +104,7 @@ const
   idx_AlbaranesProveedorFECHA_MODIFICACION = 33;
   idx_AlbaranesProveedorUSUARIO = 34;
   idx_AlbaranesProveedorID_FORMA_PAGO = 35;
+  idx_AlbaranesProveedorNUM_COPIAS = 36;
 
   { AlbaranesProveedor_Detalles fields }
   fld_AlbaranesProveedor_DetallesID = 'ID';
@@ -209,6 +211,7 @@ const
   fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
   fld_AlbaranesProveedor_RefreshUSUARIO = 'USUARIO';
   fld_AlbaranesProveedor_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO';
+  fld_AlbaranesProveedor_RefreshNUM_COPIAS = 'NUM_COPIAS';
 
   { AlbaranesProveedor_Refresh field indexes }
   idx_AlbaranesProveedor_RefreshID = 0;
@@ -247,11 +250,12 @@ const
   idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 33;
   idx_AlbaranesProveedor_RefreshUSUARIO = 34;
   idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 35;
+  idx_AlbaranesProveedor_RefreshNUM_COPIAS = 36;
 
 type
   { IDarReferencia }
   IDarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{70216529-9EFF-49D4-BC5D-142057D881C7}']
+  ['{61465610-D794-47C4-9ABC-8741E6E36F27}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -280,7 +284,7 @@ type
 
   { IAlbaranesProveedor }
   IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
-  ['{75EF115B-2E16-4631-B284-EB29454AB90D}']
+  ['{42B45AE6-5EB4-4C8D-82C8-1C4AD82E64A8}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -354,6 +358,8 @@ type
     procedure SetUSUARIOValue(const aValue: String);
     function GetID_FORMA_PAGOValue: Integer;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
 
 
     { Properties }
@@ -393,6 +399,7 @@ type
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
     property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
   end;
 
   { TAlbaranesProveedorDataTableRules }
@@ -472,6 +479,8 @@ type
     procedure SetUSUARIOValue(const aValue: String); virtual;
     function GetID_FORMA_PAGOValue: Integer; virtual;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -510,6 +519,7 @@ type
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
     property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -519,7 +529,7 @@ type
 
   { IAlbaranesProveedor_Detalles }
   IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{71F6EB5E-95EA-4C44-BE14-F52ED4F7736E}']
+  ['{7648F585-1867-4E43-A6D9-7FEE51485725}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -632,7 +642,7 @@ type
 
   { IAlbaranesProveedor_Detalles_Refresh }
   IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{EF189D96-FC62-431D-9AB9-D1A88BC60632}']
+  ['{B23F5262-0AAA-4C52-B3DA-A1589AB4F1C5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -745,7 +755,7 @@ type
 
   { IAlbaranesProveedor_Refresh }
   IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{33F9FCD3-FD74-488D-8EBC-F3AFCCCF566B}']
+  ['{256505AA-BA0B-4945-8A00-0F5543C724CC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -819,6 +829,8 @@ type
     procedure SetUSUARIOValue(const aValue: String);
     function GetID_FORMA_PAGOValue: Integer;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
 
 
     { Properties }
@@ -858,6 +870,7 @@ type
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
     property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
   end;
 
   { TAlbaranesProveedor_RefreshDataTableRules }
@@ -937,6 +950,8 @@ type
     procedure SetUSUARIOValue(const aValue: String); virtual;
     function GetID_FORMA_PAGOValue: Integer; virtual;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -975,6 +990,7 @@ type
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
     property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1381,6 +1397,16 @@ begin
   DataTable.Fields[idx_AlbaranesProveedorID_FORMA_PAGO].AsInteger := aValue;
 end;
 
+function TAlbaranesProveedorDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].AsInteger;
+end;
+
+procedure TAlbaranesProveedorDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].AsInteger := aValue;
+end;
+
 
 { TAlbaranesProveedor_DetallesDataTableRules }
 constructor TAlbaranesProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@@ -2079,6 +2105,16 @@ begin
   DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FORMA_PAGO].AsInteger := aValue;
 end;
 
+function TAlbaranesProveedor_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_AlbaranesProveedor_RefreshNUM_COPIAS].AsInteger;
+end;
+
+procedure TAlbaranesProveedor_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_AlbaranesProveedor_RefreshNUM_COPIAS].AsInteger := aValue;
+end;
+
 
 initialization
   RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
index 80f4c8e9..e6ea59ba 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas	
@@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{A422DB5C-634E-474A-8CF6-74991DA1AE32}';
-  RID_AlbaranesProveedorDelta = '{C4E4FF3D-939D-4F34-9867-F77C33CC5CFC}';
-  RID_AlbaranesProveedor_DetallesDelta = '{DAF52FFB-AC66-412B-8E1C-7DAAB3B0C2C9}';
-  RID_AlbaranesProveedor_Detalles_RefreshDelta = '{324ADFD7-9348-41B3-BFAF-50FE30872A52}';
-  RID_AlbaranesProveedor_RefreshDelta = '{79C0564C-8AE9-4995-A30C-C904BEB88939}';
+  RID_DarReferenciaDelta = '{ED7AB12B-996F-49BF-B0BD-0FBF07091D2C}';
+  RID_AlbaranesProveedorDelta = '{4DE57AD5-32F1-4CDC-9D41-5557B7EC11A0}';
+  RID_AlbaranesProveedor_DetallesDelta = '{097F48A6-6CC7-43A8-A5C2-BCE54EE3B9B7}';
+  RID_AlbaranesProveedor_Detalles_RefreshDelta = '{D590E2D3-0875-4A95-9B35-CBD3DC43B6C0}';
+  RID_AlbaranesProveedor_RefreshDelta = '{23A6B8F2-95A9-4A11-8822-6D9FA3511F8C}';
 
 type
   { IDarReferenciaDelta }
   IDarReferenciaDelta = interface(IDarReferencia)
-  ['{A422DB5C-634E-474A-8CF6-74991DA1AE32}']
+  ['{ED7AB12B-996F-49BF-B0BD-0FBF07091D2C}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -47,7 +47,7 @@ type
 
   { IAlbaranesProveedorDelta }
   IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
-  ['{C4E4FF3D-939D-4F34-9867-F77C33CC5CFC}']
+  ['{4DE57AD5-32F1-4CDC-9D41-5557B7EC11A0}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -85,6 +85,7 @@ type
     function GetOldFECHA_MODIFICACIONValue : DateTime;
     function GetOldUSUARIOValue : String;
     function GetOldID_FORMA_PAGOValue : Integer;
+    function GetOldNUM_COPIASValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -123,6 +124,7 @@ type
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
   end;
 
   { TAlbaranesProveedorBusinessProcessorRules }
@@ -238,6 +240,9 @@ type
     function GetID_FORMA_PAGOValue: Integer; virtual;
     function GetOldID_FORMA_PAGOValue: Integer; virtual;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -312,6 +317,8 @@ type
     property OldUSUARIO : String read GetOldUSUARIOValue;
     property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -321,7 +328,7 @@ type
 
   { IAlbaranesProveedor_DetallesDelta }
   IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
-  ['{DAF52FFB-AC66-412B-8E1C-7DAAB3B0C2C9}']
+  ['{097F48A6-6CC7-43A8-A5C2-BCE54EE3B9B7}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ALBARANValue : Integer;
@@ -448,7 +455,7 @@ type
 
   { IAlbaranesProveedor_Detalles_RefreshDelta }
   IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh)
-  ['{324ADFD7-9348-41B3-BFAF-50FE30872A52}']
+  ['{D590E2D3-0875-4A95-9B35-CBD3DC43B6C0}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ALBARANValue : Integer;
@@ -575,7 +582,7 @@ type
 
   { IAlbaranesProveedor_RefreshDelta }
   IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh)
-  ['{79C0564C-8AE9-4995-A30C-C904BEB88939}']
+  ['{23A6B8F2-95A9-4A11-8822-6D9FA3511F8C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -613,6 +620,7 @@ type
     function GetOldFECHA_MODIFICACIONValue : DateTime;
     function GetOldUSUARIOValue : String;
     function GetOldID_FORMA_PAGOValue : Integer;
+    function GetOldNUM_COPIASValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -651,6 +659,7 @@ type
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
   end;
 
   { TAlbaranesProveedor_RefreshBusinessProcessorRules }
@@ -766,6 +775,9 @@ type
     function GetID_FORMA_PAGOValue: Integer; virtual;
     function GetOldID_FORMA_PAGOValue: Integer; virtual;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -840,6 +852,8 @@ type
     property OldUSUARIO : String read GetOldUSUARIOValue;
     property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1434,6 +1448,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FORMA_PAGO] := aValue;
 end;
 
+function TAlbaranesProveedorBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS];
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorNUM_COPIAS];
+end;
+
+procedure TAlbaranesProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS] := aValue;
+end;
+
 
 { TAlbaranesProveedor_DetallesBusinessProcessorRules }
 constructor TAlbaranesProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -2464,6 +2493,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO] := aValue;
 end;
 
+function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNUM_COPIAS];
+end;
+
+function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshNUM_COPIAS];
+end;
+
+procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNUM_COPIAS] := aValue;
+end;
+
 
 initialization
   RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);
diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
index 436dc833..dbaea735 100644
--- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm	
+++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm	
@@ -78,7 +78,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
               'ESCUENTO,'#10'    IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IV' +
               'A, IMPORTE_TOTAL,'#10'    OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_AC' +
               'TIVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10'    USUARIO, ID_FORMA_PAG' +
-              'O'#10'  FROM'#10'    V_ALBARANES_PROVEEDOR'
+              'O, NUM_COPIAS'#10'  FROM'#10'    V_ALBARANES_PROVEEDOR'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -105,18 +105,42 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
               end
+              item
+                DatasetField = 'REFERENCIA_PROVEEDOR'
+                TableField = 'REFERENCIA_PROVEEDOR'
+              end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
               item
                 DatasetField = 'ID_ALMACEN'
                 TableField = 'ID_ALMACEN'
               end
+              item
+                DatasetField = 'NOMBRE_ALMACEN'
+                TableField = 'NOMBRE_ALMACEN'
+              end
               item
                 DatasetField = 'ID_PEDIDO'
                 TableField = 'ID_PEDIDO'
               end
+              item
+                DatasetField = 'REF_PED_PROVEEDOR'
+                TableField = 'REF_PED_PROVEEDOR'
+              end
               item
                 DatasetField = 'ID_FACTURA'
                 TableField = 'ID_FACTURA'
               end
+              item
+                DatasetField = 'REF_FACTURA'
+                TableField = 'REF_FACTURA'
+              end
+              item
+                DatasetField = 'REF_FACTURA_PROV'
+                TableField = 'REF_FACTURA_PROV'
+              end
               item
                 DatasetField = 'CALLE'
                 TableField = 'CALLE'
@@ -202,28 +226,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
                 TableField = 'ID_FORMA_PAGO'
               end
               item
-                DatasetField = 'NOMBRE_ALMACEN'
-                TableField = 'NOMBRE_ALMACEN'
-              end
-              item
-                DatasetField = 'REF_PED_PROVEEDOR'
-                TableField = 'REF_PED_PROVEEDOR'
-              end
-              item
-                DatasetField = 'TIPO'
-                TableField = 'TIPO'
-              end
-              item
-                DatasetField = 'REFERENCIA_PROVEEDOR'
-                TableField = 'REFERENCIA_PROVEEDOR'
-              end
-              item
-                DatasetField = 'REF_FACTURA'
-                TableField = 'REF_FACTURA'
-              end
-              item
-                DatasetField = 'REF_FACTURA_PROV'
-                TableField = 'REF_FACTURA_PROV'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'AlbaranesProveedor'
@@ -602,6 +606,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -1141,8 +1156,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
               'SCUENTO,'#10'    IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA' +
               ', IMPORTE_TOTAL,'#10'    OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACT' +
               'IVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10'    USUARIO, ID_FORMA_PAGO' +
-              #10'  FROM'#10'    V_ALBARANES_PROVEEDOR'#10'WHERE V_ALBARANES_PROVEEDOR.ID' +
-              ' = :ID'
+              ', NUM_COPIAS'#10'  FROM'#10'    V_ALBARANES_PROVEEDOR'#10'WHERE V_ALBARANES_' +
+              'PROVEEDOR.ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -1169,18 +1184,42 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
               end
+              item
+                DatasetField = 'REFERENCIA_PROVEEDOR'
+                TableField = 'REFERENCIA_PROVEEDOR'
+              end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
               item
                 DatasetField = 'ID_ALMACEN'
                 TableField = 'ID_ALMACEN'
               end
+              item
+                DatasetField = 'NOMBRE_ALMACEN'
+                TableField = 'NOMBRE_ALMACEN'
+              end
               item
                 DatasetField = 'ID_PEDIDO'
                 TableField = 'ID_PEDIDO'
               end
+              item
+                DatasetField = 'REF_PED_PROVEEDOR'
+                TableField = 'REF_PED_PROVEEDOR'
+              end
               item
                 DatasetField = 'ID_FACTURA'
                 TableField = 'ID_FACTURA'
               end
+              item
+                DatasetField = 'REF_FACTURA'
+                TableField = 'REF_FACTURA'
+              end
+              item
+                DatasetField = 'REF_FACTURA_PROV'
+                TableField = 'REF_FACTURA_PROV'
+              end
               item
                 DatasetField = 'CALLE'
                 TableField = 'CALLE'
@@ -1266,28 +1305,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
                 TableField = 'ID_FORMA_PAGO'
               end
               item
-                DatasetField = 'NOMBRE_ALMACEN'
-                TableField = 'NOMBRE_ALMACEN'
-              end
-              item
-                DatasetField = 'REF_PED_PROVEEDOR'
-                TableField = 'REF_PED_PROVEEDOR'
-              end
-              item
-                DatasetField = 'TIPO'
-                TableField = 'TIPO'
-              end
-              item
-                DatasetField = 'REFERENCIA_PROVEEDOR'
-                TableField = 'REFERENCIA_PROVEEDOR'
-              end
-              item
-                DatasetField = 'REF_FACTURA'
-                TableField = 'REF_FACTURA'
-              end
-              item
-                DatasetField = 'REF_FACTURA_PROV'
-                TableField = 'REF_FACTURA_PROV'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'AlbaranesProveedor_Refresh'
@@ -1670,6 +1689,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.bdsproj b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.bdsproj
index 13aa2673..bafafbca 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.bdsproj	
+++ b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.bdsproj	
@@ -172,7 +172,7 @@
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>
 	</Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=1
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
index d31a0121..760200f3 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas	
@@ -236,9 +236,6 @@ begin
     if (FAlbaran.Detalles.RecordCount > 0) then
     begin
        FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Proveedor);
-       //En caso de ser una orden de devolucion también debe cambiar el signo a los detalles
-       if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
-          Controller.DetallesController.CambiarSignoDetalles(FAlbaran.Detalles);
     end;
   end;
 end;
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
index deb960db..fe07d2cd 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm	
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm	
@@ -2,6 +2,7 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
   Caption = 'Lista de albaranes de proveedor'
   ClientWidth = 606
   ExplicitWidth = 614
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
index 4abbaef0..9ac3c5a9 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas	
@@ -138,7 +138,7 @@ begin
     if (Application.MessageBox('¿Desea borrar los albaranes de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then
     begin
       SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
-      AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes) as IBizAlbaranProveedor;
+      AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranProveedor;
     end
   end
   else begin
@@ -219,13 +219,14 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
-                    AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes) as IBizAlbaranProveedor;
+                    AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranProveedor;
                   end
                   else
                     AAlbaranes := Albaranes;
 
                   if Assigned(AAlbaranes) then
-                     FController.Print(AAlbaranes, AllItems);
+                     if FController.Print(AAlbaranes, AllItems) then
+                        RefrescarInterno;
                 end;
       end;
     end;
@@ -307,7 +308,7 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
-                    AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes) as IBizAlbaranProveedor;
+                    AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranProveedor;
                   end
                   else
                     AAlbaranes := Albaranes;
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
index e0a1359e..f5cfb2e6 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm	
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm	
@@ -36,6 +36,15 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
           Column = cxGridViewIMPORTE_TOTAL
         end>
       OptionsView.GroupFooters = gfAlwaysVisible
+      object cxGridViewNUM_COPIAS: TcxGridDBColumn
+        DataBinding.FieldName = 'NUM_COPIAS'
+        OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
+        MinWidth = 30
+        Options.HorzSizing = False
+        VisibleForCustomization = False
+        Width = 30
+        IsCaptionAssigned = True
+      end
       object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn
         Caption = 'Incidencias'
         DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@@ -304,6 +313,20 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
           CF0000000049454E44AE426082}
         Name = 'PngImage3'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
+          83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
+          CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
+          F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
+          28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
+          B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
+          2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
+          B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
+        Name = 'PngImage4'
+        Background = clWindow
       end>
     Left = 56
     Top = 48
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
index 7981ecdc..25016a5b 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas	
@@ -45,6 +45,7 @@ type
     TBXSeparatorItem2: TTBXSeparatorItem;
     cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
     cxGridViewREF_FACTURA_PROV: TcxGridDBColumn;
+    cxGridViewNUM_COPIAS: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@@ -59,6 +60,9 @@ type
     procedure actAlmacenUpdate(Sender: TObject);
     procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
       Y: Integer);
+    procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
 
   private
     //Filtros relativos a la vista
@@ -203,6 +207,23 @@ begin
   end;
 end;
 
+procedure TfrViewAlbaranesProveedor.cxGridViewNUM_COPIASCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
+    ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
+    ADone := True;
+  end;
+end;
+
 procedure TfrViewAlbaranesProveedor.cxGridViewStylesGetContentStyle(Sender:
         TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
         TcxCustomGridTableItem; out AStyle: TcxStyle);
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.pas
index c45fd5f1..c3337885 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.pas	
@@ -28,6 +28,7 @@ type
     procedure SetAlbaran(const Value: IBizAlbaranProveedor);
 
     procedure AnadirArticulosInterno; override;
+    procedure RellenarArticulosInterno; override;    
     function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
 
   public
@@ -43,18 +44,18 @@ uses uDetallesAlbaranProveedorController, uViewDetallesBase;
 
 function TfrViewDetallesAlbaranProveedor.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
 begin
-  Result := (Controller as IDetallesAlbaranProveedorController).AnadirArticulo(Detalles, pReferencia, TipoReferencia);
-
   if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
-     (Controller as IDetallesAlbaranProveedorController).CambiarSignoDetalles(Detalles);
+     Result := (Controller as IDetallesAlbaranProveedorController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, -1, -1)
+  else
+     Result := (Controller as IDetallesAlbaranProveedorController).AnadirArticulo(Detalles, pReferencia, TipoReferencia);
 end;
 
 procedure TfrViewDetallesAlbaranProveedor.AnadirArticulosInterno;
 begin
-  (Controller as IDetallesAlbaranProveedorController).AnadirArticulos(Detalles, Albaran.Proveedor);
-
   if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
-     (Controller as IDetallesAlbaranProveedorController).CambiarSignoDetalles(Detalles);
+     (Controller as IDetallesAlbaranProveedorController).AnadirArticulos(Detalles, Albaran.Proveedor, true, -1)
+  else
+     (Controller as IDetallesAlbaranProveedorController).AnadirArticulos(Detalles, Albaran.Proveedor);
 end;
 
 function TfrViewDetallesAlbaranProveedor.GetAlbaran: IBizAlbaranProveedor;
@@ -62,6 +63,14 @@ begin
   Result := FAlbaran; 
 end;
 
+procedure TfrViewDetallesAlbaranProveedor.RellenarArticulosInterno;
+begin
+  if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
+    (Controller as IDetallesAlbaranProveedorController).AnadirArticulos(Detalles, Albaran.Proveedor, False, -1)
+  else
+    (Controller as IDetallesAlbaranProveedorController).AnadirArticulos(Detalles, Albaran.Proveedor, False);
+end;
+
 procedure TfrViewDetallesAlbaranProveedor.SetAlbaran(const Value: IBizAlbaranProveedor);
 begin
   FAlbaran := Value;
diff --git a/Source/Modulos/Articulos/Controller/Articulos_controller.bdsproj b/Source/Modulos/Articulos/Controller/Articulos_controller.bdsproj
index ab9e55e1..b5ded206 100644
--- a/Source/Modulos/Articulos/Controller/Articulos_controller.bdsproj
+++ b/Source/Modulos/Articulos/Controller/Articulos_controller.bdsproj
@@ -172,7 +172,7 @@
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>
 	</Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=5111
 Activate=0
diff --git a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
index fa8b82fc..3b4ecb51 100644
--- a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
+++ b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
@@ -15,9 +15,9 @@ type
   IControllerDetallesArticulos = interface(IControllerDetallesBase)
   ['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}']
     procedure AsignarID(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer; AEsNuevo:Boolean);
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable);
-    function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1): Boolean; overload;
-    function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1): Boolean; overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True);
+    function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean; overload;
+    function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean; overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
     procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable);
     procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String);
@@ -32,16 +32,17 @@ type
     procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
     procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
     procedure RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
-    procedure RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
-    procedure Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload;
+    procedure RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Integer); virtual;
+    procedure RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer = 1); virtual;
+    procedure Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer = 1); overload;
 
     procedure AsignarController; virtual;
 
   public
     procedure AsignarID(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer; AEsNuevo:Boolean);
-    function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1): Boolean; overload;
-    function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1): Boolean; overload;
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable); virtual;
+    function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean; overload;
+    function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean; overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True); virtual;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
     procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable);
     procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String);
@@ -61,6 +62,9 @@ uses DB, Dialogs, cxControls, SysUtils, uDAInterfaces, uCalculosUtils, schArticu
 { TControllerDetallesArticulos }
 
 procedure TControllerDetallesArticulos.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
+var
+  ACantidad: Integer;
+
 begin
   if (Assigned(ADetalles) and Assigned(AArticulos)) then
   begin
@@ -78,9 +82,10 @@ begin
           AArticulos.DataTable.First;
           try
             if AArticulos.DataTable.Locate(CAMPO_ID, FieldByName(CAMPO_ID_ARTICULOS).AsVariant, []) then
-              RellenarDetalle(ADetalles, AArticulos)
-            else
-              RellenarDetalle(ADetalles, Nil);
+            begin
+              ACantidad := ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger;
+              RellenarDetalle(ADetalles, AArticulos, ACantidad);
+            end
           except
             on E: Exception do
               ShowMessage(E.Message);
@@ -96,7 +101,7 @@ begin
   end;
 end;
 
-procedure TControllerDetallesArticulos.Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
+procedure TControllerDetallesArticulos.Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer);
 begin
   if Assigned(ADetalles) and Assigned(AArticulos) then
   begin
@@ -116,7 +121,7 @@ begin
         while not EOF do
         begin
           Self.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
-          RellenarDetalle(ADetalles, AArticulos);
+          RellenarDetalle(ADetalles, AArticulos, ACantidad);
           Next;
         end;
       end;
@@ -127,7 +132,7 @@ begin
   end;
 end;
 
-function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1): Boolean;
+function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean;
 var
   AArticulo: IBizArticulo;
 begin
@@ -147,7 +152,7 @@ begin
       AArticulo.DataTable.Active := True;
       if (AArticulo.RecordCount > 0) then
       begin
-        RellenarDetalle(ADetalles, AArticulo);
+        RellenarDetalle(ADetalles, AArticulo, ACantidad);
         Result := True;
       end;
     end;
@@ -157,7 +162,7 @@ begin
   end;
 end;
 
-procedure TControllerDetallesArticulos.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable);
+procedure TControllerDetallesArticulos.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True);
 var
   AArticulos: IBizArticulo;
 begin
@@ -165,8 +170,17 @@ begin
   begin
     try
       AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
-      AArticulos := FArticulosController.ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir', True);
-      Add(ADetalles, AArticulos);
+      //Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
+      if ANuevaFila then
+      begin
+        AArticulos := FArticulosController.ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir', True);
+        Add(ADetalles, AArticulos)
+      end
+      else
+      begin
+        AArticulos := FArticulosController.ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir', False);
+        RellenarDetalle(ADetalles, AArticulos);
+      end;
     finally
       AArticulos := Nil;
     end;
@@ -323,7 +337,7 @@ begin
   end;
 end;
 
-function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1): Boolean;
+function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean;
 var
   AArticulo: IBizArticulo;
 begin
@@ -345,7 +359,7 @@ begin
       AArticulo.DataTable.Active := True;
       if (AArticulo.RecordCount > 0) then
       begin
-        RellenarDetalle(ADetalles, AArticulo);
+        RellenarDetalle(ADetalles, AArticulo, ACantidad);
         Result := True;
       end;
     end;
@@ -355,23 +369,37 @@ begin
   end;
 end;
 
+procedure TControllerDetallesArticulos.RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Integer);
+begin
+  if Assigned(ADetalles) then
+  begin
+    ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger := ACantidad;
+  end;
+end;
+
 procedure TControllerDetallesArticulos.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
 begin
 //   Procedimiento que en los hijos se sobreescribirá para rellenar otros campos según necesidades
 end;
 
-procedure TControllerDetallesArticulos.RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
+procedure TControllerDetallesArticulos.RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer = 1);
 begin
   if Assigned(ADetalles) then
   begin
-    if not ADetalles.DataTable.Editing then
-       ADetalles.DataTable.Edit;
+    BeginUpdate(ADetalles);
+    try
+      if not ADetalles.DataTable.Editing then
+         ADetalles.DataTable.Edit;
 
-    RellenarGenerales(ADetalles, AArticulos);
-    RellenarImportes(ADetalles, AArticulos);
-    RellenarOtros(ADetalles, AArticulos);
+      RellenarGenerales(ADetalles, AArticulos);
+      RellenarCantidad(ADetalles, ACantidad);
+      RellenarImportes(ADetalles, AArticulos);
+      RellenarOtros(ADetalles, AArticulos);
 
-    ADetalles.DataTable.Post;
+      ADetalles.DataTable.Post;
+    finally
+      EndUpdate(ADetalles);
+    end;
   end;
 end;
 
@@ -383,7 +411,6 @@ begin
     ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA).AsVariant := AArticulos.REFERENCIA;
     ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA_PROVEEDOR).AsVariant := AArticulos.REFERENCIA_PROV;
     ADetalles.DataTable.FieldByName(CAMPO_CONCEPTO).AsVariant := AArticulos.DESCRIPCION;
-    ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger := 1;
   end;
 end;
 
diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
index b3280a9c..65a80e1b 100644
--- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
+++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
@@ -33,6 +33,7 @@ type
     procedure CustomViewShow(Sender: TObject);
 
   protected
+    procedure RellenarArticulosInterno; virtual;  
     procedure AnadirArticulosInterno; virtual;
     function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; virtual;
   end;
@@ -131,4 +132,9 @@ begin
   Result := (Controller as IControllerDetallesArticulos).AnadirArticulo(Detalles, pReferencia, TipoReferencia);
 end;
 
+procedure TfrViewDetallesArticulos.RellenarArticulosInterno;
+begin
+  (Controller as IControllerDetallesArticulos).AnadirArticulos(Detalles, False);
+end;
+
 end.
diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas
index df2970be..c49359ee 100644
--- a/Source/Modulos/Contactos/Controller/uContactosController.pas
+++ b/Source/Modulos/Contactos/Controller/uContactosController.pas
@@ -5,7 +5,7 @@ interface
 
 uses
   Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
-  uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos;
+  uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos, uViewGridBase;
 
 type
   IContactosController = interface
@@ -25,9 +25,9 @@ type
     function Localizar(AContactos: IBizContacto; const ID : Integer): Boolean;
     function ElegirContacto(AContactos : IBizContacto; AMensaje: String; AMultiSelect: Boolean): IBizContacto;
 
-    function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto;
+    function ExtraerSeleccionados(AContactos: IBizContacto; Const ViewGrid: IViewGridBase = Nil) : IBizContacto;
     procedure Preview(AContactos : IBizContacto);
-    procedure Print(AContactos : IBizContacto);
+    function Print(AContactos : IBizContacto): Boolean;
   end;
 
   TContactosController = class(TInterfacedObject, IContactosController)
@@ -50,7 +50,7 @@ type
     function Existe(const ID: Integer) : Boolean; virtual;
     procedure Anadir(AContacto : IBizContacto); virtual;
     function Duplicar(AContacto: IBizContacto): IBizContacto; virtual;
-    function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto; virtual;
+    function ExtraerSeleccionados(AContactos: IBizContacto; Const ViewGrid: IViewGridBase = Nil) : IBizContacto; virtual;
     function Localizar(AContactos: IBizContacto; const ID : Integer): Boolean;
 
     // Se implementa en los controladores hijos
@@ -62,7 +62,7 @@ type
     function ElegirContacto(AContactos : IBizContacto; AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract;
 
     procedure Preview(AContactos : IBizContacto);
-    procedure Print(AContactos : IBizContacto);
+    function Print(AContactos : IBizContacto): Boolean;
   end;
 
 implementation
@@ -230,14 +230,26 @@ begin
   end;
 end;
 
-function TContactosController.ExtraerSeleccionados(
-  AContactos: IBizContacto): IBizContacto;
+function TContactosController.ExtraerSeleccionados(AContactos: IBizContacto; Const ViewGrid: IViewGridBase = Nil): IBizContacto;
 var
   ASeleccionados : IBizContacto;
 begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+
   ASeleccionados := Self.Buscar(ID_NULO);
   CopyDataTable(AContactos.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
 end;
 
 function TContactosController.Guardar(AContacto: IBizContacto): Boolean;
@@ -312,12 +324,13 @@ begin
   end;
 end;
 
-procedure TContactosController.Print(AContactos: IBizContacto);
+function TContactosController.Print(AContactos: IBizContacto): Boolean;
 var
   AReportController : IEtiquetasContactosReportController;
   ID_Contactos: TStringList;
 
 begin
+  Result := False;
   AReportController := TEtiquetasContactosReportController.Create;
   try
    ID_Contactos := TStringList.Create;
@@ -332,7 +345,7 @@ begin
      end;
    end;
 
-   AReportController.Print(ID_Contactos.CommaText);
+   Result := AReportController.Print(ID_Contactos.CommaText);
 
   finally
     AReportController := NIL;
diff --git a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
index b6089b85..8d47a5fc 100644
--- a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
+++ b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
@@ -10,7 +10,7 @@ type
   IEtiquetasContactosReportController = interface
   ['{B8EB378E-E40E-4AFE-8CC9-C34DFB13B9EA}']
     procedure Preview(const AID : String);
-    procedure Print(const AID : String);
+    function Print(const AID : String): Boolean;
   end;
 
   TEtiquetasContactosReportController = class(TInterfacedObject, IEtiquetasContactosReportController)
@@ -23,7 +23,7 @@ type
     destructor Destroy; override;
 
     procedure Preview(const AID : String);
-    procedure Print(const AID : String);
+    function Print(const AID : String): Boolean;
   end;
 
 
@@ -77,11 +77,12 @@ begin
     AEditor.Preview;
 end;
 
-procedure TEtiquetasContactosReportController.Print(const AID : String);
+function TEtiquetasContactosReportController.Print(const AID : String): Boolean;
 var
   AStream: Binary;
   AEditor : IEditorEtiquetasContactosPreview;
 begin
+  Result := False;
   AEditor := NIL;
 
   ShowHourglassCursor;
@@ -98,7 +99,7 @@ begin
   end;
 
   if Assigned(AEditor) then
-    AEditor.Print
+     Result := AEditor.Print;
 end;
 
 end.
diff --git a/Source/Modulos/Contactos/Views/uEditorClientes.pas b/Source/Modulos/Contactos/Views/uEditorClientes.pas
index c39845ab..c7046053 100644
--- a/Source/Modulos/Contactos/Views/uEditorClientes.pas
+++ b/Source/Modulos/Contactos/Views/uEditorClientes.pas
@@ -83,7 +83,7 @@ begin
     if (Application.MessageBox('¿Desea borrar los clientes seleccionados?', 'Atención', MB_YESNO) = IDYES) then
     begin
       SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
-      AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos) as IBizContacto;
+      AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos, ViewGrid) as IBizContacto;
     end
   end
   else begin
@@ -139,10 +139,11 @@ begin
                 end;
         100   : begin   // Elemento Seleccionado
                   SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
-                  AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos) as IBizContacto;
+                  AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos, ViewGrid) as IBizContacto;
 
                   if Assigned(AContactos) then
-                     FController.Print(AContactos);
+                     if FController.Print(AContactos) then
+                        RefrescarInterno;
                 end;
       end;
     end;
@@ -178,7 +179,7 @@ begin
                 end;
         100   : begin   // Elemento Seleccionado
                   SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
-                  AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos) as IBizContacto;
+                  AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos, ViewGrid) as IBizContacto;
 
                   if Assigned(AContactos) then
                      FController.Preview(AContactos);
diff --git a/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
index 0ff0f46f..914d593b 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas	
@@ -9,7 +9,7 @@ uses
 type
   IDetallesFacturaClienteController = interface(IControllerDetallesArticulos)
   ['{D3942A48-C55B-4A98-AC5B-B5E652ED393E}']
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente);
     procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaCliente; AReferencia: String; AFecha: String);
     procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
@@ -32,7 +32,7 @@ type
     function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
 
   public
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
 
     //ABONOS
@@ -65,16 +65,26 @@ begin
   end;
 end;
 
-procedure TDetallesFacturaClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente);
+procedure TDetallesFacturaClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1);
 var
   AArticulos: IBizArticulo;
 begin
   if Assigned(ADetalles) then
   begin
-    AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
     try
-      AArticulos := (FArticulosController as IArticulosFacturaClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a esta factura de cliente', True);
-      Add(ADetalles, AArticulos);
+	    AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
+
+      //Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
+      if ANuevaFila then
+      begin
+        AArticulos := (FArticulosController as IArticulosFacturaClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a esta factura de cliente', True);
+        Add(ADetalles, AArticulos, ACantidad)
+      end
+      else
+      begin
+        AArticulos := (FArticulosController as IArticulosFacturaClienteController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a esta factura de cliente', False);
+        RellenarDetalle(ADetalles, AArticulos, ACantidad);
+      end;
     finally
       AArticulos := Nil;
     end;
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 5b6e55af..b5e23965 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
@@ -6,7 +6,7 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasCliente,
   uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente,
-  uBizFacturasCliente;
+  uBizFacturasCliente, uViewGridBase;
 
 type
   IFacturasClienteController = interface(IObservador)
@@ -40,14 +40,14 @@ type
     function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente;
 
     procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
-    procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
+    function Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false): Boolean;
 
     procedure RecalcularImportes(AFactura: IBizFacturaCliente);
     function EsModificable(AFactura: IBizFacturaCliente): Boolean;
     function EsEliminable(AFactura: IBizFacturaCliente): Boolean;
 
     function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente;
-    function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente;
+    function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente; const ViewGrid: IViewGridBase = Nil) : IBizFacturaCliente;
   end;
 
   TFacturasClienteController = class(TObservador, IFacturasClienteController)
@@ -99,14 +99,14 @@ type
     procedure RecuperarCliente(AFactura : IBizFacturaCliente);
 
     procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
-    procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
+    function Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false): Boolean;
 
     procedure RecalcularImportes(AFactura: IBizFacturaCliente);
     function EsModificable(AFactura: IBizFacturaCliente): Boolean;
     function EsEliminable(AFactura: IBizFacturaCliente): Boolean;
 
     function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente;
-    function ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente) : IBizFacturaCliente;
+    function ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente; Const ViewGrid: IViewGridBase = Nil) : IBizFacturaCliente;
   end;
 
 implementation
@@ -863,13 +863,26 @@ begin
   end;
 end;
 
-function TFacturasClienteController.ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente): IBizFacturaCliente;
+function TFacturasClienteController.ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente; Const ViewGrid: IViewGridBase = Nil): IBizFacturaCliente;
 var
   ASeleccionados : IBizFacturaCliente;
 begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaCliente);
   CopyDataTable(AFacturasCliente.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
 end;
 
 procedure TFacturasClienteController.FiltrarEmpresa(AFactura: IBizFacturaCliente);
@@ -980,12 +993,13 @@ begin
   end;
 end;
 
-procedure TFacturasClienteController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false);
+function TFacturasClienteController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false): Boolean;
 var
   AReportController : IFacturasClienteReportController;
   ID_Facturas: TStringList;
 
 begin
+  Result := False;
   AReportController := TFacturasClienteReportController.Create;
   try
    ID_Facturas := TStringList.Create;
@@ -1007,7 +1021,7 @@ begin
    else
      ID_Facturas.Add(IntToStr(AFactura.ID));
 
-    AReportController.Print(ID_Facturas.CommaText);
+    Result := AReportController.Print(ID_Facturas.CommaText);
 
   finally
     AReportController := NIL;
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
index 2d7aea23..307bcebf 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas	
@@ -11,7 +11,7 @@ type
   IFacturasClienteReportController = interface
   ['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}']
     procedure Preview(const AFacturaID : String);
-    procedure Print(const AFacturaID : String);
+    function Print(const AFacturaID : String): Boolean;
   end;
 
   TFacturasClienteReportController = class(TInterfacedObject, IFacturasClienteReportController)
@@ -24,7 +24,7 @@ type
     destructor Destroy; override;
 
     procedure Preview(const AFacturaID : String);
-    procedure Print(const AFacturaID : String);
+    function Print(const AFacturaID : String): Boolean;
   end;
 
 
@@ -79,11 +79,12 @@ begin
     AEditor.Preview;
 end;
 
-procedure TFacturasClienteReportController.Print(const AFacturaID : String);
+function TFacturasClienteReportController.Print(const AFacturaID : String): Boolean;
 var
   AStream: Binary;
   AEditor : IEditorFacturasClientePreview;
 begin
+  Result := False;
   AEditor := NIL;
 
   ShowHourglassCursor;
@@ -103,7 +104,7 @@ begin
   begin
     AEditor.TablaImpresion := nme_FacturasCliente;
     AEditor.IdTablaImpresion := AFacturaID;
-    AEditor.Print;
+    Result := AEditor.Print;
   end;
 end;
 
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
index 6a9de917..c2449288 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas	
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas	
@@ -120,13 +120,6 @@ begin
     frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
     frxReport.PrepareReport(False);
 
-{    with TsrvImpresiones.Create(NIL) do
-      try
-        AnadirMarcaImpresion(nme_FacturasCliente, ID);
-      finally
-        Free;
-      end;
-}
   finally
     AStream.Free;
     dsMaster := Nil;
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.bdsproj b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.bdsproj
index 38459295..efbc429c 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.bdsproj	
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.bdsproj	
@@ -172,7 +172,7 @@
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>
 	</Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=1
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
index 8280db33..41f21161 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas	
@@ -294,19 +294,7 @@ begin
   // Si la factura tiene detalles hay que mirar si los descuentos y otros campos
   // para los artículos hay que cambiarlos.
   if (FFactura.Detalles.RecordCount > 0) then
-  begin
-    FDetallesController := TDetallesFacturaClienteController.Create;
-    try
-      FDetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Cliente);
-
-      //En caso de ser un abono también debe cambiar el signo a los detalles
-      if (Factura.TIPO = CTE_TIPO_ABONO) then
-         Controller.DetallesController.CambiarSignoDetalles(FFactura.Detalles);
-
-    finally
-      FDetallesController := NIL;
-    end;
-  end;
+    FController.DetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Cliente);
 end;
 
 procedure TfEditorFacturaCliente.pgPaginasChanging(Sender: TObject;
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
index 83689f52..ced8a173 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm	
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm	
@@ -64,7 +64,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
   inherited StatusBar: TJvStatusBar
     Top = 556
     Width = 640
-    ExplicitTop = 647
+    ExplicitTop = 556
     ExplicitWidth = 640
   end
   inline frViewFacturasCliente1: TfrViewFacturasCliente [3]
@@ -83,12 +83,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
     ReadOnly = False
     ExplicitTop = 102
     ExplicitWidth = 640
-    ExplicitHeight = 545
+    ExplicitHeight = 454
     inherited cxGrid: TcxGrid
       Width = 640
       Height = 326
       ExplicitWidth = 640
-      ExplicitHeight = 417
+      ExplicitHeight = 326
       inherited cxGridView: TcxGridDBTableView
         DataController.Summary.DefaultGroupSummaryItems = <
           item
@@ -123,6 +123,9 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
             Kind = skSum
             Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL
           end>
+        inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
+          IsCaptionAssigned = True
+        end
         inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
           Visible = True
         end
@@ -137,16 +140,16 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
           Width = 640
           ExplicitWidth = 640
           inherited txtFiltroTodo: TcxTextEdit
-            ExplicitWidth = 273
-            Width = 273
+            ExplicitWidth = 457
+            Width = 457
           end
           inherited edtFechaIniFiltro: TcxDateEdit
-            ExplicitWidth = 121
-            Width = 121
+            ExplicitWidth = 239
+            Width = 239
           end
           inherited edtFechaFinFiltro: TcxDateEdit
-            Left = 295
-            ExplicitLeft = 295
+            Left = 367
+            ExplicitLeft = 367
             ExplicitWidth = 244
             Width = 244
           end
@@ -163,7 +166,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
     end
     inherited pnlAgrupaciones: TTBXDockablePanel
       Top = 428
-      ExplicitTop = 519
+      ExplicitTop = 428
       ExplicitWidth = 640
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 640
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
index 9f4c09c0..c3466b98 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas	
@@ -156,7 +156,7 @@ begin
     if (Application.MessageBox('¿Desea borrar las facturas/abonos de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then
     begin
       SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
-      AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizFacturaCliente;
+      AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaCliente;
     end
   end
   else begin
@@ -246,13 +246,14 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
-                    AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizFacturaCliente;
+                    AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaCliente;
                   end
                   else
                     AFacturas := Facturas;
 
                   if Assigned(AFacturas) then
-                     FController.Print(AFacturas, AllItems);
+                     if FController.Print(AFacturas, AllItems) then
+                        RefrescarInterno;
                 end;
       end;
     end;
@@ -346,7 +347,7 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
-                    AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizFacturaCliente;
+                    AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaCliente;
                   end
                   else
                     AFacturas := Facturas;
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm
index 41aff72a..60866831 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm	
+++ b/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm	
@@ -6,8 +6,4 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
       end
     end
   end
-  inherited TBXDock1: TTBXDock
-    ExplicitTop = 46
-    ExplicitWidth = 451
-  end
 end
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.pas
index a2f55e8f..138b4954 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.pas	
@@ -28,6 +28,7 @@ type
     procedure SetFactura(const Value: IBizFacturaCliente);
 
     procedure AnadirArticulosInterno; override;
+    procedure RellenarArticulosInterno; override;    
     function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
 
   public
@@ -43,18 +44,18 @@ uses uDetallesFacturaClienteController;
 
 function TfrViewDetallesFacturaCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
 begin
-  Result := (Controller as IDetallesFacturaClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Factura.Cliente.ID);
-
   if (Factura.TIPO = CTE_TIPO_ABONO) then
-     (Controller as IDetallesFacturaClienteController).CambiarSignoDetalles(Detalles);
+     Result := (Controller as IDetallesFacturaClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Factura.Cliente.ID, -1)
+  else
+     Result := (Controller as IDetallesFacturaClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Factura.Cliente.ID);
 end;
 
 procedure TfrViewDetallesFacturaCliente.AnadirArticulosInterno;
 begin
-  (Controller as IDetallesFacturaClienteController).AnadirArticulos(Detalles, Factura.Cliente);
-
   if (Factura.TIPO = CTE_TIPO_ABONO) then
-     (Controller as IDetallesFacturaClienteController).CambiarSignoDetalles(Detalles);
+     (Controller as IDetallesFacturaClienteController).AnadirArticulos(Detalles, Factura.Cliente, true, -1)
+  else
+     (Controller as IDetallesFacturaClienteController).AnadirArticulos(Detalles, Factura.Cliente);
 end;
 
 function TfrViewDetallesFacturaCliente.GetFactura: IBizFacturaCliente;
@@ -62,6 +63,14 @@ begin
   Result := FFactura;
 end;
 
+procedure TfrViewDetallesFacturaCliente.RellenarArticulosInterno;
+begin
+  if (Factura.TIPO = CTE_TIPO_ABONO) then
+    (Controller as IDetallesFacturaClienteController).AnadirArticulos(Detalles, Factura.Cliente, False, -1)
+  else
+    (Controller as IDetallesFacturaClienteController).AnadirArticulos(Detalles, Factura.Cliente, False);
+end;
+
 procedure TfrViewDetallesFacturaCliente.SetFactura(const Value: IBizFacturaCliente);
 begin
   FFactura := Value;
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
index 334e1a53..d08b656b 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm	
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm	
@@ -23,8 +23,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
       OptionsView.GroupFooters = gfAlwaysVisible
       object cxGridViewNUM_COPIAS: TcxGridDBColumn
         DataBinding.FieldName = 'NUM_COPIAS'
+        OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
+        MinWidth = 30
+        Options.HorzSizing = False
         VisibleForCustomization = False
-        Width = 25
+        Width = 30
         IsCaptionAssigned = True
       end
       object cxGridViewTIPO: TcxGridDBColumn
@@ -502,6 +505,20 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
           064200A70120096201BA0100A6C62916A56F74520000000049454E44AE426082}
         Name = 'PngImage3'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
+          83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
+          CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
+          F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
+          28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
+          B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
+          2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
+          B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
+        Name = 'PngImage4'
+        Background = clWindow
       end>
     Left = 56
     Top = 48
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
index 4723e3b7..b3442a68 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas	
@@ -64,6 +64,9 @@ type
     procedure actProvinciaExecute(Sender: TObject);
     procedure actProvinciaUpdate(Sender: TObject);
     procedure actClienteUpdate(Sender: TObject);
+    procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
 
   private
     //Filtros relativos a la vista
@@ -184,6 +187,23 @@ begin
   RefrescarFiltro;
 end;
 
+procedure TfrViewFacturasCliente.cxGridViewNUM_COPIASCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
+    ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
+    ADone := True;
+  end;
+end;
+
 procedure TfrViewFacturasCliente.cxGridViewStylesGetContentStyle(
   Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
   AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas
index d0314270..8c33b2cf 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas	
@@ -9,7 +9,7 @@ uses
 type
   IDetallesFacturaProveedorController = interface(IControllerDetallesArticulos)
   ['{49F6199E-E031-42F5-AEA5-E70C3E3479A1}']
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor);
     procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaProveedor; AReferencia: String; AFecha: String);
     procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
@@ -32,7 +32,7 @@ type
     function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
 
   public
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
     procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaProveedor; AReferencia: String; AFecha: String);
     constructor Create; override;
@@ -63,16 +63,25 @@ begin
   end;
 end;
 
-procedure TDetallesFacturaProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor);
+procedure TDetallesFacturaProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1);
 var
   AArticulos: IBizArticulo;
 begin
   if Assigned(ADetalles) then
   begin
-    AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
     try
-      AArticulos := (FArticulosController as IArticulosFacturaProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a esta factura de Proveedor', True, AProveedor);
-      Add(ADetalles, AArticulos);
+      AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
+      //Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
+      if ANuevaFila then
+      begin
+        AArticulos := (FArticulosController as IArticulosFacturaProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a esta factura de Proveedor', True, AProveedor);
+        Add(ADetalles, AArticulos, ACantidad)
+      end
+      else
+      begin
+        AArticulos := (FArticulosController as IArticulosFacturaProveedorController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a esta factura de Proveedor', False, AProveedor);
+        RellenarDetalle(ADetalles, AArticulos, ACantidad);
+      end;
     finally
       AArticulos := Nil;
     end;
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index 3ecc79e7..29782759 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
@@ -6,7 +6,7 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasProveedor,
   uProveedoresController, uDetallesFacturaProveedorController, uBizFacturasProveedor,
-  uBizAlbaranesProveedor;
+  uBizAlbaranesProveedor, uViewGridBase;
 
 type
   IFacturasProveedorController = interface(IObservador)
@@ -39,14 +39,14 @@ type
     function GenerarAbono(AFactura: IBizFacturaProveedor): IBizFacturaProveedor;
 
     procedure Preview(AFactura : IBizFacturaProveedor; AllItems: Boolean = false);
-    procedure Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false);
+    function Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false): Boolean;
 
     procedure RecalcularImportes(FFactura: IBizFacturaProveedor);
     function EsModificable(AFactura: IBizFacturaProveedor): Boolean;
     function EsEliminable(AFactura: IBizFacturaProveedor): Boolean;
 
     function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor;
-    function ExtraerSeleccionados(ARecibosProveedor: IBizFacturaProveedor) : IBizFacturaProveedor;
+    function ExtraerSeleccionados(ARecibosProveedor: IBizFacturaProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizFacturaProveedor;
   end;
 
   TFacturasProveedorController = class(TObservador, IFacturasProveedorController)
@@ -98,14 +98,14 @@ type
     procedure RecuperarProveedor(AFactura : IBizFacturaProveedor);
 
     procedure Preview(AFactura : IBizFacturaProveedor; AllItems: Boolean = false);
-    procedure Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false);
+    function Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false): Boolean;
 
     procedure RecalcularImportes(FFactura: IBizFacturaProveedor);
     function EsModificable(AFactura: IBizFacturaProveedor): Boolean;
     function EsEliminable(AFactura: IBizFacturaProveedor): Boolean;
 
     function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor;
-    function ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor) : IBizFacturaProveedor;
+    function ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizFacturaProveedor;
   end;
 
 implementation
@@ -865,13 +865,26 @@ begin
   end;
 end;
 
-function TFacturasProveedorController.ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor): IBizFacturaProveedor;
+function TFacturasProveedorController.ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor; Const ViewGrid: IViewGridBase = Nil): IBizFacturaProveedor;
 var
   ASeleccionados : IBizFacturaProveedor;
 begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaProveedor);
   CopyDataTable(AFacturasProveedor.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
 end;
 
 procedure TFacturasProveedorController.FiltrarEmpresa(AFactura: IBizFacturaProveedor);
@@ -983,12 +996,13 @@ begin
   end;
 end;
 
-procedure TFacturasProveedorController.Print(AFactura: IBizFacturaProveedor; AllItems: Boolean = false);
+function TFacturasProveedorController.Print(AFactura: IBizFacturaProveedor; AllItems: Boolean = false): Boolean;
 var
   AReportController : IFacturasProveedorReportController;
   ID_Facturas: TStringList;
 
 begin
+  Result := False;
   AReportController := TFacturasProveedorReportController.Create;
   try
    ID_Facturas := TStringList.Create;
@@ -1010,7 +1024,7 @@ begin
    else
      ID_Facturas.Add(IntToStr(AFactura.ID));
 
-    AReportController.Print(ID_Facturas.CommaText);
+    Result := AReportController.Print(ID_Facturas.CommaText);
 
   finally
     AReportController := NIL;
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas
index 8c32a9c7..04d6af0f 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas	
@@ -10,7 +10,7 @@ type
   IFacturasProveedorReportController = interface
   ['{551F82DC-B8DC-482E-A20D-15003E845078}']
     procedure Preview(const AFacturaID : String);
-    procedure Print(const AFacturaID : String);
+    function Print(const AFacturaID : String): Boolean;
   end;
 
   TFacturasProveedorReportController = class(TInterfacedObject, IFacturasProveedorReportController)
@@ -22,7 +22,7 @@ type
     destructor Destroy; override;
 
     procedure Preview(const AFacturaID : String);
-    procedure Print(const AFacturaID : String);
+    function Print(const AFacturaID : String): Boolean;
   end;
 
 
@@ -30,7 +30,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorFacturasProveedorPreview,
-  uEditorPreview, uDataModuleFacturasProveedor, uEditorBase, cxControls;
+  uEditorPreview, uDataModuleFacturasProveedor, uEditorBase, cxControls,
+  schFacturasProveedorClient_Intf;
 
 { TFacturasProveedorReportController }
 
@@ -76,11 +77,12 @@ begin
     AEditor.Preview;
 end;
 
-procedure TFacturasProveedorReportController.Print(const AFacturaID : String);
+function TFacturasProveedorReportController.Print(const AFacturaID : String): Boolean;
 var
   AStream: Binary;
   AEditor : IEditorFacturasProveedorPreview;
 begin
+  Result := False;
   AEditor := NIL;
 
   ShowHourglassCursor;
@@ -97,7 +99,11 @@ begin
   end;
 
   if Assigned(AEditor) then
-    AEditor.Print
+  begin
+    AEditor.TablaImpresion := nme_FacturasProveedor;
+    AEditor.IdTablaImpresion := AFacturaID;
+    Result := AEditor.Print;
+  end;
 end;
 
 end.
diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
index b8f24434..9d8cecc3 100644
--- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm	
+++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm	
@@ -35,7 +35,7 @@ object DataModuleFacturasProveedor: TDataModuleFacturasProveedor
         Name = 'User'
         ParamType = fIn
         DataType = rtString
-        Value = 'Administrador'
+        Value = 'Luis'
       end
       item
         Name = 'Password'
@@ -483,6 +483,17 @@ object DataModuleFacturasProveedor: TDataModuleFacturasProveedor
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'NUM_COPIAS'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'FECHA_VENCIMIENTO'
         DataType = datDateTime
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
index 94eb495b..e9fd401e 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas	
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas	
@@ -9,11 +9,11 @@ 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_darReferencia = '{5A31B310-B21D-468B-963E-0BB3D56FF098}';
-  RID_FacturasProveedor = '{7E2B16C4-976C-4809-9E04-2B6B5C91AF87}';
-  RID_FacturasProveedor_Detalles = '{8A0BE5E9-157E-4CCC-8EF1-A29CDBA4E28A}';
-  RID_FacturasProveedor_Detalles_Refresh = '{0DFFA036-18F8-4957-9991-669FC8EB4F42}';
-  RID_FacturasProveedor_Refresh = '{3FA04195-2172-40A8-915E-9B961949C107}';
+  RID_darReferencia = '{8A6AF6AE-FDD3-46DD-9EBB-D2E6C723607B}';
+  RID_FacturasProveedor = '{AE87472C-8D75-440E-A9DB-4CC1913226D6}';
+  RID_FacturasProveedor_Detalles = '{DD2FFE30-C1BF-4736-838E-5D1EA821A1EA}';
+  RID_FacturasProveedor_Detalles_Refresh = '{9876655E-E769-445A-A8D5-54AAD69416C7}';
+  RID_FacturasProveedor_Refresh = '{58E8EF55-3D5F-48AD-A700-53ED97F7623D}';
 
   { Data table names }
   nme_darReferencia = 'darReferencia';
@@ -60,6 +60,7 @@ const
   fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA';
   fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO';
   fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE';
+  fld_FacturasProveedorNUM_COPIAS = 'NUM_COPIAS';
   fld_FacturasProveedorFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
 
   { FacturasProveedor field indexes }
@@ -94,7 +95,8 @@ const
   idx_FacturasProveedorID_TIPO_IVA = 28;
   idx_FacturasProveedorIMPORTE_NETO = 29;
   idx_FacturasProveedorIMPORTE_PORTE = 30;
-  idx_FacturasProveedorFECHA_VENCIMIENTO = 31;
+  idx_FacturasProveedorNUM_COPIAS = 31;
+  idx_FacturasProveedorFECHA_VENCIMIENTO = 32;
 
   { FacturasProveedor_Detalles fields }
   fld_FacturasProveedor_DetallesID = 'ID';
@@ -192,6 +194,7 @@ const
   fld_FacturasProveedor_RefreshID_TIPO_IVA = 'ID_TIPO_IVA';
   fld_FacturasProveedor_RefreshIMPORTE_NETO = 'IMPORTE_NETO';
   fld_FacturasProveedor_RefreshIMPORTE_PORTE = 'IMPORTE_PORTE';
+  fld_FacturasProveedor_RefreshNUM_COPIAS = 'NUM_COPIAS';
   fld_FacturasProveedor_RefreshFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
 
   { FacturasProveedor_Refresh field indexes }
@@ -226,12 +229,13 @@ const
   idx_FacturasProveedor_RefreshID_TIPO_IVA = 28;
   idx_FacturasProveedor_RefreshIMPORTE_NETO = 29;
   idx_FacturasProveedor_RefreshIMPORTE_PORTE = 30;
-  idx_FacturasProveedor_RefreshFECHA_VENCIMIENTO = 31;
+  idx_FacturasProveedor_RefreshNUM_COPIAS = 31;
+  idx_FacturasProveedor_RefreshFECHA_VENCIMIENTO = 32;
 
 type
   { IdarReferencia }
   IdarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{65EFF80E-72D6-4702-8DE2-EAB9E67C2CED}']
+  ['{E4CA7807-EBBA-41AD-B9B5-38D4318CA39F}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -260,7 +264,7 @@ type
 
   { IFacturasProveedor }
   IFacturasProveedor = interface(IDAStronglyTypedDataTable)
-  ['{02E381CF-8B87-4CAC-BBB3-BE1303EFC6EA}']
+  ['{F72C5456-F7D2-47E6-B6E4-45DD1622A9F6}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -324,6 +328,8 @@ type
     procedure SetIMPORTE_NETOValue(const aValue: Currency);
     function GetIMPORTE_PORTEValue: Currency;
     procedure SetIMPORTE_PORTEValue(const aValue: Currency);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
     function GetFECHA_VENCIMIENTOValue: DateTime;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
 
@@ -360,6 +366,7 @@ type
     property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
     property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
     property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
   end;
 
@@ -430,6 +437,8 @@ type
     procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
     function GetIMPORTE_PORTEValue: Currency; virtual;
     procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
 
@@ -465,6 +474,7 @@ type
     property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
     property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
     property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
 
   public
@@ -475,7 +485,7 @@ type
 
   { IFacturasProveedor_Detalles }
   IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{09638FB4-2429-47C7-BEE6-695CCA2B7429}']
+  ['{398A387A-683C-48EF-AD52-89A3163736C2}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -582,7 +592,7 @@ type
 
   { IFacturasProveedor_Detalles_Refresh }
   IFacturasProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{34CAF884-E288-4691-BBB0-1FB65C392944}']
+  ['{9080B14F-8AA6-4096-9790-42188A3AE8D8}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -689,7 +699,7 @@ type
 
   { IFacturasProveedor_Refresh }
   IFacturasProveedor_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{9AC32D5C-9DDF-471B-95AA-FFC958A99C41}']
+  ['{786F2A15-EDAF-4AA9-BD48-027B1EEEC55A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -753,6 +763,8 @@ type
     procedure SetIMPORTE_NETOValue(const aValue: Currency);
     function GetIMPORTE_PORTEValue: Currency;
     procedure SetIMPORTE_PORTEValue(const aValue: Currency);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
     function GetFECHA_VENCIMIENTOValue: DateTime;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
 
@@ -789,6 +801,7 @@ type
     property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
     property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
     property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
   end;
 
@@ -859,6 +872,8 @@ type
     procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
     function GetIMPORTE_PORTEValue: Currency; virtual;
     procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
 
@@ -894,6 +909,7 @@ type
     property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
     property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
     property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
 
   public
@@ -1250,6 +1266,16 @@ begin
   DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsCurrency := aValue;
 end;
 
+function TFacturasProveedorDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasProveedorNUM_COPIAS].AsInteger;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasProveedorNUM_COPIAS].AsInteger := aValue;
+end;
+
 function TFacturasProveedorDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
   result := DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].AsDateTime;
@@ -1887,6 +1913,16 @@ begin
   DataTable.Fields[idx_FacturasProveedor_RefreshIMPORTE_PORTE].AsCurrency := aValue;
 end;
 
+function TFacturasProveedor_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_RefreshNUM_COPIAS].AsInteger;
+end;
+
+procedure TFacturasProveedor_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasProveedor_RefreshNUM_COPIAS].AsInteger := aValue;
+end;
+
 function TFacturasProveedor_RefreshDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
   result := DataTable.Fields[idx_FacturasProveedor_RefreshFECHA_VENCIMIENTO].AsDateTime;
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
index fbb4b71c..976a745d 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas	
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas	
@@ -9,16 +9,16 @@ 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_darReferenciaDelta = '{9811D236-BBAF-41FA-BA7C-27CFA776F2BA}';
-  RID_FacturasProveedorDelta = '{D0D34618-4ADB-4D35-96BF-AB713867C946}';
-  RID_FacturasProveedor_DetallesDelta = '{EB4106FB-07FA-4683-9055-D44215CB3A30}';
-  RID_FacturasProveedor_Detalles_RefreshDelta = '{DF491E40-B1CA-4976-9167-E3B022F545D3}';
-  RID_FacturasProveedor_RefreshDelta = '{F4B987F7-529B-43A3-9264-157ACC3C6BAC}';
+  RID_darReferenciaDelta = '{11F40542-0486-4EEB-A23C-A54896CED721}';
+  RID_FacturasProveedorDelta = '{8A5AD103-5D7D-4736-AE18-AAF5F983D4E7}';
+  RID_FacturasProveedor_DetallesDelta = '{529B369E-EA3A-4860-91C7-E1B4825BE2BE}';
+  RID_FacturasProveedor_Detalles_RefreshDelta = '{D88F14D7-712F-4571-A0C9-EC6A3170D976}';
+  RID_FacturasProveedor_RefreshDelta = '{50CC524D-33DB-47FB-9154-7529F500B4DE}';
 
 type
   { IdarReferenciaDelta }
   IdarReferenciaDelta = interface(IdarReferencia)
-  ['{9811D236-BBAF-41FA-BA7C-27CFA776F2BA}']
+  ['{11F40542-0486-4EEB-A23C-A54896CED721}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -47,7 +47,7 @@ type
 
   { IFacturasProveedorDelta }
   IFacturasProveedorDelta = interface(IFacturasProveedor)
-  ['{D0D34618-4ADB-4D35-96BF-AB713867C946}']
+  ['{8A5AD103-5D7D-4736-AE18-AAF5F983D4E7}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -80,6 +80,7 @@ type
     function GetOldID_TIPO_IVAValue : Integer;
     function GetOldIMPORTE_NETOValue : Currency;
     function GetOldIMPORTE_PORTEValue : Currency;
+    function GetOldNUM_COPIASValue : Integer;
     function GetOldFECHA_VENCIMIENTOValue : DateTime;
 
     { Properties }
@@ -114,6 +115,7 @@ type
     property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
     property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
     property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
   end;
 
@@ -215,6 +217,9 @@ type
     function GetIMPORTE_PORTEValue: Currency; virtual;
     function GetOldIMPORTE_PORTEValue: Currency; virtual;
     procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
     function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@@ -282,6 +287,8 @@ type
     property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
     property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
     property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
 
@@ -293,7 +300,7 @@ type
 
   { IFacturasProveedor_DetallesDelta }
   IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
-  ['{EB4106FB-07FA-4683-9055-D44215CB3A30}']
+  ['{529B369E-EA3A-4860-91C7-E1B4825BE2BE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -413,7 +420,7 @@ type
 
   { IFacturasProveedor_Detalles_RefreshDelta }
   IFacturasProveedor_Detalles_RefreshDelta = interface(IFacturasProveedor_Detalles_Refresh)
-  ['{DF491E40-B1CA-4976-9167-E3B022F545D3}']
+  ['{D88F14D7-712F-4571-A0C9-EC6A3170D976}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -533,7 +540,7 @@ type
 
   { IFacturasProveedor_RefreshDelta }
   IFacturasProveedor_RefreshDelta = interface(IFacturasProveedor_Refresh)
-  ['{F4B987F7-529B-43A3-9264-157ACC3C6BAC}']
+  ['{50CC524D-33DB-47FB-9154-7529F500B4DE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -566,6 +573,7 @@ type
     function GetOldID_TIPO_IVAValue : Integer;
     function GetOldIMPORTE_NETOValue : Currency;
     function GetOldIMPORTE_PORTEValue : Currency;
+    function GetOldNUM_COPIASValue : Integer;
     function GetOldFECHA_VENCIMIENTOValue : DateTime;
 
     { Properties }
@@ -600,6 +608,7 @@ type
     property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
     property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
     property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
   end;
 
@@ -701,6 +710,9 @@ type
     function GetIMPORTE_PORTEValue: Currency; virtual;
     function GetOldIMPORTE_PORTEValue: Currency; virtual;
     procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
     function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@@ -768,6 +780,8 @@ type
     property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
     property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
     property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
 
@@ -1287,6 +1301,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := aValue;
 end;
 
+function TFacturasProveedorBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNUM_COPIAS];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorNUM_COPIAS];
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNUM_COPIAS] := aValue;
+end;
+
 function TFacturasProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO];
@@ -2225,6 +2254,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_RefreshIMPORTE_PORTE] := aValue;
 end;
 
+function TFacturasProveedor_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_RefreshNUM_COPIAS];
+end;
+
+function TFacturasProveedor_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_RefreshNUM_COPIAS];
+end;
+
+procedure TFacturasProveedor_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_RefreshNUM_COPIAS] := aValue;
+end;
+
 function TFacturasProveedor_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_RefreshFECHA_VENCIMIENTO];
diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
index 2b1fcd70..00e601c8 100644
--- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm	
+++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm	
@@ -76,8 +76,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
               'TAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, NOMBRE, CALLE,'#10'    PO' +
               'BLACION, PROVINCIA, CODIGO_POSTAL, FECHA_ALTA, FECHA_MODIFICACIO' +
               'N,'#10'    USUARIO, ID_FORMA_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA' +
-              ','#10'    IMPORTE_NETO, IMPORTE_PORTE'#10'  FROM'#10'    V_FACTURAS_PROVEEDO' +
-              'R'
+              ','#10'    IMPORTE_NETO, IMPORTE_PORTE, NUM_COPIAS'#10'  FROM'#10'    V_FACTU' +
+              'RAS_PROVEEDOR'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -92,6 +92,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
               end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
+              item
+                DatasetField = 'REFERENCIA_PROVEEDOR'
+                TableField = 'REFERENCIA_PROVEEDOR'
+              end
               item
                 DatasetField = 'FECHA_FACTURA'
                 TableField = 'FECHA_FACTURA'
@@ -197,12 +205,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
                 TableField = 'IMPORTE_PORTE'
               end
               item
-                DatasetField = 'REFERENCIA_PROVEEDOR'
-                TableField = 'REFERENCIA_PROVEEDOR'
-              end
-              item
-                DatasetField = 'TIPO'
-                TableField = 'TIPO'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'FacturasProveedor'
@@ -528,6 +532,17 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'FECHA_VENCIMIENTO'
             DataType = datDateTime
@@ -1038,8 +1053,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
               'OTAL, OBSERVACIONES, ID_PROVEEDOR,'#10'    NIF_CIF, NOMBRE, CALLE, P' +
               'OBLACION, PROVINCIA, CODIGO_POSTAL, '#10'    FECHA_ALTA, FECHA_MODIF' +
               'ICACION, USUARIO, ID_FORMA_PAGO, '#10'    RECARGO_EQUIVALENCIA, ID_T' +
-              'IPO_IVA, IMPORTE_NETO, IMPORTE_PORTE'#10'  FROM'#10'    V_FACTURAS_PROVE' +
-              'EDOR'#10'  WHERE ID = :ID'
+              'IPO_IVA, IMPORTE_NETO, IMPORTE_PORTE, NUM_COPIAS'#10'  FROM'#10'    V_FA' +
+              'CTURAS_PROVEEDOR'#10'  WHERE ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -1054,6 +1069,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
               end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
+              item
+                DatasetField = 'REFERENCIA_PROVEEDOR'
+                TableField = 'REFERENCIA_PROVEEDOR'
+              end
               item
                 DatasetField = 'FECHA_FACTURA'
                 TableField = 'FECHA_FACTURA'
@@ -1159,12 +1182,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
                 TableField = 'IMPORTE_PORTE'
               end
               item
-                DatasetField = 'REFERENCIA_PROVEEDOR'
-                TableField = 'REFERENCIA_PROVEEDOR'
-              end
-              item
-                DatasetField = 'TIPO'
-                TableField = 'TIPO'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'FacturasProveedor_Refresh'
@@ -1491,6 +1510,17 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'FECHA_VENCIMIENTO'
             DataType = datDateTime
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
index 8f959be8..40829a05 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm	
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm	
@@ -172,6 +172,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
         Left = 0
         Top = 0
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
index 0619d3a0..90140333 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas	
@@ -287,19 +287,7 @@ begin
   // Si la factura tiene detalles hay que mirar si los descuentos y otros campos
   // para los artículos hay que cambiarlos.
   if (FFactura.Detalles.RecordCount > 0) then
-  begin
-    FDetallesController := TDetallesFacturaProveedorController.Create;
-    try
-      FDetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Proveedor);
-
-      //En caso de ser un abono también debe cambiar el signo a los detalles
-      if (Factura.TIPO = CTE_TIPO_ABONO) then
-         Controller.DetallesController.CambiarSignoDetalles(FFactura.Detalles);
-
-    finally
-      FDetallesController := NIL;
-    end;
-  end;
+     FController.DetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Proveedor);
 end;
 
 procedure TfEditorFacturaProveedor.pgPaginasChanging(Sender: TObject;
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
index 19d2cb2a..50a797f3 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas	
@@ -163,7 +163,7 @@ begin
     if (Application.MessageBox('¿Desea borrar las facturas/abonos de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then
     begin
       SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
-      AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
+      AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaProveedor;
     end
   end
   else begin
@@ -253,13 +253,14 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
-                    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
+                    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaProveedor;
                   end
                   else
                     AFacturas := Facturas;
 
                   if Assigned(AFacturas) then
-                     FController.Print(AFacturas, AllItems);
+                     if FController.Print(AFacturas, AllItems) then
+                        RefrescarInterno;
                 end;
       end;
     end;
@@ -352,7 +353,7 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
-                    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
+                    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaProveedor;
                   end
                   else
                     AFacturas := Facturas;
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.pas
index 89c0ab0c..0bb73a19 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.pas	
@@ -28,6 +28,7 @@ type
     procedure SetFactura(const Value: IBizFacturaProveedor);
 
     procedure AnadirArticulosInterno; override;
+    procedure RellenarArticulosInterno; override;    
     function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
 
   public
@@ -43,18 +44,18 @@ uses uDetallesFacturaProveedorController;
 
 function TfrViewDetallesFacturaProveedor.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
 begin
-  Result := (Controller as IDetallesFacturaProveedorController).AnadirArticulo(Detalles, pReferencia, tProveedor);
-
   if (Factura.TIPO = CTE_TIPO_ABONO) then
-     (Controller as IDetallesFacturaProveedorController).CambiarSignoDetalles(Detalles);
+     Result := (Controller as IDetallesFacturaProveedorController).AnadirArticulo(Detalles, pReferencia, tProveedor, -1, -1)
+  else
+     Result := (Controller as IDetallesFacturaProveedorController).AnadirArticulo(Detalles, pReferencia, tProveedor, -1, -1);
 end;
 
 procedure TfrViewDetallesFacturaProveedor.AnadirArticulosInterno;
 begin
-  (Controller as IDetallesFacturaProveedorController).AnadirArticulos(Detalles, Factura.Proveedor);
-
   if (Factura.TIPO = CTE_TIPO_ABONO) then
-     (Controller as IDetallesFacturaProveedorController).CambiarSignoDetalles(Detalles);
+     (Controller as IDetallesFacturaProveedorController).AnadirArticulos(Detalles, Factura.Proveedor, true, -1)
+  else
+     (Controller as IDetallesFacturaProveedorController).AnadirArticulos(Detalles, Factura.Proveedor);
 end;
 
 function TfrViewDetallesFacturaProveedor.GetFactura: IBizFacturaProveedor;
@@ -62,6 +63,14 @@ begin
   Result := FFactura;
 end;
 
+procedure TfrViewDetallesFacturaProveedor.RellenarArticulosInterno;
+begin
+  if (Factura.TIPO = CTE_TIPO_ABONO) then
+    (Controller as IDetallesFacturaProveedorController).AnadirArticulos(Detalles, Factura.Proveedor, False, -1)
+  else
+    (Controller as IDetallesFacturaProveedorController).AnadirArticulos(Detalles, Factura.Proveedor, False);
+end;
+
 procedure TfrViewDetallesFacturaProveedor.SetFactura(const Value: IBizFacturaProveedor);
 begin
   FFactura := Value;
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
index 0ade4ad2..1def0657 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm	
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm	
@@ -10,7 +10,7 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
     OnActiveTabChanged = cxGridActiveTabChanged
     ExplicitWidth = 531
     ExplicitHeight = 304
-    inherited cxGridView: TcxGridDBTableView    
+    inherited cxGridView: TcxGridDBTableView
       DataController.KeyFieldNames = 'ID'
       DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
       DataController.Summary.DefaultGroupSummaryItems = <
@@ -33,6 +33,15 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
         end>
       OptionsCustomize.ColumnHidingOnGrouping = False
       OptionsView.GroupFooters = gfAlwaysVisible
+      object cxGridViewNUM_COPIAS: TcxGridDBColumn
+        DataBinding.FieldName = 'NUM_COPIAS'
+        OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
+        MinWidth = 30
+        Options.HorzSizing = False
+        VisibleForCustomization = False
+        Width = 30
+        IsCaptionAssigned = True
+      end
       object cxGridViewTIPO: TcxGridDBColumn
         DataBinding.FieldName = 'TIPO'
         PropertiesClassName = 'TcxImageComboBoxProperties'
@@ -164,15 +173,27 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 531
         ExplicitWidth = 531
+        inherited txtFiltroTodo: TcxTextEdit
+          ExplicitWidth = 273
+          Width = 273
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          ExplicitWidth = 121
+          Width = 121
+        end
         inherited edtFechaFinFiltro: TcxDateEdit
+          Left = 248
+          ExplicitLeft = 248
           ExplicitWidth = 244
           Width = 244
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 531
+        ExplicitWidth = 531
         inherited tbxBotones: TTBXToolbar
           Width = 521
+          ExplicitWidth = 521
         end
       end
     end
@@ -506,6 +527,20 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
           064200A70120096201BA0100A6C62916A56F74520000000049454E44AE426082}
         Name = 'PngImage3'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
+          83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
+          CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
+          F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
+          28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
+          B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
+          2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
+          B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
+        Name = 'PngImage4'
+        Background = clWindow
       end>
     Left = 56
     Top = 48
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
index 3331a1f6..e51d6155 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas	
@@ -56,6 +56,7 @@ type
     TBXItem3: TTBXItem;
     TBXSeparatorItem2: TTBXSeparatorItem;
     cxGridViewTIPO: TcxGridDBColumn;
+    cxGridViewNUM_COPIAS: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);
@@ -64,6 +65,9 @@ type
     procedure actProveedorUpdate(Sender: TObject);
     procedure actProvinciaExecute(Sender: TObject);
     procedure actProvinciaUpdate(Sender: TObject);
+    procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
 
   private
     //Filtros relativos a la vista
@@ -183,6 +187,23 @@ begin
   RefrescarFiltro;
 end;
 
+procedure TfrViewFacturasProveedor.cxGridViewNUM_COPIASCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
+    ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
+    ADone := True;
+  end;
+end;
+
 procedure TfrViewFacturasProveedor.cxGridViewStylesGetContentStyle(
   Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
   AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
diff --git a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas
index 7420268e..976ed693 100644
--- a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas	
+++ b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas	
@@ -102,46 +102,6 @@ begin
   inherited;
 end;
 
-
-{function THistoricoMovimientosController.ExtraerSeleccionados(AArticulos: IBizHistoricoMovimientos): IBizHistoricoMovimientos;
-var
-  ASeleccionados : IBizHistoricoMovimientos;
-begin
-  ASeleccionados := (Self.Buscar(ID_NULO) as IBizHistoricoMovimientos);
-  CopyDataTable(AArticulos.DataTable, ASeleccionados.DataTable, True);
-  Result := ASeleccionados;
-end;}
-
-
-{function THistoricoMovimientosController.Ver(AArticulos: IBizHistoricoMovimientos; AHistoricoMovimientos: IBizHistoricoMovimientos): Boolean;
-var
-  AEditor : IEditorEntradaSalidaArticulos;
-begin
-  Result := False;
-  AEditor := NIL;
-  ShowHourglassCursor;
-  try
-    CreateEditor('EditorEntradaSalidaArticulos', IEditorEntradaSalidaArticulos, AEditor);
-    with AEditor do
-    begin
-      Controller := Self; //OJO ORDEN MUY IMPORTANTE
-      Articulos := AArticulos;
-      HistoricoMovimientos := AHistoricoMovimientos;
-    end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      Result := AEditor.ResultadoModalOK;
-      AEditor.Release;
-    finally
-      AEditor := NIL;
-    end;
-end;}
-
 procedure THistoricoMovimientosController.VerTodos(AHistoricoMovimientos: IBizHistoricoMovimientos);
 var
   AEditor : IEditorHistoricoMovimientos;
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.bdsproj b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.bdsproj
index 6ba1ac57..6bec82ab 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.bdsproj	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.bdsproj	
@@ -172,7 +172,7 @@
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>
 	</Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=1
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas
index 07320925..2915643a 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas	
@@ -9,7 +9,7 @@ uses
 type
   IDetallesPedidoProveedorController = interface(IControllerDetallesArticulos)
   ['{942428EC-BCB8-4C56-BFA6-EB9F05D5E0DB}']
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True); overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
     function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
     procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
@@ -33,7 +33,7 @@ type
     function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
 
   public
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True); overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
     function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
     constructor Create; override;
@@ -63,7 +63,7 @@ begin
   end;
 end;
 
-procedure TDetallesPedidoProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor);
+procedure TDetallesPedidoProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True);
 var
   AArticulos: IBizArticulo;
 begin
@@ -71,8 +71,17 @@ begin
   begin
     try
       AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
-      AArticulos := (FArticulosController as IArticulosPedidoProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este pedido a proveedor', True, AProveedor);
-      Add(ADetalles, AArticulos);
+      //Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
+      if ANuevaFila then
+      begin
+        AArticulos := (FArticulosController as IArticulosPedidoProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este pedido a proveedor', True, AProveedor);
+        Add(ADetalles, AArticulos)
+      end
+      else
+      begin
+        AArticulos := (FArticulosController as IArticulosPedidoProveedorController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a este pedido a proveedor', False, AProveedor);
+        RellenarDetalle(ADetalles, AArticulos);
+      end;
     finally
       AArticulos := Nil;
     end;
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
index d4b12889..cb78b10b 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
@@ -6,7 +6,7 @@ interface
 uses
   SysUtils, uDADataTable, uEditorDBItem,
   uControllerBase, uIDataModulePedidosProveedor, uProveedoresController,
-  uDetallesPedidoProveedorController, uBizPedidosProveedor;
+  uDetallesPedidoProveedorController, uBizPedidosProveedor, uViewGridBase;
 
 type
   IPedidosProveedorController = interface(IObservador)
@@ -35,7 +35,7 @@ type
     function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor;
 
     procedure Preview(APedido : IBizPedidoProveedor; AllItems: Boolean = false);
-    procedure Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false);
+    function Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false): Boolean;
 
     procedure RecalcularImportes(APedido: IBizPedidoProveedor);
     function EsModificable(APedido : IBizPedidoProveedor): Boolean;
@@ -44,7 +44,7 @@ type
     function CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion : String; AFechaPagado: TDateTime = 0; DoPost : Boolean = True): Boolean; overload;
     function CambiarSituacion(APedido: IBizPedidoProveedor): Boolean; overload;
 
-    function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
+    function ExtraerSeleccionados(APedido: IBizPedidoProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizPedidoProveedor;
     function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
     procedure RecuperarProveedor(APedido: IBizPedidoProveedor);
 
@@ -101,7 +101,7 @@ type
     function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor;
 
     procedure Preview(APedido : IBizPedidoProveedor; AllItems: Boolean = false);
-    procedure Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false);
+    function Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false): Boolean;
 
     procedure RecalcularImportes(APedido: IBizPedidoProveedor);
     function EsModificable(APedido : IBizPedidoProveedor): Boolean;
@@ -110,7 +110,7 @@ type
     function CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion : String; AFechaRecepcion: TDateTime = 0; DoPost : Boolean = True): Boolean; overload;
     function CambiarSituacion(APedido: IBizPedidoProveedor): Boolean; overload;
 
-    function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
+    function ExtraerSeleccionados(APedido: IBizPedidoProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizPedidoProveedor;
     function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
 
     procedure Limpiardireccion(APedido: IBizPedidoProveedor);
@@ -651,13 +651,26 @@ begin
   end;
 end;
 
-function TPedidosProveedorController.ExtraerSeleccionados(APedido: IBizPedidoProveedor): IBizPedidoProveedor;
+function TPedidosProveedorController.ExtraerSeleccionados(APedido: IBizPedidoProveedor; Const ViewGrid: IViewGridBase = Nil): IBizPedidoProveedor;
 var
   ASeleccionados : IBizPedidoProveedor;
 begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizPedidoProveedor);
   CopyDataTable(APedido.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
 end;
 
 procedure TPedidosProveedorController.FiltrarEmpresa(
@@ -780,12 +793,13 @@ begin
   end;
 end;
 
-procedure TPedidosProveedorController.Print(APedido: IBizPedidoProveedor; AllItems: Boolean = false);
+function TPedidosProveedorController.Print(APedido: IBizPedidoProveedor; AllItems: Boolean = false): Boolean;
 var
   AReportController : IPedidosProveedorReportController;
   ID_Pedidos: TStringList;
 
 begin
+  Result := False;
   AReportController := TPedidosProveedorReportController.Create;
   try
    ID_Pedidos := TStringList.Create;
@@ -807,7 +821,7 @@ begin
    else
      ID_Pedidos.Add(IntToStr(APedido.ID));
 
-    AReportController.Print(ID_Pedidos.CommaText);
+   Result := AReportController.Print(ID_Pedidos.CommaText);
 
   finally
     AReportController := NIL;
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas
index 56cca5ac..1aa96150 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas	
@@ -11,7 +11,7 @@ type
   IPedidosProveedorReportController = interface
   ['{D0686358-251C-43C4-9927-6112F2F4D3B8}']
     procedure Preview(const AID : String);
-    procedure Print(const AID : String);
+    function Print(const AID : String): Boolean;
   end;
 
   TPedidosProveedorReportController = class(TInterfacedObject, IPedidosProveedorReportController)
@@ -23,7 +23,7 @@ type
     destructor Destroy; override;
 
     procedure Preview(const AID : String);
-    procedure Print(const AID : String);
+    function Print(const AID : String): Boolean;
   end;
 
 
@@ -31,7 +31,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorPedidosProveedorPreview,
-  uEditorPreview, uDataModulePedidosProveedor, uEditorBase, cxControls;
+  uEditorPreview, uDataModulePedidosProveedor, uEditorBase, cxControls,
+  schPedidosProveedorClient_Intf;
 
 { TPedidosProveedorReportController }
 
@@ -77,11 +78,12 @@ begin
     AEditor.Preview;
 end;
 
-procedure TPedidosProveedorReportController.Print(const AID : String);
+function TPedidosProveedorReportController.Print(const AID : String): boolean;
 var
   AStream: Binary;
   AEditor : IEditorPedidosProveedorPreview;
 begin
+  Result := False;
   AEditor := NIL;
 
   ShowHourglassCursor;
@@ -98,7 +100,11 @@ begin
   end;
 
   if Assigned(AEditor) then
-    AEditor.Print
+  begin
+    AEditor.TablaImpresion := nme_PedidosProveedor;
+    AEditor.IdTablaImpresion := AID;
+    Result := AEditor.Print;
+  end;
 end;
 
 end.
diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
index dea511f3..0236a4a3 100644
--- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm	
@@ -498,6 +498,17 @@ object DataModulePedidosProveedor: TDataModulePedidosProveedor
         Calculated = False
         Lookup = False
         LookupCache = False
+      end
+      item
+        Name = 'NUM_COPIAS'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
       end>
     Params = <>
     MasterMappingMode = mmDataRequest
@@ -875,7 +886,7 @@ object DataModulePedidosProveedor: TDataModulePedidosProveedor
         Name = 'User'
         ParamType = fIn
         DataType = rtString
-        Value = 'Administrador'
+        Value = 'Luis'
       end
       item
         Name = 'Password'
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
index dcdb3799..80e82584 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas	
@@ -9,12 +9,12 @@ 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_DarReferencia = '{9D9C3B70-4476-4732-B123-47F58F4C108E}';
-  RID_PedidosProveedor = '{416EEEE9-486B-48BB-A166-C897B8AD547B}';
-  RID_PedidosProveedor_Detalles = '{78C3C840-8365-4799-AE68-CF6A6C91A435}';
-  RID_PedidosProveedor_Detalles_Refresh = '{B4C479AA-6A22-4709-98F6-411D9E0D1EA6}';
-  RID_PedidosProveedor_Refresh = '{50C3DBAC-DFDA-4139-BB81-C61BEE0C0169}';
-  RID_PedidosProveedor_Articulos_Pendientes = '{1CBEF2D9-1134-4F0C-8EAB-BBF5A7B1EFFD}';
+  RID_DarReferencia = '{352EF067-18AC-4EC5-938F-7527FA27AB41}';
+  RID_PedidosProveedor = '{7F558FB2-C09A-403E-8CDD-C2FA5061EBF9}';
+  RID_PedidosProveedor_Detalles = '{54D873B1-522E-4520-913C-93A64257BE8D}';
+  RID_PedidosProveedor_Detalles_Refresh = '{8E3D8B4C-F8AA-48A5-8301-1EC9701605CC}';
+  RID_PedidosProveedor_Refresh = '{A8C63D3C-CA6E-4AA8-B66A-4BBCEADDF26C}';
+  RID_PedidosProveedor_Articulos_Pendientes = '{33A1AFBC-0DAC-48AB-9835-5985A5F59428}';
 
   { Data table names }
   nme_DarReferencia = 'DarReferencia';
@@ -66,6 +66,7 @@ const
   fld_PedidosProveedorIVA = 'IVA';
   fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA';
   fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
+  fld_PedidosProveedorNUM_COPIAS = 'NUM_COPIAS';
 
   { PedidosProveedor field indexes }
   idx_PedidosProveedorID = 0;
@@ -103,6 +104,7 @@ const
   idx_PedidosProveedorIVA = 32;
   idx_PedidosProveedorIMPORTE_IVA = 33;
   idx_PedidosProveedorID_FORMA_PAGO = 34;
+  idx_PedidosProveedorNUM_COPIAS = 35;
 
   { PedidosProveedor_Detalles fields }
   fld_PedidosProveedor_DetallesID = 'ID';
@@ -204,6 +206,7 @@ const
   fld_PedidosProveedor_RefreshIVA = 'IVA';
   fld_PedidosProveedor_RefreshIMPORTE_IVA = 'IMPORTE_IVA';
   fld_PedidosProveedor_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO';
+  fld_PedidosProveedor_RefreshNUM_COPIAS = 'NUM_COPIAS';
 
   { PedidosProveedor_Refresh field indexes }
   idx_PedidosProveedor_RefreshID = 0;
@@ -241,6 +244,7 @@ const
   idx_PedidosProveedor_RefreshIVA = 32;
   idx_PedidosProveedor_RefreshIMPORTE_IVA = 33;
   idx_PedidosProveedor_RefreshID_FORMA_PAGO = 34;
+  idx_PedidosProveedor_RefreshNUM_COPIAS = 35;
 
   { PedidosProveedor_Articulos_Pendientes fields }
   fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO';
@@ -261,7 +265,7 @@ const
 type
   { IDarReferencia }
   IDarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{9854A0CD-0C0C-4D9A-958B-81ED1FC86AC3}']
+  ['{7ACFFC47-33BA-425C-9DFA-FA72D8BC6D30}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -290,7 +294,7 @@ type
 
   { IPedidosProveedor }
   IPedidosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{AFABA977-8E05-489D-A958-87E26AF68CB3}']
+  ['{1F5A82AC-6202-4772-939F-5FD2E6AAE0BA}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -362,6 +366,8 @@ type
     procedure SetIMPORTE_IVAValue(const aValue: Currency);
     function GetID_FORMA_PAGOValue: Integer;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
 
 
     { Properties }
@@ -400,6 +406,7 @@ type
     property IVA: Float read GetIVAValue write SetIVAValue;
     property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
   end;
 
   { TPedidosProveedorDataTableRules }
@@ -477,6 +484,8 @@ type
     procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
     function GetID_FORMA_PAGOValue: Integer; virtual;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -514,6 +523,7 @@ type
     property IVA: Float read GetIVAValue write SetIVAValue;
     property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -523,7 +533,7 @@ type
 
   { IPedidosProveedor_Detalles }
   IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{DF7DB57B-BCA8-42B8-91A3-8850DE614323}']
+  ['{18D7051D-B8C3-4A0A-896A-0CB00934D5B5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -630,7 +640,7 @@ type
 
   { IPedidosProveedor_Detalles_Refresh }
   IPedidosProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{7E802AB3-A1DE-4C21-94ED-AE02E2AF26E2}']
+  ['{C2A9B50C-251F-498A-ABD2-673D17077B34}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -737,7 +747,7 @@ type
 
   { IPedidosProveedor_Refresh }
   IPedidosProveedor_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{76FCFAB7-76E6-4AF5-900F-CA7FA8CBFCB8}']
+  ['{346F0E68-4313-4072-ACB1-BA32595D7D42}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -809,6 +819,8 @@ type
     procedure SetIMPORTE_IVAValue(const aValue: Currency);
     function GetID_FORMA_PAGOValue: Integer;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
 
 
     { Properties }
@@ -847,6 +859,7 @@ type
     property IVA: Float read GetIVAValue write SetIVAValue;
     property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
   end;
 
   { TPedidosProveedor_RefreshDataTableRules }
@@ -924,6 +937,8 @@ type
     procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
     function GetID_FORMA_PAGOValue: Integer; virtual;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -961,6 +976,7 @@ type
     property IVA: Float read GetIVAValue write SetIVAValue;
     property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -970,7 +986,7 @@ type
 
   { IPedidosProveedor_Articulos_Pendientes }
   IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
-  ['{E563C62D-7EFC-4215-AB53-8BAECD65B2A1}']
+  ['{672805D4-7AC5-4FF8-941D-B60690C7BB94}']
     { Property getters and setters }
     function GetID_PEDIDOValue: Integer;
     procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -1416,6 +1432,16 @@ begin
   DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].AsInteger := aValue;
 end;
 
+function TPedidosProveedorDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].AsInteger;
+end;
+
+procedure TPedidosProveedorDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].AsInteger := aValue;
+end;
+
 
 { TPedidosProveedor_DetallesDataTableRules }
 constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@@ -2084,6 +2110,16 @@ begin
   DataTable.Fields[idx_PedidosProveedor_RefreshID_FORMA_PAGO].AsInteger := aValue;
 end;
 
+function TPedidosProveedor_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_PedidosProveedor_RefreshNUM_COPIAS].AsInteger;
+end;
+
+procedure TPedidosProveedor_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_PedidosProveedor_RefreshNUM_COPIAS].AsInteger := aValue;
+end;
+
 
 { TPedidosProveedor_Articulos_PendientesDataTableRules }
 constructor TPedidosProveedor_Articulos_PendientesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
index dae14a82..14637815 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas	
@@ -9,17 +9,17 @@ 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_DarReferenciaDelta = '{1076075E-7674-4459-B181-08AB1CF2BC9A}';
-  RID_PedidosProveedorDelta = '{88605485-11EC-471D-ACCA-7949918142A2}';
-  RID_PedidosProveedor_DetallesDelta = '{FF1E4E43-4750-4E28-9D45-AD0908AC0D8D}';
-  RID_PedidosProveedor_Detalles_RefreshDelta = '{FF54D9C9-FAFE-4ADE-BD9D-7A380E8CA8B0}';
-  RID_PedidosProveedor_RefreshDelta = '{8B4575ED-6808-4DCA-9DE5-4C9EB469284F}';
-  RID_PedidosProveedor_Articulos_PendientesDelta = '{A88E8B3E-1623-4650-BE75-89AA21D80839}';
+  RID_DarReferenciaDelta = '{431FAF99-6789-4FA4-9A91-32E5EF0A12C4}';
+  RID_PedidosProveedorDelta = '{2F368F7D-0930-4904-8052-9E28770C63F9}';
+  RID_PedidosProveedor_DetallesDelta = '{DAC76FCD-4F4F-4A7B-96F4-59BB7BF62613}';
+  RID_PedidosProveedor_Detalles_RefreshDelta = '{482666CD-B5B1-4EEE-906A-FD791C4FD32F}';
+  RID_PedidosProveedor_RefreshDelta = '{4526DFCD-81B4-47F9-A4D6-324BCD50DD86}';
+  RID_PedidosProveedor_Articulos_PendientesDelta = '{F18E66C5-86C6-4207-9B9D-5B95011FF534}';
 
 type
   { IDarReferenciaDelta }
   IDarReferenciaDelta = interface(IDarReferencia)
-  ['{1076075E-7674-4459-B181-08AB1CF2BC9A}']
+  ['{431FAF99-6789-4FA4-9A91-32E5EF0A12C4}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -48,7 +48,7 @@ type
 
   { IPedidosProveedorDelta }
   IPedidosProveedorDelta = interface(IPedidosProveedor)
-  ['{88605485-11EC-471D-ACCA-7949918142A2}']
+  ['{2F368F7D-0930-4904-8052-9E28770C63F9}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -85,6 +85,7 @@ type
     function GetOldIVAValue : Float;
     function GetOldIMPORTE_IVAValue : Currency;
     function GetOldID_FORMA_PAGOValue : Integer;
+    function GetOldNUM_COPIASValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -122,6 +123,7 @@ type
     property OldIVA : Float read GetOldIVAValue;
     property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
   end;
 
   { TPedidosProveedorBusinessProcessorRules }
@@ -234,6 +236,9 @@ type
     function GetID_FORMA_PAGOValue: Integer; virtual;
     function GetOldID_FORMA_PAGOValue: Integer; virtual;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -306,6 +311,8 @@ type
     property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
     property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -315,7 +322,7 @@ type
 
   { IPedidosProveedor_DetallesDelta }
   IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
-  ['{FF1E4E43-4750-4E28-9D45-AD0908AC0D8D}']
+  ['{DAC76FCD-4F4F-4A7B-96F4-59BB7BF62613}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
@@ -435,7 +442,7 @@ type
 
   { IPedidosProveedor_Detalles_RefreshDelta }
   IPedidosProveedor_Detalles_RefreshDelta = interface(IPedidosProveedor_Detalles_Refresh)
-  ['{FF54D9C9-FAFE-4ADE-BD9D-7A380E8CA8B0}']
+  ['{482666CD-B5B1-4EEE-906A-FD791C4FD32F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
@@ -555,7 +562,7 @@ type
 
   { IPedidosProveedor_RefreshDelta }
   IPedidosProveedor_RefreshDelta = interface(IPedidosProveedor_Refresh)
-  ['{8B4575ED-6808-4DCA-9DE5-4C9EB469284F}']
+  ['{4526DFCD-81B4-47F9-A4D6-324BCD50DD86}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -592,6 +599,7 @@ type
     function GetOldIVAValue : Float;
     function GetOldIMPORTE_IVAValue : Currency;
     function GetOldID_FORMA_PAGOValue : Integer;
+    function GetOldNUM_COPIASValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -629,6 +637,7 @@ type
     property OldIVA : Float read GetOldIVAValue;
     property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
   end;
 
   { TPedidosProveedor_RefreshBusinessProcessorRules }
@@ -741,6 +750,9 @@ type
     function GetID_FORMA_PAGOValue: Integer; virtual;
     function GetOldID_FORMA_PAGOValue: Integer; virtual;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -813,6 +825,8 @@ type
     property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
     property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -822,7 +836,7 @@ type
 
   { IPedidosProveedor_Articulos_PendientesDelta }
   IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
-  ['{A88E8B3E-1623-4650-BE75-89AA21D80839}']
+  ['{F18E66C5-86C6-4207-9B9D-5B95011FF534}']
     { Property getters and setters }
     function GetOldID_PEDIDOValue : Integer;
     function GetOldREFERENCIAValue : String;
@@ -1456,6 +1470,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := aValue;
 end;
 
+function TPedidosProveedorBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNUM_COPIAS];
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS] := aValue;
+end;
+
 
 { TPedidosProveedor_DetallesBusinessProcessorRules }
 constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -2441,6 +2470,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_RefreshID_FORMA_PAGO] := aValue;
 end;
 
+function TPedidosProveedor_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_RefreshNUM_COPIAS];
+end;
+
+function TPedidosProveedor_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_RefreshNUM_COPIAS];
+end;
+
+procedure TPedidosProveedor_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_RefreshNUM_COPIAS] := aValue;
+end;
+
 
 { TPedidosProveedor_Articulos_PendientesBusinessProcessorRules }
 constructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
index 50b3c2f1..0424fed2 100644
--- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm	
@@ -78,16 +78,20 @@ object srvPedidosProveedor: TsrvPedidosProveedor
               '    FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_PEDIDO_CLIENTE, ' +
               #10'    REF_PED_CLIENTE, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, '#10' ' +
               '   IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, '#10'    ID_' +
-              'FORMA_PAGO'#10'  FROM'#10'    V_PEDIDOS_PROVEEDOR'
+              'FORMA_PAGO, NUM_COPIAS'#10'  FROM'#10'    V_PEDIDOS_PROVEEDOR'
             StatementType = stSQL
             ColumnMappings = <
               item
-                DatasetField = 'USUARIO'
-                TableField = 'USUARIO'
+                DatasetField = 'ID'
+                TableField = 'ID'
               end
               item
-                DatasetField = 'OBSERVACIONES'
-                TableField = 'OBSERVACIONES'
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
+              item
+                DatasetField = 'ID_PROVEEDOR'
+                TableField = 'ID_PROVEEDOR'
               end
               item
                 DatasetField = 'NOMBRE'
@@ -97,29 +101,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
               end
-              item
-                DatasetField = 'ID'
-                TableField = 'ID'
-              end
-              item
-                DatasetField = 'ID_EMPRESA'
-                TableField = 'ID_EMPRESA'
-              end
               item
                 DatasetField = 'SITUACION'
                 TableField = 'SITUACION'
               end
               item
-                DatasetField = 'FECHA_ALTA'
-                TableField = 'FECHA_ALTA'
-              end
-              item
-                DatasetField = 'FECHA_MODIFICACION'
-                TableField = 'FECHA_MODIFICACION'
-              end
-              item
-                DatasetField = 'ID_PROVEEDOR'
-                TableField = 'ID_PROVEEDOR'
+                DatasetField = 'FECHA_ENVIO'
+                TableField = 'FECHA_ENVIO'
               end
               item
                 DatasetField = 'FECHA_PEDIDO'
@@ -134,20 +122,28 @@ object srvPedidosProveedor: TsrvPedidosProveedor
                 TableField = 'FECHA_ENTREGA'
               end
               item
-                DatasetField = 'INCIDENCIAS'
-                TableField = 'INCIDENCIAS'
+                DatasetField = 'ID_ALMACEN'
+                TableField = 'ID_ALMACEN'
+              end
+              item
+                DatasetField = 'NOMBRE_ALMACEN'
+                TableField = 'NOMBRE_ALMACEN'
+              end
+              item
+                DatasetField = 'OBSERVACIONES'
+                TableField = 'OBSERVACIONES'
               end
               item
                 DatasetField = 'IMPORTE_TOTAL'
                 TableField = 'IMPORTE_TOTAL'
               end
               item
-                DatasetField = 'INCIDENCIAS_ACTIVAS'
-                TableField = 'INCIDENCIAS_ACTIVAS'
+                DatasetField = 'INCIDENCIAS'
+                TableField = 'INCIDENCIAS'
               end
               item
-                DatasetField = 'ID_ALMACEN'
-                TableField = 'ID_ALMACEN'
+                DatasetField = 'INCIDENCIAS_ACTIVAS'
+                TableField = 'INCIDENCIAS_ACTIVAS'
               end
               item
                 DatasetField = 'CALLE'
@@ -173,10 +169,26 @@ object srvPedidosProveedor: TsrvPedidosProveedor
                 DatasetField = 'TELEFONO'
                 TableField = 'TELEFONO'
               end
+              item
+                DatasetField = 'FECHA_ALTA'
+                TableField = 'FECHA_ALTA'
+              end
+              item
+                DatasetField = 'FECHA_MODIFICACION'
+                TableField = 'FECHA_MODIFICACION'
+              end
+              item
+                DatasetField = 'USUARIO'
+                TableField = 'USUARIO'
+              end
               item
                 DatasetField = 'ID_PEDIDO_CLIENTE'
                 TableField = 'ID_PEDIDO_CLIENTE'
               end
+              item
+                DatasetField = 'REF_PED_CLIENTE'
+                TableField = 'REF_PED_CLIENTE'
+              end
               item
                 DatasetField = 'IMPORTE_NETO'
                 TableField = 'IMPORTE_NETO'
@@ -210,16 +222,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
                 TableField = 'ID_FORMA_PAGO'
               end
               item
-                DatasetField = 'FECHA_ENVIO'
-                TableField = 'FECHA_ENVIO'
-              end
-              item
-                DatasetField = 'NOMBRE_ALMACEN'
-                TableField = 'NOMBRE_ALMACEN'
-              end
-              item
-                DatasetField = 'REF_PED_CLIENTE'
-                TableField = 'REF_PED_CLIENTE'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'PedidosProveedor'
@@ -587,6 +591,17 @@ object srvPedidosProveedor: TsrvPedidosProveedor
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -1115,17 +1130,21 @@ object srvPedidosProveedor: TsrvPedidosProveedor
               '    FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_PEDIDO_CLIENTE, ' +
               #10'    REF_PED_CLIENTE, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, '#10' ' +
               '   IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, '#10'    ID_' +
-              'FORMA_PAGO'#10'  FROM'#10'    V_PEDIDOS_PROVEEDOR'#10'WHERE V_PEDIDOS_PROVEE' +
-              'DOR.ID = :ID'
+              'FORMA_PAGO, NUM_COPIAS'#10'  FROM'#10'    V_PEDIDOS_PROVEEDOR'#10'WHERE V_PE' +
+              'DIDOS_PROVEEDOR.ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
-                DatasetField = 'USUARIO'
-                TableField = 'USUARIO'
+                DatasetField = 'ID'
+                TableField = 'ID'
               end
               item
-                DatasetField = 'OBSERVACIONES'
-                TableField = 'OBSERVACIONES'
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
+              item
+                DatasetField = 'ID_PROVEEDOR'
+                TableField = 'ID_PROVEEDOR'
               end
               item
                 DatasetField = 'NOMBRE'
@@ -1135,29 +1154,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
               end
-              item
-                DatasetField = 'ID'
-                TableField = 'ID'
-              end
-              item
-                DatasetField = 'ID_EMPRESA'
-                TableField = 'ID_EMPRESA'
-              end
               item
                 DatasetField = 'SITUACION'
                 TableField = 'SITUACION'
               end
               item
-                DatasetField = 'FECHA_ALTA'
-                TableField = 'FECHA_ALTA'
-              end
-              item
-                DatasetField = 'FECHA_MODIFICACION'
-                TableField = 'FECHA_MODIFICACION'
-              end
-              item
-                DatasetField = 'ID_PROVEEDOR'
-                TableField = 'ID_PROVEEDOR'
+                DatasetField = 'FECHA_ENVIO'
+                TableField = 'FECHA_ENVIO'
               end
               item
                 DatasetField = 'FECHA_PEDIDO'
@@ -1172,20 +1175,28 @@ object srvPedidosProveedor: TsrvPedidosProveedor
                 TableField = 'FECHA_ENTREGA'
               end
               item
-                DatasetField = 'INCIDENCIAS'
-                TableField = 'INCIDENCIAS'
+                DatasetField = 'ID_ALMACEN'
+                TableField = 'ID_ALMACEN'
+              end
+              item
+                DatasetField = 'NOMBRE_ALMACEN'
+                TableField = 'NOMBRE_ALMACEN'
+              end
+              item
+                DatasetField = 'OBSERVACIONES'
+                TableField = 'OBSERVACIONES'
               end
               item
                 DatasetField = 'IMPORTE_TOTAL'
                 TableField = 'IMPORTE_TOTAL'
               end
               item
-                DatasetField = 'INCIDENCIAS_ACTIVAS'
-                TableField = 'INCIDENCIAS_ACTIVAS'
+                DatasetField = 'INCIDENCIAS'
+                TableField = 'INCIDENCIAS'
               end
               item
-                DatasetField = 'ID_ALMACEN'
-                TableField = 'ID_ALMACEN'
+                DatasetField = 'INCIDENCIAS_ACTIVAS'
+                TableField = 'INCIDENCIAS_ACTIVAS'
               end
               item
                 DatasetField = 'CALLE'
@@ -1211,10 +1222,26 @@ object srvPedidosProveedor: TsrvPedidosProveedor
                 DatasetField = 'TELEFONO'
                 TableField = 'TELEFONO'
               end
+              item
+                DatasetField = 'FECHA_ALTA'
+                TableField = 'FECHA_ALTA'
+              end
+              item
+                DatasetField = 'FECHA_MODIFICACION'
+                TableField = 'FECHA_MODIFICACION'
+              end
+              item
+                DatasetField = 'USUARIO'
+                TableField = 'USUARIO'
+              end
               item
                 DatasetField = 'ID_PEDIDO_CLIENTE'
                 TableField = 'ID_PEDIDO_CLIENTE'
               end
+              item
+                DatasetField = 'REF_PED_CLIENTE'
+                TableField = 'REF_PED_CLIENTE'
+              end
               item
                 DatasetField = 'IMPORTE_NETO'
                 TableField = 'IMPORTE_NETO'
@@ -1248,16 +1275,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
                 TableField = 'ID_FORMA_PAGO'
               end
               item
-                DatasetField = 'FECHA_ENVIO'
-                TableField = 'FECHA_ENVIO'
-              end
-              item
-                DatasetField = 'NOMBRE_ALMACEN'
-                TableField = 'NOMBRE_ALMACEN'
-              end
-              item
-                DatasetField = 'REF_PED_CLIENTE'
-                TableField = 'REF_PED_CLIENTE'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'PedidosProveedor_Refresh'
@@ -1625,6 +1644,17 @@ object srvPedidosProveedor: TsrvPedidosProveedor
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
index 3dfd202a..f1592dd2 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm	
@@ -103,6 +103,9 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
             Kind = skSum
             Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL
           end>
+        inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
+          IsCaptionAssigned = True
+        end
         inherited cxGridViewCODIGO: TcxGridDBColumn
           IsCaptionAssigned = True
         end
@@ -117,18 +120,18 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
           Width = 700
           ExplicitWidth = 700
           inherited txtFiltroTodo: TcxTextEdit
-            ExplicitWidth = 273
-            Width = 273
+            ExplicitWidth = 457
+            Width = 457
           end
           inherited edtFechaIniFiltro: TcxDateEdit
-            ExplicitWidth = 121
-            Width = 121
+            ExplicitWidth = 239
+            Width = 239
           end
           inherited edtFechaFinFiltro: TcxDateEdit
-            Left = 292
-            ExplicitLeft = 292
-            ExplicitWidth = 294
-            Width = 294
+            Left = 386
+            ExplicitLeft = 386
+            ExplicitWidth = 266
+            Width = 266
           end
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
index a218649d..bceafac4 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas	
@@ -139,7 +139,7 @@ begin
     if (Application.MessageBox('¿Desea borrar los pedidos de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then
     begin
       SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
-      APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor;
+      APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoProveedor;
     end
   end
   else begin
@@ -224,13 +224,14 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
-                    APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor;
+                    APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoProveedor;
                   end
                   else
                     APedidos := Pedidos;
 
                   if Assigned(APedidos) then
-                     FController.Print(APedidos, AllItems);
+                     if FController.Print(APedidos, AllItems) then
+                        RefrescarInterno;
                 end;
       end;
     end;
@@ -304,7 +305,7 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
-                    APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor;
+                    APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoProveedor;
                   end
                   else
                     APedidos := Pedidos;
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.pas
index fb562684..aec78864 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.pas	
@@ -29,6 +29,7 @@ type
     procedure SetPedido(const Value: IBizPedidoProveedor);
 
     procedure AnadirArticulosInterno; override;
+    procedure RellenarArticulosInterno; override;    
     function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
 
   public
@@ -65,6 +66,14 @@ begin
   Result := FPedido;
 end;
 
+procedure TfrViewDetallesPedidoProveedor.RellenarArticulosInterno;
+begin
+//No sé porque está en este módulo hecho así, supongo que por seguridad.
+  if Assigned(Pedido) and Assigned(Pedido.Proveedor)
+  then (Controller as IDetallesPedidoProveedorController).AnadirArticulos(Detalles, Pedido.Proveedor, False)
+  else (Controller as IDetallesPedidoProveedorController).AnadirArticulos(Detalles, False);
+end;
+
 procedure TfrViewDetallesPedidoProveedor.SetPedido(const Value: IBizPedidoProveedor);
 begin
   FPedido := Value;
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
index ebe189ca..fab5e1c2 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm	
@@ -33,9 +33,19 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
           Column = cxGridViewIMPORTE_TOTAL
         end>
       OptionsView.GroupFooters = gfAlwaysVisible
+      object cxGridViewNUM_COPIAS: TcxGridDBColumn
+        DataBinding.FieldName = 'NUM_COPIAS'
+        OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
+        MinWidth = 30
+        Options.HorzSizing = False
+        VisibleForCustomization = False
+        Width = 30
+        IsCaptionAssigned = True
+      end
       object cxGridViewCODIGO: TcxGridDBColumn
         DataBinding.FieldName = 'ID'
         Visible = False
+        OnCustomDrawCell = cxGridViewCODIGOCustomDrawCell
         IsCaptionAssigned = True
       end
       object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
@@ -334,6 +344,20 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
           CF0000000049454E44AE426082}
         Name = 'PngImage3'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
+          83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
+          CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
+          F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
+          28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
+          B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
+          2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
+          B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
+        Name = 'PngImage4'
+        Background = clWindow
       end>
     Left = 56
     Top = 48
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
index 1f7407b8..1ad8938a 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas	
@@ -55,6 +55,7 @@ type
     TBXSeparatorItem1: TTBXSeparatorItem;
     TBXItem3: TTBXItem;
     TBXSeparatorItem2: TTBXSeparatorItem;
+    cxGridViewNUM_COPIAS: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@@ -69,6 +70,9 @@ type
     procedure actAlmacenUpdate(Sender: TObject);
     procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
       Y: Integer);
+    procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
 
   private
     //Filtros relativos a la vista
@@ -227,6 +231,23 @@ begin
   end;
 end;
 
+procedure TfrViewPedidosProveedor.cxGridViewNUM_COPIASCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
+    ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
+    ADone := True;
+  end;
+end;
+
 procedure TfrViewPedidosProveedor.cxGridViewStylesGetContentStyle(Sender:
         TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
         TcxCustomGridTableItem; out AStyle: TcxStyle);
diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.bdsproj b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.bdsproj
index f9c334e1..bbaf6656 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.bdsproj	
+++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.bdsproj	
@@ -172,7 +172,7 @@
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>
 	</Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=5111
 Activate=1
diff --git a/Source/Modulos/Pedidos de cliente/Controller/uDetallesPedidoClienteController.pas b/Source/Modulos/Pedidos de cliente/Controller/uDetallesPedidoClienteController.pas
index 865aa914..aef50271 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/uDetallesPedidoClienteController.pas	
+++ b/Source/Modulos/Pedidos de cliente/Controller/uDetallesPedidoClienteController.pas	
@@ -9,7 +9,7 @@ uses
 type
   IDetallesPedidoClienteController = interface(IControllerDetallesArticulos)
   ['{8D1D3559-E695-4962-9999-404B26B50D6C}']
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True); overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
     procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
     function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
@@ -31,7 +31,7 @@ type
     function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
 
   public
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); reintroduce; overload; 
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True); reintroduce; overload; 
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
     constructor Create; override;
     destructor Destroy; override;
@@ -60,7 +60,7 @@ begin
   end;
 end;
 
-procedure TDetallesPedidoClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente);
+procedure TDetallesPedidoClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True);
 var
   AArticulos: IBizArticulo;
 begin
@@ -68,8 +68,17 @@ begin
   begin
     try
       AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
-      AArticulos := (FArticulosController as IArticulosPedidoClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este pedido de cliente', True);
-      Add(ADetalles, AArticulos);
+      //Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
+      if ANuevaFila then
+      begin
+        AArticulos := (FArticulosController as IArticulosPedidoClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este presupuesto de cliente', True);
+        Add(ADetalles, AArticulos)
+      end
+      else
+      begin
+        AArticulos := (FArticulosController as IArticulosPedidoClienteController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a este presupuesto de cliente', False);
+        RellenarDetalle(ADetalles, AArticulos);
+      end;
     finally
       AArticulos := Nil;
     end;
diff --git a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
index 1ce347e6..ad936afe 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas	
+++ b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas	
@@ -7,7 +7,7 @@ uses
   SysUtils, uDADataTable, uEditorDBItem,
   uControllerBase, uIDataModulePedidosCliente, uClientesController,
   uDetallesPedidoClienteController, uBizPedidosCliente, uBizDireccionesContacto,
-  uBizDetallesPedidoCliente;
+  uBizDetallesPedidoCliente, uViewGridBase;
 
 type
   IPedidosClienteController = interface(IObservador)
@@ -38,7 +38,7 @@ type
     function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
 
     function Localizar(APedidos: IBizPedidoCliente; const ID : Integer): Boolean;
-    function ExtraerSeleccionados(APedido: IBizPedidoCliente) : IBizPedidoCliente;
+    function ExtraerSeleccionados(APedido: IBizPedidoCliente; Const ViewGrid: IViewGridBase = Nil) : IBizPedidoCliente;
     function ElegirPedidos(APedido: IBizPedidoCliente; AMensaje: String; AMultiSelect: Boolean): IBizPedidoCliente;
 
     procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
@@ -50,7 +50,7 @@ type
     function EsEliminable(APedido : IBizPedidoCliente): Boolean;
 
     procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = false);
-    procedure Print(APedido : IBizPedidoCliente; AllItems: Boolean = false);
+    function Print(APedido : IBizPedidoCliente; AllItems: Boolean = false): Boolean;
 
     function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
   end;
@@ -106,7 +106,7 @@ type
       APedido: IBizPedidoCliente);
 
     procedure QuitarDireccionEnvio(APedido: IBizPedidoCliente);
-    function ExtraerSeleccionados(APedido: IBizPedidoCliente) : IBizPedidoCliente;
+    function ExtraerSeleccionados(APedido: IBizPedidoCliente; Const ViewGrid: IViewGridBase = Nil) : IBizPedidoCliente;
     function ElegirPedidos(APedido: IBizPedidoCliente; AMensaje: String; AMultiSelect: Boolean): IBizPedidoCliente;
 
     procedure RecalcularImportes(APedido : IBizPedidoCliente);
@@ -114,7 +114,7 @@ type
     function EsEliminable(APedido : IBizPedidoCliente): Boolean;
 
     procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = false);
-    procedure Print(APedido : IBizPedidoCliente; AllItems: Boolean = false);
+    function Print(APedido : IBizPedidoCliente; AllItems: Boolean = false): Boolean;
 
     function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
   end;
@@ -635,13 +635,26 @@ begin
   end;
 end;
 
-function TPedidosClienteController.ExtraerSeleccionados(APedido: IBizPedidoCliente): IBizPedidoCliente;
+function TPedidosClienteController.ExtraerSeleccionados(APedido: IBizPedidoCliente; Const ViewGrid: IViewGridBase = Nil): IBizPedidoCliente;
 var
   ASeleccionados : IBizPedidoCliente;
 begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizPedidoCliente);
   CopyDataTable(APedido.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
 end;
 
 procedure TPedidosClienteController.FiltrarEmpresa(
@@ -801,12 +814,13 @@ begin
   end;
 end;
 
-procedure TPedidosClienteController.Print(APedido: IBizPedidoCliente; AllItems: Boolean = false);
+function TPedidosClienteController.Print(APedido: IBizPedidoCliente; AllItems: Boolean = false): Boolean;
 var
   AReportController : IPedidosClienteReportController;
   ID_Pedidos: TStringList;
 
 begin
+  Result := False;
   AReportController := TPedidosClienteReportController.Create;
   try
    ID_Pedidos := TStringList.Create;
@@ -828,7 +842,7 @@ begin
    else
      ID_Pedidos.Add(IntToStr(APedido.ID));
 
-    AReportController.Print(ID_Pedidos.CommaText);
+    Result := AReportController.Print(ID_Pedidos.CommaText);
 
   finally
     AReportController := NIL;
diff --git a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas
index cc28a8a5..b72a01a5 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas	
+++ b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas	
@@ -11,7 +11,7 @@ type
   IPedidosClienteReportController = interface
   ['{D0686358-251C-43C4-9927-6112F2F4D3B8}']
     procedure Preview(const AID : String);
-    procedure Print(const AID : String);
+    function Print(const AID : String): Boolean;
   end;
 
   TPedidosClienteReportController = class(TInterfacedObject, IPedidosClienteReportController)
@@ -23,7 +23,7 @@ type
     destructor Destroy; override;
 
     procedure Preview(const AID : String);
-    procedure Print(const AID : String);
+    function Print(const AID : String): Boolean;
   end;
 
 
@@ -31,7 +31,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorPedidosClientePreview,
-  uEditorPreview, uDataModulePedidosCliente, uEditorBase, cxControls;
+  uEditorPreview, uDataModulePedidosCliente, uEditorBase, cxControls,
+  schPedidosClienteClient_Intf;
 
 { TPedidosClienteReportController }
 
@@ -77,11 +78,12 @@ begin
     AEditor.Preview;
 end;
 
-procedure TPedidosClienteReportController.Print(const AID : String);
+function TPedidosClienteReportController.Print(const AID : String): Boolean;
 var
   AStream: Binary;
   AEditor : IEditorPedidosClientePreview;
 begin
+  Result := False;
   AEditor := NIL;
 
   ShowHourglassCursor;
@@ -98,7 +100,11 @@ begin
   end;
 
   if Assigned(AEditor) then
-    AEditor.Print
+  begin
+    AEditor.TablaImpresion := nme_PedidosCliente;
+    AEditor.IdTablaImpresion := AID;
+    Result := AEditor.Print;
+  end;
 end;
 
 end.
diff --git a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm
index b3501335..c4178010 100644
--- a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm	
+++ b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm	
@@ -49,7 +49,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
         Name = 'User'
         ParamType = fIn
         DataType = rtString
-        Value = 'Administrador'
+        Value = 'Luis'
       end
       item
         Name = 'Password'
@@ -481,6 +481,17 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
         Calculated = False
         Lookup = False
         LookupCache = False
+      end
+      item
+        Name = 'NUM_COPIAS'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
       end>
     Params = <>
     MasterMappingMode = mmDataRequest
diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
index 18fccfac..98ad66a2 100644
--- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas	
+++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas	
@@ -9,13 +9,13 @@ 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_PedidoCliente_ArticulosPendientesPedirAProv = '{C1999334-468B-4FBC-BBF4-C42B5EDD082A}';
-  RID_DarReferencia = '{49BABE0B-7F00-4B69-BDF2-1EEB55541733}';
-  RID_PedidosCliente = '{AA507B71-8CC4-44D0-A83A-598C0F731BB0}';
-  RID_PedidosCliente_Detalles = '{245CC401-9C4E-471E-B814-187C95EF45F1}';
-  RID_PedidosCliente_Refresh = '{16964D63-320B-460C-93B5-1ACD6A05C101}';
-  RID_PedidosCliente_Detalles_Refresh = '{DD5D0403-B1AB-45D9-8B59-D1F8F035B22F}';
-  RID_PedidoCliente_Articulos_Pendientes = '{445F176E-9207-4925-8CE6-CBB4A66C4861}';
+  RID_PedidoCliente_ArticulosPendientesPedirAProv = '{8DE748FF-6C86-47C4-830D-9D98F720D9A2}';
+  RID_DarReferencia = '{11CE47BF-D7D1-4880-8E21-8B646392B2FF}';
+  RID_PedidosCliente = '{7D754DBC-3690-4000-BB2B-F7680D856532}';
+  RID_PedidosCliente_Detalles = '{11F70932-738B-4C61-B80B-822863835CB9}';
+  RID_PedidosCliente_Refresh = '{3F0FCA37-E56F-495C-8B99-5B427BA0B27C}';
+  RID_PedidosCliente_Detalles_Refresh = '{0D7003CE-A998-403E-8BF7-A6EE94111EBA}';
+  RID_PedidoCliente_Articulos_Pendientes = '{DD6873C4-96B5-4410-93FA-86775F816CA5}';
 
   { Data table names }
   nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv';
@@ -80,6 +80,7 @@ const
   fld_PedidosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
   fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB';
   fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
+  fld_PedidosClienteNUM_COPIAS = 'NUM_COPIAS';
 
   { PedidosCliente field indexes }
   idx_PedidosClienteID = 0;
@@ -113,6 +114,7 @@ const
   idx_PedidosClienteID_FORMA_PAGO = 28;
   idx_PedidosClienteREF_TIENDA_WEB = 29;
   idx_PedidosClienteFECHA_PREVISTA_ENVIO = 30;
+  idx_PedidosClienteNUM_COPIAS = 31;
 
   { PedidosCliente_Detalles fields }
   fld_PedidosCliente_DetallesID = 'ID';
@@ -178,6 +180,7 @@ const
   fld_PedidosCliente_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO';
   fld_PedidosCliente_RefreshREF_TIENDA_WEB = 'REF_TIENDA_WEB';
   fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
+  fld_PedidosCliente_RefreshNUM_COPIAS = 'NUM_COPIAS';
 
   { PedidosCliente_Refresh field indexes }
   idx_PedidosCliente_RefreshID = 0;
@@ -211,6 +214,7 @@ const
   idx_PedidosCliente_RefreshID_FORMA_PAGO = 28;
   idx_PedidosCliente_RefreshREF_TIENDA_WEB = 29;
   idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO = 30;
+  idx_PedidosCliente_RefreshNUM_COPIAS = 31;
 
   { PedidosCliente_Detalles_Refresh fields }
   fld_PedidosCliente_Detalles_RefreshID = 'ID';
@@ -259,7 +263,7 @@ const
 type
   { IPedidoCliente_ArticulosPendientesPedirAProv }
   IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
-  ['{972D4859-B3C6-4A05-90D5-B81E5B0221BF}']
+  ['{EDDEC887-DCC3-4491-AFBB-125B5FD6ACE0}']
     { Property getters and setters }
     function GetID_PEDIDOValue: Integer;
     procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -318,7 +322,7 @@ type
 
   { IDarReferencia }
   IDarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{653123F4-C264-46AF-BEFE-CD2CF048FBEA}']
+  ['{3EADC907-F5EE-4E69-B8BD-C821B9293A95}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -347,7 +351,7 @@ type
 
   { IPedidosCliente }
   IPedidosCliente = interface(IDAStronglyTypedDataTable)
-  ['{05AC916D-59B2-4E42-AD09-1A0B413BFA1B}']
+  ['{ADDEFA2C-3FE4-48F2-8670-33A5041DC887}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -411,6 +415,8 @@ type
     procedure SetREF_TIENDA_WEBValue(const aValue: Integer);
     function GetFECHA_PREVISTA_ENVIOValue: DateTime;
     procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
 
 
     { Properties }
@@ -445,6 +451,7 @@ type
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
     property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
   end;
 
   { TPedidosClienteDataTableRules }
@@ -514,6 +521,8 @@ type
     procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual;
     function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
     procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -547,6 +556,7 @@ type
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
     property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -556,7 +566,7 @@ type
 
   { IPedidosCliente_Detalles }
   IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{B9BEFE7C-50C5-41A4-9C1E-69F82E33B239}']
+  ['{87978E69-39E2-401D-9D6A-0439CD0538B7}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -663,7 +673,7 @@ type
 
   { IPedidosCliente_Refresh }
   IPedidosCliente_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{B791EB7F-8133-4E13-8E65-9D728AEF936C}']
+  ['{3AA0B5AC-FE59-4BE4-AB86-E99A713BB84E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -727,6 +737,8 @@ type
     procedure SetREF_TIENDA_WEBValue(const aValue: Integer);
     function GetFECHA_PREVISTA_ENVIOValue: DateTime;
     procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
 
 
     { Properties }
@@ -761,6 +773,7 @@ type
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
     property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
   end;
 
   { TPedidosCliente_RefreshDataTableRules }
@@ -830,6 +843,8 @@ type
     procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual;
     function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
     procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -863,6 +878,7 @@ type
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
     property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -872,7 +888,7 @@ type
 
   { IPedidosCliente_Detalles_Refresh }
   IPedidosCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{3FA4269B-0776-41DE-9F4A-78033659716B}']
+  ['{FAEEFA10-4879-47FB-8408-AB1AD9736FD8}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -979,7 +995,7 @@ type
 
   { IPedidoCliente_Articulos_Pendientes }
   IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
-  ['{64E773A4-B774-4521-801B-50E465070510}']
+  ['{3D7E5529-F41E-4E90-89C8-E9C7133FF5E0}']
     { Property getters and setters }
     function GetID_ARTICULOValue: Integer;
     procedure SetID_ARTICULOValue(const aValue: Integer);
@@ -1445,6 +1461,16 @@ begin
   DataTable.Fields[idx_PedidosClienteFECHA_PREVISTA_ENVIO].AsDateTime := aValue;
 end;
 
+function TPedidosClienteDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_PedidosClienteNUM_COPIAS].AsInteger;
+end;
+
+procedure TPedidosClienteDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_PedidosClienteNUM_COPIAS].AsInteger := aValue;
+end;
+
 
 { TPedidosCliente_DetallesDataTableRules }
 constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@@ -1921,6 +1947,16 @@ begin
   DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO].AsDateTime := aValue;
 end;
 
+function TPedidosCliente_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_PedidosCliente_RefreshNUM_COPIAS].AsInteger;
+end;
+
+procedure TPedidosCliente_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_PedidosCliente_RefreshNUM_COPIAS].AsInteger := aValue;
+end;
+
 
 { TPedidosCliente_Detalles_RefreshDataTableRules }
 constructor TPedidosCliente_Detalles_RefreshDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
index 2a53b466..9f92f3df 100644
--- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas	
+++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas	
@@ -9,18 +9,18 @@ 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_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{EE8CBDDC-104A-4492-8D5C-08135D131450}';
-  RID_DarReferenciaDelta = '{7E08AFA3-C994-4B1E-B289-148BCA112E05}';
-  RID_PedidosClienteDelta = '{20C24610-4E5A-4CFE-8564-8D56B08C897A}';
-  RID_PedidosCliente_DetallesDelta = '{2CDB083D-9BB7-4FEA-90E8-D79AA05F09F7}';
-  RID_PedidosCliente_RefreshDelta = '{FBBE0466-22C9-4989-90F2-E91D7BDA1D07}';
-  RID_PedidosCliente_Detalles_RefreshDelta = '{33C8CC54-33ED-45F4-BD3F-60676CD997BF}';
-  RID_PedidoCliente_Articulos_PendientesDelta = '{E0181E92-9467-4BCF-8C06-53C4F301B7E6}';
+  RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{A1B46905-CCE8-468E-B6AB-2DF026DDB175}';
+  RID_DarReferenciaDelta = '{35DC9BFB-0F55-496D-917D-0D43EE74D71B}';
+  RID_PedidosClienteDelta = '{6659E549-E57E-4745-8F1A-A63E0E576493}';
+  RID_PedidosCliente_DetallesDelta = '{3B53180C-342C-47C4-AF74-DE6888E76B61}';
+  RID_PedidosCliente_RefreshDelta = '{B9655FA7-5F92-4AFE-B87F-FE5DF5E547DE}';
+  RID_PedidosCliente_Detalles_RefreshDelta = '{E23472AA-B366-48A0-9CEF-E80C503329A2}';
+  RID_PedidoCliente_Articulos_PendientesDelta = '{3990FBD0-6B6B-4DC5-B806-C7ECE4FF3F15}';
 
 type
   { IPedidoCliente_ArticulosPendientesPedirAProvDelta }
   IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
-  ['{EE8CBDDC-104A-4492-8D5C-08135D131450}']
+  ['{A1B46905-CCE8-468E-B6AB-2DF026DDB175}']
     { Property getters and setters }
     function GetOldID_PEDIDOValue : Integer;
     function GetOldID_ARTICULOValue : Integer;
@@ -84,7 +84,7 @@ type
 
   { IDarReferenciaDelta }
   IDarReferenciaDelta = interface(IDarReferencia)
-  ['{7E08AFA3-C994-4B1E-B289-148BCA112E05}']
+  ['{35DC9BFB-0F55-496D-917D-0D43EE74D71B}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -113,7 +113,7 @@ type
 
   { IPedidosClienteDelta }
   IPedidosClienteDelta = interface(IPedidosCliente)
-  ['{20C24610-4E5A-4CFE-8564-8D56B08C897A}']
+  ['{6659E549-E57E-4745-8F1A-A63E0E576493}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -146,6 +146,7 @@ type
     function GetOldID_FORMA_PAGOValue : Integer;
     function GetOldREF_TIENDA_WEBValue : Integer;
     function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
+    function GetOldNUM_COPIASValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -179,6 +180,7 @@ type
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
     property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue;
     property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
   end;
 
   { TPedidosClienteBusinessProcessorRules }
@@ -279,6 +281,9 @@ type
     function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
     function GetOldFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
     procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -343,6 +348,8 @@ type
     property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue;
     property FECHA_PREVISTA_ENVIO : DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
     property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -352,7 +359,7 @@ type
 
   { IPedidosCliente_DetallesDelta }
   IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
-  ['{2CDB083D-9BB7-4FEA-90E8-D79AA05F09F7}']
+  ['{3B53180C-342C-47C4-AF74-DE6888E76B61}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
@@ -472,7 +479,7 @@ type
 
   { IPedidosCliente_RefreshDelta }
   IPedidosCliente_RefreshDelta = interface(IPedidosCliente_Refresh)
-  ['{FBBE0466-22C9-4989-90F2-E91D7BDA1D07}']
+  ['{B9655FA7-5F92-4AFE-B87F-FE5DF5E547DE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -505,6 +512,7 @@ type
     function GetOldID_FORMA_PAGOValue : Integer;
     function GetOldREF_TIENDA_WEBValue : Integer;
     function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
+    function GetOldNUM_COPIASValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -538,6 +546,7 @@ type
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
     property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue;
     property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
   end;
 
   { TPedidosCliente_RefreshBusinessProcessorRules }
@@ -638,6 +647,9 @@ type
     function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
     function GetOldFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
     procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -702,6 +714,8 @@ type
     property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue;
     property FECHA_PREVISTA_ENVIO : DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
     property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -711,7 +725,7 @@ type
 
   { IPedidosCliente_Detalles_RefreshDelta }
   IPedidosCliente_Detalles_RefreshDelta = interface(IPedidosCliente_Detalles_Refresh)
-  ['{33C8CC54-33ED-45F4-BD3F-60676CD997BF}']
+  ['{E23472AA-B366-48A0-9CEF-E80C503329A2}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
@@ -831,7 +845,7 @@ type
 
   { IPedidoCliente_Articulos_PendientesDelta }
   IPedidoCliente_Articulos_PendientesDelta = interface(IPedidoCliente_Articulos_Pendientes)
-  ['{E0181E92-9467-4BCF-8C06-53C4F301B7E6}']
+  ['{3990FBD0-6B6B-4DC5-B806-C7ECE4FF3F15}']
     { Property getters and setters }
     function GetOldID_ARTICULOValue : Integer;
     function GetOldCANTIDAD_PEDValue : Integer;
@@ -1493,6 +1507,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO] := aValue;
 end;
 
+function TPedidosClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNUM_COPIAS];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteNUM_COPIAS];
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNUM_COPIAS] := aValue;
+end;
+
 
 { TPedidosCliente_DetallesBusinessProcessorRules }
 constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -2196,6 +2225,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO] := aValue;
 end;
 
+function TPedidosCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshNUM_COPIAS];
+end;
+
+function TPedidosCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshNUM_COPIAS];
+end;
+
+procedure TPedidosCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshNUM_COPIAS] := aValue;
+end;
+
 
 { TPedidosCliente_Detalles_RefreshBusinessProcessorRules }
 constructor TPedidosCliente_Detalles_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
index 180f47dc..6e3d3c4a 100644
--- a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm	
+++ b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm	
@@ -186,8 +186,8 @@ object srvPedidosCliente: TsrvPedidosCliente
               '  USUARIO,'#10'       IMPORTE_NETO,'#10'       IMPORTE_PORTE,'#10'       DES' +
               'CUENTO,'#10'       IMPORTE_DESCUENTO,'#10'       BASE_IMPONIBLE,'#10'       ' +
               'IVA,'#10'       IMPORTE_IVA,'#10'       IMPORTE_TOTAL,'#10'       ID_FORMA_P' +
-              'AGO,'#10'       REF_TIENDA_WEB,'#10'       FECHA_PREVISTA_ENVIO'#10'FROM V_P' +
-              'EDIDOS_CLIENTE'
+              'AGO,'#10'       REF_TIENDA_WEB,'#10'       FECHA_PREVISTA_ENVIO,'#10'       ' +
+              'NUM_COPIAS'#10'FROM V_PEDIDOS_CLIENTE'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -203,8 +203,20 @@ object srvPedidosCliente: TsrvPedidosCliente
                 TableField = 'ID_CLIENTE'
               end
               item
-                DatasetField = 'USUARIO'
-                TableField = 'USUARIO'
+                DatasetField = 'NOMBRE'
+                TableField = 'NOMBRE'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'REFERENCIA_CLIENTE'
+                TableField = 'REFERENCIA_CLIENTE'
+              end
+              item
+                DatasetField = 'SITUACION'
+                TableField = 'SITUACION'
               end
               item
                 DatasetField = 'FECHA_PEDIDO'
@@ -235,12 +247,8 @@ object srvPedidosCliente: TsrvPedidosCliente
                 TableField = 'TELEFONO'
               end
               item
-                DatasetField = 'REFERENCIA'
-                TableField = 'REFERENCIA'
-              end
-              item
-                DatasetField = 'IMPORTE_TOTAL'
-                TableField = 'IMPORTE_TOTAL'
+                DatasetField = 'OBSERVACIONES'
+                TableField = 'OBSERVACIONES'
               end
               item
                 DatasetField = 'INCIDENCIAS'
@@ -250,14 +258,6 @@ object srvPedidosCliente: TsrvPedidosCliente
                 DatasetField = 'INCIDENCIAS_ACTIVAS'
                 TableField = 'INCIDENCIAS_ACTIVAS'
               end
-              item
-                DatasetField = 'OBSERVACIONES'
-                TableField = 'OBSERVACIONES'
-              end
-              item
-                DatasetField = 'NOMBRE'
-                TableField = 'NOMBRE'
-              end
               item
                 DatasetField = 'FECHA_ALTA'
                 TableField = 'FECHA_ALTA'
@@ -267,8 +267,8 @@ object srvPedidosCliente: TsrvPedidosCliente
                 TableField = 'FECHA_MODIFICACION'
               end
               item
-                DatasetField = 'SITUACION'
-                TableField = 'SITUACION'
+                DatasetField = 'USUARIO'
+                TableField = 'USUARIO'
               end
               item
                 DatasetField = 'IMPORTE_NETO'
@@ -298,6 +298,10 @@ object srvPedidosCliente: TsrvPedidosCliente
                 DatasetField = 'IMPORTE_IVA'
                 TableField = 'IMPORTE_IVA'
               end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
               item
                 DatasetField = 'ID_FORMA_PAGO'
                 TableField = 'ID_FORMA_PAGO'
@@ -311,8 +315,8 @@ object srvPedidosCliente: TsrvPedidosCliente
                 TableField = 'FECHA_PREVISTA_ENVIO'
               end
               item
-                DatasetField = 'REFERENCIA_CLIENTE'
-                TableField = 'REFERENCIA_CLIENTE'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'PedidosCliente'
@@ -637,6 +641,17 @@ object srvPedidosCliente: TsrvPedidosCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -899,8 +914,8 @@ object srvPedidosCliente: TsrvPedidosCliente
               '  USUARIO,'#10'       IMPORTE_NETO,'#10'       IMPORTE_PORTE,'#10'       DES' +
               'CUENTO,'#10'       IMPORTE_DESCUENTO,'#10'       BASE_IMPONIBLE,'#10'       ' +
               'IVA,'#10'       IMPORTE_IVA,'#10'       IMPORTE_TOTAL,'#10'       ID_FORMA_P' +
-              'AGO,'#10'       REF_TIENDA_WEB,'#10'       FECHA_PREVISTA_ENVIO'#10'FROM V_P' +
-              'EDIDOS_CLIENTE'#10'WHERE'#10'     ID = :ID'
+              'AGO,'#10'       REF_TIENDA_WEB,'#10'       FECHA_PREVISTA_ENVIO,'#10'       ' +
+              'NUM_COPIAS'#10'FROM V_PEDIDOS_CLIENTE'#10'WHERE'#10'     ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -916,8 +931,20 @@ object srvPedidosCliente: TsrvPedidosCliente
                 TableField = 'ID_CLIENTE'
               end
               item
-                DatasetField = 'USUARIO'
-                TableField = 'USUARIO'
+                DatasetField = 'NOMBRE'
+                TableField = 'NOMBRE'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'REFERENCIA_CLIENTE'
+                TableField = 'REFERENCIA_CLIENTE'
+              end
+              item
+                DatasetField = 'SITUACION'
+                TableField = 'SITUACION'
               end
               item
                 DatasetField = 'FECHA_PEDIDO'
@@ -948,12 +975,8 @@ object srvPedidosCliente: TsrvPedidosCliente
                 TableField = 'TELEFONO'
               end
               item
-                DatasetField = 'REFERENCIA'
-                TableField = 'REFERENCIA'
-              end
-              item
-                DatasetField = 'IMPORTE_TOTAL'
-                TableField = 'IMPORTE_TOTAL'
+                DatasetField = 'OBSERVACIONES'
+                TableField = 'OBSERVACIONES'
               end
               item
                 DatasetField = 'INCIDENCIAS'
@@ -963,14 +986,6 @@ object srvPedidosCliente: TsrvPedidosCliente
                 DatasetField = 'INCIDENCIAS_ACTIVAS'
                 TableField = 'INCIDENCIAS_ACTIVAS'
               end
-              item
-                DatasetField = 'OBSERVACIONES'
-                TableField = 'OBSERVACIONES'
-              end
-              item
-                DatasetField = 'NOMBRE'
-                TableField = 'NOMBRE'
-              end
               item
                 DatasetField = 'FECHA_ALTA'
                 TableField = 'FECHA_ALTA'
@@ -980,8 +995,8 @@ object srvPedidosCliente: TsrvPedidosCliente
                 TableField = 'FECHA_MODIFICACION'
               end
               item
-                DatasetField = 'SITUACION'
-                TableField = 'SITUACION'
+                DatasetField = 'USUARIO'
+                TableField = 'USUARIO'
               end
               item
                 DatasetField = 'IMPORTE_NETO'
@@ -1011,6 +1026,10 @@ object srvPedidosCliente: TsrvPedidosCliente
                 DatasetField = 'IMPORTE_IVA'
                 TableField = 'IMPORTE_IVA'
               end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
               item
                 DatasetField = 'ID_FORMA_PAGO'
                 TableField = 'ID_FORMA_PAGO'
@@ -1024,8 +1043,8 @@ object srvPedidosCliente: TsrvPedidosCliente
                 TableField = 'FECHA_PREVISTA_ENVIO'
               end
               item
-                DatasetField = 'REFERENCIA_CLIENTE'
-                TableField = 'REFERENCIA_CLIENTE'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'PedidosCliente_Refresh'
@@ -1357,6 +1376,17 @@ object srvPedidosCliente: TsrvPedidosCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm
index 62817968..955836b9 100644
--- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm	
+++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm	
@@ -2,6 +2,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
   Caption = 'Lista de pedidos de cliente'
   ClientWidth = 674
   ExplicitWidth = 682
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas
index 3703589e..43eef149 100644
--- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas	
+++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas	
@@ -208,7 +208,7 @@ begin
     if (Application.MessageBox('¿Desea borrar los pedidos de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then
     begin
       SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
-      APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos) as IBizPedidoCliente;
+      APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoCliente;
     end
   end
   else begin
@@ -293,13 +293,14 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
-                    APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos) as IBizPedidoCliente;
+                    APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoCliente;
                   end
                   else
                     APedidos := Pedidos;
 
                   if Assigned(APedidos) then
-                     FController.Print(APedidos, AllItems);
+                     if FController.Print(APedidos, AllItems) then
+                        RefrescarInterno;
                 end;
       end;
     end;
@@ -355,7 +356,7 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
-                    APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos) as IBizPedidoCliente;
+                    APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoCliente;
                   end
                   else
                     APedidos := Pedidos;
diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewDetallesPedidoCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uViewDetallesPedidoCliente.pas
index adda7f19..94abe890 100644
--- a/Source/Modulos/Pedidos de cliente/Views/uViewDetallesPedidoCliente.pas	
+++ b/Source/Modulos/Pedidos de cliente/Views/uViewDetallesPedidoCliente.pas	
@@ -28,6 +28,7 @@ type
     procedure SetPedido(const Value: IBizPedidoCliente);
 
     procedure AnadirArticulosInterno; override;
+    procedure RellenarArticulosInterno; override;    
     function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
 
   public
@@ -56,6 +57,11 @@ begin
   Result := FPedido; 
 end;
 
+procedure TfrViewDetallesPedidoCliente.RellenarArticulosInterno;
+begin
+  (Controller as IDetallesPedidoClienteController).AnadirArticulos(Detalles, Pedido.Cliente, False);
+end;
+
 procedure TfrViewDetallesPedidoCliente.SetPedido(const Value: IBizPedidoCliente);
 begin
   FPedido := Value;
diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm
index 560dac0c..1ae57cd6 100644
--- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm	
+++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm	
@@ -34,6 +34,15 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
         end>
       OptionsCustomize.ColumnHidingOnGrouping = False
       OptionsView.GroupFooters = gfAlwaysVisible
+      object cxGridViewNUM_COPIAS: TcxGridDBColumn
+        DataBinding.FieldName = 'NUM_COPIAS'
+        OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
+        MinWidth = 30
+        Options.HorzSizing = False
+        VisibleForCustomization = False
+        Width = 30
+        IsCaptionAssigned = True
+      end
       object cxGridViewID: TcxGridDBColumn
         DataBinding.FieldName = 'ID'
         Visible = False
@@ -351,6 +360,20 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
           97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
         Name = 'PngImage4'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
+          83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
+          CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
+          F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
+          28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
+          B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
+          2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
+          B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
+        Name = 'PngImage5'
+        Background = clWindow
       end>
     Left = 56
     Top = 48
diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas
index fb231ebc..0865c28c 100644
--- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas	
+++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas	
@@ -52,6 +52,7 @@ type
     TBXItem3: TTBXItem;
     cxGridViewTIENDAWEB: TcxGridDBColumn;
     cxGridViewFECHA_ENTREGA: TcxGridDBColumn;
+    cxGridViewNUM_COPIAS: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@@ -69,6 +70,9 @@ type
       var ADone: Boolean);
     procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
       Y: Integer);
+    procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
 
   private
     //Filtros relativos a la vista
@@ -228,6 +232,23 @@ begin
   end;
 end;
 
+procedure TfrViewPedidosCliente.cxGridViewNUM_COPIASCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 5);
+    ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
+    ADone := True;
+  end;
+end;
+
 procedure TfrViewPedidosCliente.cxGridViewStylesGetContentStyle(Sender:
         TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
         TcxCustomGridTableItem; out AStyle: TcxStyle);
diff --git a/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.bdsproj b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.bdsproj
index fd46ae6a..24d6c6fc 100644
--- a/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.bdsproj	
+++ b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.bdsproj	
@@ -172,7 +172,7 @@
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>
 	</Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=0
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
index bc45f491..707862cd 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas	
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas	
@@ -27,7 +27,7 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase,
-	uPagosClienteController, uClientesController,
+	uPagosClienteController, uClientesController, uViewGridBase,
   uBizRecibosCliente, uIDataModuleRecibosCliente;
 
 type
@@ -64,7 +64,7 @@ type
     procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
     procedure Ver(ARecibosCliente: IBizRecibosCliente);
 
-    function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
+    function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente; Const ViewGrid: IViewGridBase = Nil) : IBizRecibosCliente;
     function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
 
     procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer);
@@ -75,7 +75,7 @@ type
     procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
 
     procedure Preview(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
-    procedure Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
+    function Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
   end;
 
   TRecibosClienteController = class(TObservador, IRecibosClienteController)
@@ -125,7 +125,7 @@ type
     procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
     procedure Ver(ARecibosCliente: IBizRecibosCliente);
 
-    function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
+    function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente; Const ViewGrid: IViewGridBase = Nil) : IBizRecibosCliente;
     function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
     function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;
 
@@ -136,7 +136,7 @@ type
     procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
 
     procedure Preview(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
-    procedure Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
+    function Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
   end;
 
 implementation
@@ -799,13 +799,26 @@ begin
   end;
 end;
 
-function TRecibosClienteController.ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente): IBizRecibosCliente;
+function TRecibosClienteController.ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente; Const ViewGrid: IViewGridBase = Nil): IBizRecibosCliente;
 var
   ASeleccionados : IBizRecibosCliente;
 begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosCliente);
   CopyDataTable(ARecibosCliente.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
 end;
 
 procedure TRecibosClienteController.Preview(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false);
@@ -843,12 +856,13 @@ begin
   end;
 end;
 
-procedure TRecibosClienteController.Print(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false);
+function TRecibosClienteController.Print(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false): Boolean;
 var
   AReportController : IRecibosClienteReportController;
   ID_Recibos: TStringList;
 
 begin
+  Result := False;
   AReportController := TRecibosClienteReportController.Create;
   try
    ID_Recibos := TStringList.Create;
@@ -870,7 +884,7 @@ begin
    else
      ID_Recibos.Add(IntToStr(ARecibosCliente.ID));
 
-    AReportController.Print(ID_Recibos.CommaText);
+    Result := AReportController.Print(ID_Recibos.CommaText);
 
   finally
     AReportController := NIL;
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas
index 71b3a97f..17a0b72e 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas	
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas	
@@ -10,7 +10,7 @@ type
   IRecibosClienteReportController = interface
   ['{3837DFA3-0A38-4BB2-B0DB-D0615249EA49}']
     procedure Preview(const ID : String);
-    procedure Print(const ID : String);
+    function Print(const ID : String): Boolean;
   end;
 
   TRecibosClienteReportController = class(TInterfacedObject, IRecibosClienteReportController)
@@ -22,7 +22,7 @@ type
     destructor Destroy; override;
 
     procedure Preview(const ID : String);
-    procedure Print(const ID : String);
+    function Print(const ID : String): Boolean;
   end;
 
 
@@ -30,7 +30,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorRecibosClientePreview,
-  uEditorPreview, uDataModuleRecibosCliente, uEditorBase, cxControls;
+  uEditorPreview, uDataModuleRecibosCliente, uEditorBase, cxControls,
+  schRecibosClienteClient_Intf;
 
 { TRecibosClienteReportController }
 
@@ -76,11 +77,12 @@ begin
     AEditor.Preview;
 end;
 
-procedure TRecibosClienteReportController.Print(const ID : String);
+function TRecibosClienteReportController.Print(const ID : String): Boolean;
 var
   AStream: Binary;
   AEditor : IEditorRecibosClientePreview;
 begin
+  Result := False;
   AEditor := NIL;
 
   ShowHourglassCursor;
@@ -97,7 +99,11 @@ begin
   end;
 
   if Assigned(AEditor) then
-    AEditor.Print
+  begin
+    AEditor.TablaImpresion := nme_RecibosCliente;
+    AEditor.IdTablaImpresion := ID;
+    Result := AEditor.Print;
+  end;
 end;
 
 end.
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
index cc0a1ed2..0e014a63 100644
--- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm	
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm	
@@ -35,7 +35,7 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente
         Name = 'User'
         ParamType = fIn
         DataType = rtString
-        Value = 'Administrador'
+        Value = 'Luis'
       end
       item
         Name = 'Password'
@@ -66,7 +66,7 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente
     ProbeServers = False
     ProbeFrequency = 60000
     UserAgent = 'RemObjects SDK'
-    TargetURL = 'http://localhost:8090/bin'
+    TargetURL = 'http://localhost:8099/bin'
     Left = 48
     Top = 272
   end
@@ -440,6 +440,17 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente
         Calculated = False
         Lookup = False
         LookupCache = False
+      end
+      item
+        Name = 'NUM_COPIAS'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
       end>
     Params = <>
     MasterMappingMode = mmDataRequest
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
index 479974b2..f4cc6469 100644
--- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas	
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas	
@@ -9,10 +9,10 @@ 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_RecibosCliente = '{776FD400-E6B9-4576-9F25-00B597720267}';
-  RID_RecibosCliente_Refresh = '{89591B66-A8AE-46A9-AC71-AB0AB81A492F}';
-  RID_PagosCliente = '{C68E4866-2A58-4CE5-BBA0-1EDB8646170C}';
-  RID_RecibosCompensadosCli = '{B4FBAFB5-6C87-40F3-9BF9-D477D59971DA}';
+  RID_RecibosCliente = '{052BB265-F88E-4D05-B8D4-92B9E6698ADE}';
+  RID_RecibosCliente_Refresh = '{BE059EAD-08E4-4DEE-8CDB-2197A2DD1D35}';
+  RID_PagosCliente = '{FBC80B2B-7966-44E9-A2C9-A13AE9CC0736}';
+  RID_RecibosCompensadosCli = '{0725B1A0-D613-414F-814C-240C4ABA81FF}';
 
   { Data table names }
   nme_RecibosCliente = 'RecibosCliente';
@@ -50,6 +50,7 @@ const
   fld_RecibosClienteFECHA_ALTA = 'FECHA_ALTA';
   fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
   fld_RecibosClienteUSUARIO = 'USUARIO';
+  fld_RecibosClienteNUM_COPIAS = 'NUM_COPIAS';
 
   { RecibosCliente field indexes }
   idx_RecibosClienteID = 0;
@@ -81,6 +82,7 @@ const
   idx_RecibosClienteFECHA_ALTA = 26;
   idx_RecibosClienteFECHA_MODIFICACION = 27;
   idx_RecibosClienteUSUARIO = 28;
+  idx_RecibosClienteNUM_COPIAS = 29;
 
   { RecibosCliente_Refresh fields }
   fld_RecibosCliente_RefreshID = 'ID';
@@ -112,6 +114,7 @@ const
   fld_RecibosCliente_RefreshFECHA_ALTA = 'FECHA_ALTA';
   fld_RecibosCliente_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
   fld_RecibosCliente_RefreshUSUARIO = 'USUARIO';
+  fld_RecibosCliente_RefreshNUM_COPIAS = 'NUM_COPIAS';
 
   { RecibosCliente_Refresh field indexes }
   idx_RecibosCliente_RefreshID = 0;
@@ -143,6 +146,7 @@ const
   idx_RecibosCliente_RefreshFECHA_ALTA = 26;
   idx_RecibosCliente_RefreshFECHA_MODIFICACION = 27;
   idx_RecibosCliente_RefreshUSUARIO = 28;
+  idx_RecibosCliente_RefreshNUM_COPIAS = 29;
 
   { PagosCliente fields }
   fld_PagosClienteID = 'ID';
@@ -211,7 +215,7 @@ const
 type
   { IRecibosCliente }
   IRecibosCliente = interface(IDAStronglyTypedDataTable)
-  ['{C690E544-36BE-450C-8CA2-C453C7D6A23D}']
+  ['{9D61F0F9-2F51-46E0-A03A-6CD9F0606305}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -271,6 +275,8 @@ type
     procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
     function GetUSUARIOValue: String;
     procedure SetUSUARIOValue(const aValue: String);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
 
 
     { Properties }
@@ -303,6 +309,7 @@ type
     property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
     property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
   end;
 
   { TRecibosClienteDataTableRules }
@@ -368,6 +375,8 @@ type
     procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
     function GetUSUARIOValue: String; virtual;
     procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -399,6 +408,7 @@ type
     property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
     property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -408,7 +418,7 @@ type
 
   { IRecibosCliente_Refresh }
   IRecibosCliente_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{989F96EE-C6AE-403E-9A56-B01C4716E6B6}']
+  ['{1CF667AF-589C-4ECC-BF84-FC968B381A93}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -468,6 +478,8 @@ type
     procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
     function GetUSUARIOValue: String;
     procedure SetUSUARIOValue(const aValue: String);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
 
 
     { Properties }
@@ -500,6 +512,7 @@ type
     property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
     property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
   end;
 
   { TRecibosCliente_RefreshDataTableRules }
@@ -565,6 +578,8 @@ type
     procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
     function GetUSUARIOValue: String; virtual;
     procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -596,6 +611,7 @@ type
     property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
     property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -605,7 +621,7 @@ type
 
   { IPagosCliente }
   IPagosCliente = interface(IDAStronglyTypedDataTable)
-  ['{50466FF1-7C4F-4294-98B1-39DC7589D8A8}']
+  ['{5A457C91-5B7D-4026-A9A5-2928C56E9363}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -700,7 +716,7 @@ type
 
   { IRecibosCompensadosCli }
   IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
-  ['{D2E38DD6-E307-40E0-8B4A-C72B9F8D86D0}']
+  ['{0F12FAB4-E245-4166-A361-18115BE3AE0E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1122,6 +1138,16 @@ begin
   DataTable.Fields[idx_RecibosClienteUSUARIO].AsString := aValue;
 end;
 
+function TRecibosClienteDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosClienteNUM_COPIAS].AsInteger;
+end;
+
+procedure TRecibosClienteDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosClienteNUM_COPIAS].AsInteger := aValue;
+end;
+
 
 { TRecibosCliente_RefreshDataTableRules }
 constructor TRecibosCliente_RefreshDataTableRules.Create(aDataTable: TDADataTable);
@@ -1424,6 +1450,16 @@ begin
   DataTable.Fields[idx_RecibosCliente_RefreshUSUARIO].AsString := aValue;
 end;
 
+function TRecibosCliente_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosCliente_RefreshNUM_COPIAS].AsInteger;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosCliente_RefreshNUM_COPIAS].AsInteger := aValue;
+end;
+
 
 { TPagosClienteDataTableRules }
 constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
index de2dd485..555498c6 100644
--- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas	
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas	
@@ -9,15 +9,15 @@ 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_RecibosClienteDelta = '{09AF765A-9893-4609-B0F9-5AA658615091}';
-  RID_RecibosCliente_RefreshDelta = '{20A20E0C-0EA9-4A41-B4D1-E0186CA8FC52}';
-  RID_PagosClienteDelta = '{7ACA6F74-1324-4784-A37A-599EF8940690}';
-  RID_RecibosCompensadosCliDelta = '{BA198B66-278F-4056-B312-5D0476D48275}';
+  RID_RecibosClienteDelta = '{529A180C-95FF-4D15-945A-7F29985B2284}';
+  RID_RecibosCliente_RefreshDelta = '{ACD8B913-353F-4239-99D2-C8C19B4FED49}';
+  RID_PagosClienteDelta = '{785C0207-7ED8-44CC-84DA-218326A57DD9}';
+  RID_RecibosCompensadosCliDelta = '{09A91A9D-42B0-4D1D-A6AF-AEF65F7D16EE}';
 
 type
   { IRecibosClienteDelta }
   IRecibosClienteDelta = interface(IRecibosCliente)
-  ['{09AF765A-9893-4609-B0F9-5AA658615091}']
+  ['{529A180C-95FF-4D15-945A-7F29985B2284}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -48,6 +48,7 @@ type
     function GetOldFECHA_ALTAValue : DateTime;
     function GetOldFECHA_MODIFICACIONValue : DateTime;
     function GetOldUSUARIOValue : String;
+    function GetOldNUM_COPIASValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -79,6 +80,7 @@ type
     property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
   end;
 
   { TRecibosClienteBusinessProcessorRules }
@@ -173,6 +175,9 @@ type
     function GetUSUARIOValue: String; virtual;
     function GetOldUSUARIOValue: String; virtual;
     procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -233,6 +238,8 @@ type
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -242,7 +249,7 @@ type
 
   { IRecibosCliente_RefreshDelta }
   IRecibosCliente_RefreshDelta = interface(IRecibosCliente_Refresh)
-  ['{20A20E0C-0EA9-4A41-B4D1-E0186CA8FC52}']
+  ['{ACD8B913-353F-4239-99D2-C8C19B4FED49}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -273,6 +280,7 @@ type
     function GetOldFECHA_ALTAValue : DateTime;
     function GetOldFECHA_MODIFICACIONValue : DateTime;
     function GetOldUSUARIOValue : String;
+    function GetOldNUM_COPIASValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -304,6 +312,7 @@ type
     property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
   end;
 
   { TRecibosCliente_RefreshBusinessProcessorRules }
@@ -398,6 +407,9 @@ type
     function GetUSUARIOValue: String; virtual;
     function GetOldUSUARIOValue: String; virtual;
     procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -458,6 +470,8 @@ type
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -467,7 +481,7 @@ type
 
   { IPagosClienteDelta }
   IPagosClienteDelta = interface(IPagosCliente)
-  ['{7ACA6F74-1324-4784-A37A-599EF8940690}']
+  ['{785C0207-7ED8-44CC-84DA-218326A57DD9}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -573,7 +587,7 @@ type
 
   { IRecibosCompensadosCliDelta }
   IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
-  ['{BA198B66-278F-4056-B312-5D0476D48275}']
+  ['{09A91A9D-42B0-4D1D-A6AF-AEF65F7D16EE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -1156,6 +1170,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO] := aValue;
 end;
 
+function TRecibosClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNUM_COPIAS];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNUM_COPIAS];
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNUM_COPIAS] := aValue;
+end;
+
 
 { TRecibosCliente_RefreshBusinessProcessorRules }
 constructor TRecibosCliente_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1603,6 +1632,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO] := aValue;
 end;
 
+function TRecibosCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNUM_COPIAS];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNUM_COPIAS];
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNUM_COPIAS] := aValue;
+end;
+
 
 { TPagosClienteBusinessProcessorRules }
 constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Recibos de cliente/RecibosCliente_Group.bdsgroup b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.bdsgroup
new file mode 100644
index 00000000..f1f26fec
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.bdsgroup	
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Default.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{31F77077-B4B9-443C-9AA9-F13B4EB640B4}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Default.Personality>  
+    
+    <Projects>
+      <Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
+      <Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
+      <Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
+      <Projects Name="Contactos_model.bpl">..\Contactos\Model\Contactos_model.bdsproj</Projects>
+      <Projects Name="Contactos_data.bpl">..\Contactos\Data\Contactos_data.bdsproj</Projects>
+      <Projects Name="Contactos_controller.bpl">..\Contactos\Controller\Contactos_controller.bdsproj</Projects>
+      <Projects Name="Articulos_view.bpl">..\Articulos\Views\Articulos_view.bdsproj</Projects>
+      <Projects Name="Articulos_model.bpl">..\Articulos\Model\Articulos_model.bdsproj</Projects>
+      <Projects Name="Articulos_data.bpl">..\Articulos\Data\Articulos_data.bdsproj</Projects>
+      <Projects Name="Articulos_controller.bpl">..\Articulos\Controller\Articulos_controller.bdsproj</Projects>
+      <Projects Name="Contactos_view.bpl">..\Contactos\Views\Contactos_view.bdsproj</Projects>
+      <Projects Name="RecibosCliente_model.bpl">Model\RecibosCliente_model.bdsproj</Projects>
+      <Projects Name="RecibosCliente_data.bpl">Data\RecibosCliente_data.bdsproj</Projects>
+      <Projects Name="RecibosCliente_controller.bpl">Controller\RecibosCliente_controller.bdsproj</Projects>
+      <Projects Name="RecibosCliente_view.bpl">Views\RecibosCliente_view.bdsproj</Projects>
+      <Projects Name="RecibosCliente_plugin.bpl">Plugin\RecibosCliente_plugin.bdsproj</Projects>
+      <Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
+      <Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
+      <Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_view.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl FactuGES.exe FactuGES_Server.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/Source/Modulos/Recibos de cliente/RecibosCliente_Group.config b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.config
new file mode 100644
index 00000000..c8f28340
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.config	
@@ -0,0 +1,2 @@
+<?xml version="1.0"?>
+<TgConfig Version="3" SubLevelDisabled="False" />
\ No newline at end of file
diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
index 53d71304..8255375e 100644
--- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm	
+++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm	
@@ -31,14 +31,22 @@ object srvRecibosCliente: TsrvRecibosCliente
               'TE_FACTURA,'#10'       ID_CLIENTE,'#10'       NOMBRE_CLIENTE,'#10'       NIF' +
               '_CIF_CLIENTE,'#10'       ENTIDAD_CLIENTE,'#10'       SUCURSAL_CLIENTE,'#10' ' +
               '      DC_CLIENTE,'#10'       CUENTA_CLIENTE,'#10'       ID_EMPRESA,'#10'    ' +
-              '   FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USUARIO'#10#10'FROM V' +
-              '_RECIBOS_CLIENTE'
+              '   FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USUARIO,'#10'      ' +
+              ' NUM_COPIAS'#10#10'FROM V_RECIBOS_CLIENTE'
             StatementType = stSQL
             ColumnMappings = <
               item
                 DatasetField = 'ID'
                 TableField = 'ID'
               end
+              item
+                DatasetField = 'ID_RECIBO_COMPENSADO'
+                TableField = 'ID_RECIBO_COMPENSADO'
+              end
+              item
+                DatasetField = 'REFERENCIA_REC_COMPENSADO'
+                TableField = 'REFERENCIA_REC_COMPENSADO'
+              end
               item
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
@@ -51,6 +59,18 @@ object srvRecibosCliente: TsrvRecibosCliente
                 DatasetField = 'ID_FACTURA'
                 TableField = 'ID_FACTURA'
               end
+              item
+                DatasetField = 'ID_REMESA'
+                TableField = 'ID_REMESA'
+              end
+              item
+                DatasetField = 'REFERENCIA_REMESA'
+                TableField = 'REFERENCIA_REMESA'
+              end
+              item
+                DatasetField = 'FECHA_EMISION'
+                TableField = 'FECHA_EMISION'
+              end
               item
                 DatasetField = 'FECHA_VENCIMIENTO'
                 TableField = 'FECHA_VENCIMIENTO'
@@ -67,6 +87,14 @@ object srvRecibosCliente: TsrvRecibosCliente
                 DatasetField = 'IMPORTE'
                 TableField = 'IMPORTE'
               end
+              item
+                DatasetField = 'OTROS_GASTOS'
+                TableField = 'OTROS_GASTOS'
+              end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
               item
                 DatasetField = 'FECHA_FACTURA'
                 TableField = 'FECHA_FACTURA'
@@ -79,6 +107,10 @@ object srvRecibosCliente: TsrvRecibosCliente
                 DatasetField = 'IMPORTE_FACTURA'
                 TableField = 'IMPORTE_FACTURA'
               end
+              item
+                DatasetField = 'ID_CLIENTE'
+                TableField = 'ID_CLIENTE'
+              end
               item
                 DatasetField = 'NOMBRE_CLIENTE'
                 TableField = 'NOMBRE_CLIENTE'
@@ -120,36 +152,8 @@ object srvRecibosCliente: TsrvRecibosCliente
                 TableField = 'USUARIO'
               end
               item
-                DatasetField = 'ID_REMESA'
-                TableField = 'ID_REMESA'
-              end
-              item
-                DatasetField = 'REFERENCIA_REMESA'
-                TableField = 'REFERENCIA_REMESA'
-              end
-              item
-                DatasetField = 'OTROS_GASTOS'
-                TableField = 'OTROS_GASTOS'
-              end
-              item
-                DatasetField = 'ID_CLIENTE'
-                TableField = 'ID_CLIENTE'
-              end
-              item
-                DatasetField = 'IMPORTE_TOTAL'
-                TableField = 'IMPORTE_TOTAL'
-              end
-              item
-                DatasetField = 'FECHA_EMISION'
-                TableField = 'FECHA_EMISION'
-              end
-              item
-                DatasetField = 'ID_RECIBO_COMPENSADO'
-                TableField = 'ID_RECIBO_COMPENSADO'
-              end
-              item
-                DatasetField = 'REFERENCIA_REC_COMPENSADO'
-                TableField = 'REFERENCIA_REC_COMPENSADO'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'RecibosCliente'
@@ -459,6 +463,17 @@ object srvRecibosCliente: TsrvRecibosCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -486,14 +501,22 @@ object srvRecibosCliente: TsrvRecibosCliente
               'TE_FACTURA,'#10'       ID_CLIENTE,'#10'       NOMBRE_CLIENTE,'#10'       NIF' +
               '_CIF_CLIENTE,'#10'       ENTIDAD_CLIENTE,'#10'       SUCURSAL_CLIENTE,'#10' ' +
               '      DC_CLIENTE,'#10'       CUENTA_CLIENTE,'#10'       ID_EMPRESA,'#10'    ' +
-              '   FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USUARIO'#10#10'FROM V' +
-              '_RECIBOS_CLIENTE'#10'WHERE'#10'     ID = :ID'
+              '   FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USUARIO,'#10'      ' +
+              ' NUM_COPIAS'#10#10'FROM V_RECIBOS_CLIENTE'#10'WHERE'#10'     ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
                 DatasetField = 'ID'
                 TableField = 'ID'
               end
+              item
+                DatasetField = 'ID_RECIBO_COMPENSADO'
+                TableField = 'ID_RECIBO_COMPENSADO'
+              end
+              item
+                DatasetField = 'REFERENCIA_REC_COMPENSADO'
+                TableField = 'REFERENCIA_REC_COMPENSADO'
+              end
               item
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
@@ -506,6 +529,18 @@ object srvRecibosCliente: TsrvRecibosCliente
                 DatasetField = 'ID_FACTURA'
                 TableField = 'ID_FACTURA'
               end
+              item
+                DatasetField = 'ID_REMESA'
+                TableField = 'ID_REMESA'
+              end
+              item
+                DatasetField = 'REFERENCIA_REMESA'
+                TableField = 'REFERENCIA_REMESA'
+              end
+              item
+                DatasetField = 'FECHA_EMISION'
+                TableField = 'FECHA_EMISION'
+              end
               item
                 DatasetField = 'FECHA_VENCIMIENTO'
                 TableField = 'FECHA_VENCIMIENTO'
@@ -522,6 +557,14 @@ object srvRecibosCliente: TsrvRecibosCliente
                 DatasetField = 'IMPORTE'
                 TableField = 'IMPORTE'
               end
+              item
+                DatasetField = 'OTROS_GASTOS'
+                TableField = 'OTROS_GASTOS'
+              end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
               item
                 DatasetField = 'FECHA_FACTURA'
                 TableField = 'FECHA_FACTURA'
@@ -534,6 +577,10 @@ object srvRecibosCliente: TsrvRecibosCliente
                 DatasetField = 'IMPORTE_FACTURA'
                 TableField = 'IMPORTE_FACTURA'
               end
+              item
+                DatasetField = 'ID_CLIENTE'
+                TableField = 'ID_CLIENTE'
+              end
               item
                 DatasetField = 'NOMBRE_CLIENTE'
                 TableField = 'NOMBRE_CLIENTE'
@@ -575,36 +622,8 @@ object srvRecibosCliente: TsrvRecibosCliente
                 TableField = 'USUARIO'
               end
               item
-                DatasetField = 'ID_REMESA'
-                TableField = 'ID_REMESA'
-              end
-              item
-                DatasetField = 'REFERENCIA_REMESA'
-                TableField = 'REFERENCIA_REMESA'
-              end
-              item
-                DatasetField = 'OTROS_GASTOS'
-                TableField = 'OTROS_GASTOS'
-              end
-              item
-                DatasetField = 'ID_CLIENTE'
-                TableField = 'ID_CLIENTE'
-              end
-              item
-                DatasetField = 'IMPORTE_TOTAL'
-                TableField = 'IMPORTE_TOTAL'
-              end
-              item
-                DatasetField = 'FECHA_EMISION'
-                TableField = 'FECHA_EMISION'
-              end
-              item
-                DatasetField = 'ID_RECIBO_COMPENSADO'
-                TableField = 'ID_RECIBO_COMPENSADO'
-              end
-              item
-                DatasetField = 'REFERENCIA_REC_COMPENSADO'
-                TableField = 'REFERENCIA_REC_COMPENSADO'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'RecibosCliente_Refresh'
@@ -915,6 +934,17 @@ object srvRecibosCliente: TsrvRecibosCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
index 941c99a9..5c714cf9 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas	
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas	
@@ -157,13 +157,14 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RecibosCliente as ISeleccionable).SelectedRecords);
-                    ARecibosCliente := (Controller as IRecibosClienteController).ExtraerSeleccionados(RecibosCliente) as IBizRecibosCliente;
+                    ARecibosCliente := (Controller as IRecibosClienteController).ExtraerSeleccionados(RecibosCliente, ViewGrid) as IBizRecibosCliente;
                   end
                   else
                     ARecibosCliente := RecibosCliente;
 
                   if Assigned(ARecibosCliente) then
-                     FController.Preview(ARecibosCliente, AllItems);
+                     if FController.Print(ARecibosCliente, AllItems) then
+                        RefrescarInterno;
                 end;
       end;
     end;
@@ -219,7 +220,7 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RecibosCliente as ISeleccionable).SelectedRecords);
-                    ARecibosCliente := (Controller as IRecibosClienteController).ExtraerSeleccionados(RecibosCliente) as IBizRecibosCliente;
+                    ARecibosCliente := (Controller as IRecibosClienteController).ExtraerSeleccionados(RecibosCliente, ViewGrid) as IBizRecibosCliente;
                   end
                   else
                     ARecibosCliente := RecibosCliente;
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
index 0be9be07..e2de10e4 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm	
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm	
@@ -10,7 +10,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
     OnActiveTabChanged = cxGridActiveTabChanged
     ExplicitWidth = 531
     ExplicitHeight = 259
-    inherited cxGridView: TcxGridDBTableView 
+    inherited cxGridView: TcxGridDBTableView
       DataController.KeyFieldNames = 'ID'
       DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
       DataController.Summary.DefaultGroupSummaryItems = <
@@ -43,6 +43,15 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
         end>
       OptionsCustomize.ColumnHidingOnGrouping = False
       OptionsView.GroupFooters = gfAlwaysVisible
+      object cxGridViewNUM_COPIAS: TcxGridDBColumn
+        DataBinding.FieldName = 'NUM_COPIAS'
+        OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
+        MinWidth = 30
+        Options.HorzSizing = False
+        VisibleForCustomization = False
+        Width = 30
+        IsCaptionAssigned = True
+      end
       object cxGridViewREFERENCIA: TcxGridDBColumn
         Caption = 'Referencia'
         DataBinding.FieldName = 'REFERENCIA'
@@ -157,9 +166,19 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 531
         ExplicitWidth = 531
+        inherited txtFiltroTodo: TcxTextEdit
+          ExplicitWidth = 434
+          Width = 434
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          ExplicitWidth = 144
+          Width = 144
+        end
         inherited edtFechaFinFiltro: TcxDateEdit
-          ExplicitWidth = 244
-          Width = 244
+          Left = 248
+          ExplicitLeft = 248
+          ExplicitWidth = 273
+          Width = 273
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@@ -167,6 +186,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
         ExplicitWidth = 531
         inherited tbxBotones: TTBXToolbar
           Width = 521
+          ExplicitWidth = 521
         end
       end
     end
@@ -307,6 +327,20 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
           000005100EB8572466A60000000049454E44AE426082}
         Name = 'PngImage2'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
+          83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
+          CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
+          F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
+          28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
+          B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
+          2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
+          B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
+        Name = 'PngImage3'
+        Background = clWindow
       end>
     Left = 56
     Top = 48
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
index d3e5aa39..0d84fd07 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas	
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas	
@@ -1,4 +1,4 @@
-unit uViewRecibosCliente;
+unit uViewRecibosCliente;
 
 interface
 
@@ -49,6 +49,7 @@ type
     TBXSeparatorItem1: TTBXSeparatorItem;
     cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn;
     cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
+    cxGridViewNUM_COPIAS: TcxGridDBColumn;
     procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
       ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
       var ADone: Boolean);
@@ -63,6 +64,9 @@ type
     procedure cxGridViewID_RECIBO_COMPENSADOCustomDrawCell(
       Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
       AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+    procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
 
   private
     //Filtros relativos a la vista
@@ -223,6 +227,23 @@ begin
   end;
 end;
 
+procedure TfrViewRecibosCliente.cxGridViewNUM_COPIASCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 3);
+    ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
+    ADone := True;
+  end;
+end;
+
 procedure TfrViewRecibosCliente.cxGridViewStylesGetContentStyle(
   Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
   AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
index f1fdc8ac..d68f0cb1 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas	
+++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas	
@@ -28,7 +28,7 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase,
 	uPagosProveedorController, uProveedoresController,
-  uBizRecibosProveedor, uIDataModuleRecibosProveedor;
+  uBizRecibosProveedor, uIDataModuleRecibosProveedor, uViewGridBase;
 
 type
   IRecibosProveedorController = interface(IObservador)
@@ -59,7 +59,7 @@ type
 
     procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor);
     procedure Ver(ARecibosProveedor: IBizRecibosProveedor);
-    function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor;
+    function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizRecibosProveedor;
 
     procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer);
     procedure QuitarRemesa(ARecibos : IBizRecibosProveedor);
@@ -120,7 +120,7 @@ type
     procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor);
     procedure Ver(ARecibosProveedor: IBizRecibosProveedor);
 
-    function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor;
+    function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizRecibosProveedor;
     function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
     function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
 
@@ -751,13 +751,26 @@ begin
   Result := ARecibo;
 end;
 
-function TRecibosProveedorController.ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor): IBizRecibosProveedor;
+function TRecibosProveedorController.ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor; Const ViewGrid: IViewGridBase = Nil): IBizRecibosProveedor;
 var
   ASeleccionados : IBizRecibosProveedor;
 begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+  
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosProveedor);
   CopyDataTable(ARecibosProveedor.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
 end;
 
 procedure TRecibosProveedorController.Preview(ARecibosProveedor: IBizRecibosProveedor);
diff --git a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.bdsgroup b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.bdsgroup
new file mode 100644
index 00000000..4544959f
--- /dev/null
+++ b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.bdsgroup	
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Default.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{31F77077-B4B9-443C-9AA9-F13B4EB640B4}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Default.Personality>  
+    
+    <Projects>
+      <Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
+      <Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
+      <Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
+      <Projects Name="Contactos_model.bpl">..\Contactos\Model\Contactos_model.bdsproj</Projects>
+      <Projects Name="Contactos_data.bpl">..\Contactos\Data\Contactos_data.bdsproj</Projects>
+      <Projects Name="Contactos_controller.bpl">..\Contactos\Controller\Contactos_controller.bdsproj</Projects>
+      <Projects Name="Articulos_view.bpl">..\Articulos\Views\Articulos_view.bdsproj</Projects>
+      <Projects Name="Articulos_model.bpl">..\Articulos\Model\Articulos_model.bdsproj</Projects>
+      <Projects Name="Articulos_data.bpl">..\Articulos\Data\Articulos_data.bdsproj</Projects>
+      <Projects Name="Articulos_controller.bpl">..\Articulos\Controller\Articulos_controller.bdsproj</Projects>
+      <Projects Name="Contactos_view.bpl">..\Contactos\Views\Contactos_view.bdsproj</Projects>
+      <Projects Name="RecibosProveedor_model.bpl">Model\RecibosProveedor_model.bdsproj</Projects>
+      <Projects Name="RecibosProveedor_data.bpl">Data\RecibosProveedor_data.bdsproj</Projects>
+      <Projects Name="RecibosProveedor_controller.bpl">Controller\RecibosProveedor_controller.bdsproj</Projects>
+      <Projects Name="RecibosProveedor_view.bpl">Views\RecibosProveedor_view.bdsproj</Projects>
+      <Projects Name="RecibosProveedor_plugin.bpl">Plugin\RecibosProveedor_plugin.bdsproj</Projects>
+      <Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
+      <Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
+      <Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_view.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl RecibosProveedor_model.bpl RecibosProveedor_data.bpl RecibosProveedor_controller.bpl RecibosProveedor_view.bpl RecibosProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
index f9dfb630..5e524856 100644
--- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas	
+++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas	
@@ -6,7 +6,7 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
   uIDataModuleRemesasCliente, uBizRemesasCliente, uProveedoresController,
-  uBizContactos, uRecibosClienteController;
+  uBizContactos, uRecibosClienteController, uViewGridBase;
 
 type
   IRemesasClienteController = interface(IObservador)
@@ -24,7 +24,7 @@ type
     function Existe(const ID: Integer) : Boolean;
 
     procedure Preview(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false);
-    procedure Print(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false);
+    function Print(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean;
     function EsModificable(ARemesaProveedor : IBizRemesaCliente): Boolean;
     function EsEliminable(ARemesaProveedor : IBizRemesaCliente): Boolean;
 
@@ -34,7 +34,7 @@ type
     property RecibosClienteController: IRecibosClienteController read GetRecibosClienteController;
 
     procedure RecuperarRecibos(ARemesaCliente: IBizRemesaCliente);
-    function ExtraerSeleccionados(ARemesasCliente: IBizRemesaCliente) : IBizRemesaCliente;
+    function ExtraerSeleccionados(ARemesasCliente: IBizRemesaCliente; Const ViewGrid: IViewGridBase = Nil) : IBizRemesaCliente;
   end;
 
   TRemesasClienteController = class(TObservador, IRemesasClienteController)
@@ -74,11 +74,11 @@ type
     procedure VerTodos(ARemesasCliente: IBizRemesaCliente); virtual;
 
     procedure Preview(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false); virtual;
-    procedure Print(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false); virtual;
+    function Print(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; virtual;
     function EsModificable(ARemesaProveedor : IBizRemesaCliente): Boolean;
     function EsEliminable(ARemesaProveedor : IBizRemesaCliente): Boolean;
 
-    function ExtraerSeleccionados(ARemesasCliente: IBizRemesaCliente) : IBizRemesaCliente; virtual;
+    function ExtraerSeleccionados(ARemesasCliente: IBizRemesaCliente; Const ViewGrid: IViewGridBase = Nil) : IBizRemesaCliente; virtual;
     function ElegirRecibosCliente(ARemesaCliente : IBizRemesaCliente): Boolean;
     procedure EliminarReciboCliente(ARemesaCliente : IBizRemesaCliente);
   end;
@@ -445,13 +445,26 @@ begin
   end;
 end;
 
-function TRemesasClienteController.ExtraerSeleccionados(ARemesasCliente: IBizRemesaCliente): IBizRemesaCliente;
+function TRemesasClienteController.ExtraerSeleccionados(ARemesasCliente: IBizRemesaCliente; Const ViewGrid: IViewGridBase = Nil): IBizRemesaCliente;
 var
   ASeleccionados : IBizRemesaCliente;
 begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizRemesaCliente);
   CopyDataTable(ARemesasCliente.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
 end;
 
 procedure TRemesasClienteController.FiltrarEmpresa(ARemesaCliente: IBizRemesaCliente);
@@ -562,12 +575,13 @@ begin
   end;
 end;
 
-procedure TRemesasClienteController.Print(ARemesaCliente: IBizRemesaCliente; AllItems: Boolean = false);
+function TRemesasClienteController.Print(ARemesaCliente: IBizRemesaCliente; AllItems: Boolean = false): Boolean;
 var
   AReportController : IRemesasClienteReportController;
   ID_Remesas: TStringList;
 
 begin
+  Result := False;
   AReportController := TRemesasClienteReportController.Create;
   try
    ID_Remesas := TStringList.Create;
@@ -589,7 +603,7 @@ begin
    else
      ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
 
-    AReportController.Print(ID_Remesas.CommaText);
+    Result := AReportController.Print(ID_Remesas.CommaText);
 
   finally
     AReportController := NIL;
diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas
index 2dfb52ff..01185087 100644
--- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas	
+++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas	
@@ -10,7 +10,7 @@ type
   IRemesasClienteReportController = interface
   ['{EA6EAD10-E07B-45A9-9B5E-0D560E2B92DF}']
     procedure Preview(const ID : String);
-    procedure Print(const ID : String);
+    function Print(const ID : String): Boolean;
   end;
 
   TRemesasClienteReportController = class(TInterfacedObject, IRemesasClienteReportController)
@@ -22,7 +22,7 @@ type
     destructor Destroy; override;
 
     procedure Preview(const ID : String);
-    procedure Print(const ID : String);
+    function Print(const ID : String): Boolean;
   end;
 
 
@@ -30,7 +30,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorRemesasClientePreview,
-  uEditorPreview, uDataModuleRemesasCliente, uEditorBase, cxControls;
+  uEditorPreview, uDataModuleRemesasCliente, uEditorBase, cxControls,
+  schRemesasClienteClient_Intf;
 
 { TRemesasClienteReportController }
 
@@ -76,11 +77,12 @@ begin
     AEditor.Preview;
 end;
 
-procedure TRemesasClienteReportController.Print(const ID : String);
+function TRemesasClienteReportController.Print(const ID : String): boolean;
 var
   AStream: Binary;
   AEditor : IEditorRemesasClientePreview;
 begin
+  Result := False;
   AEditor := NIL;
 
   ShowHourglassCursor;
@@ -97,7 +99,11 @@ begin
   end;
 
   if Assigned(AEditor) then
-    AEditor.Print
+  begin
+    AEditor.TablaImpresion := nme_RemesasCliente;
+    AEditor.IdTablaImpresion := ID;
+    Result := AEditor.Print;
+  end;
 end;
 
 end.
diff --git a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm b/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm
index f04efe30..6c8eb65f 100644
--- a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm	
+++ b/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm	
@@ -66,7 +66,7 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente
     ProbeServers = False
     ProbeFrequency = 60000
     UserAgent = 'RemObjects SDK'
-    TargetURL = 'http://localhost:8090/bin'
+    TargetURL = 'http://localhost:8099/bin'
     Login.Username = 'Luis'
     Login.Password = '1'
     Left = 48
@@ -304,6 +304,17 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'NUM_COPIAS'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'SUFIJO_N58'
         DataType = datString
diff --git a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas
index 88268c3d..95f09886 100644
--- a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas	
+++ b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas	
@@ -9,9 +9,9 @@ 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_darReferencia = '{A1E303BC-14C6-44ED-AB3B-110321C46D8B}';
-  RID_RemesasCliente = '{C09AAC97-CD9C-4A7F-BAB3-A7A7845FA2CE}';
-  RID_RemesasCliente_Refresh = '{1212E969-2479-4D5B-B7FB-C88F220139E8}';
+  RID_darReferencia = '{B51817C3-0E66-46C0-9913-CD22E47DEDCF}';
+  RID_RemesasCliente = '{C58CD9F2-60DE-4E16-9EC6-0792C6FA4739}';
+  RID_RemesasCliente_Refresh = '{565D1E0B-F210-4FBE-A49D-31D731D3D946}';
 
   { Data table names }
   nme_darReferencia = 'darReferencia';
@@ -42,6 +42,7 @@ const
   fld_RemesasClienteDC = 'DC';
   fld_RemesasClienteCUENTA = 'CUENTA';
   fld_RemesasClienteSUFIJO_N19 = 'SUFIJO_N19';
+  fld_RemesasClienteNUM_COPIAS = 'NUM_COPIAS';
   fld_RemesasClienteSUFIJO_N58 = 'SUFIJO_N58';
 
   { RemesasCliente field indexes }
@@ -62,7 +63,8 @@ const
   idx_RemesasClienteDC = 14;
   idx_RemesasClienteCUENTA = 15;
   idx_RemesasClienteSUFIJO_N19 = 16;
-  idx_RemesasClienteSUFIJO_N58 = 17;
+  idx_RemesasClienteNUM_COPIAS = 17;
+  idx_RemesasClienteSUFIJO_N58 = 18;
 
   { RemesasCliente_Refresh fields }
   fld_RemesasCliente_RefreshID = 'ID';
@@ -82,6 +84,7 @@ const
   fld_RemesasCliente_RefreshDC = 'DC';
   fld_RemesasCliente_RefreshCUENTA = 'CUENTA';
   fld_RemesasCliente_RefreshSUFIJO_N19 = 'SUFIJO_N19';
+  fld_RemesasCliente_RefreshNUM_COPIAS = 'NUM_COPIAS';
   fld_RemesasCliente_RefreshSUFIJO_N58 = 'SUFIJO_N58';
 
   { RemesasCliente_Refresh field indexes }
@@ -102,12 +105,13 @@ const
   idx_RemesasCliente_RefreshDC = 14;
   idx_RemesasCliente_RefreshCUENTA = 15;
   idx_RemesasCliente_RefreshSUFIJO_N19 = 16;
-  idx_RemesasCliente_RefreshSUFIJO_N58 = 17;
+  idx_RemesasCliente_RefreshNUM_COPIAS = 17;
+  idx_RemesasCliente_RefreshSUFIJO_N58 = 18;
 
 type
   { IdarReferencia }
   IdarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{7AF88C22-93F7-445B-A55E-87212FDB6C3C}']
+  ['{63DE6705-0083-4EB0-A969-D0A7EA49C2D3}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -136,7 +140,7 @@ type
 
   { IRemesasCliente }
   IRemesasCliente = interface(IDAStronglyTypedDataTable)
-  ['{3CB2DF7A-3B62-4B93-84B1-634DF3842413}']
+  ['{8069DEA4-13BC-4DDC-8280-C385C6FEA141}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -172,6 +176,8 @@ type
     procedure SetCUENTAValue(const aValue: String);
     function GetSUFIJO_N19Value: String;
     procedure SetSUFIJO_N19Value(const aValue: String);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
     function GetSUFIJO_N58Value: String;
     procedure SetSUFIJO_N58Value(const aValue: String);
 
@@ -194,6 +200,7 @@ type
     property DC: String read GetDCValue write SetDCValue;
     property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
     property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
   end;
 
@@ -236,6 +243,8 @@ type
     procedure SetCUENTAValue(const aValue: String); virtual;
     function GetSUFIJO_N19Value: String; virtual;
     procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetSUFIJO_N58Value: String; virtual;
     procedure SetSUFIJO_N58Value(const aValue: String); virtual;
 
@@ -257,6 +266,7 @@ type
     property DC: String read GetDCValue write SetDCValue;
     property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
     property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
 
   public
@@ -267,7 +277,7 @@ type
 
   { IRemesasCliente_Refresh }
   IRemesasCliente_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{3F695DCE-EABB-439F-BC19-6FD396148EB6}']
+  ['{70773417-03B3-44E1-BE83-EC8D300A2E34}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -303,6 +313,8 @@ type
     procedure SetCUENTAValue(const aValue: String);
     function GetSUFIJO_N19Value: String;
     procedure SetSUFIJO_N19Value(const aValue: String);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
     function GetSUFIJO_N58Value: String;
     procedure SetSUFIJO_N58Value(const aValue: String);
 
@@ -325,6 +337,7 @@ type
     property DC: String read GetDCValue write SetDCValue;
     property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
     property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
   end;
 
@@ -367,6 +380,8 @@ type
     procedure SetCUENTAValue(const aValue: String); virtual;
     function GetSUFIJO_N19Value: String; virtual;
     procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetSUFIJO_N58Value: String; virtual;
     procedure SetSUFIJO_N58Value(const aValue: String); virtual;
 
@@ -388,6 +403,7 @@ type
     property DC: String read GetDCValue write SetDCValue;
     property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
     property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
 
   public
@@ -603,6 +619,16 @@ begin
   DataTable.Fields[idx_RemesasClienteSUFIJO_N19].AsString := aValue;
 end;
 
+function TRemesasClienteDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_RemesasClienteNUM_COPIAS].AsInteger;
+end;
+
+procedure TRemesasClienteDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RemesasClienteNUM_COPIAS].AsInteger := aValue;
+end;
+
 function TRemesasClienteDataTableRules.GetSUFIJO_N58Value: String;
 begin
   result := DataTable.Fields[idx_RemesasClienteSUFIJO_N58].AsString;
@@ -795,6 +821,16 @@ begin
   DataTable.Fields[idx_RemesasCliente_RefreshSUFIJO_N19].AsString := aValue;
 end;
 
+function TRemesasCliente_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_RemesasCliente_RefreshNUM_COPIAS].AsInteger;
+end;
+
+procedure TRemesasCliente_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RemesasCliente_RefreshNUM_COPIAS].AsInteger := aValue;
+end;
+
 function TRemesasCliente_RefreshDataTableRules.GetSUFIJO_N58Value: String;
 begin
   result := DataTable.Fields[idx_RemesasCliente_RefreshSUFIJO_N58].AsString;
diff --git a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas
index 2075fd11..aa6b1edf 100644
--- a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas	
+++ b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas	
@@ -9,14 +9,14 @@ 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_darReferenciaDelta = '{6BDDB07D-2116-434F-9B1C-3438BC15858E}';
-  RID_RemesasClienteDelta = '{1ECF3F1A-3E7B-4CFA-B097-D5895756EB02}';
-  RID_RemesasCliente_RefreshDelta = '{0EB05604-7651-4CAE-8D91-0032CBD944CB}';
+  RID_darReferenciaDelta = '{A22BAD63-61D2-4A59-B8D5-75E81DA5DC76}';
+  RID_RemesasClienteDelta = '{9092926B-D466-4D6C-A6BF-5446307DF549}';
+  RID_RemesasCliente_RefreshDelta = '{BA819617-6407-45A8-A07F-3EBEE792DED6}';
 
 type
   { IdarReferenciaDelta }
   IdarReferenciaDelta = interface(IdarReferencia)
-  ['{6BDDB07D-2116-434F-9B1C-3438BC15858E}']
+  ['{A22BAD63-61D2-4A59-B8D5-75E81DA5DC76}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -45,7 +45,7 @@ type
 
   { IRemesasClienteDelta }
   IRemesasClienteDelta = interface(IRemesasCliente)
-  ['{1ECF3F1A-3E7B-4CFA-B097-D5895756EB02}']
+  ['{9092926B-D466-4D6C-A6BF-5446307DF549}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -64,6 +64,7 @@ type
     function GetOldDCValue : String;
     function GetOldCUENTAValue : String;
     function GetOldSUFIJO_N19Value : String;
+    function GetOldNUM_COPIASValue : Integer;
     function GetOldSUFIJO_N58Value : String;
 
     { Properties }
@@ -84,6 +85,7 @@ type
     property OldDC : String read GetOldDCValue;
     property OldCUENTA : String read GetOldCUENTAValue;
     property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
   end;
 
@@ -143,6 +145,9 @@ type
     function GetSUFIJO_N19Value: String; virtual;
     function GetOldSUFIJO_N19Value: String; virtual;
     procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetSUFIJO_N58Value: String; virtual;
     function GetOldSUFIJO_N58Value: String; virtual;
     procedure SetSUFIJO_N58Value(const aValue: String); virtual;
@@ -182,6 +187,8 @@ type
     property OldCUENTA : String read GetOldCUENTAValue;
     property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
     property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
     property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
 
@@ -193,7 +200,7 @@ type
 
   { IRemesasCliente_RefreshDelta }
   IRemesasCliente_RefreshDelta = interface(IRemesasCliente_Refresh)
-  ['{0EB05604-7651-4CAE-8D91-0032CBD944CB}']
+  ['{BA819617-6407-45A8-A07F-3EBEE792DED6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -212,6 +219,7 @@ type
     function GetOldDCValue : String;
     function GetOldCUENTAValue : String;
     function GetOldSUFIJO_N19Value : String;
+    function GetOldNUM_COPIASValue : Integer;
     function GetOldSUFIJO_N58Value : String;
 
     { Properties }
@@ -232,6 +240,7 @@ type
     property OldDC : String read GetOldDCValue;
     property OldCUENTA : String read GetOldCUENTAValue;
     property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
   end;
 
@@ -291,6 +300,9 @@ type
     function GetSUFIJO_N19Value: String; virtual;
     function GetOldSUFIJO_N19Value: String; virtual;
     procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetSUFIJO_N58Value: String; virtual;
     function GetOldSUFIJO_N58Value: String; virtual;
     procedure SetSUFIJO_N58Value(const aValue: String); virtual;
@@ -330,6 +342,8 @@ type
     property OldCUENTA : String read GetOldCUENTAValue;
     property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
     property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
     property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
 
@@ -637,6 +651,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUFIJO_N19] := aValue;
 end;
 
+function TRemesasClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteNUM_COPIAS];
+end;
+
+function TRemesasClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteNUM_COPIAS];
+end;
+
+procedure TRemesasClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteNUM_COPIAS] := aValue;
+end;
+
 function TRemesasClienteBusinessProcessorRules.GetSUFIJO_N58Value: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUFIJO_N58];
@@ -919,6 +948,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshSUFIJO_N19] := aValue;
 end;
 
+function TRemesasCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshNUM_COPIAS];
+end;
+
+function TRemesasCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshNUM_COPIAS];
+end;
+
+procedure TRemesasCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshNUM_COPIAS] := aValue;
+end;
+
 function TRemesasCliente_RefreshBusinessProcessorRules.GetSUFIJO_N58Value: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshSUFIJO_N58];
diff --git a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm
index 6bc41783..fec14ac8 100644
--- a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm	
+++ b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm	
@@ -247,8 +247,8 @@ object srvRemesasCliente: TsrvRemesasCliente
               'SELECT'#10'  ID,'#10'  ID_EMPRESA,'#10'  REFERENCIA,'#10'  TIPO,'#10'  FECHA_REMESA,' +
               #10'  DESCRIPCION,'#10'  ID_DATOS_BANCO,'#10'  FECHA_ALTA,'#10'  FECHA_MODIFICA' +
               'CION,'#10'  USUARIO,'#10'  NOMBRE,'#10'  ENTIDAD,'#10'  SUCURSAL,'#10'  DC,'#10'  CUENTA' +
-              ','#10'  SUFIJO_N19,'#10'  SUFIJO_N58,'#10'  IMPORTE_TOTAL'#10'FROM'#10'  V_REMESAS_C' +
-              'LIENTE'
+              ','#10'  SUFIJO_N19,'#10'  SUFIJO_N58,'#10'  NUM_COPIAS,'#10'  IMPORTE_TOTAL'#10'FROM' +
+              #10'  V_REMESAS_CLIENTE'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -263,6 +263,10 @@ object srvRemesasCliente: TsrvRemesasCliente
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
               end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
               item
                 DatasetField = 'FECHA_REMESA'
                 TableField = 'FECHA_REMESA'
@@ -316,12 +320,12 @@ object srvRemesasCliente: TsrvRemesasCliente
                 TableField = 'SUFIJO_N19'
               end
               item
-                DatasetField = 'SUFIJO_N58'
-                TableField = 'SUFIJO_N58'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end
               item
-                DatasetField = 'TIPO'
-                TableField = 'TIPO'
+                DatasetField = 'SUFIJO_N58'
+                TableField = 'SUFIJO_N58'
               end>
           end>
         Name = 'RemesasCliente'
@@ -506,6 +510,17 @@ object srvRemesasCliente: TsrvRemesasCliente
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'SUFIJO_N58'
             DataType = datString
@@ -537,18 +552,26 @@ object srvRemesasCliente: TsrvRemesasCliente
               'SELECT'#10'  ID,'#10'  ID_EMPRESA,'#10'  REFERENCIA,'#10'  TIPO,'#10'  FECHA_REMESA,' +
               #10'  DESCRIPCION,'#10'  ID_DATOS_BANCO,'#10'  FECHA_ALTA,'#10'  FECHA_MODIFICA' +
               'CION,'#10'  USUARIO,'#10'  NOMBRE,'#10'  ENTIDAD,'#10'  SUCURSAL,'#10'  DC,'#10'  CUENTA' +
-              ','#10'  SUFIJO_N19,'#10'  SUFIJO_N58,'#10'  IMPORTE_TOTAL'#10'FROM'#10'  V_REMESAS_C' +
-              'LIENTE'#10'WHERE ID = :ID'
+              ','#10'  SUFIJO_N19,'#10'  SUFIJO_N58,'#10'  NUM_COPIAS,'#10'  IMPORTE_TOTAL'#10'FROM' +
+              #10'  V_REMESAS_CLIENTE'#10'WHERE ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
                 DatasetField = 'ID'
                 TableField = 'ID'
               end
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
               item
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
               end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
               item
                 DatasetField = 'FECHA_REMESA'
                 TableField = 'FECHA_REMESA'
@@ -561,15 +584,6 @@ object srvRemesasCliente: TsrvRemesasCliente
                 DatasetField = 'USUARIO'
                 TableField = 'USUARIO'
               end
-              item
-                DatasetField = 'ID_EMPRESA'
-                TableField = 'ID_EMPRESA'
-                SQLOrigin = 'REMESAS_CLIENTE.ID_EMPRESA'
-              end
-              item
-                DatasetField = 'IMPORTE_TOTAL'
-                TableField = 'IMPORTE_TOTAL'
-              end
               item
                 DatasetField = 'ID_DATOS_BANCO'
                 TableField = 'ID_DATOS_BANCO'
@@ -582,6 +596,10 @@ object srvRemesasCliente: TsrvRemesasCliente
                 DatasetField = 'FECHA_MODIFICACION'
                 TableField = 'FECHA_MODIFICACION'
               end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
               item
                 DatasetField = 'NOMBRE'
                 TableField = 'NOMBRE'
@@ -607,12 +625,12 @@ object srvRemesasCliente: TsrvRemesasCliente
                 TableField = 'SUFIJO_N19'
               end
               item
-                DatasetField = 'SUFIJO_N58'
-                TableField = 'SUFIJO_N58'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end
               item
-                DatasetField = 'TIPO'
-                TableField = 'TIPO'
+                DatasetField = 'SUFIJO_N58'
+                TableField = 'SUFIJO_N58'
               end>
           end>
         Name = 'RemesasCliente_Refresh'
@@ -802,6 +820,17 @@ object srvRemesasCliente: TsrvRemesasCliente
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'SUFIJO_N58'
             DataType = datString
diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas
index a2bd711b..d1e663a4 100644
--- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas	
+++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas	
@@ -117,13 +117,14 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RemesasCliente as ISeleccionable).SelectedRecords);
-                    ARemesasCliente := (Controller as IRemesasClienteController).ExtraerSeleccionados(RemesasCliente) as IBizRemesaCliente;
+                    ARemesasCliente := (Controller as IRemesasClienteController).ExtraerSeleccionados(RemesasCliente, ViewGrid) as IBizRemesaCliente;
                   end
                   else
                     ARemesasCliente := RemesasCliente;
 
                   if Assigned(ARemesasCliente) then
-                     FController.Print(ARemesasCliente, AllItems);
+                     if FController.Print(ARemesasCliente, AllItems) then
+                        RefrescarInterno;
                 end;
       end;
     end;
@@ -184,7 +185,7 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RemesasCliente as ISeleccionable).SelectedRecords);
-                    ARemesasCliente := (Controller as IRemesasClienteController).ExtraerSeleccionados(RemesasCliente) as IBizRemesaCliente;
+                    ARemesasCliente := (Controller as IRemesasClienteController).ExtraerSeleccionados(RemesasCliente, ViewGrid) as IBizRemesaCliente;
                   end
                   else
                     ARemesasCliente := RemesasCliente;
diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm
index 042d6cca..04a7a8da 100644
--- a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm	
+++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm	
@@ -10,7 +10,7 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
         item
           Format = ',0.00 '#8364';-,0.00 '#8364
           Kind = skSum
-          Position = spFooter        
+          Position = spFooter
           Column = cxGridViewIMPORTE_TOTAL
         end>
       DataController.Summary.FooterSummaryItems = <
@@ -33,6 +33,15 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
           Column = cxGridViewIMPORTE_TOTAL
         end>
       OptionsBehavior.PullFocusing = True
+      object cxGridViewNUM_COPIAS: TcxGridDBColumn
+        DataBinding.FieldName = 'NUM_COPIAS'
+        OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
+        MinWidth = 30
+        Options.HorzSizing = False
+        VisibleForCustomization = False
+        Width = 30
+        IsCaptionAssigned = True
+      end
       object cxGridViewRecID: TcxGridDBColumn
         DataBinding.FieldName = 'RecID'
         Visible = False
@@ -106,6 +115,7 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
   inherited pnlAgrupaciones: TTBXDockablePanel
     Top = 394
     ExplicitTop = 394
+    ExplicitWidth = 554
   end
   inherited dxComponentPrinter: TdxComponentPrinter
     inherited dxComponentPrinterLink: TdxGridReportLink
diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas
index 073cf056..340b7e1f 100644
--- a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas	
+++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas	
@@ -37,9 +37,13 @@ type
     cxGridViewDC: TcxGridDBColumn;
     cxGridViewCUENTA: TcxGridDBColumn;
     cxGridViewTIPO: TcxGridDBColumn;
+    cxGridViewNUM_COPIAS: TcxGridDBColumn;
     procedure cxGridViewIDCustomDrawCell(
       Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
       AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+    procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
   protected
     FRemesasCliente: IBizRemesaCliente;
     function GetRemesasCliente: IBizRemesaCliente; virtual;
@@ -60,6 +64,23 @@ uses uDataModuleRemesasCliente;
 {
 ******************************* TfrViewRemesasCliente *******************************
 }
+procedure TfrViewRemesasCliente.cxGridViewNUM_COPIASCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2);
+    ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
+    ADone := True;
+  end;
+end;
+
 function TfrViewRemesasCliente.GetRemesasCliente: IBizRemesaCliente;
 begin
   Result := FRemesasCliente;
diff --git a/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.bdsproj b/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.bdsproj
index af9f7da3..427c9245 100644
--- a/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.bdsproj	
+++ b/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.bdsproj	
@@ -172,7 +172,7 @@
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>
 	</Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=0
diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
index 55c6ae24..1f6b158b 100644
--- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas	
+++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas	
@@ -6,7 +6,7 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
   uIDataModuleRemesasProveedor, uBizRemesasProveedor, uProveedoresController,
-  uBizContactos, uRecibosProveedorController;
+  uBizContactos, uRecibosProveedorController, uViewGridBase;
 
 type
   IRemesasProveedorController = interface(IObservador)
@@ -24,7 +24,7 @@ type
     function Existe(const ID: Integer) : Boolean;
 
     procedure Preview(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false);
-    procedure Print(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false);
+    function Print(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean;
     function EsModificable(ARemesaProveedor : IBizRemesaProveedor): Boolean;
     function EsEliminable(ARemesaProveedor : IBizRemesaProveedor): Boolean;
 
@@ -34,7 +34,7 @@ type
     property RecibosProveedorController: IRecibosProveedorController read GetRecibosProveedorController;
 
     procedure RecuperarRecibos(ARemesaProveedor: IBizRemesaProveedor);
-    function ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor) : IBizRemesaProveedor;
+    function ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizRemesaProveedor;
   end;
 
   TRemesasProveedorController = class(TObservador, IRemesasProveedorController)
@@ -74,11 +74,11 @@ type
     procedure VerTodos(ARemesasProveedor: IBizRemesaProveedor); virtual;
 
     procedure Preview(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false); virtual;
-    procedure Print(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false); virtual;
+    function Print(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): boolean; virtual;
     function EsModificable(ARemesaProveedor : IBizRemesaProveedor): Boolean;
     function EsEliminable(ARemesaProveedor : IBizRemesaProveedor): Boolean;
 
-    function ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor) : IBizRemesaProveedor; virtual;
+    function ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizRemesaProveedor; virtual;
     function ElegirRecibosProveedor(ARemesaProveedor : IBizRemesaProveedor): Boolean;
     procedure EliminarReciboProveedor(ARemesaProveedor : IBizRemesaProveedor);
   end;
@@ -445,13 +445,26 @@ begin
   end;
 end;
 
-function TRemesasProveedorController.ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor): IBizRemesaProveedor;
+function TRemesasProveedorController.ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor; Const ViewGrid: IViewGridBase = Nil): IBizRemesaProveedor;
 var
   ASeleccionados : IBizRemesaProveedor;
 begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizRemesaProveedor);
   CopyDataTable(ARemesasProveedor.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
 end;
 
 procedure TRemesasProveedorController.FiltrarEmpresa(ARemesaProveedor: IBizRemesaProveedor);
@@ -562,7 +575,7 @@ begin
   end;
 end;
 
-procedure TRemesasProveedorController.Print(ARemesaProveedor: IBizRemesaProveedor; AllItems: Boolean = false);
+function TRemesasProveedorController.Print(ARemesaProveedor: IBizRemesaProveedor; AllItems: Boolean = false): Boolean;
 var
   AReportController : IRemesasProveedorReportController;
   ID_Remesas: TStringList;
diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas.bak b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas.bak
new file mode 100644
index 00000000..7f1047ff
--- /dev/null
+++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas.bak	
@@ -0,0 +1,613 @@
+unit uRemesasProveedorController;
+
+interface
+
+
+uses
+  Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
+  uIDataModuleRemesasProveedor, uBizRemesasProveedor, uProveedoresController,
+  uBizContactos, uRecibosProveedorController;
+
+type
+  IRemesasProveedorController = interface(IObservador)
+  ['{C14143FE-0806-4E64-93E2-A2C0170BBD41}']
+    function Buscar(const ID: Integer): IBizRemesaProveedor;
+    function BuscarTodos: IBizRemesaProveedor; overload;
+    procedure Ver(ARemesaProveedor : IBizRemesaProveedor);
+    procedure VerTodos(ARemesasProveedor: IBizRemesaProveedor);
+    function Nuevo : IBizRemesaProveedor;
+    procedure Anadir(ARemesaProveedor : IBizRemesaProveedor);
+    function Eliminar(const ID : Integer): Boolean; overload;
+    function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload;
+    function Guardar(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+    procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor);
+    function Existe(const ID: Integer) : Boolean;
+
+    procedure Preview(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false);
+    procedure Print(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false);
+    function EsModificable(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+    function EsEliminable(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+
+    function ElegirRecibosProveedor(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+    procedure EliminarReciboProveedor(ARemesaProveedor : IBizRemesaProveedor);
+    function GetRecibosProveedorController: IRecibosProveedorController;
+    property RecibosProveedorController: IRecibosProveedorController read GetRecibosProveedorController;
+
+    procedure RecuperarRecibos(ARemesaProveedor: IBizRemesaProveedor);
+    function ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizRemesaProveedor;
+  end;
+
+  TRemesasProveedorController = class(TObservador, IRemesasProveedorController)
+  protected
+    FDataModule : IDataModuleRemesasProveedor;
+    FRecibosProveedorController: IRecibosProveedorController;
+    function GetRecibosProveedorController: IRecibosProveedorController;
+
+    procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
+    procedure AsignarID(ARemesaProveedor: IBizRemesaProveedor; const IDNuevo: Integer); virtual;
+    function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
+    function _Vacio : IBizRemesaProveedor;
+
+    procedure FiltrarEmpresa(ARemesaProveedor: IBizRemesaProveedor);
+    function ValidarRemesaProveedor(ARemesaProveedor: IBizRemesaProveedor): Boolean; virtual;
+
+    procedure RecuperarRecibos(ARemesaProveedor: IBizRemesaProveedor);
+    procedure RecuperarObjetos(ARemesaProveedor: IBizRemesaProveedor); virtual;
+    procedure AsignarDataModule; virtual;
+
+  public
+    property RecibosProveedorController: IRecibosProveedorController read GetRecibosProveedorController;
+
+    constructor Create; virtual;
+    destructor Destroy; override;
+
+    function Eliminar(const ID : Integer): Boolean; overload;
+    function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload;
+    function Guardar(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+    procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor); virtual;
+    function Existe(const ID: Integer) : Boolean; virtual;
+    procedure Anadir(ARemesaProveedor : IBizRemesaProveedor); virtual;
+    function Buscar(const ID: Integer): IBizRemesaProveedor; virtual;
+    function BuscarTodos: IBizRemesaProveedor; overload;
+    function Nuevo : IBizRemesaProveedor; virtual;
+    procedure Ver(ARemesaProveedor : IBizRemesaProveedor); virtual;
+    procedure VerTodos(ARemesasProveedor: IBizRemesaProveedor); virtual;
+
+    procedure Preview(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false); virtual;
+    procedure Print(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false); virtual;
+    function EsModificable(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+    function EsEliminable(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+
+    function ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizRemesaProveedor; virtual;
+    function ElegirRecibosProveedor(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+    procedure EliminarReciboProveedor(ARemesaProveedor : IBizRemesaProveedor);
+  end;
+
+implementation
+
+uses
+  cxControls, DB, uEditorRegistryUtils, schRemesasProveedorClient_Intf,
+  schRecibosProveedorClient_Intf, uIEditorRemesasProveedor, uIEditorRemesaProveedor,
+  Dialogs, uDataModuleRemesasProveedor, uDataModuleUsuarios, uDAInterfaces,
+  uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows,
+  uBizRecibosProveedor, Variants, uRemesasProveedorReportController;
+
+{ TRemesasProveedorController }
+
+procedure TRemesasProveedorController.Anadir(ARemesaProveedor: IBizRemesaProveedor);
+begin
+  ARemesaProveedor.Insert;
+end;
+
+procedure TRemesasProveedorController.EliminarReciboProveedor(ARemesaProveedor: IBizRemesaProveedor);
+var
+  ARecibosRemesa : IBizRecibosProveedor;
+begin
+  inherited;
+  ARecibosRemesa := ARemesaProveedor.Recibos;
+  RecibosProveedorController.QuitarRemesa(ARecibosRemesa);
+  //Quitamos el recibo de la remesa sin que el servidor se entere para que no elimine el recibo
+  DesconectarTabla(ARecibosRemesa.DataTable);
+  ARecibosRemesa.DataTable.Delete;
+  ConectarTabla(ARecibosRemesa.DataTable);
+  ARecibosRemesa := Nil;
+end;
+
+function TRemesasProveedorController.EsEliminable(ARemesaProveedor: IBizRemesaProveedor): Boolean;
+begin
+  Result := True;
+end;
+
+function TRemesasProveedorController.EsModificable(ARemesaProveedor: IBizRemesaProveedor): Boolean;
+begin
+  Result := True;
+end;
+
+procedure TRemesasProveedorController.AsignarDataModule;
+begin
+  FDataModule := TDataModuleRemesasProveedor.Create(Nil);
+  FRecibosProveedorController := TRecibosProveedorController.Create;
+end;
+
+procedure TRemesasProveedorController.AsignarID(ARemesaProveedor: IBizRemesaProveedor; const IDNuevo: Integer);
+begin
+  if not Assigned(ARemesaProveedor) then
+    raise Exception.Create ('RemesaProveedor no asignado');
+
+  ARemesaProveedor.Edit;
+  ARemesaProveedor.ID := IDNuevo;
+  ARemesaProveedor.Post;
+end;
+
+function TRemesasProveedorController.Buscar(const ID: Integer): IBizRemesaProveedor;
+begin
+  Result := (FDataModule as IDataModuleRemesasProveedor).GetItem(ID);
+  FiltrarEmpresa(Result);
+end;
+
+function TRemesasProveedorController.BuscarTodos: IBizRemesaProveedor;
+begin
+  Result := FDataModule.GetItems;
+  FiltrarEmpresa(Result);
+end;
+
+constructor TRemesasProveedorController.Create;
+begin
+  AsignarDataModule;
+end;
+
+function TRemesasProveedorController.CreateEditor(const AName: String;
+  const IID: TGUID; out Intf): Boolean;
+begin
+  Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
+end;
+
+procedure TRemesasProveedorController.DescartarCambios(ARemesaProveedor: IBizRemesaProveedor);
+begin
+  if not Assigned(ARemesaProveedor) then
+    raise Exception.Create ('RemesaProveedor no asignado');
+
+  ShowHourglassCursor;
+  try
+    if (ARemesaProveedor.State in dsEditModes) then
+      ARemesaProveedor.Cancel;
+
+    ARemesaProveedor.DataTable.CancelUpdates;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+destructor TRemesasProveedorController.Destroy;
+begin
+  FDataModule := Nil;
+  FRecibosProveedorController := Nil;  
+  inherited;
+end;
+
+function TRemesasProveedorController.ValidarRemesaProveedor(ARemesaProveedor: IBizRemesaProveedor): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(ARemesaProveedor) then
+    raise Exception.Create ('Remesa no asignada');
+
+  if (ARemesaProveedor.DataTable.State in dsEditModes) then
+      ARemesaProveedor.DataTable.Post;
+
+  if ARemesaProveedor.DataTable.FieldByName(fld_RemesasProveedorFECHA_REMESA).IsNull then
+     raise Exception.Create('Debe indicar la fecha de esta remesa.');
+
+  if ARemesaProveedor.ID_DATOS_BANCO < 1 then
+     raise Exception.Create('Debe la cuenta bancaria sobre la que realizará la remesa.');
+
+  // Asegurarse de valores en campos "automáticos"
+  ARemesaProveedor.Edit;
+  try
+    ARemesaProveedor.USUARIO := dmUsuarios.LoginInfo.Usuario;
+
+    Result := True;
+  finally
+    ARemesaProveedor.Post;
+  end;
+end;
+
+procedure TRemesasProveedorController.Ver(ARemesaProveedor: IBizRemesaProveedor);
+var
+  AEditor : IEditorRemesaProveedor;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    RecuperarObjetos(ARemesaProveedor);
+
+    CreateEditor('EditorRemesaProveedor', IEditorRemesaProveedor, AEditor);
+    if Assigned(AEditor) then
+      with (AEditor as IEditorRemesaProveedor) do
+      begin
+        Controller := Self; //OJO ORDEN MUY IMPORTANTE
+        RemesaProveedor := ARemesaProveedor;
+
+        //MODO CONSULTAR
+        if not EsModificable(ARemesaProveedor) then
+        begin
+           SetDataTableReadOnly(ARemesaProveedor.DataTable, True);
+           ReadOnly := True;
+        end;
+
+        ShowModal;
+
+        //MODO CONSULTAR (Se deja la tabla como estaba)
+        if ReadOnly then
+           SetDataTableReadOnly(ARemesaProveedor.DataTable, False);
+
+        AEditor.Release;
+    end;
+  finally
+    AEditor := NIL;
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TRemesasProveedorController.VerTodos(ARemesasProveedor: IBizRemesaProveedor);
+var
+  AEditor : IEditorRemesasProveedor;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    CreateEditor('EditorRemesasProveedor', IEditorRemesasProveedor, AEditor);
+    if Assigned(AEditor) then
+      with (AEditor as IEditorRemesasProveedor) do
+      begin
+        Controller := Self; //OJO ORDEN MUY IMPORTANTE
+        RemesasProveedor := ARemesasProveedor;
+        MultiSelect := True;
+        ShowEmbedded;
+      end;
+  finally
+    AEditor := Nil;
+    HideHourglassCursor;
+  end;
+end;
+
+function TRemesasProveedorController._Vacio: IBizRemesaProveedor;
+begin
+  Result := Buscar(ID_NULO);
+end;
+
+function TRemesasProveedorController.Eliminar(const ID: Integer): Boolean;
+var
+  ARemesaProveedor : IBizRemesaProveedor;
+begin
+  ARemesaProveedor := Buscar(ID);
+
+  if not Assigned(ARemesaProveedor) then
+    raise Exception.Create(Format('No se ha encontrado la remesa con ID = %d', [ID]));
+
+  Result := Eliminar(ARemesaProveedor);
+  ARemesaProveedor := NIL;
+end;
+
+function TRemesasProveedorController.ElegirRecibosProveedor(ARemesaProveedor: IBizRemesaProveedor): Boolean;
+var
+  ARecibosRemesa : IBizRecibosProveedor;
+  ARecibosSeleccionados : IBizRecibosProveedor;
+begin
+  Result := False;
+
+  ARecibosSeleccionados := (FRecibosProveedorController.ElegirRecibos(FRecibosProveedorController.BuscarRecibosARemesar, 'Elija uno o más recibos para incluirlos en esta remesa', True) as IBizRecibosProveedor);
+  if Assigned(ARecibosSeleccionados) then
+  begin
+     ShowHourglassCursor;
+     try
+       ARecibosRemesa := ARemesaProveedor.Recibos;
+       //Copia los recibos seleccionados a los recibos de la remesa sin que el servidor se entere de
+       //las inserciones
+       DuplicarRegistros(ARecibosSeleccionados.DataTable,ARecibosRemesa.DataTable, mdrTodos, False, False, True);
+       FRecibosProveedorController.SetSituacionCobrados(ARecibosRemesa);
+       Result := True;
+     finally
+       HideHourglassCursor;
+     end;
+  end;
+
+  ARecibosRemesa := Nil;
+  ARecibosSeleccionados := Nil;
+end;
+
+function TRemesasProveedorController.Eliminar(ARemesaProveedor: IBizRemesaProveedor; AllItems: Boolean = false): Boolean;
+//En el caso de eliminar almenos un elemento del conjunto se devuelve true
+var
+  bEliminado: Boolean;
+
+begin
+  bEliminado := False;
+
+  if not Assigned(ARemesaProveedor) then
+    raise Exception.Create ('ARemesaProveedor no asignada');
+
+  ShowHourglassCursor;
+  try
+    if not ARemesaProveedor.DataTable.Active then
+      ARemesaProveedor.DataTable.Active := True;
+
+    if (ARemesaProveedor.State in dsEditModes) then
+      ARemesaProveedor.Cancel;
+
+    //Siempre eliminaremos el seleccionado
+    if EsEliminable(ARemesaProveedor) then
+    begin
+      //Si la llamada a eliminar es por el editor RemesasProveedor, debo recuperar los recibos
+      //de la remesa a eliminar, en caso de venir por el editor RemesaProveedor ya los tengo
+      if not Assigned(ARemesaProveedor.Recibos) then
+         RecuperarRecibos(ARemesaProveedor);
+      //Eliminaremos la remesa de los recibos asociados
+      With ARemesaProveedor.Recibos.DataTable do
+      begin
+        First;
+        While not Eof do
+        begin
+          RecibosProveedorController.QuitarRemesa(ARemesaProveedor.Recibos);
+          Next;
+        end;
+      end;
+
+      //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
+      ARemesaProveedor.Recibos.DataTable.ApplyUpdates;
+
+      ARemesaProveedor.Delete;
+      bEliminado := True;
+    end;
+
+    //En el caso de querer eliminar todos los items del objeto AAlbaran
+    if AllItems then
+    begin
+       with ARemesaProveedor.DataTable do
+       begin
+         First;
+         while not EOF do
+         begin
+           if EsEliminable(ARemesaProveedor) then
+           begin
+              //Si la llamada a eliminar es por el editor RemesasProveedor, debo recuperar los recibos
+              //de la remesa a eliminar, en caso de venir por el editor RemesaProveedor ya los tengo
+              if not Assigned(ARemesaProveedor.Recibos) then
+                 RecuperarRecibos(ARemesaProveedor);
+              //Eliminaremos la remesa de los recibos asociados
+              With ARemesaProveedor.Recibos.DataTable do
+              begin
+                First;
+                While not Eof do
+                begin
+                  RecibosProveedorController.QuitarRemesa(ARemesaProveedor.Recibos);
+                  Next;
+                end;
+              end;
+
+              //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
+              ARemesaProveedor.Recibos.DataTable.ApplyUpdates;
+
+              ARemesaProveedor.Delete;
+              bEliminado := True
+           end
+           else Next;
+         end;
+       end;
+    end;
+
+    if bEliminado then
+    begin
+       ARemesaProveedor.DataTable.ApplyUpdates;
+       Result := True;
+    end
+    else
+       Result := False;
+
+    HideHourglassCursor;
+  except
+    //Hay algun recibo de la remesa que tiene movimientos (Cobros/Devoluciones) posteriores al cobro inicial de la remesa
+    on E: Exception do
+    begin
+      ARemesaProveedor.Recibos.DataTable.CancelUpdates;
+      ARemesaProveedor.DataTable.CancelUpdates;
+      HideHourglassCursor;
+      MessageBox(0, 'Exiten movimientos (Cobros/Devoluciones) en los recibos posteriores al cobro inicial de la remesa', 'Atención', MB_ICONWARNING or MB_OK);
+    end;
+  end;
+end;
+
+procedure TRemesasProveedorController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
+begin
+  inherited;
+//
+end;
+
+procedure TRemesasProveedorController.RecuperarObjetos(ARemesaProveedor: IBizRemesaProveedor);
+begin
+  RecuperarRecibos(ARemesaProveedor);
+end;
+
+procedure TRemesasProveedorController.RecuperarRecibos(ARemesaProveedor: IBizRemesaProveedor);
+begin
+  ARemesaProveedor.Recibos := RecibosProveedorController.BuscarRecibosRemesa(ARemesaProveedor.ID);
+end;
+
+function TRemesasProveedorController.Existe(const ID: Integer): Boolean;
+var
+  ARemesaProveedor : IBizRemesaProveedor;
+begin
+  try
+    ARemesaProveedor := Buscar(ID);
+    Result := Assigned(ARemesaProveedor) and (ARemesaProveedor.ID = ID);
+  finally
+    ARemesaProveedor := NIL;
+  end;
+end;
+
+function TRemesasProveedorController.ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor; Const ViewGrid: IViewGridBase = Nil): IBizRemesaProveedor;
+var
+  ASeleccionados : IBizRemesaProveedor;
+begin
+  if Assigned(ViewGrid) then
+  begin
+    //Guardamos la situación porque el CopyDataTable nos cambia la posicion
+    ViewGrid.SaveGridStatus;
+    ViewGrid.DesactivarGrid;
+  end;
+
+  ASeleccionados := (Self.Buscar(ID_NULO) as IBizRemesaProveedor);
+  CopyDataTable(ARemesasProveedor.DataTable, ASeleccionados.DataTable, True);
+  Result := ASeleccionados;
+
+  if Assigned(ViewGrid) then
+  begin
+    ViewGrid.ActivarGrid;
+    ViewGrid.RestoreGridStatus;
+  end;
+end;
+
+procedure TRemesasProveedorController.FiltrarEmpresa(ARemesaProveedor: IBizRemesaProveedor);
+begin
+  if ARemesaProveedor.DataTable.Active then
+    ARemesaProveedor.DataTable.Active := False;
+
+  // Filtrar los contactos actuales por empresa
+  with ARemesaProveedor.DataTable.Where do
+  begin
+    if NotEmpty then
+      AddOperator(opAND);
+    // Para evitar ambigüedades en la SQL del servidor
+    AddText(fld_RemesasProveedorID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
+//    AddCondition('##' + fld_RemesasProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+  end;
+end;
+
+function TRemesasProveedorController.GetRecibosProveedorController: IRecibosProveedorController;
+begin
+  Result := FRecibosProveedorController;
+end;
+
+function TRemesasProveedorController.Guardar(ARemesaProveedor: IBizRemesaProveedor): Boolean;
+var
+  NuevoID: Integer;
+  bEsNuevo: Boolean;
+begin
+  Result := False;
+
+  if ValidarRemesaProveedor(ARemesaProveedor) then
+  begin
+    ShowHourglassCursor;
+    try
+      bEsNuevo := ARemesaProveedor.EsNuevo;
+      if (bEsNuevo) then
+         NuevoID := FDataModule.GetNextID(ARemesaProveedor.DataTable.LogicalName)
+      else
+         NuevoID := ARemesaProveedor.ID;
+
+      AsignarID(ARemesaProveedor, NuevoID);
+      //Si es nuevo debemos hacer el applyupdates por la integridad referencial de BD
+      if bEsNuevo then
+         ARemesaProveedor.DataTable.ApplyUpdates;
+
+      //Si todo ha ido bien, asignamos la remesa a los recibos asociados
+      //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
+      RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, NuevoID);
+      ARemesaProveedor.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboProveedor/ ElegirRecibosProveedor)
+
+      //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen
+      //existiendo deltas, de esta forma los limpiamos
+      if ARemesaProveedor.Recibos.DataTable.HasDelta then
+         ARemesaProveedor.Recibos.DataTable.Refresh;
+
+      ARemesaProveedor.DataTable.ApplyUpdates;
+      
+      Result := True;
+    finally
+      HideHourglassCursor;
+    end;
+  end;
+end;
+
+function TRemesasProveedorController.Nuevo: IBizRemesaProveedor;
+var
+  ARemesaProveedor : IBizRemesaProveedor;
+begin
+  ARemesaProveedor := FDataModule.NewItem;
+  FiltrarEmpresa(ARemesaProveedor);
+  ARemesaProveedor.DataTable.Active := True;
+  ARemesaProveedor.Insert;
+  Result := ARemesaProveedor;
+end;
+
+procedure TRemesasProveedorController.Preview(ARemesaProveedor: IBizRemesaProveedor; AllItems: Boolean = false);
+var
+  AReportController : IRemesasProveedorReportController;
+  ID_Remesas: TStringList;
+
+begin
+  AReportController := TRemesasProveedorReportController.Create;
+  try
+   ID_Remesas := TStringList.Create;
+
+   //Si deseamos previsualizar todos los items del objeto albaran
+   if AllItems then
+   begin
+     with ARemesaProveedor.DataTable do
+     begin
+       First;
+       while not EOF do
+       begin
+         ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
+         Next;
+       end;
+     end;
+   end
+   //Solo previsualizamos el item seleccionado
+   else
+     ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
+
+    AReportController.Preview(ID_Remesas.CommaText);
+
+  finally
+    AReportController := NIL;
+    ID_Remesas.Free;
+  end;
+end;
+
+procedure TRemesasProveedorController.Print(ARemesaProveedor: IBizRemesaProveedor; AllItems: Boolean = false);
+var
+  AReportController : IRemesasProveedorReportController;
+  ID_Remesas: TStringList;
+
+begin
+  AReportController := TRemesasProveedorReportController.Create;
+  try
+   ID_Remesas := TStringList.Create;
+
+   //Si deseamos previsualizar todos los items del objeto albaran
+   if AllItems then
+   begin
+     with ARemesaProveedor.DataTable do
+     begin
+       First;
+       while not EOF do
+       begin
+         ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
+         Next;
+       end;
+     end;
+   end
+   //Solo previsualizamos el item seleccionado
+   else
+     ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
+
+    AReportController.Print(ID_Remesas.CommaText);
+
+  finally
+    AReportController := NIL;
+    ID_Remesas.Free;
+  end;
+end;
+
+end.
diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas
index 92fcd5c8..a90c7be7 100644
--- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas	
+++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas	
@@ -10,7 +10,7 @@ type
   IRemesasProveedorReportController = interface
   ['{A89AAA05-19AD-4455-BAF6-8A5373D15FE7}']
     procedure Preview(const ID : String);
-    procedure Print(const ID : String);
+    function Print(const ID : String): Boolean;
   end;
 
   TRemesasProveedorReportController = class(TInterfacedObject, IRemesasProveedorReportController)
@@ -22,7 +22,7 @@ type
     destructor Destroy; override;
 
     procedure Preview(const ID : String);
-    procedure Print(const ID : String);
+    function Print(const ID : String): Boolean;
   end;
 
 
@@ -30,7 +30,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorRemesasProveedorPreview,
-  uEditorPreview, uDataModuleRemesasProveedor, uEditorBase, cxControls;
+  uEditorPreview, uDataModuleRemesasProveedor, uEditorBase, cxControls,
+  schRemesasProveedorClient_Intf;
 
 { TRemesasProveedorReportController }
 
@@ -76,11 +77,12 @@ begin
     AEditor.Preview;
 end;
 
-procedure TRemesasProveedorReportController.Print(const ID : String);
+function TRemesasProveedorReportController.Print(const ID : String): Boolean;
 var
   AStream: Binary;
   AEditor : IEditorRemesasProveedorPreview;
 begin
+  Result := False;
   AEditor := NIL;
 
   ShowHourglassCursor;
@@ -97,7 +99,12 @@ begin
   end;
 
   if Assigned(AEditor) then
-    AEditor.Print
+  begin
+    AEditor.TablaImpresion := nme_RemesasProveedor;
+    AEditor.IdTablaImpresion := ID;
+    Result := AEditor.Print;
+  end;
+
 end;
 
 end.
diff --git a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm b/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm
index f2a49d3c..4e14af74 100644
--- a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm	
+++ b/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm	
@@ -66,7 +66,7 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
     ProbeServers = False
     ProbeFrequency = 60000
     UserAgent = 'RemObjects SDK'
-    TargetURL = 'http://localhost:8090/bin'
+    TargetURL = 'http://localhost:8099/bin'
     Left = 48
     Top = 272
   end
@@ -302,6 +302,17 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'NUM_COPIAS'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'SUFIJO_N58'
         DataType = datString
diff --git a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas
index 5225d1c0..1234e9f8 100644
--- a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas	
+++ b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas	
@@ -9,9 +9,9 @@ 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_darReferencia = '{C1FE1FF9-7F1D-45EF-A6EC-36769F2459E8}';
-  RID_RemesasProveedor = '{B681DD8C-CB40-4D5F-8717-3335972EB8EF}';
-  RID_RemesasProveedor_Refresh = '{56DD2E63-E0E0-47F8-9840-044CC0BB101E}';
+  RID_darReferencia = '{C46DD694-0C93-4DC1-806C-761CB55A3E78}';
+  RID_RemesasProveedor = '{D4F4C043-452C-4C78-AC2A-2BFED8440BB3}';
+  RID_RemesasProveedor_Refresh = '{423CFB65-3863-4ADA-B9B3-318A7C13A13D}';
 
   { Data table names }
   nme_darReferencia = 'darReferencia';
@@ -42,6 +42,7 @@ const
   fld_RemesasProveedorDC = 'DC';
   fld_RemesasProveedorCUENTA = 'CUENTA';
   fld_RemesasProveedorSUFIJO_N19 = 'SUFIJO_N19';
+  fld_RemesasProveedorNUM_COPIAS = 'NUM_COPIAS';
   fld_RemesasProveedorSUFIJO_N58 = 'SUFIJO_N58';
 
   { RemesasProveedor field indexes }
@@ -62,7 +63,8 @@ const
   idx_RemesasProveedorDC = 14;
   idx_RemesasProveedorCUENTA = 15;
   idx_RemesasProveedorSUFIJO_N19 = 16;
-  idx_RemesasProveedorSUFIJO_N58 = 17;
+  idx_RemesasProveedorNUM_COPIAS = 17;
+  idx_RemesasProveedorSUFIJO_N58 = 18;
 
   { RemesasProveedor_Refresh fields }
   fld_RemesasProveedor_RefreshID = 'ID';
@@ -82,6 +84,7 @@ const
   fld_RemesasProveedor_RefreshDC = 'DC';
   fld_RemesasProveedor_RefreshCUENTA = 'CUENTA';
   fld_RemesasProveedor_RefreshSUFIJO_N19 = 'SUFIJO_N19';
+  fld_RemesasProveedor_RefreshNUM_COPIAS = 'NUM_COPIAS';
   fld_RemesasProveedor_RefreshSUFIJO_N58 = 'SUFIJO_N58';
 
   { RemesasProveedor_Refresh field indexes }
@@ -102,12 +105,13 @@ const
   idx_RemesasProveedor_RefreshDC = 14;
   idx_RemesasProveedor_RefreshCUENTA = 15;
   idx_RemesasProveedor_RefreshSUFIJO_N19 = 16;
-  idx_RemesasProveedor_RefreshSUFIJO_N58 = 17;
+  idx_RemesasProveedor_RefreshNUM_COPIAS = 17;
+  idx_RemesasProveedor_RefreshSUFIJO_N58 = 18;
 
 type
   { IdarReferencia }
   IdarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{117BD92C-DD52-4B6F-840D-675FF8A7BB4B}']
+  ['{BCC59268-E9D7-4AFD-8FED-205F17C495DC}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -136,7 +140,7 @@ type
 
   { IRemesasProveedor }
   IRemesasProveedor = interface(IDAStronglyTypedDataTable)
-  ['{23B52BF8-6AAD-4393-96A3-F66CAA606CF5}']
+  ['{1EC2C43E-91B7-4DB1-B5B8-DA5D4F579C1E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -172,6 +176,8 @@ type
     procedure SetCUENTAValue(const aValue: String);
     function GetSUFIJO_N19Value: String;
     procedure SetSUFIJO_N19Value(const aValue: String);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
     function GetSUFIJO_N58Value: String;
     procedure SetSUFIJO_N58Value(const aValue: String);
 
@@ -194,6 +200,7 @@ type
     property DC: String read GetDCValue write SetDCValue;
     property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
     property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
   end;
 
@@ -236,6 +243,8 @@ type
     procedure SetCUENTAValue(const aValue: String); virtual;
     function GetSUFIJO_N19Value: String; virtual;
     procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetSUFIJO_N58Value: String; virtual;
     procedure SetSUFIJO_N58Value(const aValue: String); virtual;
 
@@ -257,6 +266,7 @@ type
     property DC: String read GetDCValue write SetDCValue;
     property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
     property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
 
   public
@@ -267,7 +277,7 @@ type
 
   { IRemesasProveedor_Refresh }
   IRemesasProveedor_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{DE94F87C-D124-425E-868D-607F9F21A92C}']
+  ['{2A8FF214-38C0-48F1-B20F-952E755DDCF9}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -303,6 +313,8 @@ type
     procedure SetCUENTAValue(const aValue: String);
     function GetSUFIJO_N19Value: String;
     procedure SetSUFIJO_N19Value(const aValue: String);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
     function GetSUFIJO_N58Value: String;
     procedure SetSUFIJO_N58Value(const aValue: String);
 
@@ -325,6 +337,7 @@ type
     property DC: String read GetDCValue write SetDCValue;
     property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
     property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
   end;
 
@@ -367,6 +380,8 @@ type
     procedure SetCUENTAValue(const aValue: String); virtual;
     function GetSUFIJO_N19Value: String; virtual;
     procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetSUFIJO_N58Value: String; virtual;
     procedure SetSUFIJO_N58Value(const aValue: String); virtual;
 
@@ -388,6 +403,7 @@ type
     property DC: String read GetDCValue write SetDCValue;
     property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
     property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
 
   public
@@ -603,6 +619,16 @@ begin
   DataTable.Fields[idx_RemesasProveedorSUFIJO_N19].AsString := aValue;
 end;
 
+function TRemesasProveedorDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorNUM_COPIAS].AsInteger;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RemesasProveedorNUM_COPIAS].AsInteger := aValue;
+end;
+
 function TRemesasProveedorDataTableRules.GetSUFIJO_N58Value: String;
 begin
   result := DataTable.Fields[idx_RemesasProveedorSUFIJO_N58].AsString;
@@ -795,6 +821,16 @@ begin
   DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N19].AsString := aValue;
 end;
 
+function TRemesasProveedor_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshNUM_COPIAS].AsInteger;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshNUM_COPIAS].AsInteger := aValue;
+end;
+
 function TRemesasProveedor_RefreshDataTableRules.GetSUFIJO_N58Value: String;
 begin
   result := DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N58].AsString;
diff --git a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas
index d46edbb3..4913526b 100644
--- a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas	
+++ b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas	
@@ -9,14 +9,14 @@ 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_darReferenciaDelta = '{1CF21482-DCAA-4AC1-99E1-17E699935E70}';
-  RID_RemesasProveedorDelta = '{3E42591F-5D39-4B25-9D0B-65195F9A748B}';
-  RID_RemesasProveedor_RefreshDelta = '{98216DA8-39E0-4978-8E23-96992F4135C8}';
+  RID_darReferenciaDelta = '{144B45A9-6550-4495-B484-6F00D72EE60B}';
+  RID_RemesasProveedorDelta = '{0847F13C-BE25-4D9C-900C-846F8E6879E1}';
+  RID_RemesasProveedor_RefreshDelta = '{37A3A546-CFF5-4D40-A35B-5E2544E59472}';
 
 type
   { IdarReferenciaDelta }
   IdarReferenciaDelta = interface(IdarReferencia)
-  ['{1CF21482-DCAA-4AC1-99E1-17E699935E70}']
+  ['{144B45A9-6550-4495-B484-6F00D72EE60B}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -45,7 +45,7 @@ type
 
   { IRemesasProveedorDelta }
   IRemesasProveedorDelta = interface(IRemesasProveedor)
-  ['{3E42591F-5D39-4B25-9D0B-65195F9A748B}']
+  ['{0847F13C-BE25-4D9C-900C-846F8E6879E1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -64,6 +64,7 @@ type
     function GetOldDCValue : String;
     function GetOldCUENTAValue : String;
     function GetOldSUFIJO_N19Value : String;
+    function GetOldNUM_COPIASValue : Integer;
     function GetOldSUFIJO_N58Value : String;
 
     { Properties }
@@ -84,6 +85,7 @@ type
     property OldDC : String read GetOldDCValue;
     property OldCUENTA : String read GetOldCUENTAValue;
     property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
   end;
 
@@ -143,6 +145,9 @@ type
     function GetSUFIJO_N19Value: String; virtual;
     function GetOldSUFIJO_N19Value: String; virtual;
     procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetSUFIJO_N58Value: String; virtual;
     function GetOldSUFIJO_N58Value: String; virtual;
     procedure SetSUFIJO_N58Value(const aValue: String); virtual;
@@ -182,6 +187,8 @@ type
     property OldCUENTA : String read GetOldCUENTAValue;
     property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
     property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
     property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
 
@@ -193,7 +200,7 @@ type
 
   { IRemesasProveedor_RefreshDelta }
   IRemesasProveedor_RefreshDelta = interface(IRemesasProveedor_Refresh)
-  ['{98216DA8-39E0-4978-8E23-96992F4135C8}']
+  ['{37A3A546-CFF5-4D40-A35B-5E2544E59472}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -212,6 +219,7 @@ type
     function GetOldDCValue : String;
     function GetOldCUENTAValue : String;
     function GetOldSUFIJO_N19Value : String;
+    function GetOldNUM_COPIASValue : Integer;
     function GetOldSUFIJO_N58Value : String;
 
     { Properties }
@@ -232,6 +240,7 @@ type
     property OldDC : String read GetOldDCValue;
     property OldCUENTA : String read GetOldCUENTAValue;
     property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
   end;
 
@@ -291,6 +300,9 @@ type
     function GetSUFIJO_N19Value: String; virtual;
     function GetOldSUFIJO_N19Value: String; virtual;
     procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetSUFIJO_N58Value: String; virtual;
     function GetOldSUFIJO_N58Value: String; virtual;
     procedure SetSUFIJO_N58Value(const aValue: String); virtual;
@@ -330,6 +342,8 @@ type
     property OldCUENTA : String read GetOldCUENTAValue;
     property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
     property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
     property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
 
@@ -637,6 +651,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N19] := aValue;
 end;
 
+function TRemesasProveedorBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNUM_COPIAS];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorNUM_COPIAS];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNUM_COPIAS] := aValue;
+end;
+
 function TRemesasProveedorBusinessProcessorRules.GetSUFIJO_N58Value: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N58];
@@ -919,6 +948,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N19] := aValue;
 end;
 
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshNUM_COPIAS];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshNUM_COPIAS];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshNUM_COPIAS] := aValue;
+end;
+
 function TRemesasProveedor_RefreshBusinessProcessorRules.GetSUFIJO_N58Value: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N58];
diff --git a/Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.bdsgroup b/Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.bdsgroup
new file mode 100644
index 00000000..ce932245
--- /dev/null
+++ b/Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.bdsgroup	
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Default.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{D1967178-5EBB-46B2-893F-E0CADFEDD466}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Default.Personality>  
+    
+    <Projects>
+      <Projects Name="DataAbstract_D10.bpl">..\..\DataAbstract_D10\DataAbstract_D10.bdsproj</Projects>
+      <Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
+      <Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
+      <Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
+      <Projects Name="Usuarios.bpl">..\..\Base\Usuarios\Usuarios.bdsproj</Projects>
+      <Projects Name="RemesasProveedor_model.bpl">Model\RemesasProveedor_model.bdsproj</Projects>
+      <Projects Name="RemesasProveedor_data.bpl">Data\RemesasProveedor_data.bdsproj</Projects>
+      <Projects Name="RemesasProveedor_controller.bpl">Controller\RemesasProveedor_controller.bdsproj</Projects>
+      <Projects Name="RemesasProveedor_view.bpl">Views\RemesasProveedor_view.bdsproj</Projects>
+      <Projects Name="RemesasProveedor_plugin.bpl">Plugin\RemesasProveedor_plugin.bdsproj</Projects>
+      <Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
+      <Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
+      <Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Usuarios.bpl RemesasProveedor_model.bpl RemesasProveedor_data.bpl RemesasProveedor_controller.bpl RemesasProveedor_view.bpl RemesasProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm b/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm
index 24641793..0dc090c7 100644
--- a/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm	
+++ b/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm	
@@ -15,8 +15,298 @@ object RptRemesasProveedor: TRptRemesasProveedor
   end
   object tbl_Cabecera: TDACDSDataTable
     RemoteUpdatesOptions = []
-    Fields = <>
-    Params = <>
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ID_EMPRESA'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FECHA_REMESA'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'TITULAR'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ENTIDAD'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'SUCURSAL'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'DC'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CUENTA'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'DESCRIPCION'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'NIF_CIF_EMPRESA'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'RAZON_SOCIAL'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CALLE_EMPRESA'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'POBLACION_EMPRESA'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PROVINCIA_EMPRESA'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CODIGO_POSTAL_EMPRESA'
+        DataType = datString
+        Size = 10
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'TELEFONO_1'
+        DataType = datString
+        Size = 25
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FAX'
+        DataType = datString
+        Size = 25
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'MOVIL_1'
+        DataType = datString
+        Size = 25
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'EMAIL_1'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PAGINA_WEB'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'REGISTRO_MERCANTIL'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'LOGOTIPO'
+        DataType = datBlob
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'ID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        Value = ''
+        ParamType = daptInput
+      end>
     MasterMappingMode = mmDataRequest
     LogChanges = False
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -34,8 +324,293 @@ object RptRemesasProveedor: TRptRemesasProveedor
   end
   object tbl_Detalles: TDACDSDataTable
     RemoteUpdatesOptions = []
-    Fields = <>
-    Params = <>
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'REFERENCIA_PROVEEDOR'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'SITUACION'
+        DataType = datString
+        Size = 9
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ID_FACTURA'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ID_REMESA'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'REFERENCIA_REMESA'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FECHA_VENCIMIENTO'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'DESCRIPCION'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'OBSERVACIONES'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'IMPORTE'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'OTROS_GASTOS'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FECHA_FACTURA'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'REFERENCIA_FACTURA_PROV'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FORMA_PAGO_FACTURA'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'IMPORTE_FACTURA'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ID_EMPRESA'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'NOMBRE_PROVEEDOR'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'NIF_CIF_PROVEEDOR'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ENTIDAD_PROVEEDOR'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'SUCURSAL_PROVEEDOR'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'DC_PROVEEDOR'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CUENTA_PROVEEDOR'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'ID_REMESA'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        Value = ''
+        ParamType = daptInput
+      end>
     MasterMappingMode = mmDataRequest
     LogChanges = False
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -929,7 +1504,7 @@ object RptRemesasProveedor: TRptRemesasProveedor
     Top = 158
   end
   object frxReport: TfrxReport
-    Version = '3.23.7'
+    Version = '4.3'
     DotMatrixReport = False
     EngineOptions.DoublePass = True
     IniFile = '\Software\Fast Reports'
@@ -937,6 +1512,7 @@ object RptRemesasProveedor: TRptRemesasProveedor
     PreviewOptions.OutlineWidth = 180
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Default'
+    PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 37871.995398692100000000
     ReportOptions.LastChange = 39293.788285949070000000
     ReportOptions.VersionBuild = '1'
@@ -1004,66 +1580,6 @@ object RptRemesasProveedor: TRptRemesasProveedor
     OnStartReport = 'frxReportOnStartReport'
     Left = 169
     Top = 16
-    Datasets = <
-      item
-        DataSet = frxDBCabecera
-        DataSetName = 'frxDBCabecera'
-      end
-      item
-        DataSet = frxDBDetalles
-        DataSetName = 'frxDBDetalles'
-      end>
-    Variables = <
-      item
-        Name = ' Paginacion'
-        Value = Null
-      end
-      item
-        Name = 'Pagina'
-        Value = Null
-      end
-      item
-        Name = 'TotalPaginas'
-        Value = Null
-      end>
-    Style = <
-      item
-        Name = 'Concepto normal'
-        Color = clNone
-        Font.Charset = ANSI_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -12
-        Font.Name = 'Tahoma'
-        Font.Style = []
-      end
-      item
-        Name = 'Concepto subtotal'
-        Color = clNone
-        Font.Charset = ANSI_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -12
-        Font.Name = 'Tahoma'
-        Font.Style = [fsBold]
-      end
-      item
-        Name = 'Cabecera de columna'
-        Color = 15790320
-        Font.Charset = ANSI_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -12
-        Font.Name = 'Tahoma'
-        Font.Style = [fsBold]
-        Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
-      end
-      item
-        Name = 'Concepto titulo'
-        Color = clNone
-        Font.Charset = ANSI_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -13
-        Font.Name = 'Tahoma'
-        Font.Style = [fsBold]
-      end>
   end
   object frxDBCabecera: TfrxDBDataset
     UserName = 'frxDBCabecera'
diff --git a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm
index 6a841334..98616534 100644
--- a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm	
+++ b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm	
@@ -247,8 +247,8 @@ object srvRemesasProveedor: TsrvRemesasProveedor
               'SELECT'#10'  ID,'#10'  ID_EMPRESA,'#10'  REFERENCIA,'#10'  TIPO,'#10'  FECHA_REMESA,' +
               #10'  DESCRIPCION,'#10'  ID_DATOS_BANCO,'#10'  FECHA_ALTA,'#10'  FECHA_MODIFICA' +
               'CION,'#10'  USUARIO,'#10'  NOMBRE,'#10'  ENTIDAD,'#10'  SUCURSAL,'#10'  DC,'#10'  CUENTA' +
-              ','#10'  SUFIJO_N19,'#10'  SUFIJO_N58,'#10'  IMPORTE_TOTAL'#10'FROM'#10'  V_REMESAS_P' +
-              'ROVEEDOR'
+              ','#10'  SUFIJO_N19,'#10'  SUFIJO_N58,'#10'  NUM_COPIAS,'#10'  IMPORTE_TOTAL'#10'FROM' +
+              #10'  V_REMESAS_PROVEEDOR'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -263,6 +263,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
               end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
               item
                 DatasetField = 'FECHA_REMESA'
                 TableField = 'FECHA_REMESA'
@@ -316,12 +320,12 @@ object srvRemesasProveedor: TsrvRemesasProveedor
                 TableField = 'SUFIJO_N19'
               end
               item
-                DatasetField = 'SUFIJO_N58'
-                TableField = 'SUFIJO_N58'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end
               item
-                DatasetField = 'TIPO'
-                TableField = 'TIPO'
+                DatasetField = 'SUFIJO_N58'
+                TableField = 'SUFIJO_N58'
               end>
           end>
         Name = 'RemesasProveedor'
@@ -506,6 +510,17 @@ object srvRemesasProveedor: TsrvRemesasProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'SUFIJO_N58'
             DataType = datString
@@ -537,18 +552,26 @@ object srvRemesasProveedor: TsrvRemesasProveedor
               'SELECT'#10'  ID,'#10'  ID_EMPRESA,'#10'  REFERENCIA,'#10'  TIPO,'#10'  FECHA_REMESA,' +
               #10'  DESCRIPCION,'#10'  ID_DATOS_BANCO,'#10'  FECHA_ALTA,'#10'  FECHA_MODIFICA' +
               'CION,'#10'  USUARIO,'#10'  NOMBRE,'#10'  ENTIDAD,'#10'  SUCURSAL,'#10'  DC,'#10'  CUENTA' +
-              ','#10'  SUFIJO_N19,'#10'  SUFIJO_N58,'#10'  IMPORTE_TOTAL'#10'FROM'#10'  V_REMESAS_P' +
-              'ROVEEDOR'#10'WHERE ID = :ID'
+              ','#10'  SUFIJO_N19,'#10'  SUFIJO_N58,'#10'  NUM_COPIAS,'#10'  IMPORTE_TOTAL'#10'FROM' +
+              #10'  V_REMESAS_PROVEEDOR'#10'WHERE ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
                 DatasetField = 'ID'
                 TableField = 'ID'
               end
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
               item
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
               end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
               item
                 DatasetField = 'FECHA_REMESA'
                 TableField = 'FECHA_REMESA'
@@ -561,15 +584,6 @@ object srvRemesasProveedor: TsrvRemesasProveedor
                 DatasetField = 'USUARIO'
                 TableField = 'USUARIO'
               end
-              item
-                DatasetField = 'ID_EMPRESA'
-                TableField = 'ID_EMPRESA'
-                SQLOrigin = 'REMESAS_CLIENTE.ID_EMPRESA'
-              end
-              item
-                DatasetField = 'IMPORTE_TOTAL'
-                TableField = 'IMPORTE_TOTAL'
-              end
               item
                 DatasetField = 'ID_DATOS_BANCO'
                 TableField = 'ID_DATOS_BANCO'
@@ -582,6 +596,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor
                 DatasetField = 'FECHA_MODIFICACION'
                 TableField = 'FECHA_MODIFICACION'
               end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
               item
                 DatasetField = 'NOMBRE'
                 TableField = 'NOMBRE'
@@ -607,12 +625,12 @@ object srvRemesasProveedor: TsrvRemesasProveedor
                 TableField = 'SUFIJO_N19'
               end
               item
-                DatasetField = 'SUFIJO_N58'
-                TableField = 'SUFIJO_N58'
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
               end
               item
-                DatasetField = 'TIPO'
-                TableField = 'TIPO'
+                DatasetField = 'SUFIJO_N58'
+                TableField = 'SUFIJO_N58'
               end>
           end>
         Name = 'RemesasProveedor_Refresh'
@@ -802,6 +820,17 @@ object srvRemesasProveedor: TsrvRemesasProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'SUFIJO_N58'
             DataType = datString
diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm
index 5c9563b0..3721f86f 100644
--- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm	
+++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm	
@@ -4,6 +4,7 @@ inherited fEditorRemesasProveedor: TfEditorRemesasProveedor
   Caption = 'Lista de remesas de pago'
   ClientWidth = 820
   ExplicitWidth = 828
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas
index 7c8bf6e2..0ed71018 100644
--- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas	
+++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas	
@@ -117,13 +117,14 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RemesasProveedor as ISeleccionable).SelectedRecords);
-                    ARemesasProveedor := (Controller as IRemesasProveedorController).ExtraerSeleccionados(RemesasProveedor) as IBizRemesaProveedor;
+                    ARemesasProveedor := (Controller as IRemesasProveedorController).ExtraerSeleccionados(RemesasProveedor, ViewGrid) as IBizRemesaProveedor;
                   end
                   else
                     ARemesasProveedor := RemesasProveedor;
 
                   if Assigned(ARemesasProveedor) then
-                     FController.Print(ARemesasProveedor, AllItems);
+                     if FController.Print(ARemesasProveedor, AllItems) then
+                        RefrescarInterno;
                 end;
       end;
     end;
@@ -184,7 +185,7 @@ begin
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RemesasProveedor as ISeleccionable).SelectedRecords);
-                    ARemesasProveedor := (Controller as IRemesasProveedorController).ExtraerSeleccionados(RemesasProveedor) as IBizRemesaProveedor;
+                    ARemesasProveedor := (Controller as IRemesasProveedorController).ExtraerSeleccionados(RemesasProveedor, ViewGrid) as IBizRemesaProveedor;
                   end
                   else
                     ARemesasProveedor := RemesasProveedor;
diff --git a/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm b/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm
index a6b16708..5bd989b9 100644
--- a/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm	
+++ b/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm	
@@ -33,6 +33,15 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
           Column = cxGridViewIMPORTE_TOTAL
         end>
       OptionsBehavior.PullFocusing = True
+      object cxGridViewNUM_COPIAS: TcxGridDBColumn
+        DataBinding.FieldName = 'NUM_COPIAS'
+        OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
+        MinWidth = 30
+        Options.HorzSizing = False
+        VisibleForCustomization = False
+        Width = 30
+        IsCaptionAssigned = True
+      end
       object cxGridViewRecID: TcxGridDBColumn
         DataBinding.FieldName = 'RecID'
         Visible = False
@@ -90,16 +99,16 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
     inherited TBXDockablePanel1: TTBXDockablePanel
       inherited dxLayoutControl1: TdxLayoutControl
         inherited txtFiltroTodo: TcxTextEdit
-          ExplicitWidth = 273
-          Width = 273
+          ExplicitWidth = 468
+          Width = 468
         end
         inherited edtFechaIniFiltro: TcxDateEdit
-          ExplicitWidth = 121
-          Width = 121
+          ExplicitWidth = 246
+          Width = 246
         end
         inherited edtFechaFinFiltro: TcxDateEdit
-          ExplicitWidth = 121
-          Width = 121
+          ExplicitWidth = 201
+          Width = 201
         end
       end
     end
diff --git a/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas
index 8799693b..3d3dda5d 100644
--- a/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas	
+++ b/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas	
@@ -37,9 +37,10 @@ type
     cxGridViewDC: TcxGridDBColumn;
     cxGridViewCUENTA: TcxGridDBColumn;
     cxGridViewTIPO: TcxGridDBColumn;
-    procedure cxGridViewIDCustomDrawCell(
-      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
-      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+    cxGridViewNUM_COPIAS: TcxGridDBColumn;
+    procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
   protected
     FRemesasProveedor: IBizRemesaProveedor;
     function GetRemesasProveedor: IBizRemesaProveedor; virtual;
@@ -60,6 +61,23 @@ uses uDataModuleRemesasProveedor;
 {
 ******************************* TfrViewRemesasProveedor *******************************
 }
+procedure TfrViewRemesasProveedor.cxGridViewNUM_COPIASCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2);
+    ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
+    ADone := True;
+  end;
+end;
+
 function TfrViewRemesasProveedor.GetRemesasProveedor: IBizRemesaProveedor;
 begin
   Result := FRemesasProveedor;
@@ -72,18 +90,4 @@ begin
     dsDataSource.DataTable := FRemesasProveedor.DataTable;
 end;
 
-
-procedure TfrViewRemesasProveedor.cxGridViewIDCustomDrawCell(
-  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
-  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
-var
-  R : TRect;
-begin
-  inherited;
-  R := AViewInfo.ContentBounds;
-  ACanvas.FillRect(R);
-  ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
-  ADone := True;
-end;
-
 end.
diff --git a/Source/Servidor/FactuGES_Server.bdsproj b/Source/Servidor/FactuGES_Server.bdsproj
index 2f3635a3..68f90ce7 100644
--- a/Source/Servidor/FactuGES_Server.bdsproj
+++ b/Source/Servidor/FactuGES_Server.bdsproj
@@ -154,8 +154,8 @@
 			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
 			<VersionInfo Name="MajorVer">3</VersionInfo>
 			<VersionInfo Name="MinorVer">0</VersionInfo>
-			<VersionInfo Name="Release">3</VersionInfo>
-			<VersionInfo Name="Build">1</VersionInfo>
+			<VersionInfo Name="Release">5</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
 			<VersionInfo Name="Debug">False</VersionInfo>
 			<VersionInfo Name="PreRelease">False</VersionInfo>
 			<VersionInfo Name="Special">False</VersionInfo>
@@ -167,15 +167,15 @@
 		<VersionInfoKeys>
 			<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
 			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-			<VersionInfoKeys Name="FileVersion">3.0.3.1</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.5.0</VersionInfoKeys>
 			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
 			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
 			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
 			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
-			<VersionInfoKeys Name="ProductVersion">3.0.3.0</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">3.0.5.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-			<VersionInfoKeys Name="CompileDate">jueves, 26 de junio de 2008 11:49</VersionInfoKeys></VersionInfoKeys>
+			<VersionInfoKeys Name="CompileDate">martes, 15 de julio de 2008 19:13</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>
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 4a17fb38..11e12714 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -56,8 +56,6 @@ uses
   schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
   schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
   schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
-  schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
-  schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
   uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas',
   uBizAlbaranClienteServer in '..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas',
   uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
@@ -86,8 +84,6 @@ uses
   uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame},
   uTiendaWebUtils in 'Utiles\uTiendaWebUtils.pas',
   uBizOscOrderServer in '..\Modulos\Tienda web\Model\uBizOscOrderServer.pas',
-  schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
-  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
   srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDARemoteService},
   uRptAlbaranesProveedor_Server in '..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas' {RptAlbaranesProveedor: TDataModule},
   uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
@@ -97,19 +93,11 @@ uses
   srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService},
   schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
   schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
-  schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
-  schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
   srvInformes_Impl in '..\Modulos\Informes base\Servidor\srvInformes_Impl.pas' {srvInformes: TDARemoteService},
   srvInfVentasArticulo_Impl in '..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas' {srvInfVentasArticulo: TDARemoteService},
   uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
-  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
-  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
   schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
   schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
-  schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
-  schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
-  schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
-  schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
   srvInfMargenArticulo_Impl in '..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas' {srvInfMargenArticulo: TDARemoteService},
   schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas',
   schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas',
@@ -118,10 +106,6 @@ uses
   uRptEtiquetasContactos_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContactos_Server.pas' {RptEtiquetasContactos: TDataModule},
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
-  schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
-  schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
-  schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
-  schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
   schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas',
   schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_Intf.pas',
   schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
@@ -135,7 +119,23 @@ uses
   schImpresionesClient_Intf in '..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas',
   schImpresionesServer_Intf in '..\Modulos\Impresiones\Model\schImpresionesServer_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',
+  schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
+  schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
+  schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
+  schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
+  schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
+  schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
+  schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
+  schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
+  schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
+  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
+  schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
+  schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
+  schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
+  schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
+  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
+  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 4815bbcc..3631cdb2 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 3,0,3,1
-PRODUCTVERSION 3,0,3,1
+FILEVERSION 3,0,5,0
+PRODUCTVERSION 3,0,5,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "3.0.3.1\0"
+              VALUE "FileVersion", "3.0.5.0\0"
               VALUE "ProductName", "FactuGES Server\0"
-              VALUE "ProductVersion", "3.0.3.1\0"
-              VALUE "CompileDate", "jueves, 10 de julio de 2008 17:32\0"
+              VALUE "ProductVersion", "3.0.5.0\0"
+              VALUE "CompileDate", "martes, 15 de julio de 2008 19:39\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index 4574177d..c40495fd 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ
diff --git a/Source/Servidor/uDataModuleServer.pas b/Source/Servidor/uDataModuleServer.pas
index 2eb0c147..2ee0acc7 100644
--- a/Source/Servidor/uDataModuleServer.pas
+++ b/Source/Servidor/uDataModuleServer.pas
@@ -27,9 +27,9 @@ type
     JvLogFile1: TJvLogFile;
     DAIBXDriver: TDAIBXDriver;
     DAADODriver: TDAADODriver;
-    ConnectionManager: TDAConnectionManager;
     ADOQuery1: TADOQuery;
     ADOConnection1: TADOConnection;
+    ConnectionManager: TDAConnectionManager;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
     procedure HTTPServerBeforeServerActivate(Sender: TObject);