david
acd17b74cc
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@2 c93665c3-c93d-084d-9b98-7d5f4a9c3376
57 lines
1.5 KiB
ObjectPascal
57 lines
1.5 KiB
ObjectPascal
unit uBizOscAddressBookServer;
|
|
|
|
interface
|
|
|
|
uses
|
|
schTiendaWebServer_Intf, uDAInterfaces,
|
|
uDADataTable, uDABusinessProcessor, uBusinessUtils;
|
|
|
|
const
|
|
BIZ_SERVER_OSC_ADDRESSBOOK = 'Server.OSC.AddressBook';
|
|
|
|
type
|
|
TBizOscAddressBookServer = class(Tosc_CustomersBusinessProcessorRules)
|
|
|
|
protected
|
|
procedure AfterProcessChange(Sender: TDABusinessProcessor;
|
|
aChange: TDADeltaChange; Processed: Boolean;
|
|
var CanRemoveFromDelta: Boolean); override;
|
|
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl,
|
|
schTiendaWebClient_Intf, uROClasses;
|
|
|
|
{ TBizOscAddressBookServer }
|
|
|
|
procedure TBizOscAddressBookServer.AfterProcessChange(Sender: TDABusinessProcessor;
|
|
aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
|
|
var
|
|
ASchema : TDASchema;
|
|
ACurrentConn : IDAConnection;
|
|
ADataset : IDADataset;
|
|
begin
|
|
ASchema := Sender.Schema;
|
|
ACurrentConn := GetBusinessProcessorConnection(Sender);
|
|
|
|
inherited;
|
|
|
|
case aChange.ChangeType of
|
|
ctInsert: begin
|
|
ADataSet := ASchema.NewDataset(ACurrentConn, 'GetLastID', [], [], True);
|
|
aChange.NewValueByName[fld_osc_AddressBookaddress_book_id] := ADataSet.FieldByName('last_id').AsInteger;
|
|
end;
|
|
end;
|
|
|
|
CanRemoveFromDelta := False;
|
|
end;
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(BIZ_SERVER_OSC_ADDRESSBOOK, TBizOscAddressBookServer);
|
|
|
|
end.
|