git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@5 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Modulos/Contactos/Model/Data/uIDataModuleEmpleados.pas

@@ -0,0 +1,20 @@
+unit uIDataModuleEmpleados;
+
+interface
+
+uses
+  uBizContactos, uIDataModuleContactos, uBizGruposEmpleado;
+
+type
+  IDataModuleEmpleados = interface(IDataModuleContactos)
+  ['{42FF228B-C69F-4D45-9E86-A8135D0DB981}']
+    function GetItem(const ID : Integer) : IBizEmpleado;
+    function NewItem : IBizEmpleado;
+    function GetItems : IBizEmpleado;
+    function GetGruposEmpleado : IBizGrupoEmpleado;
+  end;
+
+
+implementation
+
+end.

Source/Modulos/Contactos/Model/uBizGruposEmpleado.pas

@@ -0,0 +1,27 @@
+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.
+

Source/Modulos/Contactos/Model/uBizGruposProveedor.pas

@@ -0,0 +1,29 @@
+unit uBizGruposProveedor;
+
+interface
+
+uses
+  uDAInterfaces, uDADataTable, schContactosClient_Intf;
+
+const
+  BIZ_CLIENT_GRUPOSPROVEEDOR = 'Client.GrupoProveedor';
+
+type
+  IBizGrupoProveedor = interface(IGruposProveedor)
+    ['{2D502FA6-E3D7-4E32-813D-CC5EB554A074}']
+  end;
+
+  TBizGrupoProveedor = class(TGruposProveedorDataTableRules, IBizGrupoProveedor)
+  end;
+
+implementation
+
+initialization
+  RegisterDataTableRules(BIZ_CLIENT_GRUPOSPROVEEDOR, TBizGrupoProveedor);
+
+finalization
+
+end.
+
+
+