roberto
6a0c10c5e6
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@6 40301925-124e-1c4e-b97d-170ad7a8785b
109 lines
3.3 KiB
ObjectPascal
109 lines
3.3 KiB
ObjectPascal
unit uBizPresupuestosClienteServer;
|
|
|
|
interface
|
|
|
|
uses
|
|
uDAInterfaces, uDADelta, uDABusinessProcessor,
|
|
schPresupuestosClienteServer_Intf;
|
|
|
|
const
|
|
BIZ_SERVER_PRESUPUESTOS_CLIENTE = 'Server.PresupuestosCliente';
|
|
|
|
type
|
|
TBizPresupuestosClienteServer = class(TPresupuestosClienteBusinessProcessorRules)
|
|
private
|
|
FReferenciaAutomatica : Boolean;
|
|
function DarReferencia : String;
|
|
function IncrementarReferencia : Boolean;
|
|
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,
|
|
schPresupuestosClienteClient_Intf, FactuGES_Intf, uROServer, SysUtils;
|
|
|
|
const
|
|
REF_PRESUPUESTOS_CLIENTE = 'REF_PRESUPUESTOS_CLIENTE';
|
|
|
|
{ TBizPresupuestosClienteServer }
|
|
|
|
procedure TBizPresupuestosClienteServer.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
|
|
if FReferenciaAutomatica then
|
|
begin
|
|
IncrementarReferencia;
|
|
FReferenciaAutomatica := False;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TBizPresupuestosClienteServer.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;
|
|
|
|
function TBizPresupuestosClienteServer.DarReferencia: String;
|
|
var
|
|
AReferenciasService : IsrvReferencias;
|
|
Intf : IInterface;
|
|
AClientID : TGUID;
|
|
ACodigoReferencia : String;
|
|
begin
|
|
ACodigoReferencia := REF_PRESUPUESTOS_CLIENTE;
|
|
CreateGUID(AClientID);
|
|
|
|
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
|
AReferenciasService := Intf as IsrvReferencias;
|
|
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1, ID_TIENDA)
|
|
end;
|
|
|
|
function TBizPresupuestosClienteServer.IncrementarReferencia: Boolean;
|
|
var
|
|
AReferenciasService : IsrvReferencias;
|
|
Intf : IInterface;
|
|
AClientID : TGUID;
|
|
ACodigoReferencia : String;
|
|
begin
|
|
ACodigoReferencia := REF_PRESUPUESTOS_CLIENTE;
|
|
CreateGUID(AClientID);
|
|
|
|
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
|
AReferenciasService := Intf as IsrvReferencias;
|
|
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1, ID_TIENDA)
|
|
end;
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(BIZ_SERVER_PRESUPUESTOS_CLIENTE, TBizPresupuestosClienteServer);
|
|
|
|
end.
|