diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 39947f4f..20e490f4 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -449,22 +449,22 @@ begin
       if (diferencia > 0) then
       begin
         /*APUNTE DE CIERRE*/
-        insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, HABER)
-        values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, 'Asiento de cierre ' || :nombre_ejercicio_cierre, :diferencia);
+        insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER)
+        values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, :diferencia);
 
         /*APUNTE DE APERTURA*/
-        insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DEBE)
-        values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, 'Asiento de apertura ' || :nombre_ejercicio_apertura, :diferencia);
+        insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE)
+        values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, :diferencia);
       end
       else
       begin
         /*APUNTE DE CIERRE*/
-        insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DEBE)
-        values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, 'Asiento de cierre ' || :nombre_ejercicio_cierre, (:diferencia)*-1);
+        insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE)
+        values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, (:diferencia)*-1);
 
         /*APUNTE DE APERTURA*/
-        insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, HABER)
-        values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, 'Asiento de apertura ' || :nombre_ejercicio_apertura, (:diferencia)*-1);
+        insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER)
+        values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, (:diferencia)*-1);
       end
       num_orden = num_orden + 1;
      end
@@ -4283,15 +4283,15 @@ begin
     IF (IMPORTETOTAL < 0) THEN
     BEGIN
       /*INSERTAMOS LOS APUNTES DEL ABONO*/
-      INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-      VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Abono de cliente: ' || :RAZON,
+      INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+      VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, 'Abono de cliente: ' || :RAZON,
       :REFERENCIAFACTURA, NULL, -1*(:IMPORTETOTAL));
     END
     ELSE
     BEGIN
       /*INSERTAMOS LOS APUNTES DE LA FACTURA*/
-      INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-      VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Factura de cliente: ' || :RAZON,
+      INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+      VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, 'Factura de cliente: ' || :RAZON,
       :REFERENCIAFACTURA, :IMPORTETOTAL, NULL);
     END
 
@@ -4305,14 +4305,14 @@ begin
 
       IF (IMPORTETOTAL < 0) THEN
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Abono de cliente: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, -1, 'Abono de cliente: ' || :RAZON,
         :REFERENCIAFACTURA || ' (IVA)', -1*(:IMPORTEIVA), NULL);
       END
       ELSE
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Factura de cliente: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, -1, 'Factura de cliente: ' || :RAZON,
         :REFERENCIAFACTURA || ' (IVA)', NULL, :IMPORTEIVA);
       END
     END
@@ -4327,14 +4327,14 @@ begin
 
       IF (IMPORTETOTAL < 0) THEN
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Abono de cliente: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, -1, 'Abono de cliente: ' || :RAZON,
         :REFERENCIAFACTURA || ' (RE)', -1*(:IMPORTERE), NULL);
       END
       ELSE
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Factura de cliente: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, -1, 'Factura de cliente: ' || :RAZON,
         :REFERENCIAFACTURA || ' (RE)', NULL, :IMPORTERE);
       END
     END
@@ -4343,14 +4343,14 @@ begin
     BEGIN
       IF (IMPORTETOTAL < 0) THEN
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_VENTA, 4, 'Abono de cliente: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_VENTA, 4, -1, 'Abono de cliente: ' || :RAZON,
         :REFERENCIAFACTURA || ' (Base imponible)', -1*(:BASEIMPONIBLE), NULL);
       END
       ELSE
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_VENTA, 4, 'Factura de cliente: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_VENTA, 4, -1, 'Factura de cliente: ' || :RAZON,
         :REFERENCIAFACTURA || ' (Base imponible)', NULL, :BASEIMPONIBLE);
       END
     END
@@ -4439,15 +4439,15 @@ begin
     IF (IMPORTETOTAL < 0) THEN
     BEGIN
       /*INSERTAMOS LOS APUNTES DEL ABONO*/
-      INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-      VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Abono de proveedor: ' || :RAZON,
+      INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+      VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, 'Abono de proveedor: ' || :RAZON,
       :REFERENCIAFACTURA, -1*(:IMPORTETOTAL), NULL);
     END
     ELSE
     BEGIN
       /*INSERTAMOS LOS APUNTES DE LA FACTURA*/
-      INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-      VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Factura de proveedor: ' || :RAZON,
+      INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+      VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, 'Factura de proveedor: ' || :RAZON,
       :REFERENCIAFACTURA, NULL, :IMPORTETOTAL);
     END
 
@@ -4461,14 +4461,14 @@ begin
 
       IF (IMPORTETOTAL < 0) THEN
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Abono de proveedor: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, -1, 'Abono de proveedor: ' || :RAZON,
         :REFERENCIAFACTURA || ' (IVA)', NULL, -1*(:IMPORTEIVA));
       END
       ELSE
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Factura de proveedor: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, -1, 'Factura de proveedor: ' || :RAZON,
         :REFERENCIAFACTURA || ' (IVA)', :IMPORTEIVA, NULL);
       END
     END
@@ -4483,14 +4483,14 @@ begin
 
       IF (IMPORTETOTAL < 0) THEN
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Abono de proveedor: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, -1, 'Abono de proveedor: ' || :RAZON,
         :REFERENCIAFACTURA || ' (RE)', NULL, -1*(:IMPORTERE));
       END
       ELSE
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Factura de proveedor: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, -1, 'Factura de proveedor: ' || :RAZON,
         :REFERENCIAFACTURA || ' (RE)', :IMPORTERE, NULL);
       END
     END
@@ -4499,14 +4499,14 @@ begin
     BEGIN
       IF (IMPORTETOTAL < 0) THEN
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, 'Abono de proveedor: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, -1, 'Abono de proveedor: ' || :RAZON,
         :REFERENCIAFACTURA || ' (Base imponible)', NULL, -1*(:BASEIMPONIBLE));
       END
       ELSE
       BEGIN
-        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
-        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, 'Factura de proveedor: ' || :RAZON,
+        INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
+        VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, -1, 'Factura de proveedor: ' || :RAZON,
         :REFERENCIAFACTURA || ' (Base imponible)', :BASEIMPONIBLE, NULL);
       END
     END
@@ -4532,17 +4532,18 @@ declare variable debe numeric(11,2);
 declare variable haber numeric(11,2);
 declare variable idempresa integer;
 declare variable idcontacto integer;
+declare variable concepto varchar(2000);
 begin
   /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/
   SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, RECIBOS_CLIENTE.ID_EMPRESA, RECIBOS_CLIENTE.ID_CLIENTE,
   RECIBOS_CLIENTE.REFERENCIA || ': ' || RECIBOS_CLIENTE.NOMBRE,
-  PAGOS_CLIENTE.FECHA_PAGO,
+  PAGOS_CLIENTE.FECHA_PAGO, PAGOS_CLIENTE.TIPO,
   PAGOS_CLIENTE.TIPO || ': ' || RECIBOS_CLIENTE.DESCRIPCION,
   RECIBOS_CLIENTE.IMPORTE
   FROM PAGOS_CLIENTE
   LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO)
   WHERE PAGOS_CLIENTE.ID = :IDPAGO
-  INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :IMPORTE;
+  INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :CONCEPTO, :IMPORTE;
 
   /*BUSCAMOS EL EJERCICIO ACTIVO PARA LA EMPRESA DE LA FACTURA*/
   SELECT ID
@@ -4597,22 +4598,22 @@ begin
 
     /*INSERTAMOS LOS APUNTES*/
     if (TIPOPAGO = 'Pago') then
-    begin
-      DEBE = :IMPORTE;
-      HABER = NULL;
-    end
-    else
     begin
       DEBE = NULL;
       HABER = :IMPORTE;
     end
+    else
+    begin
+      DEBE = :IMPORTE;
+      HABER = NULL;
+    end
 
     INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
-    VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, :TIPOPAGO,
+    VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, :CONCEPTO,
     :REFERENCIARECIBO, :DEBE, :HABER);
 
     INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
-    VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTAPAGO, 2, -1, :TIPOPAGO,
+    VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTAPAGO, 2, -1, :CONCEPTO,
     :REFERENCIARECIBO, :HABER, :DEBE);
 
    END
@@ -4637,17 +4638,18 @@ declare variable debe numeric(11,2);
 declare variable haber numeric(11,2);
 declare variable idempresa integer;
 declare variable idcontacto integer;
+declare variable concepto varchar(2000);
 begin
   /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/
   SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, RECIBOS_PROVEEDOR.ID_EMPRESA, RECIBOS_PROVEEDOR.ID_PROVEEDOR,
   RECIBOS_PROVEEDOR.REFERENCIA || ': ' || RECIBOS_PROVEEDOR.NOMBRE,
-  PAGOS_PROVEEDOR.FECHA_PAGO,
+  PAGOS_PROVEEDOR.FECHA_PAGO, PAGOS_PROVEEDOR.TIPO, 
   PAGOS_PROVEEDOR.TIPO || ': ' || RECIBOS_PROVEEDOR.DESCRIPCION,
   RECIBOS_PROVEEDOR.IMPORTE
   FROM PAGOS_PROVEEDOR
   LEFT JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID = PAGOS_PROVEEDOR.ID_RECIBO)
   WHERE PAGOS_PROVEEDOR.ID = :IDPAGO
-  INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :IMPORTE;
+  INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :CONCEPTO, :IMPORTE;
 
   /*BUSCAMOS EL EJERCICIO ACTIVO PARA LA EMPRESA DE LA FACTURA*/
   SELECT ID
@@ -4699,24 +4701,24 @@ begin
       VALUES (:IDASIENTO, :FECHAPAGO, :ORDEN, :IDPAGO, 'p');
     END
 
-    /*INSERTAMOS LOS APUNTES*/
+/*INSERTAMOS LOS APUNTES*/
     if (TIPOPAGO = 'Pago') then
-    begin
-      DEBE = NULL;
-      HABER = :IMPORTE;
-    end
-    else
     begin
       DEBE = :IMPORTE;
       HABER = NULL;
     end
+    else
+    begin
+      DEBE = NULL;
+      HABER = :IMPORTE;
+    end
 
     INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
-    VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, :TIPOPAGO,
+    VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, :CONCEPTO,
     :REFERENCIARECIBO, :DEBE, :HABER);
 
     INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
-    VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTAPAGO, 2, -1, :TIPOPAGO,
+    VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTAPAGO, 2, -1, :CONCEPTO,
     :REFERENCIARECIBO, :HABER, :DEBE);
 
    END
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index d8a586c6..3efdabfa 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -66,52 +66,52 @@
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
     <DCCReference Include="..\Modulos\Presupuestos de cliente\dxDockingD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\designide.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\dxNavBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxNavBarD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f31..1641339f 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index 7710dc4b..a5a33a2b 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,37 +58,37 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\Base.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxTreeListD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxPsPrVwAdvD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\tb2k_d10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Controller\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 8b251f31..1641339f 100644
Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ
diff --git a/Source/GUIBase/uEditorDBItem.dfm b/Source/GUIBase/uEditorDBItem.dfm
index b4fcffba..4782b216 100644
--- a/Source/GUIBase/uEditorDBItem.dfm
+++ b/Source/GUIBase/uEditorDBItem.dfm
@@ -87,6 +87,9 @@ inherited fEditorDBItem: TfEditorDBItem
     ExplicitHeight = 320
     object pagGeneral: TTabSheet
       Caption = 'General'
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
       ExplicitHeight = 292
     end
   end
@@ -106,13 +109,12 @@ inherited fEditorDBItem: TfEditorDBItem
       AlignWithMargins = True
       Left = 6
       Top = 4
-      Width = 640
-      Height = 25
+      Width = 55
+      Height = 13
       Margins.Left = 5
       Align = alClient
       Caption = 'Comentario'
       WordWrap = True
-      ExplicitHeight = 30
     end
   end
   inherited EditorActionList: TActionList
diff --git a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
index e75a96a3..5e5d4223 100644
--- a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
+++ b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
@@ -37,6 +37,7 @@ type
     function getIDCajaBanco: Integer;
     function GetTipoSubCuenta: TEnumTipoSubCuenta;
     procedure SetTipoSubCuenta(const Value: TEnumTipoSubCuenta);
+
   public
     property TipoSubCuenta: TEnumTipoSubCuenta read GetTipoSubCuenta write SetTipoSubCuenta;
     property IdSubCuenta: Integer read getIDCajaBanco;
@@ -76,7 +77,7 @@ end;
 procedure TfrViewListaSubcuentas.CustomViewShow(Sender: TObject);
 begin
   inherited;
-  if Assigned(AppFactuGES.EjercicioActivo) then
+  if (not ReadOnly) and Assigned(AppFactuGES.EjercicioActivo) then
   begin
     cbSubCuentas.Enabled := True;
     eContabilizar.Enabled := True;
diff --git a/Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas
index ea67f474..f84b1cc2 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas	
+++ b/Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas	
@@ -56,7 +56,7 @@ type
 implementation
 
 uses
-  cxControls, DB, uEditorRegistryUtils,Dialogs,
+  cxControls, DB, uEditorRegistryUtils,Dialogs, uFactuGES_App, uBizEjercicios,
   uDAInterfaces, uDataTableUtils, uDataModuleUsuarios,
   uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
   schRecibosClienteClient_Intf, uDataModuleRecibosCliente;
@@ -82,6 +82,9 @@ begin
   APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
   APagosCliente.CUENTA := IntToStr(IdSubCuenta);
 
+  APagosCliente.ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO;
+  APagosCliente.ASIENTO_PUNTEADO := -1;
+
   Result := (APagosCliente.TIPO = CTE_PAGO);
   APagosCliente.Post;
 end;
@@ -118,6 +121,13 @@ begin
 
     APagoCliente.Last;
     Result := (APagoCliente.TIPO = CTE_PAGO);
+
+    if APagoCliente.ASIENTO_PUNTEADO > 0 then
+       raise Exception.Create('El asiento asociado al cobro esta punteado por lo que no puede ser borrado.');
+
+    if APagoCliente.ESTADO_EJERCICIO = CTE_CERRADO then
+       raise Exception.Create('El asiento asociado al cobro tiene el ejercicio cerrado por lo que no puede ser borrado.');
+
     APagoCliente.Delete;
     //Todo lo haremos en memoria ya que los pagos no tienen entidad propia
     //APagosCliente.DataTable.ApplyUpdates;
diff --git a/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj
index 09d04d60..b7efb77f 100644
--- a/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj	
+++ b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj	
@@ -9,22 +9,8 @@
     <Projects Include="..\..\Cliente\FactuGES.dproj" />
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
-    <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
-    <Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
-    <Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
-    <Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
     <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
-    <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
-    <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
-    <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
-    <Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
-    <Projects Include="..\Facturas de cliente\Data\FacturasCliente_data.dproj" />
-    <Projects Include="..\Facturas de cliente\Model\FacturasCliente_model.dproj" />
-    <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
-    <Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
-    <Projects Include="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" />
-    <Projects Include="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" />
     <Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
     <Projects Include="Controller\RecibosCliente_controller.dproj" />
     <Projects Include="Data\RecibosCliente_data.dproj" />
@@ -74,6 +60,15 @@
   <Target Name="Contactos_view:Make">
     <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="Contabilidad_view">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
+  </Target>
+  <Target Name="Contabilidad_view:Clean">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contabilidad_view:Make">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="RecibosCliente_model">
     <MSBuild Projects="Model\RecibosCliente_model.dproj" Targets="" />
   </Target>
@@ -137,141 +132,6 @@
   <Target Name="FactuGES_Server:Make">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
   </Target>
-  <Target Name="FacturasCliente_view">
-    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
-  </Target>
-  <Target Name="FacturasCliente_view:Clean">
-    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="FacturasCliente_view:Make">
-    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Articulos_view">
-    <MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="" />
-  </Target>
-  <Target Name="Articulos_view:Clean">
-    <MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Articulos_view:Make">
-    <MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Contabilidad_model">
-    <MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="" />
-  </Target>
-  <Target Name="Contabilidad_model:Clean">
-    <MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Contabilidad_model:Make">
-    <MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Contabilidad_data">
-    <MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="" />
-  </Target>
-  <Target Name="Contabilidad_data:Clean">
-    <MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Contabilidad_data:Make">
-    <MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Contabilidad_controller">
-    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
-  </Target>
-  <Target Name="Contabilidad_controller:Clean">
-    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Contabilidad_controller:Make">
-    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Contabilidad_view">
-    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
-  </Target>
-  <Target Name="Contabilidad_view:Clean">
-    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Contabilidad_view:Make">
-    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
-  </Target>
-  <Target Name="FacturasCliente_model">
-    <MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="" />
-  </Target>
-  <Target Name="FacturasCliente_model:Clean">
-    <MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="FacturasCliente_model:Make">
-    <MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Make" />
-  </Target>
-  <Target Name="FacturasCliente_controller">
-    <MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
-  </Target>
-  <Target Name="FacturasCliente_controller:Clean">
-    <MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="FacturasCliente_controller:Make">
-    <MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
-  </Target>
-  <Target Name="FacturasCliente_data">
-    <MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="" />
-  </Target>
-  <Target Name="FacturasCliente_data:Clean">
-    <MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="FacturasCliente_data:Make">
-    <MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Contactos_controller">
-    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
-  </Target>
-  <Target Name="Contactos_controller:Clean">
-    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Contactos_controller:Make">
-    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
-  </Target>
-  <Target Name="RecibosProveedor_model">
-    <MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="" />
-  </Target>
-  <Target Name="RecibosProveedor_model:Clean">
-    <MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="RecibosProveedor_model:Make">
-    <MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Contactos_model">
-    <MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
-  </Target>
-  <Target Name="Contactos_model:Clean">
-    <MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Contactos_model:Make">
-    <MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
-  </Target>
-  <Target Name="RecibosProveedor_data">
-    <MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="" />
-  </Target>
-  <Target Name="RecibosProveedor_data:Clean">
-    <MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="RecibosProveedor_data:Make">
-    <MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Make" />
-  </Target>
-  <Target Name="RecibosProveedor_controller">
-    <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="" />
-  </Target>
-  <Target Name="RecibosProveedor_controller:Clean">
-    <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="RecibosProveedor_controller:Make">
-    <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Contactos_data">
-    <MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="" />
-  </Target>
-  <Target Name="Contactos_data:Clean">
-    <MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Contactos_data:Make">
-    <MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
-  </Target>
   <Target Name="RecibosProveedor_view">
     <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="" />
   </Target>
@@ -282,13 +142,13 @@
     <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
   </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Articulos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;FacturasCliente_model;FacturasCliente_controller;FacturasCliente_data;Contactos_controller;RecibosProveedor_model;Contactos_model;RecibosProveedor_data;RecibosProveedor_controller;Contactos_data;RecibosProveedor_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Contabilidad_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;RecibosProveedor_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Articulos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;FacturasCliente_model:Clean;FacturasCliente_controller:Clean;FacturasCliente_data:Clean;Contactos_controller:Clean;RecibosProveedor_model:Clean;Contactos_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;Contactos_data:Clean;RecibosProveedor_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Contabilidad_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosProveedor_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Articulos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;FacturasCliente_model:Make;FacturasCliente_controller:Make;FacturasCliente_data:Make;Contactos_controller:Make;RecibosProveedor_model:Make;Contactos_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;Contactos_data:Make;RecibosProveedor_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Contabilidad_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosProveedor_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>
\ No newline at end of file
diff --git a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj
index 9a13d0ba..f3f7db99 100644
--- a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj	
+++ b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj	
@@ -47,35 +47,35 @@
     <DelphiCompile Include="RecibosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\adortl.dcp" />
-    <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
-    <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
-    <DCCReference Include="..\..\Lib\dsnap.dcp" />
-    <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
-    <DCCReference Include="..\..\Lib\RecibosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Lib\RecibosCliente_model.dcp" />
-    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Lib\rtl.dcp" />
-    <DCCReference Include="..\..\Lib\vcl.dcp" />
-    <DCCReference Include="..\..\Lib\vclactnband.dcp" />
-    <DCCReference Include="..\..\Lib\vcldb.dcp" />
-    <DCCReference Include="..\..\Lib\vcljpg.dcp" />
-    <DCCReference Include="..\..\Lib\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_view.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uEditorElegirRecibosCliente.pas">
       <Form>fEditorElegirRecibosCliente</Form>
       <DesignClass>TfEditorElegirRecibosCliente</DesignClass>
diff --git a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.res b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.res and b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.res differ
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm
index b5b803ef..c51b6647 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm	
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm	
@@ -3,8 +3,8 @@ object fEditorFechaPago: TfEditorFechaPago
   Top = 0
   BorderStyle = bsDialog
   Caption = 'Fecha del cobro / devoluci'#243'n'
-  ClientHeight = 184
-  ClientWidth = 535
+  ClientHeight = 234
+  ClientWidth = 560
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -19,8 +19,8 @@ object fEditorFechaPago: TfEditorFechaPago
   PixelsPerInch = 96
   TextHeight = 13
   object Label1: TLabel
-    Left = 39
-    Top = 15
+    Left = 38
+    Top = 64
     Width = 362
     Height = 13
     Caption = 
@@ -28,17 +28,24 @@ object fEditorFechaPago: TfEditorFechaPago
       ' devoluci'#243'n:'
   end
   object Label2: TLabel
-    Left = 39
-    Top = 50
+    Left = 38
+    Top = 87
     Width = 77
     Height = 13
     Alignment = taRightJustify
     Caption = 'Fecha del pago:'
     FocusControl = eFechaPago
   end
+  object Label3: TLabel
+    Left = 38
+    Top = 127
+    Width = 306
+    Height = 13
+    Caption = 'Seleccione el banco o caja donde se hace el cobro o devoluci'#243'n:'
+  end
   object eFechaPago: TcxDateEdit
-    Left = 122
-    Top = 47
+    Left = 121
+    Top = 84
     Properties.OnChange = eFechaPagoPropertiesChange
     Style.LookAndFeel.Kind = lfStandard
     Style.LookAndFeel.NativeStyle = True
@@ -49,17 +56,90 @@ object fEditorFechaPago: TfEditorFechaPago
     StyleHot.LookAndFeel.Kind = lfStandard
     StyleHot.LookAndFeel.NativeStyle = True
     TabOrder = 0
-    Width = 132
+    Width = 267
+  end
+  inline frViewListaSubcuentas1: TfrViewListaSubcuentas
+    Left = 0
+    Top = 143
+    Width = 560
+    Height = 50
+    Align = alBottom
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 1
+    ReadOnly = False
+    ExplicitTop = 143
+    ExplicitWidth = 560
+    ExplicitHeight = 50
+    inherited dxLayoutControl1: TdxLayoutControl
+      Width = 560
+      ExplicitWidth = 560
+      inherited cbSubCuentas: TcxComboBox
+        Left = 122
+        Style.LookAndFeel.SkinName = ''
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
+        ExplicitLeft = 122
+        ExplicitWidth = 376
+        Width = 376
+      end
+      inherited eContabilizar: TcxCheckBox
+        Left = 393
+        Style.LookAndFeel.SkinName = ''
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
+        ExplicitLeft = 393
+        ExplicitWidth = 203
+        Width = 203
+      end
+      inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+        inherited dxLayoutControl1Item1: TdxLayoutItem
+          Caption = '          Caja/Banco:      '
+        end
+      end
+    end
+  end
+  object PnlComentario: TPanel
+    Left = 0
+    Top = 0
+    Width = 560
+    Height = 45
+    Align = alTop
+    Alignment = taLeftJustify
+    AutoSize = True
+    Color = 13499902
+    ParentBackground = False
+    TabOrder = 2
+    VerticalAlignment = taAlignTop
+    object lbComentario: TLabel
+      AlignWithMargins = True
+      Left = 6
+      Top = 4
+      Width = 550
+      Height = 40
+      Margins.Left = 5
+      Align = alClient
+      Caption = 'Comentario'
+      WordWrap = True
+      ExplicitWidth = 55
+      ExplicitHeight = 13
+    end
   end
   object Panel1: TPanel
     Left = 0
-    Top = 143
-    Width = 535
+    Top = 193
+    Width = 560
     Height = 41
     Align = alBottom
-    TabOrder = 1
+    TabOrder = 3
     object bAceptar: TButton
-      Left = 39
+      Left = 347
       Top = 8
       Width = 75
       Height = 25
@@ -68,7 +148,7 @@ object fEditorFechaPago: TfEditorFechaPago
       TabOrder = 0
     end
     object bCancelar: TButton
-      Left = 120
+      Left = 445
       Top = 8
       Width = 75
       Height = 25
@@ -77,38 +157,4 @@ object fEditorFechaPago: TfEditorFechaPago
       TabOrder = 1
     end
   end
-  inline frViewListaSubcuentas1: TfrViewListaSubcuentas
-    Left = 30
-    Top = 80
-    Width = 453
-    Height = 69
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -11
-    Font.Name = 'Tahoma'
-    Font.Style = []
-    ParentFont = False
-    TabOrder = 2
-    ReadOnly = False
-    ExplicitLeft = 30
-    ExplicitTop = 80
-    inherited dxLayoutControl1: TdxLayoutControl
-      inherited cbSubCuentas: TcxComboBox
-        Style.LookAndFeel.SkinName = ''
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 376
-        Width = 376
-      end
-      inherited eContabilizar: TcxCheckBox
-        Style.LookAndFeel.SkinName = ''
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 203
-        Width = 203
-      end
-    end
-  end
 end
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas
index 85fc8c1a..cdb7980d 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas	
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas	
@@ -7,17 +7,21 @@ uses
   Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
   cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPago,
   cxCheckBox, uSubCuentasController, Buttons, cxDBEdit, cxGraphics, uCustomView,
-  uViewBase, uViewListaSubCuentas;
+  uViewBase, uViewListaSubCuentas, JvExStdCtrls, JvButton, JvCtrls, JvFooter,
+  JvExExtCtrls, JvExtComponent;
 
 type
   TfEditorFechaPago = class(TfEditorBasico, IEditorFechaPago)
     Label1: TLabel;
     eFechaPago: TcxDateEdit;
+    Label2: TLabel;
+    frViewListaSubcuentas1: TfrViewListaSubcuentas;
+    Label3: TLabel;
+    PnlComentario: TPanel;
+    lbComentario: TLabel;
+    Panel1: TPanel;
     bAceptar: TButton;
     bCancelar: TButton;
-    Label2: TLabel;
-    Panel1: TPanel;
-    frViewListaSubcuentas1: TfrViewListaSubcuentas;
     procedure FormShow(Sender: TObject);
     procedure eFechaPagoPropertiesChange(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@@ -25,22 +29,28 @@ type
 
   private
     FFechaPago : TDateTime;
+    FComentario: Variant;
+    FSoloLectura: Boolean;
     function GetFechaPago: TDateTime;
     procedure SetFechaPago(const Value: TDateTime);
     function GetIgnorarContabilidad: Integer;
     procedure SetIgnorarContabilidad(const Value: Integer);
     function GetIdSubCuenta: Integer;
     procedure SetIdSubCuenta(const Value: Integer);
+    function GetComentario: Variant;
+    procedure SetComentario(const Value: Variant);
+    function GetSoloLectura: Boolean;
+    procedure SetSoloLectura(const Value: Boolean);
 
   public
     property FechaPago: TDateTime Read GetFechaPago write SetFechaPago;
     property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad;
     property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta;
+    property Comentario: Variant read GetComentario write SetComentario;
+    property SoloLectura: Boolean read GetSoloLectura write SetSoloLectura;
     procedure DeshabilitarContabilidad;
   end;
 
-var
-  fEditorFechaPago: TfEditorFechaPago;
 
 implementation
 {$R *.dfm}
@@ -91,6 +101,9 @@ begin
   {$IFDEF CONTABILIDAD}
     frViewListaSubCuentas1.TipoSubCuenta := tCajas;
   {$ENDIF}
+
+  Comentario := Null;
+  FSoloLectura := False;
 end;
 
 procedure TfEditorFechaPago.FormShow(Sender: TObject);
@@ -115,6 +128,11 @@ begin
   end;
 end;
 
+function TfEditorFechaPago.GetComentario: Variant;
+begin
+  Result := FComentario;
+end;
+
 function TfEditorFechaPago.GetFechaPago: TDateTime;
 begin
   Result := FFechaPago;
@@ -130,6 +148,23 @@ begin
   Result := frViewListaSubCuentas1.eContabilizar.EditValue;
 end;
 
+function TfEditorFechaPago.GetSoloLectura: Boolean;
+begin
+  Result := FSoloLectura;
+end;
+
+procedure TfEditorFechaPago.SetComentario(const Value: Variant);
+begin
+  FComentario := Value;
+  lbComentario.Caption := '';
+  lbComentario.Caption := VarToStr(FComentario);
+
+  if VarIsNull(FComentario) then
+     PnlComentario.Visible := False
+  else
+     PnlComentario.Visible := True;
+end;
+
 procedure TfEditorFechaPago.SetFechaPago(const Value: TDateTime);
 begin
   FFechaPago := Value;
@@ -147,4 +182,19 @@ begin
   frViewListaSubCuentas1.Refrescar;
 end;
 
+procedure TfEditorFechaPago.SetSoloLectura(const Value: Boolean);
+begin
+  FSoloLectura := Value;
+  if FSoloLectura then
+  begin
+    eFechaPago.Enabled := False;
+    frViewListaSubcuentas1.ReadOnly := True;
+  end
+  else
+  begin
+    eFechaPago.Enabled := True;
+    frViewListaSubcuentas1.ReadOnly := False;
+  end;
+end;
+
 end.
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
index 3dbff0cc..97e5318f 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm	
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm	
@@ -48,25 +48,34 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
       ExplicitWidth = 885
     end
   end
+  inherited StatusBar: TJvStatusBar
+    Top = 543
+    Width = 885
+    Panels = <
+      item
+        Width = 200
+      end>
+    ExplicitTop = 543
+    ExplicitWidth = 885
+  end
   inherited pgPaginas: TPageControl
     Width = 879
-    Height = 361
+    Height = 331
     ActivePage = pagPagos
     OnChanging = pgPaginasChanging
-    ExplicitLeft = 3
-    ExplicitTop = 79
+    ExplicitTop = 109
     ExplicitWidth = 879
-    ExplicitHeight = 361
+    ExplicitHeight = 331
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
       ExplicitWidth = 871
-      ExplicitHeight = 333
+      ExplicitHeight = 303
       inline frViewReciboCliente1: TfrViewReciboCliente
         Left = 0
         Top = 0
         Width = 871
-        Height = 333
+        Height = 303
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -77,15 +86,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 871
-        ExplicitHeight = 333
+        ExplicitHeight = 303
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 871
-          Height = 333
+          Height = 303
           ExplicitWidth = 871
-          ExplicitHeight = 333
+          ExplicitHeight = 303
           DesignSize = (
             871
-            333)
+            303)
           inherited eReferencia: TcxDBTextEdit
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
@@ -302,7 +311,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         Left = 0
         Top = 0
         Width = 871
-        Height = 333
+        Height = 303
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -313,18 +322,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 871
-        ExplicitHeight = 333
+        ExplicitHeight = 303
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 871
-          Height = 333
+          Height = 303
           ExplicitWidth = 871
-          ExplicitHeight = 333
+          ExplicitHeight = 303
         end
         inherited dxLayoutControl2: TdxLayoutControl
           Width = 871
-          Height = 333
+          Height = 303
           ExplicitWidth = 871
-          ExplicitHeight = 333
+          ExplicitHeight = 303
           inherited ToolBar1: TToolBar
             Width = 684
             ExplicitWidth = 684
@@ -364,7 +373,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         Left = 0
         Top = 0
         Width = 871
-        Height = 333
+        Height = 303
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -375,10 +384,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 871
-        ExplicitHeight = 333
+        ExplicitHeight = 303
         inherited cxGrid: TcxGrid
           Width = 871
-          Height = 308
+          Height = 278
           ExplicitWidth = 871
           ExplicitHeight = 308
           inherited cxGridView: TcxGridDBTableView
@@ -416,16 +425,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
       end
     end
   end
-  inherited StatusBar: TJvStatusBar
-    Top = 543
-    Width = 885
-    Panels = <
-      item
-        Width = 200
-      end>
-    ExplicitTop = 543
-    ExplicitWidth = 885
-  end
   inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
     Left = 0
     Top = 443
@@ -438,7 +437,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
     Font.Name = 'Tahoma'
     Font.Style = []
     ParentFont = False
-    TabOrder = 4
+    TabOrder = 5
     ReadOnly = False
     ExplicitTop = 443
     ExplicitWidth = 885
@@ -472,7 +471,23 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
       end
     end
   end
-  inherited EditorActionList: TActionList [5]
+  inherited PnlComentario: TPanel [5]
+    Width = 885
+    ExplicitWidth = 885
+    inherited lbComentario: TLabel
+      Width = 875
+      Height = 25
+    end
+  end
+  inherited JvFormStorage: TJvFormStorage
+    OnSavePlacement = JvFormStorageSavePlacement
+    OnRestorePlacement = JvFormStorageRestorePlacement
+  end
+  inherited dsDataTable: TDADataSource
+    Left = 16
+    Top = 200
+  end
+  inherited EditorActionList: TActionList [11]
     Top = 96
     inherited actNuevo: TAction
       Enabled = False
@@ -487,20 +502,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
       Visible = False
     end
   end
-  inherited SmallImages: TPngImageList [6]
-  end
-  inherited LargeImages: TPngImageList [7]
-  end
-  inherited JvFormStorage: TJvFormStorage [8]
-    OnSavePlacement = JvFormStorageSavePlacement
-    OnRestorePlacement = JvFormStorageRestorePlacement
-  end
-  inherited dsDataTable: TDADataSource [9]
-    Left = 16
-    Top = 200
-  end
-  inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
-  end
   object DADataSource1: TDADataSource
     OnDataChange = dsDataTableDataChange
     Left = 80
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
index d0840382..495bbe12 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas	
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas	
@@ -11,7 +11,7 @@ uses
   uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController,
   uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData,
   uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados,
-  uDAInterfaces;
+  uDAInterfaces, StdCtrls;
 
 type
   TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente)
@@ -138,6 +138,7 @@ begin
     raise Exception.Create('No hay ningún almacén asignado');
 
   Recibo.DataTable.Active := True;
+  Recibo.Pagos.Last; //Nos posicionamos siempre en el último pago
   CalcularTotal;
 end;
 
@@ -186,6 +187,8 @@ begin
      DeshabilitarRecibo
   else
      HabilitarRecibo;
+
+  frViewPagosCliente1.ListaPagosClienteDBTableView1.DataController.GotoLast;   
 end;
 
 procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirUpdate(Sender: TObject);
@@ -214,6 +217,8 @@ begin
     FRecibo.SITUACION := CTE_COBRADO;
     DeshabilitarRecibo;
   end;
+
+  frViewPagosCliente1.ListaPagosClienteDBTableView1.DataController.GotoLast;  
 end;
 
 procedure TfEditorReciboCliente.frViewPagosCliente1actEliminarUpdate(Sender: TObject);
@@ -223,7 +228,6 @@ begin
     //Si el recibo tiene una remesa asociada, el cobro generado por la remesa no se podrá eliminar
     if (Length(FRecibo.REFERENCIA_REMESA) = 0) then
        frViewPagosCliente1.actEliminar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0)
-//                                                  and (FRecibo.Pagos.ESTADO <> CTE_CERRADO)
     else
        //En el caso de que el recibo este remesado no se podrán eliminar pagos,
        //solo será posible en el caso de ser un recibo libre de remesa
@@ -254,22 +258,32 @@ begin
        DeshabilitarContabilidad;
     end;
 
+    //En el caso de que el ejercicio asociado al asiento del pago este cerrado o el asiento punteado
+    //se podrá o no modificar el pago.
+    if (Recibo.Pagos.ESTADO_EJERCICIO = CTE_CERRADO) then
+    begin
+      Comentario := 'El asiento asociado a este pago tiene el ejercicio cerrado, por lo que no se puede modificar';
+      SoloLectura := true;
+    end
+    else if (Recibo.Pagos.ASIENTO_PUNTEADO > 0) then
+    begin
+      Comentario := 'El asiento asociado a este pago esta punteado, por lo que no se puede modificar';
+      SoloLectura := true;
+    end;
+
     if (ShowModal = mrOk) then
     begin
       AFechaPago := DateToStr(FechaPago);
       AIgnorarContabilidad := IgnorarContabilidad;
       ASubCuenta := IdSubcuenta;
-      Release;
-    end
-    else
-    begin
-      //Operación cancelada
-      Release;
-      exit;
+      if not SoloLectura then
+         FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
     end;
+
+    Release;
   end;
 
-  FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
+
 end;
 
 procedure TfEditorReciboCliente.frViewPagosCliente1actModificarUpdate(Sender: TObject);
@@ -278,7 +292,6 @@ begin
   //Si el ejercicio al que pertenece la factura esta cerrado no se podrá modificar  
   if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then
      frViewPagosCliente1.actModificar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0)
-//                                                 and (FRecibo.Pagos.ESTADO <> CTE_CERRADO);
 end;
 
 procedure TfEditorReciboCliente.frViewReciboCliente1eImportePropertiesValidate(
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
index d0860486..dd6037ad 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm	
+++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm	
@@ -1,6 +1,7 @@
 inherited frViewPagosCliente: TfrViewPagosCliente
   Width = 666
   Height = 401
+  OnShow = CustomViewShow
   ExplicitWidth = 666
   ExplicitHeight = 401
   object dxLayoutControl1: TdxLayoutControl
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas
index 82d7a07e..300b61f0 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas	
+++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas	
@@ -63,6 +63,7 @@ type
       Sender: TcxCustomGridTableView;
       ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
       AShift: TShiftState; var AHandled: Boolean);
+    procedure CustomViewShow(Sender: TObject);
   private
     FPagos : IBizPagosCliente;
     function GetPagos: IBizPagosCliente;
@@ -76,6 +77,12 @@ implementation
 
 { TfrViewPagosCliente }
 
+procedure TfrViewPagosCliente.CustomViewShow(Sender: TObject);
+begin
+  inherited;
+  ListaPagosClienteDBTableView1.DataController.GotoLast;
+end;
+
 function TfrViewPagosCliente.GetPagos: IBizPagosCliente;
 begin
   Result := FPagos;
diff --git a/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas
index 74605637..db232352 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas	
+++ b/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas	
@@ -117,6 +117,13 @@ begin
 
     APagoCliente.Last;
     Result := (APagoCliente.TIPO = CTE_PAGO);
+
+    if APagoCliente.ASIENTO_PUNTEADO > 0 then
+       raise Exception.Create('El asiento asociado al pago esta punteado por lo que no puede ser borrado.');
+
+    if APagoCliente.ESTADO_EJERCICIO = CTE_CERRADO then
+       raise Exception.Create('El asiento asociado al pago tiene el ejercicio cerrado por lo que no puede ser borrado.');
+
     APagoCliente.Delete;
     //Todo lo haremos en memoria ya que los pagos no tienen entidad propia
     //APagosProveedor.DataTable.ApplyUpdates;
diff --git a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
index 5a827225..9c5c5fc0 100644
--- a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj	
+++ b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj	
@@ -9,12 +9,7 @@
     <Projects Include="..\..\Cliente\FactuGES.dproj" />
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
-    <Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
-    <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
-    <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
-    <Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
-    <Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
     <Projects Include="Controller\RecibosProveedor_controller.dproj" />
     <Projects Include="Data\RecibosProveedor_data.dproj" />
     <Projects Include="Model\RecibosProveedor_model.dproj" />
@@ -126,59 +121,14 @@
   <Target Name="FactuGES_Server:Make">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
   </Target>
-  <Target Name="RecibosCliente_view">
-    <MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="" />
-  </Target>
-  <Target Name="RecibosCliente_view:Clean">
-    <MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="RecibosCliente_view:Make">
-    <MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Make" />
-  </Target>
-  <Target Name="RecibosCliente_controller">
-    <MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="" />
-  </Target>
-  <Target Name="RecibosCliente_controller:Clean">
-    <MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="RecibosCliente_controller:Make">
-    <MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Contabilidad_view">
-    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
-  </Target>
-  <Target Name="Contabilidad_view:Clean">
-    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Contabilidad_view:Make">
-    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Contactos_controller">
-    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
-  </Target>
-  <Target Name="Contactos_controller:Clean">
-    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Contactos_controller:Make">
-    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Contabilidad_controller">
-    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
-  </Target>
-  <Target Name="Contabilidad_controller:Clean">
-    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Contabilidad_controller:Make">
-    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
-  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_view;RecibosCliente_controller;Contabilidad_view;Contactos_controller;Contabilidad_controller" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_view:Clean;RecibosCliente_controller:Clean;Contabilidad_view:Clean;Contactos_controller:Clean;Contabilidad_controller:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_view:Make;RecibosCliente_controller:Make;Contabilidad_view:Make;Contactos_controller:Make;Contabilidad_controller:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>
\ No newline at end of file
diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj
index 8d25708b..3ee153c5 100644
--- a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj	
+++ b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj	
@@ -47,34 +47,34 @@
     <DelphiCompile Include="RecibosProveedor_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\adortl.dcp" />
-    <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
-    <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
-    <DCCReference Include="..\..\Lib\dsnap.dcp" />
-    <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
-    <DCCReference Include="..\..\Lib\RecibosProveedor_controller.dcp" />
-    <DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" />
-    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Lib\rtl.dcp" />
-    <DCCReference Include="..\..\Lib\vcl.dcp" />
-    <DCCReference Include="..\..\Lib\vclactnband.dcp" />
-    <DCCReference Include="..\..\Lib\vcldb.dcp" />
-    <DCCReference Include="..\..\Lib\vcljpg.dcp" />
-    <DCCReference Include="..\..\Lib\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_view.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RecibosProveedor_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RecibosProveedor_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uEditorElegirRecibosProveedor.pas">
       <Form>fEditorElegirRecibosProveedor</Form>
       <DesignClass>TfEditorElegirRecibosProveedor</DesignClass>
diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res and b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res differ
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm
index 7f374d70..f208bebd 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm	
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm	
@@ -3,8 +3,8 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
   Top = 0
   BorderStyle = bsDialog
   Caption = 'Fecha del cobro / devoluci'#243'n'
-  ClientHeight = 193
-  ClientWidth = 510
+  ClientHeight = 217
+  ClientWidth = 563
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -19,8 +19,8 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
   PixelsPerInch = 96
   TextHeight = 13
   object Label1: TLabel
-    Left = 38
-    Top = 8
+    Left = 42
+    Top = 61
     Width = 362
     Height = 13
     Caption = 
@@ -28,17 +28,24 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
       ' devoluci'#243'n:'
   end
   object Label2: TLabel
-    Left = 39
-    Top = 43
+    Left = 42
+    Top = 83
     Width = 80
     Height = 13
     Alignment = taRightJustify
     Caption = 'Fecha del cobro:'
     FocusControl = eFechaPago
   end
+  object Label3: TLabel
+    Left = 42
+    Top = 124
+    Width = 306
+    Height = 13
+    Caption = 'Seleccione el banco o caja donde se hace el cobro o devoluci'#243'n:'
+  end
   object eFechaPago: TcxDateEdit
-    Left = 125
-    Top = 40
+    Left = 129
+    Top = 80
     Properties.OnChange = eFechaPagoPropertiesChange
     Style.LookAndFeel.Kind = lfStandard
     Style.LookAndFeel.NativeStyle = True
@@ -49,18 +56,20 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
     StyleHot.LookAndFeel.Kind = lfStandard
     StyleHot.LookAndFeel.NativeStyle = True
     TabOrder = 0
-    Width = 132
+    Width = 275
   end
   object Panel1: TPanel
     Left = 0
-    Top = 152
-    Width = 510
+    Top = 176
+    Width = 563
     Height = 41
     Align = alBottom
     TabOrder = 1
+    ExplicitTop = 152
+    ExplicitWidth = 510
     object bAceptar: TButton
-      Left = 38
-      Top = 8
+      Left = 368
+      Top = 6
       Width = 75
       Height = 25
       Caption = 'Aceptar'
@@ -68,8 +77,8 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
       TabOrder = 0
     end
     object bCancelar: TButton
-      Left = 119
-      Top = 8
+      Left = 459
+      Top = 6
       Width = 75
       Height = 25
       Caption = 'Cancelar'
@@ -78,10 +87,11 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
     end
   end
   inline frViewListaSubcuentas1: TfrViewListaSubcuentas
-    Left = 30
-    Top = 80
-    Width = 453
-    Height = 69
+    Left = 0
+    Top = 136
+    Width = 563
+    Height = 40
+    Align = alBottom
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
     Font.Height = -11
@@ -90,25 +100,63 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
     ParentFont = False
     TabOrder = 2
     ReadOnly = False
-    ExplicitLeft = 30
-    ExplicitTop = 80
+    ExplicitTop = 166
+    ExplicitWidth = 563
+    ExplicitHeight = 40
     inherited dxLayoutControl1: TdxLayoutControl
+      Width = 563
       inherited cbSubCuentas: TcxComboBox
+        Left = 128
         Style.LookAndFeel.SkinName = ''
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 376
-        Width = 376
+        ExplicitLeft = 128
+        ExplicitWidth = 440
+        Width = 440
       end
       inherited eContabilizar: TcxCheckBox
+        Left = 410
         Style.LookAndFeel.SkinName = ''
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
+        ExplicitLeft = 410
         ExplicitWidth = 203
         Width = 203
       end
+      inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+        inherited dxLayoutControl1Item1: TdxLayoutItem
+          Caption = '          Caja/Banco:        '
+        end
+      end
+    end
+  end
+  object PnlComentario: TPanel
+    Left = 0
+    Top = 0
+    Width = 563
+    Height = 45
+    Align = alTop
+    Alignment = taLeftJustify
+    AutoSize = True
+    Color = 13499902
+    ParentBackground = False
+    TabOrder = 3
+    VerticalAlignment = taAlignTop
+    ExplicitWidth = 560
+    object lbComentario: TLabel
+      AlignWithMargins = True
+      Left = 6
+      Top = 4
+      Width = 553
+      Height = 40
+      Margins.Left = 5
+      Align = alClient
+      Caption = 'Comentario'
+      WordWrap = True
+      ExplicitWidth = 55
+      ExplicitHeight = 13
     end
   end
 end
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas
index d6266e7c..225c00fe 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas	
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas	
@@ -18,6 +18,9 @@ type
     Label2: TLabel;
     Panel1: TPanel;
     frViewListaSubcuentas1: TfrViewListaSubcuentas;
+    PnlComentario: TPanel;
+    lbComentario: TLabel;
+    Label3: TLabel;
     procedure FormShow(Sender: TObject);
     procedure eFechaPagoPropertiesChange(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@@ -25,17 +28,25 @@ type
 
   private
     FFechaPago : TDateTime;
+    FComentario: Variant;
+    FSoloLectura: Boolean;
     function GetFechaPago: TDateTime;
     procedure SetFechaPago(const Value: TDateTime);
     function GetIgnorarContabilidad: Integer;
     procedure SetIgnorarContabilidad(const Value: Integer);
     function GetIdSubCuenta: Integer;
     procedure SetIdSubCuenta(const Value: Integer);
+    function GetComentario: Variant;
+    procedure SetComentario(const Value: Variant);
+    function GetSoloLectura: Boolean;
+    procedure SetSoloLectura(const Value: Boolean);
 
   public
     property FechaPago: TDateTime Read GetFechaPago write SetFechaPago;
     property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad;
     property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta;
+    property Comentario: Variant read GetComentario write SetComentario;
+    property SoloLectura: Boolean read GetSoloLectura write SetSoloLectura;
     procedure DeshabilitarContabilidad;
   end;
 
@@ -88,6 +99,9 @@ begin
   {$IFDEF CONTABILIDAD}
     frViewListaSubCuentas1.TipoSubCuenta := tCajas;
   {$ENDIF}
+
+  Comentario := Null;
+  FSoloLectura := False;
 end;
 
 procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject);
@@ -112,6 +126,11 @@ begin
   end;
 end;
 
+function TfEditorFechaPagoProveedor.GetComentario: Variant;
+begin
+  Result := FComentario;
+end;
+
 function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime;
 begin
   Result := FFechaPago;
@@ -127,6 +146,23 @@ begin
   Result := frViewListaSubCuentas1.eContabilizar.EditValue;
 end;
 
+function TfEditorFechaPagoProveedor.GetSoloLectura: Boolean;
+begin
+  Result := FSoloLectura;
+end;
+
+procedure TfEditorFechaPagoProveedor.SetComentario(const Value: Variant);
+begin
+  FComentario := Value;
+  lbComentario.Caption := '';
+  lbComentario.Caption := VarToStr(FComentario);
+
+  if VarIsNull(FComentario) then
+     PnlComentario.Visible := False
+  else
+     PnlComentario.Visible := True;
+end;
+
 procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime);
 begin
   FFechaPago := Value;
@@ -144,4 +180,19 @@ begin
   frViewListaSubCuentas1.Refrescar;
 end;
 
+procedure TfEditorFechaPagoProveedor.SetSoloLectura(const Value: Boolean);
+begin
+  FSoloLectura := Value;
+  if FSoloLectura then
+  begin
+    eFechaPago.Enabled := False;
+    frViewListaSubcuentas1.ReadOnly := True;
+  end
+  else
+  begin
+    eFechaPago.Enabled := True;
+    frViewListaSubcuentas1.ReadOnly := False;
+  end;
+end;
+
 end.
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
index 4e2d7ac2..ae174227 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm	
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm	
@@ -48,24 +48,33 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
       ExplicitWidth = 691
     end
   end
+  inherited StatusBar: TJvStatusBar
+    Top = 535
+    Width = 691
+    Panels = <
+      item
+        Width = 200
+      end>
+    ExplicitTop = 535
+    ExplicitWidth = 691
+  end
   inherited pgPaginas: TPageControl
     Width = 685
-    Height = 353
+    Height = 323
     ActivePage = pagPagos
-    ExplicitLeft = 3
-    ExplicitTop = 79
+    ExplicitTop = 109
     ExplicitWidth = 685
-    ExplicitHeight = 353
+    ExplicitHeight = 323
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
       ExplicitWidth = 677
-      ExplicitHeight = 325
+      ExplicitHeight = 295
       inline frViewReciboProveedor1: TfrViewReciboProveedor
         Left = 0
         Top = 0
         Width = 677
-        Height = 325
+        Height = 295
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -76,15 +85,15 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 677
-        ExplicitHeight = 325
+        ExplicitHeight = 295
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 677
-          Height = 325
+          Height = 295
           ExplicitWidth = 677
-          ExplicitHeight = 325
+          ExplicitHeight = 295
           DesignSize = (
             677
-            325)
+            295)
           inherited eReferencia: TcxDBTextEdit
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
@@ -318,7 +327,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
         Left = 0
         Top = 0
         Width = 677
-        Height = 325
+        Height = 295
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -329,15 +338,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 677
-        ExplicitHeight = 325
+        ExplicitHeight = 295
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 677
-          Height = 325
+          Height = 295
           ExplicitWidth = 677
-          ExplicitHeight = 325
+          ExplicitHeight = 295
           inherited ListaPagosProveedor: TcxGrid
             Width = 633
             Height = 248
+            Enabled = False
             ExplicitWidth = 633
             ExplicitHeight = 248
             inherited ListaPagosProveedorDBTableView1: TcxGridDBTableView
@@ -378,7 +388,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
         Left = 0
         Top = 0
         Width = 677
-        Height = 325
+        Height = 295
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -389,10 +399,10 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 677
-        ExplicitHeight = 325
+        ExplicitHeight = 295
         inherited cxGrid: TcxGrid
           Width = 677
-          Height = 300
+          Height = 270
           ExplicitWidth = 677
           ExplicitHeight = 300
           inherited cxGridView: TcxGridDBTableView
@@ -434,16 +444,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
       end
     end
   end
-  inherited StatusBar: TJvStatusBar
-    Top = 535
-    Width = 691
-    Panels = <
-      item
-        Width = 200
-      end>
-    ExplicitTop = 535
-    ExplicitWidth = 691
-  end
   inline frViewReciboProvImportes1: TfrViewReciboProvImportes [4]
     Left = 0
     Top = 435
@@ -456,7 +456,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
     Font.Name = 'Tahoma'
     Font.Style = []
     ParentFont = False
-    TabOrder = 4
+    TabOrder = 5
     ReadOnly = False
     ExplicitTop = 435
     ExplicitWidth = 691
@@ -490,7 +490,23 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
       end
     end
   end
-  inherited EditorActionList: TActionList [5]
+  inherited PnlComentario: TPanel [5]
+    Width = 691
+    ExplicitWidth = 691
+    inherited lbComentario: TLabel
+      Width = 681
+      Height = 25
+    end
+  end
+  inherited JvFormStorage: TJvFormStorage
+    OnSavePlacement = JvFormStorageSavePlacement
+    OnRestorePlacement = JvFormStorageRestorePlacement
+  end
+  inherited dsDataTable: TDADataSource
+    Left = 8
+    Top = 136
+  end
+  inherited EditorActionList: TActionList [11]
     Left = 56
     Top = 144
     inherited actNuevo: TAction
@@ -514,20 +530,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
       Visible = False
     end
   end
-  inherited SmallImages: TPngImageList [6]
-  end
-  inherited LargeImages: TPngImageList [7]
-  end
-  inherited JvFormStorage: TJvFormStorage [8]
-    OnSavePlacement = JvFormStorageSavePlacement
-    OnRestorePlacement = JvFormStorageRestorePlacement
-  end
-  inherited dsDataTable: TDADataSource [9]
-    Left = 8
-    Top = 136
-  end
-  inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
-  end
   object DADataSource1: TDADataSource
     OnDataChange = dsDataTableDataChange
     Left = 80
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
index a250562d..d45805bc 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas	
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas	
@@ -11,7 +11,7 @@ uses
   uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController,
   uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData,
   uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes,
-  uDAInterfaces;
+  uDAInterfaces, StdCtrls;
 
 type
   TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor)
@@ -183,6 +183,8 @@ begin
      DeshabilitarRecibo
   else
      HabilitarRecibo;
+
+  frViewPagosProveedor1.ListaPagosProveedorDBTableView1.DataController.GotoLast;     
 end;
 
 procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarExecute(Sender: TObject);
@@ -205,6 +207,8 @@ begin
     FRecibo.SITUACION := CTE_PAGADO;
     DeshabilitarRecibo;
   end;
+
+  frViewPagosProveedor1.ListaPagosProveedorDBTableView1.DataController.GotoLast;  
 end;
 
 procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarUpdate(Sender: TObject);
@@ -212,7 +216,6 @@ begin
   //Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar
   if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then
      frViewPagosProveedor1.actEliminar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0)
-//                                                  and (FRecibo.Pagos.ESTADO <> CTE_CERRADO);
 end;
 
 procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarExecute(Sender: TObject);
@@ -231,22 +234,37 @@ begin
     if IgnorarContabilidad = 0 then
        IdSubCuenta := StrToInt(Recibo.Pagos.CUENTA);
 
+    //En el caso de que el proveedor del recibo no tenga aignada subcuenta contable el pago no podrá contabilizarse
+    if (Recibo.Proveedor.SubCuentas.ID < 1) then
+    begin
+       IgnorarContabilidad := 1;
+       DeshabilitarContabilidad;
+    end;
+
+    //En el caso de que el ejercicio asociado al asiento del pago este cerrado o el asiento punteado
+    //se podrá o no modificar el pago.
+    if (Recibo.Pagos.ESTADO_EJERCICIO = CTE_CERRADO) then
+    begin
+      Comentario := 'El asiento asociado a este pago tiene el ejercicio cerrado, por lo que no se puede modificar';
+      SoloLectura := true;
+    end
+    else if (Recibo.Pagos.ASIENTO_PUNTEADO > 0) then
+    begin
+      Comentario := 'El asiento asociado a este pago esta punteado, por lo que no se puede modificar';
+      SoloLectura := true;
+    end;
+
     if (ShowModal = mrOk) then
     begin
       AFechaPago := DateToStr(FechaPago);
       AIgnorarContabilidad := IgnorarContabilidad;
       ASubCuenta := IdSubcuenta;
-      Release;
-    end
-    else
-    begin
-      //Operación cancelada
-      Release;
-      exit;
+      if not SoloLectura then
+         FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
     end;
-  end;
 
-  FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
+    Release;
+  end;
 end;
 
 procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarUpdate(Sender: TObject);
@@ -255,7 +273,6 @@ begin
   //Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar
   if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then
      frViewPagosProveedor1.actModificar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0)
-//                                                   and (FRecibo.Pagos.ESTADO <> CTE_CERRADO);
 end;
 
 procedure TfEditorReciboProveedor.frViewReciboProvImportes1eImportePropertiesEditValueChanged(
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
index c1ab77a5..8b527eda 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm	
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm	
@@ -1,6 +1,7 @@
 inherited frViewPagosProveedor: TfrViewPagosProveedor
   Width = 664
   Height = 355
+  OnShow = CustomViewShow
   ExplicitWidth = 664
   ExplicitHeight = 355
   object dxLayoutControl1: TdxLayoutControl
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas
index 6ed5950a..9f137710 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas	
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas	
@@ -61,6 +61,7 @@ type
       Sender: TcxCustomGridTableView;
       ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
       AShift: TShiftState; var AHandled: Boolean);
+    procedure CustomViewShow(Sender: TObject);
   private
     FPagos : IBizPagosProveedor;
     function GetPagos: IBizPagosProveedor;
@@ -74,6 +75,12 @@ implementation
 
 { TfrViewPagosProveedor }
 
+procedure TfrViewPagosProveedor.CustomViewShow(Sender: TObject);
+begin
+  inherited;
+  ListaPagosProveedorDBTableView1.DataController.GotoLast;
+end;
+
 function TfrViewPagosProveedor.GetPagos: IBizPagosProveedor;
 begin
   Result := FPagos;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 28421aed..4580b11f 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 5e05fe08..a4a6b160 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,284 +1,285 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-	<PropertyGroup>
-		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-		<MainSource>FactuGES_Server.dpr</MainSource>
-		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-	</PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-		<Version>7.0</Version>
-		<DCC_DebugInformation>False</DCC_DebugInformation>
-		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-		<DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-		<DCC_Define>RELEASE</DCC_Define>
-	</PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-		<Version>7.0</Version>
-		<DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-		<DCC_Define>DEBUG;</DCC_Define>
-		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-	</PropertyGroup>
-	<ProjectExtensions>
-		<Borland.Personality>Delphi.Personality</Borland.Personality>
-		<Borland.ProjectType/>
-		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 08 de enero de 2009 20:14</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
-					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-	</ProjectExtensions>
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
-	<ItemGroup>
-		<DelphiCompile Include="FactuGES_Server.dpr">
-			<MainSource>MainSource</MainSource>
-		</DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
-			<Form>srvEjercicios</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-			<Form>srvEmpresas</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-			<Form>srvProvinciasPoblaciones</Form>
-			<DesignClass>TRORemoteDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
-		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
-		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-			<Form>srvAlbaranesCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-			<Form>srvAlbaranesProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-			<Form>srvAlmacenes</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
-		<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
-			<Form>RptComisiones</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
-			<Form>srvComisiones</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
-		<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
-			<Form>srvContabilidad</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-			<Form>RptEtiquetasContacto</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-			<Form>srvContactos</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-			<Form>RptFacturasCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-			<Form>srvFacturasCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-			<Form>RptFacturasProveedor</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-			<Form>srvFacturasProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-			<Form>srvGestorDocumentos</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-			<Form>srvGestorInformes</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-			<Form>srvHistoricoMovimientos</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-			<Form>srvInventario</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-			<Form>srvPedidosProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-			<Form>RptPresupuestosCliente</Form>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-			<Form>srvPresupuestosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-			<Form>RptRecibosCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-			<Form>srvRecibosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-			<Form>RptRecibosProveedor</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-			<Form>srvRecibosProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-			<Form>srvReferencias</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-			<Form>srvRemesasCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-			<Form>srvRemesasProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-			<Form>srvUnidadesMedida</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<Form>srvConfiguracion</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uConexionBD.pas">
-			<Form>frConexionBD</Form>
-			<DesignClass>TFrame</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
-			<Form>frConfGeneral</Form>
-			<DesignClass>TFrame</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
-			<Form>fConfiguracion</Form>
-			<DesignClass>TForm</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<Form>FrameConfiguracion</Form>
-			<DesignClass>TFrame</DesignClass>
-		</DCCReference>
-		<DCCReference Include="srvLogin_Impl.pas">
-			<Form>srvLogin</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="uAcercaDe.pas">
-			<Form>fAcercaDe</Form>
-		</DCCReference>
-		<DCCReference Include="uDataModuleServer.pas">
-			<Form>dmServer</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="uServerMainForm.pas">
-			<Form>fServerForm</Form>
-		</DCCReference>
-		<DCCReference Include="Utiles\RegExpr.pas"/>
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
-	</ItemGroup>
+  <PropertyGroup>
+    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+    <MainSource>FactuGES_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+    <DCC_Define>DEBUG;</DCC_Define>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 08 de enero de 2009 20:14</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
+    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="FactuGES_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
+      <Form>srvEjercicios</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+      <Form>srvEmpresas</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+      <Form>srvProvinciasPoblaciones</Form>
+      <DesignClass>TRORemoteDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
+    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
+    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+      <Form>srvAlbaranesCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+      <Form>srvAlbaranesProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+      <Form>srvAlmacenes</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
+    <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
+      <Form>RptComisiones</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
+      <Form>srvComisiones</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
+    <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
+      <Form>srvContabilidad</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+      <Form>RptEtiquetasContacto</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+      <Form>srvContactos</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+      <Form>RptFacturasCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+      <Form>srvFacturasCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
+      <Form>RptFacturasProveedor</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+      <Form>srvFacturasProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
+    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+      <Form>srvGestorDocumentos</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+      <Form>srvGestorInformes</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+      <Form>srvHistoricoMovimientos</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+      <Form>srvInventario</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+      <Form>srvPedidosProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+      <Form>RptPresupuestosCliente</Form>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+      <Form>srvPresupuestosCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+      <Form>RptRecibosCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+      <Form>srvRecibosCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
+      <Form>RptRecibosProveedor</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+      <Form>srvRecibosProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+      <Form>srvReferencias</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+      <Form>srvRemesasCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+      <Form>srvRemesasProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+      <Form>srvUnidadesMedida</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+      <Form>srvConfiguracion</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uConexionBD.pas">
+      <Form>frConexionBD</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
+      <Form>frConfGeneral</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
+      <Form>fConfiguracion</Form>
+      <DesignClass>TForm</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+      <Form>FrameConfiguracion</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="srvLogin_Impl.pas">
+      <Form>srvLogin</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uAcercaDe.pas">
+      <Form>fAcercaDe</Form>
+    </DCCReference>
+    <DCCReference Include="uDataModuleServer.pas">
+      <Form>dmServer</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uServerMainForm.pas">
+      <Form>fServerForm</Form>
+    </DCCReference>
+    <DCCReference Include="Utiles\RegExpr.pas" />
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 7122200d..b1eb6683 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.2.8.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.2.8.0\0"
-              VALUE "CompileDate", "viernes, 13 de febrero de 2009 18:39\0"
+              VALUE "CompileDate", "lunes, 16 de febrero de 2009 14:14\0"
          END
     END
     BLOCK "VarFileInfo"