Ticket #784 -> Revisar recibos de cliente sus referencias porque no suma el contador

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@37 93f398dd-4eb6-7a46-baf6-13f46f578da2

Source/Modulos/Recibos de cliente/Model/uBizRecibosClienteServer.pas

@@ -34,7 +34,8 @@ const
 procedure TBizRecibosClienteServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
   var CanRemoveFromDelta: Boolean);
 begin
-
+  inherited;
+  
   // No hay que quitar los deltas para que los datos del contacto se
   // mantengan por si alguna tabla detalle lo necesita
   // (por ejemplo, DireccionesContacto)

Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm

@@ -1511,20 +1511,6 @@ object srvRecibosCliente: TsrvRecibosCliente
         RelationshipType = rtForeignKey
       end>
     UpdateRules = <
-      item
-        Name = 'Delete PagosCliente'
-        DoUpdate = False
-        DoInsert = False
-        DatasetName = 'PagosCliente'
-        FailureBehavior = fbRaiseException
-      end
-      item
-        Name = 'Delete RecibosCliente'
-        DoUpdate = False
-        DoInsert = False
-        DatasetName = 'RecibosCliente'
-        FailureBehavior = fbRaiseException
-      end
       item
         Name = 'Insert RecibosCliente'
         DoUpdate = False
@@ -1552,6 +1538,20 @@ object srvRecibosCliente: TsrvRecibosCliente
         DoDelete = False
         DatasetName = 'PagosCliente'
         FailureBehavior = fbRaiseException
+      end
+      item
+        Name = 'Delete PagosCliente'
+        DoUpdate = False
+        DoInsert = False
+        DatasetName = 'PagosCliente'
+        FailureBehavior = fbRaiseException
+      end
+      item
+        Name = 'Delete RecibosCliente'
+        DoUpdate = False
+        DoInsert = False
+        DatasetName = 'RecibosCliente'
+        FailureBehavior = fbRaiseException
       end>
     Version = 0
     Left = 48