Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ticket #784 -> Revisar recibos de cliente sus referencias porque no suma el contador

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@37 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
David Arranz 2012-02-01 13:03:45 +00:00
parent 500da284eb
commit f36e4bfca7
2 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Modulos/Recibos de cliente/Model/uBizRecibosClienteServer.pas
View File

@ -34,7 +34,8 @@ const
procedure TBizRecibosClienteServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; procedure TBizRecibosClienteServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean); var CanRemoveFromDelta: Boolean);
begin begin
inherited;
// No hay que quitar los deltas para que los datos del contacto se // No hay que quitar los deltas para que los datos del contacto se
// mantengan por si alguna tabla detalle lo necesita // mantengan por si alguna tabla detalle lo necesita
// (por ejemplo, DireccionesContacto) // (por ejemplo, DireccionesContacto)

28
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -1511,20 +1511,6 @@ object srvRecibosCliente: TsrvRecibosCliente
RelationshipType = rtForeignKey RelationshipType = rtForeignKey
end> end>
UpdateRules = < 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 item
Name = 'Insert RecibosCliente' Name = 'Insert RecibosCliente'
DoUpdate = False DoUpdate = False
@ -1552,6 +1538,20 @@ object srvRecibosCliente: TsrvRecibosCliente
DoDelete = False DoDelete = False
DatasetName = 'PagosCliente' DatasetName = 'PagosCliente'
FailureBehavior = fbRaiseException 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> end>
Version = 0 Version = 0
Left = 48 Left = 48