31 lines
514 B
ObjectPascal
31 lines
514 B
ObjectPascal
unit uBizEDILog;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDAInterfaces,
|
|
DataAbstract3_Intf, uROTypes, schEDILogClient_Intf;
|
|
|
|
const
|
|
BIZ_EDILOG = 'Client.EDILog';
|
|
|
|
|
|
type
|
|
IBizEDILog = interface(IEDILog)
|
|
['{EED6A5BD-DC2A-4233-8097-5D212264CA22}']
|
|
end;
|
|
|
|
TBizEDILogDataTableRules = class(TEDILogDataTableRules, IBizEDILog)
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
initialization
|
|
RegisterDataTableRules(BIZ_EDILOG, TBizEDILogDataTableRules);
|
|
|
|
finalization
|
|
|
|
end.
|
|
|