From e3c23e79a93ac407ea8253ba337823c523451a66 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Tue, 4 Sep 2007 17:35:59 +0000
Subject: [PATCH] git-svn-id:
 https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@5
 0c75b7a4-871f-7646-8a2f-f78d34cc349f

---
 .../Model/Data/uIDataModuleEmpleados.pas      | 20 +++++++++++++
 .../Contactos/Model/uBizGruposEmpleado.pas    | 27 +++++++++++++++++
 .../Contactos/Model/uBizGruposProveedor.pas   | 29 +++++++++++++++++++
 3 files changed, 76 insertions(+)
 create mode 100644 Source/Modulos/Contactos/Model/Data/uIDataModuleEmpleados.pas
 create mode 100644 Source/Modulos/Contactos/Model/uBizGruposEmpleado.pas
 create mode 100644 Source/Modulos/Contactos/Model/uBizGruposProveedor.pas

diff --git a/Source/Modulos/Contactos/Model/Data/uIDataModuleEmpleados.pas b/Source/Modulos/Contactos/Model/Data/uIDataModuleEmpleados.pas
new file mode 100644
index 00000000..0835095d
--- /dev/null
+++ b/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.
diff --git a/Source/Modulos/Contactos/Model/uBizGruposEmpleado.pas b/Source/Modulos/Contactos/Model/uBizGruposEmpleado.pas
new file mode 100644
index 00000000..0c106e2a
--- /dev/null
+++ b/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.
+
diff --git a/Source/Modulos/Contactos/Model/uBizGruposProveedor.pas b/Source/Modulos/Contactos/Model/uBizGruposProveedor.pas
new file mode 100644
index 00000000..8e5a6115
--- /dev/null
+++ b/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.
+
+
+