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.