Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Reglas de negocio en el servidor:

Browse Source 
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
This commit is contained in:
David Arranz 2007-12-20 08:56:41 +00:00
parent 679d58aea6
commit ff34dcc925
10 changed files with 87 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas
View File

@ -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;

9
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS
View File

@ -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;

15
Source/Modulos/Contactos/Model/uBizContactosServer.pas
View File

@ -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

92
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -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 =
'<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
DiagramData = '<Diagrams>'#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

9
Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
View File

@ -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;

9
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
View File

@ -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;

9
Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas
View File

@ -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;

9
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas
View File

@ -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;

9
Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas
View File

@ -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;

10
Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas
View File

@ -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;