roberto
57508cf6bd
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@4 f4e31baf-9722-1c47-927c-6f952f962d4b
76 lines
2.4 KiB
ObjectPascal
76 lines
2.4 KiB
ObjectPascal
unit uBizPedidosProveedorServer;
|
|
|
|
interface
|
|
|
|
uses
|
|
uDAInterfaces, uDADelta, uDABusinessProcessor,
|
|
schPedidosProveedorServer_Intf;
|
|
|
|
const
|
|
BIZ_SERVER_PEDIDOS_PROVEEDOR = 'Server.PedidosProveedor';
|
|
REF_PEDIDOS_PROVEEDOR = 'REF_PEDIDOS_PROVEEDOR';
|
|
|
|
type
|
|
TBizPedidosProveedorServer = class(TPedidosProveedorBusinessProcessorRules)
|
|
protected
|
|
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer,
|
|
schPedidosProveedorClient_Intf;
|
|
|
|
{ TBizPedidosProveedorServer }
|
|
|
|
procedure TBizPedidosProveedorServer.BeforeProcessDelta(
|
|
Sender: TDABusinessProcessor; const aDelta: IDADelta);
|
|
var
|
|
ASchema : TDASchema;
|
|
ACurrentConn : IDAConnection;
|
|
dsData: IDADataset;
|
|
Empresa : Variant;
|
|
|
|
begin
|
|
inherited;
|
|
case Sender.CurrentChange.ChangeType of
|
|
ctInsert, ctUpdate: begin
|
|
//Si la referencia no ha sido asignada le asignamos una nosotros
|
|
if (VarIsNull(Sender.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA]))
|
|
or (VarToStr(Sender.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA]) = '') then
|
|
begin
|
|
ASchema := BusinessProcessor.Schema;
|
|
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
|
|
|
try
|
|
//Siempre va a estar rellena
|
|
Empresa := Sender.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA];
|
|
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_PEDIDOS_PROVEEDOR, Empresa]);
|
|
except
|
|
RaiseError('No existe la tabla REFERENCIAS');
|
|
end;
|
|
|
|
dsData.Active := True;
|
|
|
|
if dsData.IsEmpty then
|
|
RaiseError('NO HAY REFERENCIA ' + REF_PEDIDOS_PROVEEDOR + ' DECLARADA EN TABLA REFERENCIAS');
|
|
|
|
REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString;
|
|
|
|
try
|
|
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_PEDIDOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]);
|
|
except
|
|
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(BIZ_SERVER_PEDIDOS_PROVEEDOR, TBizPedidosProveedorServer);
|
|
|
|
end.
|