unit uBizGruposEmpleado; interface uses uDAInterfaces, uDADataTable, schContactosClient_Intf; const BIZ_CLIENT_GRUPOSEMPLEADO = 'Client.GrupoEmpleado'; type IBizGrupoEmpleado = interface(IGruposEmpleado) ['{0952BCC8-09B6-4D09-9B5E-26853E159B79}'] end; TBizGrupoEmpleado = class(TGruposEmpleadoDataTableRules, IBizGrupoEmpleado) end; implementation initialization RegisterDataTableRules(BIZ_CLIENT_GRUPOSEMPLEADO, TBizGrupoEmpleado); finalization end.