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