Tecsitel_FactuGES2/Source/Modulos/Contactos/Model/uBizGruposEmpleado.pas

28 lines
506 B
ObjectPascal

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.