73 lines
1.9 KiB
ObjectPascal
73 lines
1.9 KiB
ObjectPascal
unit uBizReferenciasServer;
|
|
|
|
interface
|
|
|
|
uses
|
|
uDAInterfaces, uDADelta, uDABusinessProcessor,
|
|
schReferenciasServer_Intf;
|
|
|
|
const
|
|
BIZ_SERVER_REFERENCIAS = 'Server.Referencias';
|
|
|
|
type
|
|
TBizReferenciasServer = class(TReferenciasBusinessProcessorRules)
|
|
protected
|
|
procedure BeforeProcessDelta(Sender: TDABusinessProcessor;
|
|
const aDelta: IDADelta); override;
|
|
procedure AfterProcessChange(Sender: TDABusinessProcessor;
|
|
aChange: TDADeltaChange; Processed: Boolean;
|
|
var CanRemoveFromDelta: Boolean); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer,
|
|
schReferenciasClient_Intf, FactuGES_Intf, uROServer, SysUtils;
|
|
|
|
|
|
{ TBizPresupuestosClienteServer }
|
|
|
|
procedure TBizReferenciasServer.AfterProcessChange(
|
|
Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
|
|
var CanRemoveFromDelta: Boolean);
|
|
begin
|
|
inherited;
|
|
{ Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
|
|
CanRemoveFromDelta := False;
|
|
|
|
case aChange.ChangeType of
|
|
ctInsert, ctUpdate: begin
|
|
dmServer.EscribirLog('aaaaa');
|
|
|
|
// aChange.OldValueByName[fld_ClientesID];
|
|
// aChange.NewValueByName[fld_ClientesID];
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TBizReferenciasServer.BeforeProcessDelta(
|
|
Sender: TDABusinessProcessor; const aDelta: IDADelta);
|
|
begin
|
|
inherited;
|
|
{
|
|
FReferenciaAutomatica := False;
|
|
|
|
case Sender.CurrentChange.ChangeType of
|
|
ctInsert, ctUpdate: begin
|
|
//Si la referencia no ha sido asignada le asignamos una nosotros
|
|
if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then
|
|
begin
|
|
FReferenciaAutomatica := True;
|
|
REFERENCIA := DarReferencia;
|
|
end;
|
|
end;
|
|
end;
|
|
}
|
|
end;
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(BIZ_SERVER_REFERENCIAS, TBizReferenciasServer);
|
|
|
|
end.
|