roberto
0f266dfbec
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@219 f4e31baf-9722-1c47-927c-6f952f962d4b
47 lines
1.1 KiB
ObjectPascal
47 lines
1.1 KiB
ObjectPascal
unit uBizAsientosServer;
|
|
|
|
interface
|
|
|
|
uses
|
|
uDAInterfaces, uDADelta, uDABusinessProcessor,
|
|
schContabilidadServer_Intf;
|
|
|
|
const
|
|
BIZ_SERVER_ASIENTOS = 'Server.Asientos';
|
|
|
|
type
|
|
TBizAsientosServer = class(TAsientosBusinessProcessorRules)
|
|
protected
|
|
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uDAClasses, uBusinessUtils, uROClasses, uDataModuleServer,
|
|
srvContabilidad_Impl;
|
|
|
|
{ TBizAsientosServer }
|
|
|
|
procedure TBizAsientosServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta);
|
|
begin
|
|
case Sender.CurrentChange.ChangeType of
|
|
ctInsert, ctUpdate: begin
|
|
//Si el orden del asiento no ha sido asignado le asignamos uno nosotros
|
|
if (ORDENIsNull) or (ORDEN = 0) then
|
|
begin
|
|
with TsrvContabilidad.Create(Nil) do
|
|
begin
|
|
ORDEN := DarNumOrden;
|
|
Free;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(BIZ_SERVER_ASIENTOS, TBizAsientosServer);
|
|
|
|
end.
|