- Reglas de negocio en el servidor:

Por defecto, mantenemos los deltas por si alguna tabla hija los necesita. Se hace así:
      CanRemoveFromDelta := False;


git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@177 0c75b7a4-871f-7646-8a2f-f78d34cc349f

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
+  { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
-    procesados los cambios. }
+  CanRemoveFromDelta := False;
-  CanRemoveFromDelta := True;
 
   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;

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
+  { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
-    procesados los cambios. }
+  CanRemoveFromDelta := False;
-  CanRemoveFromDelta := True;
 
   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;

Source/Modulos/Contactos/Model/uBizContactosServer.pas

@@ -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
+  { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
-    procesados los cambios. }
+  CanRemoveFromDelta := False;
-  CanRemoveFromDelta := True;
 
   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

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 = 
+    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
-      '<Diagrams>'#13#10'  <Diagram Name="Contactos" Left="200" Top="200" Wid' +
-      'th="400" Height="300">'#13#10'    <Entity Name="DatosBancarios" Left="' +
-      '325,90" Top="0,00" />'#13#10'    <Entity Name="Contactos" Left="0,00" ' +
-      'Top="85,50" />'#13#10'    <Entity Name="DireccionesContacto" Left="320' +
-      ',90" Top="183,00" />'#13#10'  </Diagram>'#13#10'  <Diagram Name="Clientes" L' +
-      'eft="200" Top="200" Width="400" Height="300">'#13#10'    <Entity Name=' +
-      '"DatosBancarios" Left="463,00" Top="175,00" />'#13#10'    <Entity Name' +
-      '="Clientes" Left="0,00" Top="23,00" />'#13#10'    <Entity Name="Direcc' +
-      'ionesContacto" Left="253,00" Top="236,00" />'#13#10'    <Entity Name="' +
-      'ClientesDescuentos" Left="438,00" Top="0,00" />'#13#10'  </Diagram>'#13#10' ' +
-      ' <Diagram Name="Empleados" Left="200" Top="200" Width="400" Heig' +
-      'ht="300">'#13#10'    <Entity Name="Empleados" Left="0,00" Top="42,00" ' +
-      '/>'#13#10'    <Entity Name="DatosBancarios" Left="210,50" Top="280,67"' +
-      ' />'#13#10'    <Entity Name="DireccionesContacto" Left="295,00" Top="0' +
-      ',00" />'#13#10'  </Diagram>'#13#10'  <Diagram Name="Proveedores" Left="200" ' +
-      'Top="200" Width="400" Height="300">'#13#10'    <Entity Name="DatosBanc' +
-      'arios" Left="247,28" Top="242,04" />'#13#10'    <Entity Name="Proveedo' +
-      'res" Left="0,00" Top="115,17" />'#13#10'    <Entity Name="DireccionesC' +
-      'ontacto" Left="245,28" Top="0,00" />'#13#10'  </Diagram>'#13#10'</Diagrams>'#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

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
+  { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
-    procesados los cambios. }
+  CanRemoveFromDelta := False;
-  CanRemoveFromDelta := True;
 
   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;

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
+  { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
-    procesados los cambios. }
+  CanRemoveFromDelta := False;
-  CanRemoveFromDelta := True;
 
   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;

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
+  { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
-    procesados los cambios. }
+  CanRemoveFromDelta := False;
-  CanRemoveFromDelta := True;
 
   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;

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
+  { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
-    procesados los cambios. }
+  CanRemoveFromDelta := False;
-  CanRemoveFromDelta := True;
 
   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;

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
+  { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
-    procesados los cambios. }
+  CanRemoveFromDelta := False;
-  CanRemoveFromDelta := True;
 
   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;

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. }
+  { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
-  CanRemoveFromDelta := True;
+  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;