From ff34dcc9258bdb18eb5cb8b1f14b8b4ff6bb6853 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 20 Dec 2007 08:56:41 +0000 Subject: [PATCH] =?UTF-8?q?-=20Reglas=20de=20negocio=20en=20el=20servidor:?= =?UTF-8?q?=20=20=20Por=20defecto,=20mantenemos=20los=20deltas=20por=20si?= =?UTF-8?q?=20alguna=20tabla=20hija=20los=20necesita.=20Se=20hace=20as?= =?UTF-8?q?=C3=AD:=20=20=20=20=20=20=20CanRemoveFromDelta=20:=3D=20False;?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@177 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Model/uBizAlbaranClienteServer.pas | 9 +- .../Model/uBizAlbaranProveedorServer.PAS | 9 +- .../Contactos/Model/uBizContactosServer.pas | 15 +-- .../Contactos/Servidor/srvContactos_Impl.dfm | 92 ++++++++++++++----- .../Model/uBizFacturasClienteServer.pas | 9 +- .../Model/uBizFacturasProveedorServer.pas | 9 +- .../Model/uBizPedidosProveedorServer.pas | 9 +- .../Model/uBizPresupuestosClienteServer.pas | 9 +- .../Model/uBizRemesasClienteServer.pas | 9 +- .../Model/uBizRemesasProveedorServer.pas | 10 +- 10 files changed, 87 insertions(+), 93 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas index d9dc2a49..4f45951c 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas @@ -40,9 +40,8 @@ procedure TBizAlbaranClienteServer.AfterProcessChange( var CanRemoveFromDelta: Boolean); begin inherited; - { Por defecto, no es necesario mantener los deltas una vez - procesados los cambios. } - CanRemoveFromDelta := True; + { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita } + CanRemoveFromDelta := False; case aChange.ChangeType of ctInsert, ctUpdate: begin @@ -50,10 +49,6 @@ begin begin IncrementarReferencia; FReferenciaAutomatica := False; - { En este caso no debemos quitar los deltas porque - el cliente tiene que enterarse de la referencia que - ha rellenado el servidor. } - CanRemoveFromDelta := False; end; end; end; diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS index 01989528..628426d4 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS +++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS @@ -42,9 +42,8 @@ procedure TBizAlbaranProveedorServer.AfterProcessChange( var CanRemoveFromDelta: Boolean); begin inherited; - { Por defecto, no es necesario mantener los deltas una vez - procesados los cambios. } - CanRemoveFromDelta := True; + { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita } + CanRemoveFromDelta := False; case aChange.ChangeType of ctInsert, ctUpdate: begin @@ -52,10 +51,6 @@ begin begin IncrementarReferencia; FReferenciaAutomatica := False; - { En este caso no debemos quitar los deltas porque - el cliente tiene que enterarse de la referencia que - ha rellenado el servidor. } - CanRemoveFromDelta := False; end; end; end; diff --git a/Source/Modulos/Contactos/Model/uBizContactosServer.pas b/Source/Modulos/Contactos/Model/uBizContactosServer.pas index 98d8a837..d4094554 100644 --- a/Source/Modulos/Contactos/Model/uBizContactosServer.pas +++ b/Source/Modulos/Contactos/Model/uBizContactosServer.pas @@ -41,7 +41,7 @@ type implementation uses - Dialogs, uDataModuleServer, uDAClasses, Variants, + Dialogs, uDataModuleServer, uDAClasses, Variants, schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl; { TBizContactosServer } @@ -50,9 +50,8 @@ procedure TBizContactosServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); begin inherited; - { Por defecto, no es necesario mantener los deltas una vez - procesados los cambios. } - CanRemoveFromDelta := True; + { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita } + CanRemoveFromDelta := False; case aChange.ChangeType of ctInsert: begin @@ -62,10 +61,6 @@ begin begin IncrementarReferenciaContacto; FReferenciaAutomatica := False; - { En este caso no debemos quitar los deltas porque - el cliente tiene que enterarse de la referencia que - ha rellenado el servidor. } - CanRemoveFromDelta := False; end; end; ctUpdate: begin @@ -75,10 +70,6 @@ begin begin IncrementarReferenciaContacto; FReferenciaAutomatica := False; - { En este caso no debemos quitar los deltas porque - el cliente tiene que enterarse de la referencia que - ha rellenado el servidor. } - CanRemoveFromDelta := False; end; end; ctDelete: begin diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index 52b7b89c..e070457e 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -1632,7 +1632,6 @@ object srvContactos: TsrvContactos end> end item - IsPublic = False Params = < item Name = 'ID' @@ -3477,6 +3476,27 @@ object srvContactos: TsrvContactos DatasetName = 'Contactos' FailureBehavior = fbRaiseException end + item + Name = 'Insert Clientes' + DoUpdate = False + DoDelete = False + DatasetName = 'Clientes' + FailureBehavior = fbRaiseException + end + item + Name = 'Insert Empleados' + DoUpdate = False + DoDelete = False + DatasetName = 'Empleados' + FailureBehavior = fbRaiseException + end + item + Name = 'Insert Proveedores' + DoUpdate = False + DoDelete = False + DatasetName = 'Proveedores' + FailureBehavior = fbRaiseException + end item Name = 'Update Contactos' DoInsert = False @@ -3484,6 +3504,27 @@ object srvContactos: TsrvContactos DatasetName = 'Contactos' FailureBehavior = fbRaiseException end + item + Name = 'Update Clientes' + DoInsert = False + DoDelete = False + DatasetName = 'Clientes' + FailureBehavior = fbRaiseException + end + item + Name = 'Update Empleados' + DoInsert = False + DoDelete = False + DatasetName = 'Empleados' + FailureBehavior = fbRaiseException + end + item + Name = 'Update Proveedores' + DoInsert = False + DoDelete = False + DatasetName = 'Proveedores' + FailureBehavior = fbRaiseException + end item Name = 'Insert DatosBancarios' DoUpdate = False @@ -3568,6 +3609,27 @@ object srvContactos: TsrvContactos DatasetName = 'DireccionesContacto' FailureBehavior = fbRaiseException end + item + Name = 'Delete Proveedores' + DoUpdate = False + DoInsert = False + DatasetName = 'Proveedores' + FailureBehavior = fbRaiseException + end + item + Name = 'Delete Empleados' + DoUpdate = False + DoInsert = False + DatasetName = 'Empleados' + FailureBehavior = fbRaiseException + end + item + Name = 'Delete Clientes' + DoUpdate = False + DoInsert = False + DatasetName = 'Clientes' + FailureBehavior = fbRaiseException + end item Name = 'Delete Contactos' DoUpdate = False @@ -4051,27 +4113,7 @@ object srvContactos: TsrvContactos object Diagrams: TDADiagrams Left = 126 Top = 82 - DiagramData = - ''#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' ' + - ' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13 + - #10 + DiagramData = ''#13#10''#13#10 end object bpContactos: TDABusinessProcessor Schema = schContactos @@ -4103,7 +4145,7 @@ object srvContactos: TsrvContactos UpdateCommandName = 'Update_Contactos' RefreshDatasetName = 'Contactos_Refresh' ReferencedDataset = 'Empleados' - ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 344 Top = 15 @@ -4115,7 +4157,7 @@ object srvContactos: TsrvContactos UpdateCommandName = 'Update_Contactos' RefreshDatasetName = 'Contactos_Refresh' ReferencedDataset = 'Clientes' - ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 344 Top = 143 @@ -4127,7 +4169,7 @@ object srvContactos: TsrvContactos UpdateCommandName = 'Update_Contactos' RefreshDatasetName = 'Contactos_Refresh' ReferencedDataset = 'Proveedores' - ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 344 Top = 79 diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas index 21e5caf0..025fc245 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas @@ -43,9 +43,8 @@ procedure TBizFacturasClienteServer.AfterProcessChange( var CanRemoveFromDelta: Boolean); begin inherited; - { Por defecto, no es necesario mantener los deltas una vez - procesados los cambios. } - CanRemoveFromDelta := True; + { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita } + CanRemoveFromDelta := False; case aChange.ChangeType of ctInsert, ctUpdate: begin @@ -53,10 +52,6 @@ begin begin IncrementarReferencia; FReferenciaAutomatica := False; - { En este caso no debemos quitar los deltas porque - el cliente tiene que enterarse de la referencia que - ha rellenado el servidor. } - CanRemoveFromDelta := False; end; end; end; diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas index 780f2d00..81d19376 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas @@ -44,9 +44,8 @@ procedure TBizFacturasProveedorServer.AfterProcessChange( var CanRemoveFromDelta: Boolean); begin inherited; - { Por defecto, no es necesario mantener los deltas una vez - procesados los cambios. } - CanRemoveFromDelta := True; + { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita } + CanRemoveFromDelta := False; case aChange.ChangeType of ctInsert, ctUpdate: begin @@ -54,10 +53,6 @@ begin begin IncrementarReferencia; FReferenciaAutomatica := False; - { En este caso no debemos quitar los deltas porque - el cliente tiene que enterarse de la referencia que - ha rellenado el servidor. } - CanRemoveFromDelta := False; end; end; end; diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas index dad96e76..4b2af4a6 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas @@ -40,9 +40,8 @@ procedure TBizPedidosProveedorServer.AfterProcessChange( var CanRemoveFromDelta: Boolean); begin inherited; - { Por defecto, no es necesario mantener los deltas una vez - procesados los cambios. } - CanRemoveFromDelta := True; + { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita } + CanRemoveFromDelta := False; case aChange.ChangeType of ctInsert, ctUpdate: begin @@ -50,10 +49,6 @@ begin begin IncrementarReferencia; FReferenciaAutomatica := False; - { En este caso no debemos quitar los deltas porque - el cliente tiene que enterarse de la referencia que - ha rellenado el servidor. } - CanRemoveFromDelta := False; end; end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas index 82b5b7d9..5acdef8e 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas @@ -39,9 +39,8 @@ procedure TBizPresupuestosClienteServer.AfterProcessChange( var CanRemoveFromDelta: Boolean); begin inherited; - { Por defecto, no es necesario mantener los deltas una vez - procesados los cambios. } - CanRemoveFromDelta := True; + { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita } + CanRemoveFromDelta := False; case aChange.ChangeType of ctInsert, ctUpdate: begin @@ -49,10 +48,6 @@ begin begin IncrementarReferencia; FReferenciaAutomatica := False; - { En este caso no debemos quitar los deltas porque - el cliente tiene que enterarse de la referencia que - ha rellenado el servidor. } - CanRemoveFromDelta := False; end; end; end; diff --git a/Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas b/Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas index f878a177..4b43926b 100644 --- a/Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas +++ b/Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas @@ -39,9 +39,8 @@ procedure TBizRemesasClienteServer.AfterProcessChange( var CanRemoveFromDelta: Boolean); begin inherited; - { Por defecto, no es necesario mantener los deltas una vez - procesados los cambios. } - CanRemoveFromDelta := True; + { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita } + CanRemoveFromDelta := False; case aChange.ChangeType of ctInsert, ctUpdate: begin @@ -49,10 +48,6 @@ begin begin IncrementarReferencia; FReferenciaAutomatica := False; - { En este caso no debemos quitar los deltas porque - el cliente tiene que enterarse de la referencia que - ha rellenado el servidor. } - CanRemoveFromDelta := False; end; end; end; diff --git a/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas b/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas index 7298acf8..8a6ff883 100644 --- a/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas +++ b/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas @@ -40,9 +40,9 @@ procedure TBizRemesasProveedorServer.AfterProcessChange( var CanRemoveFromDelta: Boolean); begin inherited; - { Por defecto, no es necesario mantener los deltas una vez - procesados los cambios. } - CanRemoveFromDelta := True; + + { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita } + CanRemoveFromDelta := False; case aChange.ChangeType of ctInsert, ctUpdate: begin @@ -50,10 +50,6 @@ begin begin IncrementarReferencia; FReferenciaAutomatica := False; - { En este caso no debemos quitar los deltas porque - el cliente tiene que enterarse de la referencia que - ha rellenado el servidor. } - CanRemoveFromDelta := False; end; end; end;