unit uBizDiario; interface uses uDAInterfaces, uDADataTable, schContabilidadClient_Intf, uBizApuntes; const BIZ_CLIENT_Diario = 'Client.Diario'; type IBizDiario = interface(IDiario) ['{E2924908-0B5A-43DD-B03E-672F592FA19B}'] end; TBizDiario = class(TDiarioDataTableRules, IBizDiario) end; implementation { TBizDiario } initialization RegisterDataTableRules(BIZ_CLIENT_Diario, TBizDiario); finalization end.