unit uBizOscAddressBookServer;

interface

uses
  schTiendaWebServer_Intf, uDAInterfaces, uDADelta,
  uDADataTable, uDABusinessProcessor, uBusinessUtils;

const
  BIZ_SERVER_OSC_ADDRESSBOOK = 'Server.OSC.AddressBook';

type
  TBizOscAddressBookServer = class(Tosc_CustomersBusinessProcessorRules)
  end;

implementation

uses
  Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl,
  schTiendaWebClient_Intf, uROClasses;

{ TBizOscAddressBookServer }

initialization
  RegisterBusinessProcessorRules(BIZ_SERVER_OSC_ADDRESSBOOK, TBizOscAddressBookServer);

end.