From f36e4bfca7f86776909ed40bf53445842e93f5d1 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 1 Feb 2012 13:03:45 +0000
Subject: [PATCH] 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
---
 .../Model/uBizRecibosClienteServer.pas        |  3 +-
 .../Servidor/srvRecibosCliente_Impl.dfm       | 28 +++++++++----------
 2 files changed, 16 insertions(+), 15 deletions(-)

diff --git a/Source/Modulos/Recibos de cliente/Model/uBizRecibosClienteServer.pas b/Source/Modulos/Recibos de cliente/Model/uBizRecibosClienteServer.pas
index 1678501..3289c67 100644
--- a/Source/Modulos/Recibos de cliente/Model/uBizRecibosClienteServer.pas	
+++ b/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)
diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
index c65cda1..37d8ff8 100644
--- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm	
+++ b/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