Arreglo de articulos para que puedan meter fabricante, y puedan duplicar, se habilitan tambien los informes

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

Database/ScriptSinDatos.sql

@@ -1271,6 +1271,7 @@ CREATE VIEW V_ARTICULOS(
     ID_EMPRESA,
     REFERENCIA,
     DESCRIPCION,
+    UNIDAD_MEDIDA,
     FAMILIA,
     IMAGEN,
     COMISIONABLE,
@@ -1285,10 +1286,12 @@ CREATE VIEW V_ARTICULOS(
     INVENTARIABLE,
     ID_PROVEEDOR,
     NOMBRE_PROVEEDOR,
-    ELIMINADO)
+    ELIMINADO,
+    FABRICANTE)
 AS
 SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
-       ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA,
+       ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, 
+	   ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA,
        ARTICULOS.FECHA_MODIFICACION, ARTICULOS.USUARIO,
        ARTICULOS.REFERENCIA_PROV,
        ARTICULOS.PRECIO_COSTE,
@@ -1298,7 +1301,8 @@ SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCR
        ARTICULOS.INVENTARIABLE,
        ARTICULOS.ID_PROVEEDOR,
        CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR,
-       ARTICULOS.ELIMINADO
+       ARTICULOS.ELIMINADO,
+       ARTICULOS.FABRICANTE
 FROM ARTICULOS
 LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR)
 WHERE (ARTICULOS.ELIMINADO = 0)

Source/Cliente/uBootStrap.pas

@@ -24,6 +24,7 @@ begin
     LoadModule('FormasPago_plugin.bpl');
     LoadModule('TiposIVA_plugin.bpl');
     LoadModule('Familias_plugin.bpl');
+    LoadModule('Fabricantes_plugin.bpl');    
     LoadModule('UnidadesMedida_plugin.bpl');
 
     LoadModule('Contactos_plugin.bpl');

Source/Modulos/Articulos/Articulos_Group.groupproj

@@ -8,6 +8,7 @@
     <Projects Include="..\..\Base\Base.dproj" />
     <Projects Include="..\..\Cliente\FactuGES.dproj" />
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
+    <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
     <Projects Include="Controller\Articulos_controller.dproj" />
     <Projects Include="Data\Articulos_data.dproj" />
@@ -111,14 +112,23 @@
   <Target Name="FactuGES:Make">
     <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
   </Target>
+  <Target Name="FactuGES_Server">
+    <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="FactuGES_Server:Clean">
+    <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FactuGES_Server:Make">
+    <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm

@@ -144,6 +144,11 @@ inherited DataModuleArticulos: TDataModuleArticulos
         Name = 'ELIMINADO'
         DataType = datSmallInt
         DisplayLabel = 'Eliminado'
+      end
+      item
+        Name = 'FABRICANTE'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas

@@ -3,14 +3,14 @@ unit schArticulosClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_Articulos = '{6930163F-C204-4661-9B8E-E5EB08652E93}';
+  RID_Articulos = '{042A5C28-35B0-4779-B864-11D70E7E1BD5}';
-  RID_ArticulosParaCliente = '{02961EF0-4BAA-4C29-B66E-E1FCD09DBC15}';
+  RID_ArticulosParaCliente = '{03F3C87A-2A4B-4405-8327-F442AB029B42}';
 
   { Data table names }
   nme_Articulos = 'Articulos';
@@ -37,6 +37,7 @@ const
   fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
   fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
   fld_ArticulosELIMINADO = 'ELIMINADO';
+  fld_ArticulosFABRICANTE = 'FABRICANTE';
 
   { Articulos field indexes }
   idx_ArticulosID = 0;
@@ -59,12 +60,14 @@ const
   idx_ArticulosID_PROVEEDOR = 17;
   idx_ArticulosNOMBRE_PROVEEDOR = 18;
   idx_ArticulosELIMINADO = 19;
+  idx_ArticulosFABRICANTE = 20;
 
   { ArticulosParaCliente fields }
   fld_ArticulosParaClienteID = 'ID';
   fld_ArticulosParaClienteID_EMPRESA = 'ID_EMPRESA';
   fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA';
   fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION';
+  fld_ArticulosParaClienteFABRICANTE = 'FABRICANTE';
   fld_ArticulosParaClienteUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
   fld_ArticulosParaClienteFAMILIA = 'FAMILIA';
   fld_ArticulosParaClienteIMAGEN = 'IMAGEN';
@@ -87,27 +90,28 @@ const
   idx_ArticulosParaClienteID_EMPRESA = 1;
   idx_ArticulosParaClienteREFERENCIA = 2;
   idx_ArticulosParaClienteDESCRIPCION = 3;
-  idx_ArticulosParaClienteUNIDAD_MEDIDA = 4;
+  idx_ArticulosParaClienteFABRICANTE = 4;
-  idx_ArticulosParaClienteFAMILIA = 5;
+  idx_ArticulosParaClienteUNIDAD_MEDIDA = 5;
-  idx_ArticulosParaClienteIMAGEN = 6;
+  idx_ArticulosParaClienteFAMILIA = 6;
-  idx_ArticulosParaClienteCOMISIONABLE = 7;
+  idx_ArticulosParaClienteIMAGEN = 7;
-  idx_ArticulosParaClienteFECHA_ALTA = 8;
+  idx_ArticulosParaClienteCOMISIONABLE = 8;
-  idx_ArticulosParaClienteFECHA_MODIFICACION = 9;
+  idx_ArticulosParaClienteFECHA_ALTA = 9;
-  idx_ArticulosParaClienteUSUARIO = 10;
+  idx_ArticulosParaClienteFECHA_MODIFICACION = 10;
-  idx_ArticulosParaClienteREFERENCIA_PROV = 11;
+  idx_ArticulosParaClienteUSUARIO = 11;
-  idx_ArticulosParaClientePRECIO_COSTE = 12;
+  idx_ArticulosParaClienteREFERENCIA_PROV = 12;
-  idx_ArticulosParaClientePRECIO_PORTE = 13;
+  idx_ArticulosParaClientePRECIO_COSTE = 13;
-  idx_ArticulosParaClienteDESCUENTO = 14;
+  idx_ArticulosParaClientePRECIO_PORTE = 14;
-  idx_ArticulosParaClientePRECIO_NETO = 15;
+  idx_ArticulosParaClienteDESCUENTO = 15;
-  idx_ArticulosParaClienteINVENTARIABLE = 16;
+  idx_ArticulosParaClientePRECIO_NETO = 16;
-  idx_ArticulosParaClienteID_PROVEEDOR = 17;
+  idx_ArticulosParaClienteINVENTARIABLE = 17;
-  idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 18;
+  idx_ArticulosParaClienteID_PROVEEDOR = 18;
-  idx_ArticulosParaClienteELIMINADO = 19;
+  idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 19;
+  idx_ArticulosParaClienteELIMINADO = 20;
 
 type
   { IArticulos }
   IArticulos = interface(IDAStronglyTypedDataTable)
-  ['{0E1C6D96-6382-45DF-8992-448C25CF4CED}']
+  ['{F1DCC683-41C3-4835-A07F-DD9F276298F0}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -188,6 +192,10 @@ type
     procedure SetELIMINADOValue(const aValue: SmallInt);
     function GetELIMINADOIsNull: Boolean;
     procedure SetELIMINADOIsNull(const aValue: Boolean);
+    function GetFABRICANTEValue: String;
+    procedure SetFABRICANTEValue(const aValue: String);
+    function GetFABRICANTEIsNull: Boolean;
+    procedure SetFABRICANTEIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -231,10 +239,12 @@ type
     property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
     property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
     property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
+    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
+    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
   end;
 
   { TArticulosDataTableRules }
-  TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos)
+  TArticulosDataTableRules = class(TDADataTableRules, IArticulos)
   private
     f_IMAGEN: IROStream;
     procedure IMAGEN_OnChange(Sender: TObject);
@@ -319,6 +329,10 @@ type
     procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
     function GetELIMINADOIsNull: Boolean; virtual;
     procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
+    function GetFABRICANTEValue: String; virtual;
+    procedure SetFABRICANTEValue(const aValue: String); virtual;
+    function GetFABRICANTEIsNull: Boolean; virtual;
+    procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -361,6 +375,8 @@ type
     property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
     property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
     property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
+    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
+    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -370,7 +386,7 @@ type
 
   { IArticulosParaCliente }
   IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
-  ['{82CAF5F9-F5A9-4A0D-9FBB-6229D32300DA}']
+  ['{5615D828-ACE3-4839-B434-1E1EFC9454E5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -388,6 +404,10 @@ type
     procedure SetDESCRIPCIONValue(const aValue: String);
     function GetDESCRIPCIONIsNull: Boolean;
     procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+    function GetFABRICANTEValue: String;
+    procedure SetFABRICANTEValue(const aValue: String);
+    function GetFABRICANTEIsNull: Boolean;
+    procedure SetFABRICANTEIsNull(const aValue: Boolean);
     function GetUNIDAD_MEDIDAValue: String;
     procedure SetUNIDAD_MEDIDAValue(const aValue: String);
     function GetUNIDAD_MEDIDAIsNull: Boolean;
@@ -462,6 +482,8 @@ type
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
+    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
     property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
     property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
@@ -497,7 +519,7 @@ type
   end;
 
   { TArticulosParaClienteDataTableRules }
-  TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente)
+  TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente)
   private
     f_IMAGEN: IROStream;
     procedure IMAGEN_OnChange(Sender: TObject);
@@ -519,6 +541,10 @@ type
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
     function GetDESCRIPCIONIsNull: Boolean; virtual;
     procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+    function GetFABRICANTEValue: String; virtual;
+    procedure SetFABRICANTEValue(const aValue: String); virtual;
+    function GetFABRICANTEIsNull: Boolean; virtual;
+    procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
     function GetUNIDAD_MEDIDAValue: String; virtual;
     procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
     function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
@@ -592,6 +618,8 @@ type
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
+    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
     property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
     property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
@@ -1077,6 +1105,27 @@ begin
     DataTable.Fields[idx_ArticulosELIMINADO].AsVariant := Null;
 end;
 
+function TArticulosDataTableRules.GetFABRICANTEValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosFABRICANTE].AsString;
+end;
+
+procedure TArticulosDataTableRules.SetFABRICANTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosFABRICANTE].AsString := aValue;
+end;
+
+function TArticulosDataTableRules.GetFABRICANTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosFABRICANTE].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosFABRICANTE].AsVariant := Null;
+end;
+
 
 { TArticulosParaClienteDataTableRules }
 constructor TArticulosParaClienteDataTableRules.Create(aDataTable: TDADataTable);
@@ -1184,6 +1233,27 @@ begin
     DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsVariant := Null;
 end;
 
+function TArticulosParaClienteDataTableRules.GetFABRICANTEValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsString;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetFABRICANTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsString := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetFABRICANTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsVariant := Null;
+end;
+
 function TArticulosParaClienteDataTableRules.GetUNIDAD_MEDIDAValue: String;
 begin
   result := DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].AsString;

Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas

@@ -9,13 +9,13 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ArticulosDelta = '{A56987C7-0587-447A-80F8-44F882CC1326}';
+  RID_ArticulosDelta = '{4E74F5A8-5A74-41F9-B8A9-7DF2C8AA2A5A}';
-  RID_ArticulosParaClienteDelta = '{4BF57D32-A849-47E2-9AC3-81691DC7B0CA}';
+  RID_ArticulosParaClienteDelta = '{AD7097E1-071E-4496-8F43-216E98BC8F47}';
 
 type
   { IArticulosDelta }
   IArticulosDelta = interface(IArticulos)
-  ['{A56987C7-0587-447A-80F8-44F882CC1326}']
+  ['{4E74F5A8-5A74-41F9-B8A9-7DF2C8AA2A5A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -37,6 +37,7 @@ type
     function GetOldID_PROVEEDORValue : Integer;
     function GetOldNOMBRE_PROVEEDORValue : String;
     function GetOldELIMINADOValue : SmallInt;
+    function GetOldFABRICANTEValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -59,6 +60,7 @@ type
     property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
     property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
     property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
+    property OldFABRICANTE : String read GetOldFABRICANTEValue;
   end;
 
   { TArticulosBusinessProcessorRules }
@@ -187,6 +189,12 @@ type
     function GetOldELIMINADOIsNull: Boolean; virtual;
     procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
     procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
+    function GetFABRICANTEValue: String; virtual;
+    function GetFABRICANTEIsNull: Boolean; virtual;
+    function GetOldFABRICANTEValue: String; virtual;
+    function GetOldFABRICANTEIsNull: Boolean; virtual;
+    procedure SetFABRICANTEValue(const aValue: String); virtual;
+    procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -269,6 +277,10 @@ type
     property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
     property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
     property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull;
+    property FABRICANTE : String read GetFABRICANTEValue write SetFABRICANTEValue;
+    property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
+    property OldFABRICANTE : String read GetOldFABRICANTEValue;
+    property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -278,12 +290,13 @@ type
 
   { IArticulosParaClienteDelta }
   IArticulosParaClienteDelta = interface(IArticulosParaCliente)
-  ['{4BF57D32-A849-47E2-9AC3-81691DC7B0CA}']
+  ['{AD7097E1-071E-4496-8F43-216E98BC8F47}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
     function GetOldREFERENCIAValue : String;
     function GetOldDESCRIPCIONValue : String;
+    function GetOldFABRICANTEValue : String;
     function GetOldUNIDAD_MEDIDAValue : String;
     function GetOldFAMILIAValue : String;
     function GetOldIMAGENValue : IROStream;
@@ -306,6 +319,7 @@ type
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldFABRICANTE : String read GetOldFABRICANTEValue;
     property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
     property OldFAMILIA : String read GetOldFAMILIAValue;
     property OldIMAGEN : IROStream read GetOldIMAGENValue;
@@ -355,6 +369,12 @@ type
     function GetOldDESCRIPCIONIsNull: Boolean; virtual;
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
     procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+    function GetFABRICANTEValue: String; virtual;
+    function GetFABRICANTEIsNull: Boolean; virtual;
+    function GetOldFABRICANTEValue: String; virtual;
+    function GetOldFABRICANTEIsNull: Boolean; virtual;
+    procedure SetFABRICANTEValue(const aValue: String); virtual;
+    procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
     function GetUNIDAD_MEDIDAValue: String; virtual;
     function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
     function GetOldUNIDAD_MEDIDAValue: String; virtual;
@@ -468,6 +488,10 @@ type
     property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
     property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+    property FABRICANTE : String read GetFABRICANTEValue write SetFABRICANTEValue;
+    property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
+    property OldFABRICANTE : String read GetOldFABRICANTEValue;
+    property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull;
     property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
     property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
@@ -1187,6 +1211,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO] := Null;
 end;
 
+function TArticulosBusinessProcessorRules.GetFABRICANTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE];
+end;
+
+function TArticulosBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldFABRICANTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFABRICANTE];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFABRICANTE]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := Null;
+end;
+
 
 { TArticulosParaClienteBusinessProcessorRules }
 constructor TArticulosParaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1334,6 +1389,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION] := Null;
 end;
 
+function TArticulosParaClienteBusinessProcessorRules.GetFABRICANTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldFABRICANTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFABRICANTE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFABRICANTE]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE] := Null;
+end;
+
 function TArticulosParaClienteBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUNIDAD_MEDIDA];

Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm

@@ -209,6 +209,10 @@ object srvArticulos: TsrvArticulos
               item
                 DatasetField = 'UNIDAD_MEDIDA'
                 TableField = 'UNIDAD_MEDIDA'
+              end
+              item
+                DatasetField = 'FABRICANTE'
+                TableField = 'FABRICANTE'
               end>
           end>
         Name = 'Articulos'
@@ -320,6 +324,11 @@ object srvArticulos: TsrvArticulos
             Name = 'ELIMINADO'
             DataType = datSmallInt
             DisplayLabel = 'Eliminado'
+          end
+          item
+            Name = 'FABRICANTE'
+            DataType = datString
+            Size = 255
           end>
       end
       item
@@ -335,18 +344,19 @@ object srvArticulos: TsrvArticulos
             TargetTable = 'ARTICULOS'
             SQL = 
               'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
-              'ENCIA, V_ARTICULOS.DESCRIPCION,'#10'       V_ARTICULOS.UNIDAD_MEDIDA' +
+              'ENCIA, V_ARTICULOS.DESCRIPCION,'#10'       V_ARTICULOS.FABRICANTE,'#10' ' +
-              ','#10'       V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.CO' +
+              '      V_ARTICULOS.UNIDAD_MEDIDA,'#10'       V_ARTICULOS.FAMILIA, V_A' +
-              'MISIONABLE, V_ARTICULOS.FECHA_ALTA,'#10'       V_ARTICULOS.FECHA_MOD' +
+              'RTICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALT' +
-              'IFICACION, V_ARTICULOS.USUARIO,'#10'       V_ARTICULOS.REFERENCIA_PR' +
+              'A,'#10'       V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' +
-              'OV,'#10'       V_ARTICULOS.PRECIO_COSTE,'#10'       V_ARTICULOS.PRECIO_P' +
+              '      V_ARTICULOS.REFERENCIA_PROV,'#10'       V_ARTICULOS.PRECIO_COS' +
-              'ORTE,'#10'       CLIENTES_DTOS_PROVEEDORES.DESCUENTO,'#10'       V_ARTIC' +
+              'TE,'#10'       V_ARTICULOS.PRECIO_PORTE,'#10'       CLIENTES_DTOS_PROVEE' +
-              'ULOS.PRECIO_NETO,'#10'       V_ARTICULOS.INVENTARIABLE,'#10'       V_ART' +
+              'DORES.DESCUENTO,'#10'       V_ARTICULOS.PRECIO_NETO,'#10'       V_ARTICU' +
-              'ICULOS.ID_PROVEEDOR,'#10'       V_ARTICULOS.NOMBRE_PROVEEDOR,'#10'      ' +
+              'LOS.INVENTARIABLE,'#10'       V_ARTICULOS.ID_PROVEEDOR,'#10'       V_ART' +
-              ' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIENTES' +
+              'ICULOS.NOMBRE_PROVEEDOR,'#10'       V_ARTICULOS.ELIMINADO'#10'FROM V_ART' +
-              '_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = ' +
+              'ICULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_D' +
-              'V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIE' +
+              'TOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CL' +
-              'NTE = :ID_CLIENTE))'#10'where {where}'#10
+              'IENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10'where {where}' +
+              #10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -429,6 +439,10 @@ object srvArticulos: TsrvArticulos
               item
                 DatasetField = 'UNIDAD_MEDIDA'
                 TableField = 'UNIDAD_MEDIDA'
+              end
+              item
+                DatasetField = 'FABRICANTE'
+                TableField = 'FABRICANTE'
               end>
           end>
         Name = 'ArticulosParaCliente'
@@ -452,6 +466,11 @@ object srvArticulos: TsrvArticulos
             DataType = datString
             Size = 255
           end
+          item
+            Name = 'FABRICANTE'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'UNIDAD_MEDIDA'
             DataType = datString
@@ -605,6 +624,10 @@ object srvArticulos: TsrvArticulos
           item
             Name = 'ELIMINADO'
             Value = ''
+          end
+          item
+            Name = 'FABRICANTE'
+            Value = ''
           end>
         Statements = <
           item
@@ -615,11 +638,12 @@ object srvArticulos: TsrvArticulos
               'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10'     COMISIONABLE, FECHA_A' +
               'LTA, FECHA_MODIFICACION, USUARIO, '#10'     PRECIO_COSTE, PRECIO_POR' +
               'TE, DESCUENTO, ID_PROVEEDOR, '#10'     PRECIO_NETO, REFERENCIA_PROV,' +
-              ' INVENTARIABLE, ELIMINADO)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :REFE' +
+              ' INVENTARIABLE, ELIMINADO, FABRICANTE)'#10'  VALUES'#10'    (:ID, :ID_EM' +
-              'RENCIA, :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10'     :IMAGEN, :C' +
+              'PRESA, :REFERENCIA, :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10'    ' +
-              'OMISIONABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10'     :USUARIO, :' +
+              ' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10'    ' +
-              'PRECIO_COSTE, :PRECIO_PORTE, :DESCUENTO, '#10'     :ID_PROVEEDOR, :P' +
+              ' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, :DESCUENTO, '#10'     :ID_P' +
-              'RECIO_NETO, :REFERENCIA_PROV,'#10'     :INVENTARIABLE, :ELIMINADO)'#10
+              'ROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,'#10'     :INVENTARIABLE, :' +
+              'ELIMINADO, :FABRICANTE)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -717,6 +741,10 @@ object srvArticulos: TsrvArticulos
             Name = 'ELIMINADO'
             Value = ''
           end
+          item
+            Name = 'FABRICANTE'
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -735,7 +763,8 @@ object srvArticulos: TsrvArticulos
               'O_PORTE = :PRECIO_PORTE, '#10'    DESCUENTO = :DESCUENTO, '#10'    ID_PR' +
               'OVEEDOR = :ID_PROVEEDOR, '#10'    PRECIO_NETO = :PRECIO_NETO,'#10'    IN' +
               'VENTARIABLE = :INVENTARIABLE,'#10'    REFERENCIA_PROV = :REFERENCIA_' +
-              'PROV,'#10'    ELIMINADO = :ELIMINADO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
+              'PROV,'#10'    ELIMINADO = :ELIMINADO,'#10'    FABRICANTE = :FABRICANTE'#10' ' +
+              ' WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Articulos/Views/Articulos_view.dpk

@@ -30,7 +30,8 @@ requires
   Articulos_controller,
   Familias_controller,
   UnidadesMedida_controller,
-  Contactos_view;
+  Contactos_view,
+  Fabricantes_controller;
 
 contains
   uViewArticulos in 'uViewArticulos.pas' {frViewArticulos: TFrame},

Source/Modulos/Articulos/Views/Articulos_view.dproj

@@ -54,12 +54,13 @@
     <DelphiCompile Include="Articulos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Contactos\Model\Articulos_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\Contactos\Model\Articulos_model.dcp" />
+    <DCCReference Include="..\..\Lib\Articulos_model.dcp" />
-    <DCCReference Include="..\..\Contactos\Model\Contactos_view.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
-    <DCCReference Include="..\..\Contactos\Model\Familias_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Fabricantes_controller.dcp" />
-    <DCCReference Include="..\..\Contactos\Model\GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\Familias_controller.dcp" />
-    <DCCReference Include="..\..\Contactos\Model\UnidadesMedida_controller.dcp" />
+    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\UnidadesMedida_controller.dcp" />
     <DCCReference Include="uArticulosViewRegister.pas" />
     <DCCReference Include="uEditorArticulo.pas">
       <Form>fEditorArticulo</Form>

Source/Modulos/Articulos/Views/uEditorArticulos.pas

@@ -85,10 +85,7 @@ end;
 
 procedure TfEditorArticulos.ImprimirInterno;
 begin
-  AppFactuGES.ShowCapado;
-{
   inherited;
-}
 end;
 
 procedure TfEditorArticulos.ModificarInterno;
@@ -114,10 +111,7 @@ end;
 
 procedure TfEditorArticulos.PrevisualizarInterno;
 begin
-AppFactuGES.ShowCapado;
-{
   inherited;
-}
 end;
 
 procedure TfEditorArticulos.SetArticulos(const Value: IBizArticulo);
@@ -144,8 +138,6 @@ procedure TfEditorArticulos.DuplicarInterno;
 var
   AArticulo : IBizArticulo;
 begin
-  AppFactuGES.ShowCapado;
-{
   inherited;
   AArticulo := FController.Duplicar(Articulos);
   try
@@ -153,7 +145,6 @@ begin
   finally
     actRefrescar.Execute;
   end;
-}  
 end;
 
 procedure TfEditorArticulos.EliminarInterno;

Source/Modulos/Articulos/Views/uViewArticulo.dfm

@@ -1,6 +1,6 @@
 inherited frViewArticulo: TfrViewArticulo
-  Width = 451
+  Width = 649
-  Height = 304
+  Height = 426
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -10,17 +10,18 @@ inherited frViewArticulo: TfrViewArticulo
   object dxLayoutControlArticulo: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 451
+    Width = 649
     Height = 393
     Align = alTop
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth]
+    ExplicitWidth = 451
     DesignSize = (
-      451
+      649
       393)
     object PngSpeedButton2: TPngSpeedButton
-      Left = 546
+      Left = 588
       Top = 28
       Width = 23
       Height = 22
@@ -47,7 +48,7 @@ inherited frViewArticulo: TfrViewArticulo
       PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
     end
     object PngSpeedButton1: TPngSpeedButton
-      Left = 546
+      Left = 588
       Top = 56
       Width = 23
       Height = 22
@@ -97,7 +98,7 @@ inherited frViewArticulo: TfrViewArticulo
     end
     object eNoComisionable: TcxDBCheckBox
       Left = 103
-      Top = 109
+      Top = 136
       Caption = 'Art'#237'culo no comisionable'
       DataBinding.DataField = 'COMISIONABLE'
       DataBinding.DataSource = dsViewArticulo
@@ -116,11 +117,11 @@ inherited frViewArticulo: TfrViewArticulo
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 4
+      TabOrder = 5
       Width = 144
     end
     object eImagen: TcxImage
-      Left = 437
+      Left = 468
       Top = 28
       Properties.GraphicClassName = 'TJPEGImage'
       Properties.ImmediatePost = True
@@ -137,7 +138,7 @@ inherited frViewArticulo: TfrViewArticulo
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 6
+      TabOrder = 7
       Height = 100
       Width = 140
     end
@@ -166,8 +167,8 @@ inherited frViewArticulo: TfrViewArticulo
       Width = 162
     end
     inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
-      Left = 219
+      Left = 261
-      Top = 166
+      Top = 193
       Width = 350
       Height = 202
       Font.Charset = DEFAULT_CHARSET
@@ -176,10 +177,10 @@ inherited frViewArticulo: TfrViewArticulo
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 12
+      TabOrder = 13
       ReadOnly = False
-      ExplicitLeft = 219
+      ExplicitLeft = 261
-      ExplicitTop = 166
+      ExplicitTop = 193
       inherited dxLayoutControl1: TdxLayoutControl
         inherited edtNIFCIF: TcxDBTextEdit
           ExplicitWidth = 562
@@ -201,7 +202,7 @@ inherited frViewArticulo: TfrViewArticulo
     end
     object eReferenciaProv: TcxDBTextEdit
       Left = 103
-      Top = 166
+      Top = 193
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'REFERENCIA_PROV'
       DataBinding.DataSource = dsViewArticulo
@@ -213,12 +214,12 @@ inherited frViewArticulo: TfrViewArticulo
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 7
+      TabOrder = 8
       Width = 86
     end
     object ePrecioCoste: TcxDBCurrencyEdit
       Left = 103
-      Top = 193
+      Top = 220
       DataBinding.DataField = 'PRECIO_COSTE'
       DataBinding.DataSource = dsViewArticulo
       Properties.Alignment.Horz = taRightJustify
@@ -233,12 +234,12 @@ inherited frViewArticulo: TfrViewArticulo
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 8
+      TabOrder = 9
       Width = 86
     end
     object eDescuento: TcxDBSpinEdit
       Left = 103
-      Top = 220
+      Top = 247
       DataBinding.DataField = 'DESCUENTO'
       DataBinding.DataSource = dsViewArticulo
       Properties.Alignment.Horz = taRightJustify
@@ -256,12 +257,12 @@ inherited frViewArticulo: TfrViewArticulo
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 9
+      TabOrder = 10
       Width = 86
     end
     object ePrecioNeto: TcxDBCurrencyEdit
       Left = 103
-      Top = 247
+      Top = 274
       DataBinding.DataField = 'PRECIO_NETO'
       DataBinding.DataSource = dsViewArticulo
       Enabled = False
@@ -281,12 +282,12 @@ inherited frViewArticulo: TfrViewArticulo
       StyleFocused.TextColor = clWindowText
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 10
+      TabOrder = 11
       Width = 86
     end
     object ePrecioPorte: TcxDBCurrencyEdit
       Left = 103
-      Top = 274
+      Top = 301
       DataBinding.DataField = 'PRECIO_PORTE'
       DataBinding.DataSource = dsViewArticulo
       Properties.Alignment.Horz = taRightJustify
@@ -301,11 +302,11 @@ inherited frViewArticulo: TfrViewArticulo
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 11
+      TabOrder = 12
       Width = 86
     end
     object cbNoInventariable: TcxDBCheckBox
-      Left = 259
+      Left = 253
       Top = 109
       Caption = 'Art'#237'culo no inventariable'
       DataBinding.DataField = 'INVENTARIABLE'
@@ -325,11 +326,11 @@ inherited frViewArticulo: TfrViewArticulo
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 5
+      TabOrder = 6
       Width = 144
     end
     object cbUnidadMedida: TcxDBComboBox
-      Left = 292
+      Left = 307
       Top = 82
       DataBinding.DataField = 'UNIDAD_MEDIDA'
       DataBinding.DataSource = dsViewArticulo
@@ -352,6 +353,30 @@ inherited frViewArticulo: TfrViewArticulo
       TabOrder = 3
       Width = 164
     end
+    object cbFabricante: TcxDBComboBox
+      Left = 103
+      Top = 109
+      DataBinding.DataField = 'FABRICANTE'
+      DataBinding.DataSource = dsViewArticulo
+      Properties.DropDownRows = 16
+      Properties.ImmediatePost = True
+      Properties.OnInitPopup = cbFabricantePropertiesInitPopup
+      Properties.OnValidate = cbFabricantePropertiesValidate
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 4
+      Width = 127
+    end
     object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -413,12 +438,23 @@ inherited frViewArticulo: TfrViewArticulo
                 Hidden = True
                 LayoutDirection = ldHorizontal
                 ShowBorder = False
-                object dxLayoutControlArticuloItem1: TdxLayoutItem
+                object dxLayoutControlArticuloGroup10: TdxLayoutGroup
-                  AutoAligns = [aaVertical]
+                  ShowCaption = False
-                  AlignHorz = ahClient
+                  Hidden = True
-                  Caption = ' '
+                  ShowBorder = False
-                  Control = eNoComisionable
+                  object dxLayoutControlArticuloItem10: TdxLayoutItem
-                  ControlOptions.ShowBorder = False
+                    Caption = 'Fabricante:'
+                    Control = cbFabricante
+                    ControlOptions.ShowBorder = False
+                  end
+                  object dxLayoutControlArticuloItem1: TdxLayoutItem
+                    AutoAligns = [aaVertical]
+                    AlignHorz = ahClient
+                    Caption = ' '
+                    Visible = False
+                    Control = eNoComisionable
+                    ControlOptions.ShowBorder = False
+                  end
                 end
                 object dxLayoutControlArticuloItem7: TdxLayoutItem
                   AutoAligns = [aaVertical]

Source/Modulos/Articulos/Views/uViewArticulo.pas

@@ -10,7 +10,7 @@ uses
   cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList,
   ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
   uFamiliasController, uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit,
-  uArticulosController, uUnidadesMedidaController, uDAInterfaces;
+  uArticulosController, uUnidadesMedidaController, uFabricantesController, uDAInterfaces;
 
 type
   IViewArticulo = interface(IViewBase)
@@ -74,6 +74,9 @@ type
     dxLayoutControlArticuloItem9: TdxLayoutItem;
     cbUnidadMedida: TcxDBComboBox;
     dxLayoutControlArticuloGroup9: TdxLayoutGroup;
+    dxLayoutControlArticuloItem10: TdxLayoutItem;
+    cbFabricante: TcxDBComboBox;
+    dxLayoutControlArticuloGroup10: TdxLayoutGroup;
     procedure actEliminarExecute(Sender: TObject);
     procedure actAnadirExecute(Sender: TObject);
     procedure cbFamiliaPropertiesInitPopup(Sender: TObject);
@@ -86,12 +89,16 @@ type
     procedure cbUnidadMedidaPropertiesInitPopup(Sender: TObject);
     procedure cbUnidadMedidaPropertiesValidate(Sender: TObject;
       var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+    procedure cbFabricantePropertiesInitPopup(Sender: TObject);
+    procedure cbFabricantePropertiesValidate(Sender: TObject;
+      var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
   private
     procedure CargarImagen;
     procedure SalvarImagen;
   protected
     FFamiliasController: IFamiliasController;
     FUnidadesController: IUnidadesMedidaController;
+    FFabricantesController: IFabricantesController;    
     FController: IArticulosController;
     FArticulo: IBizArticulo;
     function GetArticulo: IBizArticulo;
@@ -108,7 +115,7 @@ implementation
 
 uses
   uDataModuleArticulos, uSistemaFunc, uBizFamilias, uBizContactos,
-  uBizUnidadesMedida;
+  uBizUnidadesMedida, uBizFabricantes;
 
 {$R *.dfm}
 
@@ -156,6 +163,55 @@ begin
   end;}
 end;
 
+procedure TfrViewArticulo.cbFabricantePropertiesInitPopup(Sender: TObject);
+begin
+  inherited;
+  with cbFabricante.Properties.Items do
+  begin
+    if (Count = 0) then
+    begin
+      ShowHourglassCursor;
+      BeginUpdate;
+      try
+        Clear;
+        AddStrings(FFabricantesController.DarListaFabricantes);
+      finally
+        EndUpdate;
+        HideHourglassCursor;
+      end;
+    end;
+  end;
+end;
+
+procedure TfrViewArticulo.cbFabricantePropertiesValidate(Sender: TObject;
+  var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+var
+  AFabricantes : IBizFabricante;
+begin
+  inherited;
+  with (Sender as TcxDBComboBox) do
+  begin
+    if (Length(DisplayValue) > 0) and (DisplayValue <> FArticulo.FAMILIA) then
+      if Properties.LookupItems.IndexOf(DisplayValue) < 0 then
+      begin
+        ShowHourglassCursor;
+        Properties.LookupItems.BeginUpdate;
+        AFabricantes := FFabricantesController.BuscarTodos;
+        AFabricantes.DataTable.Active := True;
+        try
+          FFabricantesController.Anadir(AFabricantes);
+          AFabricantes.DESCRIPCION := DisplayValue;
+          FFabricantesController.Guardar(AFabricantes);
+          Properties.LookupItems.Add(DisplayValue);
+        finally
+          Properties.LookupItems.EndUpdate;
+          HideHourglassCursor;
+          AFabricantes := NIL;
+        end;
+      end;
+  end;
+end;
+
 procedure TfrViewArticulo.cbFamiliaPropertiesInitPopup(Sender: TObject);
 begin
   inherited;
@@ -259,12 +315,14 @@ begin
   inherited;
   FFamiliasController := TFamiliasController.Create;
   FUnidadesController := TUnidadesMedidaController.Create;
+  FFabricantesController := TFabricantesController.Create;  
 end;
 
 procedure TfrViewArticulo.CustomViewDestroy(Sender: TObject);
 begin
   FFamiliasController := Nil;
   FUnidadesController := NIL;
+  FFabricantesController := NIL;  
   ePrecioCoste.Properties.OnEditValueChanged := Nil;
   eDescuento.Properties.OnEditValueChanged := Nil;
   inherited;

Source/Modulos/Articulos/Views/uViewArticulos.dfm

@@ -1,5 +1,8 @@
 inherited frViewArticulos: TfrViewArticulos
+  Width = 539
+  ExplicitWidth = 539
   inherited cxGrid: TcxGrid
+    Width = 539
     inherited cxGridView: TcxGridDBTableView
       OnMouseMove = cxGridViewMouseMove
       DataController.KeyFieldNames = 'ID'
@@ -74,6 +77,10 @@ inherited frViewArticulos: TfrViewArticulos
         BestFitMaxWidth = 60
         Width = 60
       end
+      object cxGridViewFABRICANTE: TcxGridDBColumn
+        Caption = 'Fabricante'
+        DataBinding.FieldName = 'FABRICANTE'
+      end
       object cxGridViewDESCRIPCION: TcxGridDBColumn
         Caption = 'Descripci'#243'n'
         DataBinding.FieldName = 'DESCRIPCION'
@@ -139,8 +146,10 @@ inherited frViewArticulos: TfrViewArticulos
     end
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
+    Width = 539
     inherited TBXDockablePanel1: TTBXDockablePanel
       inherited dxLayoutControl1: TdxLayoutControl
+        Width = 539
         inherited txtFiltroTodo: TcxTextEdit
           ExplicitWidth = 273
           Width = 273
@@ -150,16 +159,26 @@ inherited frViewArticulos: TfrViewArticulos
           Width = 121
         end
         inherited edtFechaFinFiltro: TcxDateEdit
+          Left = 335
+          ExplicitLeft = 335
           ExplicitWidth = 121
           Width = 121
         end
       end
+      inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+        Width = 539
+        inherited tbxBotones: TTBXToolbar
+          Width = 529
+        end
+      end
     end
   end
   inherited pnlAgrupaciones: TTBXDockablePanel
     Visible = True
     inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+      Width = 539
       inherited TBXToolbar1: TTBXToolbar
+        Width = 529
         object TBXSeparatorItem1: TTBXSeparatorItem
         end
         object TBXItem3: TTBXItem
@@ -170,6 +189,11 @@ inherited frViewArticulos: TfrViewArticulos
         object TBXItem2: TTBXItem
           Action = actProveedor
         end
+        object TBXSeparatorItem3: TTBXSeparatorItem
+        end
+        object TBXItem4: TTBXItem
+          Action = actFabricante
+        end
       end
     end
   end
@@ -192,6 +216,11 @@ inherited frViewArticulos: TfrViewArticulos
       OnExecute = actProveedorExecute
       OnUpdate = actProveedorUpdate
     end
+    object actFabricante: TAction
+      Caption = 'Fabricante'
+      OnExecute = actFabricanteExecute
+      OnUpdate = actFabricanteUpdate
+    end
   end
   inherited PngImageList10: TPngImageList
     Left = 320

Source/Modulos/Articulos/Views/uViewArticulos.pas

@@ -38,6 +38,10 @@ type
     TBXSeparatorItem2: TTBXSeparatorItem;
     cxGridViewINVENTARIABLE: TcxGridDBColumn;
     cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
+    cxGridViewFABRICANTE: TcxGridDBColumn;
+    TBXItem4: TTBXItem;
+    TBXSeparatorItem3: TTBXSeparatorItem;
+    actFabricante: TAction;
     procedure cxGridViewIDCustomDrawCell(
       Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
       AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
@@ -46,6 +50,8 @@ type
     procedure actFamiliaExecute(Sender: TObject);
     procedure actFamiliaUpdate(Sender: TObject);
     procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
+    procedure actFabricanteExecute(Sender: TObject);
+    procedure actFabricanteUpdate(Sender: TObject);
   protected
     FArticulos: IBizArticulo;
     function GetArticulos: IBizArticulo; virtual;
@@ -80,6 +86,26 @@ begin
 end;
 
 
+procedure TfrViewArticulos.actFabricanteExecute(Sender: TObject);
+begin
+  if (cxGridViewFABRICANTE.GroupIndex < 0) then
+  begin
+    cxGridViewFABRICANTE.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewFABRICANTE.Visible := False;
+  end
+  else
+  begin
+    cxGridViewFABRICANTE.GroupIndex := -1;
+    cxGridViewFABRICANTE.Visible := True;
+  end;
+end;
+
+procedure TfrViewArticulos.actFabricanteUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewFABRICANTE.GroupIndex < 0);
+end;
+
 procedure TfrViewArticulos.actFamiliaExecute(Sender: TObject);
 begin
   if (cxGridViewFAMILIA.GroupIndex < 0) then

Source/Modulos/Fabricantes/Controller/Fabricantes_controller.dpk

@@ -0,0 +1,40 @@
+package Fabricantes_controller;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  vcl,
+  Base,
+  GUIBase,
+  ApplicationBase,
+  Fabricantes_data,
+  Fabricantes_model;
+
+contains
+  uFabricantesController in 'uFabricantesController.pas',
+  uIEditorFabricantes in 'View\uIEditorFabricantes.pas';
+
+end.

Source/Modulos/Fabricantes/Controller/Fabricantes_controller.dproj

@@ -0,0 +1,543 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{7f80f8aa-6912-4714-986d-aed73035472b}</ProjectGuid>
+    <MainSource>Fabricantes_controller.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Fabricantes_controller.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Release\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Fabricantes_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="Fabricantes_controller.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Lib\Base.dcp" />
+    <DCCReference Include="..\..\Lib\Fabricantes_data.dcp" />
+    <DCCReference Include="..\..\Lib\Fabricantes_model.dcp" />
+    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\rtl.dcp" />
+    <DCCReference Include="..\..\Lib\vcl.dcp" />
+    <DCCReference Include="uFabricantesController.pas" />
+    <DCCReference Include="View\uIEditorFabricantes.pas" />
+  </ItemGroup>
+</Project>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->

Source/Modulos/Fabricantes/Controller/View/uIEditorFabricantes.pas

@@ -0,0 +1,23 @@
+unit uIEditorFabricantes;
+
+interface
+
+uses
+  uEditorDBBase, uBizFabricantes, uFabricantesController;
+
+type
+  IEditorFabricantes = interface(IEditorDBBase)
+  ['{1DD6E573-CCD8-4443-9AC3-378CF63EB639}']
+    function GetFabricantes: IBizFabricante;
+    procedure SetFabricantes(const Value: IBizFabricante);
+    property Fabricantes: IBizFabricante read GetFabricantes write SetFabricantes;
+
+    function GetController : IFabricantesController;
+    procedure SetController (const Value : IFabricantesController);
+    property Controller : IFabricantesController read GetController write SetController;
+  end;
+
+
+implementation
+
+end.

Source/Modulos/Fabricantes/Controller/uFabricantesController.pas

@@ -0,0 +1,234 @@
+unit uFabricantesController;
+
+interface
+
+
+uses
+  Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
+  uIDataModuleFabricantes, uBizFabricantes;
+
+type
+  IFabricantesController = interface(IObservador)
+  ['{8D56360B-0AAA-41FA-9C48-90C586B07E37}']
+    function BuscarTodos: IBizFabricante;
+    procedure VerTodos(AFabricantes: IBizFabricante);
+    procedure Anadir(AFabricante : IBizFabricante);
+    function Eliminar(AFabricante : IBizFabricante): Boolean;
+    function Guardar(AFabricante : IBizFabricante): Boolean;
+    procedure DescartarCambios(AFabricante : IBizFabricante);
+    function Localizar(AFabricantes: IBizFabricante; ADescripcion:String): Boolean;
+    function DarListaFabricantes: TStringList;
+  end;
+
+  TFabricantesController = class(TObservador, IFabricantesController)
+  protected
+    FDataModule : IDataModuleFabricantes;
+
+    procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
+    function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
+
+    function ValidarAlmacen(AFabricante: IBizFabricante): Boolean;
+
+    //Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
+    //este controller
+    procedure AsignarDataModule; virtual;
+
+    procedure ValidarObjetos; virtual;
+
+  public
+    constructor Create; override;
+    destructor Destroy; override;
+
+    function Eliminar(AFabricante : IBizFabricante): Boolean;
+    function Guardar(AFabricante : IBizFabricante): Boolean;
+    procedure DescartarCambios(AFabricante : IBizFabricante); virtual;
+    procedure Anadir(AFabricante : IBizFabricante);
+    function BuscarTodos: IBizFabricante;
+    procedure VerTodos(AFabricantes: IBizFabricante);
+    function Localizar(AFabricantes: IBizFabricante; ADescripcion:String): Boolean;
+    function DarListaFabricantes: TStringList;
+  end;
+
+implementation
+
+uses
+  cxControls, DB, uEditorRegistryUtils, schFabricantesClient_Intf,
+  uIEditorFabricantes, uDataModuleFabricantes,
+  uDAInterfaces, uDataTableUtils,
+  uDateUtils, uROTypes, DateUtils, Controls, Windows;
+
+{ TFabricantesController }
+
+procedure TFabricantesController.Anadir(AFabricante: IBizFabricante);
+begin
+  AFabricante.Insert;
+end;
+
+procedure TFabricantesController.AsignarDataModule;
+begin
+  FDataModule := TDataModuleFabricantes.Create(Nil);
+end;
+
+function TFabricantesController.BuscarTodos: IBizFabricante;
+begin
+  Result := FDataModule.GetItems;
+end;
+
+constructor TFabricantesController.Create;
+begin
+  inherited;
+  AsignarDataModule;
+end;
+
+function TFabricantesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
+begin
+  Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
+end;
+
+function TFabricantesController.DarListaFabricantes: TStringList;
+var
+  AFabricantes: IBizFabricante;
+begin
+  AFabricantes := BuscarTodos;
+  AFabricantes.DataTable.Active := True;
+  Result := TStringList.Create;
+  try
+    with Result do
+    begin
+      AFabricantes.DataTable.First;
+      while not AFabricantes.DataTable.EOF do
+      begin
+        Add(AFabricantes.DESCRIPCION);
+        AFabricantes.DataTable.Next;
+      end;
+    end;
+  finally
+    AFabricantes := NIL;
+  end;
+end;
+
+procedure TFabricantesController.DescartarCambios(AFabricante: IBizFabricante);
+begin
+  if not Assigned(AFabricante) then
+    raise Exception.Create ('Almacen no asignado');
+
+  ShowHourglassCursor;
+  try
+    if (AFabricante.State in dsEditModes) then
+      AFabricante.Cancel;
+
+    AFabricante.DataTable.CancelUpdates;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+destructor TFabricantesController.Destroy;
+begin
+  FDataModule := Nil;
+  inherited;
+end;
+
+function TFabricantesController.ValidarAlmacen(AFabricante: IBizFabricante): Boolean;
+begin
+//
+end;
+
+procedure TFabricantesController.ValidarObjetos;
+begin
+//
+end;
+
+procedure TFabricantesController.VerTodos(AFabricantes: IBizFabricante);
+var
+  AEditor : IEditorFabricantes;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    CreateEditor('EditorFabricantes', IEditorFabricantes, AEditor);
+    if Assigned(AEditor) then
+       with AEditor do
+       begin
+         Controller := Self; //OJO ORDEN MUY IMPORTANTE
+         Fabricantes := AFabricantes;
+         ShowModal;
+         Release;
+       end;
+  finally
+    AEditor := NIL;
+    HideHourglassCursor;
+  end;
+end;
+
+function TFabricantesController.Eliminar(AFabricante: IBizFabricante): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(AFabricante) then
+    raise Exception.Create ('Almacen no asignada');
+
+  ShowHourglassCursor;
+  try
+    if (AFabricante.State in dsEditModes) then
+      AFabricante.Cancel;
+
+    AFabricante.Delete;
+    AFabricante.DataTable.ApplyUpdates;
+    HideHourglassCursor;
+    Result := True;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TFabricantesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
+begin
+  inherited;
+//
+end;
+
+function TFabricantesController.Guardar(AFabricante: IBizFabricante): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(AFabricante) then
+    raise Exception.Create ('Almacen no asignada');
+
+  ValidarObjetos;
+
+  if ValidarAlmacen(AFabricante) then
+  begin
+    ShowHourglassCursor;
+    try
+      if (AFabricante.DataTable.State in dsEditModes) then
+          AFabricante.DataTable.Post;
+
+      AFabricante.DataTable.ApplyUpdates;
+
+      Result := True;
+    finally
+      HideHourglassCursor;
+    end;
+  end;
+end;
+
+function TFabricantesController.Localizar(AFabricantes: IBizFabricante; ADescripcion: String): Boolean;
+begin
+  Result := True;
+  ShowHourglassCursor;
+  try
+    with AFabricantes.DataTable do
+    begin
+      DisableControls;
+      First;
+      if not Locate(fld_FabricantesDESCRIPCION, ADescripcion, []) then
+         Result := False;
+      EnableControls;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+end.

Source/Modulos/Fabricantes/Data/Fabricantes_data.dpk

@@ -0,0 +1,47 @@
+package Fabricantes_data;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  vcl,
+  Base,
+  GUIBase,
+  ApplicationBase,
+  dbrtl,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11,
+  vcldb,
+  dsnap,
+  adortl,
+  cxLibraryD11,
+  dxThemeD11,
+  dxGDIPlusD11,
+  Fabricantes_model;
+
+contains
+  uDataModuleFabricantes in 'uDataModuleFabricantes.pas' {DataModuleFabricantes};
+
+end.

Source/Modulos/Fabricantes/Data/Fabricantes_data.dproj

@@ -0,0 +1,554 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{55d06c67-fc74-4d88-8787-801dee872bb3}</ProjectGuid>
+    <MainSource>Fabricantes_data.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Fabricantes_data.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Fabricantes_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="Fabricantes_data.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\Lib\adortl.dcp" />
+    <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Lib\Base.dcp" />
+    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
+    <DCCReference Include="..\..\Lib\dsnap.dcp" />
+    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Lib\Fabricantes_model.dcp" />
+    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\rtl.dcp" />
+    <DCCReference Include="..\..\Lib\vcl.dcp" />
+    <DCCReference Include="..\..\Lib\vcldb.dcp" />
+    <DCCReference Include="uDataModuleFabricantes.pas">
+      <Form>DataModuleFabricante</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=0
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->

Source/Modulos/Fabricantes/Data/Fabricantes_data.drc

@@ -0,0 +1,17 @@
+/* VER185
+  Generated by the CodeGear Delphi Pascal Compiler
+  because -GD or --drc was supplied to the compiler.
+
+  This file contains compiler-generated resources that
+  were bound to the executable.
+  If this file is empty, then no compiler-generated
+  resources were bound to the produced executable.
+*/
+
+STRINGTABLE
+BEGIN
+END
+
+/* C:\Codigo Tecsitel\Source\Modulos\Fabricantes\Data\uDataModuleFabricantes.DFM */
+/* C:\Codigo Tecsitel\Source\Modulos\Fabricantes\Data\Fabricantes_data.res */
+/* C:\Codigo Tecsitel\Source\Modulos\Fabricantes\Data\Fabricantes_data.drf */

Source/Modulos/Fabricantes/Data/uDataModuleFabricantes.dfm

@@ -0,0 +1,61 @@
+inherited DataModuleFabricantes: TDataModuleFabricantes
+  OnCreate = DAClientDataModuleCreate
+  Height = 165
+  Width = 409
+  object RORemoteService: TRORemoteService
+    Message = dmConexion.ROMessage
+    Channel = dmConexion.ROChannel
+    ServiceName = 'srvFabricantes'
+    Left = 48
+    Top = 24
+  end
+  object rda_Fabricantes: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RORemoteService
+    GetDataCall.RemoteService = RORemoteService
+    UpdateDataCall.RemoteService = RORemoteService
+    GetScriptsCall.RemoteService = RORemoteService
+    RemoteService = RORemoteService
+    DataStreamer = Bin2DataStreamer
+    Left = 203
+    Top = 23
+  end
+  object Bin2DataStreamer: TDABin2DataStreamer
+    Left = 48
+    Top = 96
+  end
+  object tbl_Fabricantes: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datAutoInc
+        GeneratorName = 'GEN_FABRICANTES_ID'
+        Required = True
+        ServerAutoRefresh = True
+        DictionaryEntry = 'Fabricantes_ID'
+        InPrimaryKey = True
+      end
+      item
+        Name = 'DESCRIPCION'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Descripci'#195#179'n'
+        DictionaryEntry = 'Fabricantes_DESCRIPCION'
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rda_Fabricantes
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Fabricantes'
+    IndexDefs = <>
+    Left = 312
+    Top = 32
+  end
+  object ds_Fabricantes: TDADataSource
+    DataSet = tbl_Fabricantes.Dataset
+    DataTable = tbl_Fabricantes
+    Left = 312
+    Top = 88
+  end
+end

Source/Modulos/Fabricantes/Data/uDataModuleFabricantes.pas

@@ -0,0 +1,112 @@
+{
+===============================================================================
+  Copyright (©) 2007. Rodax Software.
+===============================================================================
+  Los contenidos de este fichero son propiedad de Rodax Software titular del
+  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+  bajo el que se suministra.
+  -----------------------------------------------------------------------------
+  Web:  www.rodax-software.com
+===============================================================================
+  Fecha primera versión: 
+  Versión actual: 1.0.0
+  Fecha versión actual: 
+===============================================================================
+  Modificaciones:
+
+    Fecha         Comentarios
+    ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uDataModuleFabricantes;
+
+interface
+
+uses
+  SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
+  uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
+  uRORemoteService, uROClient, uROBinMessage,
+  uDADesigntimeCall,
+
+  uIDataModuleFabricantes, uBizFabricantes, uDADataStreamer, uDARemoteDataAdapter,
+  uDAInterfaces, uRODynamicRequest, uDABin2DataStreamer, uDAMemDataTable,
+  uDataModuleBase;
+
+type
+  TDataModuleFabricantes = class(TDataModuleBase, IDataModuleFabricantes)
+    RORemoteService: TRORemoteService;
+    rda_Fabricantes: TDARemoteDataAdapter;
+    Bin2DataStreamer: TDABin2DataStreamer;
+    tbl_Fabricantes: TDAMemDataTable;
+    ds_Fabricantes: TDADataSource;
+    procedure DAClientDataModuleCreate(Sender: TObject);
+  public
+    function GetItems: IBizFabricante;
+    function GetItem(const ID : Integer) : IBizFabricante;
+    function NewItem : IBizFabricante;
+  end;
+
+implementation
+
+{$R *.DFM}
+
+uses
+  FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, 
+  schFabricantesClient_Intf;
+
+{ TDataModuleFabricantes }
+
+procedure TDataModuleFabricantes.DAClientDataModuleCreate(Sender: TObject);
+begin
+  RORemoteService.Channel := dmConexion.Channel;
+  RORemoteService.Message := dmConexion.Message;
+end;
+
+function TDataModuleFabricantes.GetItems: IBizFabricante;
+var
+  AFabricante : TDAMemDataTable;
+begin
+  ShowHourglassCursor;
+  try
+    AFabricante := CloneDataTable(tbl_Fabricantes);
+    AFabricante.BusinessRulesID := BIZ_CLIENT_Fabricante;
+
+    Result := (AFabricante as IBizFabricante);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+function TDataModuleFabricantes.NewItem: IBizFabricante;
+begin
+  Result := GetItem(ID_NULO)
+end;
+
+function TDataModuleFabricantes.GetItem(const ID: Integer): IBizFabricante;
+var
+  Condicion: TDAWhereExpression;
+begin
+  ShowHourglassCursor;
+  try
+    Result := Self.GetItems;
+
+    with Result.DataTable.DynamicWhere do
+    begin
+      // (ID = :ID)
+      Condicion := NewBinaryExpression(NewField('', fld_FabricantesID), NewConstant(ID, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+end.

Source/Modulos/Fabricantes/Fabricantes_Group.groupproj

@@ -0,0 +1,114 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{033276d8-059f-49be-9cc2-3276e536a74d}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
+    <Projects Include="..\..\Base\Base.dproj" />
+    <Projects Include="..\..\Cliente\FactuGES.dproj" />
+    <Projects Include="..\..\GUIBase\GUIBase.dproj" />
+    <Projects Include="Controller\Fabricantes_controller.dproj" />
+    <Projects Include="Data\Fabricantes_data.dproj" />
+    <Projects Include="Model\Fabricantes_model.dproj" />
+    <Projects Include="Plugin\Fabricantes_plugin.dproj" />
+    <Projects Include="Views\Fabricantes_view.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="Base">
+    <MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
+  </Target>
+  <Target Name="Base:Clean">
+    <MSBuild Projects="..\..\Base\Base.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Base:Make">
+    <MSBuild Projects="..\..\Base\Base.dproj" Targets="Make" />
+  </Target>
+  <Target Name="GUIBase">
+    <MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="" />
+  </Target>
+  <Target Name="GUIBase:Clean">
+    <MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="GUIBase:Make">
+    <MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ApplicationBase">
+    <MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" />
+  </Target>
+  <Target Name="ApplicationBase:Clean">
+    <MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ApplicationBase:Make">
+    <MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FactuGES">
+    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
+  </Target>
+  <Target Name="FactuGES:Clean">
+    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FactuGES:Make">
+    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Fabricantes_model">
+    <MSBuild Projects="Model\Fabricantes_model.dproj" Targets="" />
+  </Target>
+  <Target Name="Fabricantes_model:Clean">
+    <MSBuild Projects="Model\Fabricantes_model.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Fabricantes_model:Make">
+    <MSBuild Projects="Model\Fabricantes_model.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Fabricantes_data">
+    <MSBuild Projects="Data\Fabricantes_data.dproj" Targets="" />
+  </Target>
+  <Target Name="Fabricantes_data:Clean">
+    <MSBuild Projects="Data\Fabricantes_data.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Fabricantes_data:Make">
+    <MSBuild Projects="Data\Fabricantes_data.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Fabricantes_controller">
+    <MSBuild Projects="Controller\Fabricantes_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="Fabricantes_controller:Clean">
+    <MSBuild Projects="Controller\Fabricantes_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Fabricantes_controller:Make">
+    <MSBuild Projects="Controller\Fabricantes_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Fabricantes_view">
+    <MSBuild Projects="Views\Fabricantes_view.dproj" Targets="" />
+  </Target>
+  <Target Name="Fabricantes_view:Clean">
+    <MSBuild Projects="Views\Fabricantes_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Fabricantes_view:Make">
+    <MSBuild Projects="Views\Fabricantes_view.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Fabricantes_plugin">
+    <MSBuild Projects="Plugin\Fabricantes_plugin.dproj" Targets="" />
+  </Target>
+  <Target Name="Fabricantes_plugin:Clean">
+    <MSBuild Projects="Plugin\Fabricantes_plugin.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Fabricantes_plugin:Make">
+    <MSBuild Projects="Plugin\Fabricantes_plugin.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;FactuGES;Fabricantes_model;Fabricantes_data;Fabricantes_controller;Fabricantes_view;Fabricantes_plugin" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;FactuGES:Clean;Fabricantes_model:Clean;Fabricantes_data:Clean;Fabricantes_controller:Clean;Fabricantes_view:Clean;Fabricantes_plugin:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;FactuGES:Make;Fabricantes_model:Make;Fabricantes_data:Make;Fabricantes_controller:Make;Fabricantes_view:Make;Fabricantes_plugin:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>

Source/Modulos/Fabricantes/Model/Data/uIDataModuleFabricantes.pas

@@ -0,0 +1,42 @@
+{
+===============================================================================
+  Copyright (©) 2007. Rodax Software.
+===============================================================================
+  Los contenidos de este fichero son propiedad de Rodax Software titular del
+  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+  bajo el que se suministra.
+  -----------------------------------------------------------------------------
+  Web:  www.rodax-software.com
+===============================================================================
+  Fecha primera versión: 
+  Versión actual: 1.0.0
+  Fecha versión actual: 
+===============================================================================
+  Modificaciones:
+
+    Fecha         Comentarios
+    ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uIDataModuleFabricantes;
+
+interface
+
+uses  
+  uBizFabricantes;
+
+type
+  IDataModuleFabricantes = interface
+  ['{15D57E95-7964-482D-858D-EE49699B708A}']
+    function GetItems: IBizFabricante;
+    function GetItem(const ID : Integer) : IBizFabricante;
+    function NewItem : IBizFabricante;
+	
+  end;
+
+implementation
+
+end.

Source/Modulos/Fabricantes/Model/Fabricantes_model.dpk

@@ -0,0 +1,46 @@
+package Fabricantes_model;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  vcl,
+  Base,
+  GUIBase,
+  ApplicationBase,
+  dbrtl,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11,
+  vcldb,
+  dsnap,
+  adortl;
+
+contains
+  uIDataModuleFabricantes in 'Data\uIDataModuleFabricantes.pas',
+  schFabricantesServer_Intf in 'schFabricantesServer_Intf.pas',
+  schFabricantesClient_Intf in 'schFabricantesClient_Intf.pas',
+  uBizFabricantes in 'uBizFabricantes.pas';
+
+end.

Source/Modulos/Fabricantes/Model/Fabricantes_model.dproj

@@ -0,0 +1,551 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{82fe21d8-609d-444d-879e-4d9e1c291607}</ProjectGuid>
+    <MainSource>Fabricantes_model.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Fabricantes_model.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Release\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Fabricantes_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="Fabricantes_model.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="ApplicationBase.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="Data\uIDataModuleFabricantes.pas" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="schFabricantesClient_Intf.pas" />
+    <DCCReference Include="schFabricantesServer_Intf.pas" />
+    <DCCReference Include="uBizFabricantes.pas" />
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+  </ItemGroup>
+</Project>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->

Source/Modulos/Fabricantes/Model/Fabricantes_model.drc

@@ -0,0 +1,16 @@
+/* VER185
+  Generated by the CodeGear Delphi Pascal Compiler
+  because -GD or --drc was supplied to the compiler.
+
+  This file contains compiler-generated resources that
+  were bound to the executable.
+  If this file is empty, then no compiler-generated
+  resources were bound to the produced executable.
+*/
+
+STRINGTABLE
+BEGIN
+END
+
+/* C:\Codigo Tecsitel\Source\Modulos\Fabricantes\Model\Fabricantes_model.res */
+/* C:\Codigo Tecsitel\Source\Modulos\Fabricantes\Model\Fabricantes_model.drf */

Source/Modulos/Fabricantes/Model/schFabricantesClient_Intf.pas

@@ -0,0 +1,134 @@
+unit schFabricantesClient_Intf;
+
+interface
+
+uses
+  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+
+const
+  { Data table rules ids
+       Feel free to change them to something more human readable
+       but make sure they are unique in the context of your application }
+  RID_Fabricantes = '{24607721-C2E1-4EFD-B898-307AC1462048}';
+
+  { Data table names }
+  nme_Fabricantes = 'Fabricantes';
+
+  { Fabricantes fields }
+  fld_FabricantesID = 'ID';
+  fld_FabricantesDESCRIPCION = 'DESCRIPCION';
+
+  { Fabricantes field indexes }
+  idx_FabricantesID = 0;
+  idx_FabricantesDESCRIPCION = 1;
+
+type
+  { IFabricantes }
+  IFabricantes = interface(IDAStronglyTypedDataTable)
+  ['{6018A1F9-F72E-46E2-A71E-C34CA806D20E}']
+    { Property getters and setters }
+    function GetIDValue: Integer;
+    procedure SetIDValue(const aValue: Integer);
+    function GetIDIsNull: Boolean;
+    procedure SetIDIsNull(const aValue: Boolean);
+    function GetDESCRIPCIONValue: String;
+    procedure SetDESCRIPCIONValue(const aValue: String);
+    function GetDESCRIPCIONIsNull: Boolean;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+  end;
+
+  { TFabricantesDataTableRules }
+  TFabricantesDataTableRules = class(TDADataTableRules, IFabricantes)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetIDIsNull: Boolean; virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses Variants, uROBinaryHelpers;
+
+{ TFabricantesDataTableRules }
+constructor TFabricantesDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TFabricantesDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TFabricantesDataTableRules.GetIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_FabricantesID].AsInteger;
+end;
+
+procedure TFabricantesDataTableRules.SetIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FabricantesID].AsInteger := aValue;
+end;
+
+function TFabricantesDataTableRules.GetIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FabricantesID].IsNull;
+end;
+
+procedure TFabricantesDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FabricantesID].AsVariant := Null;
+end;
+
+function TFabricantesDataTableRules.GetDESCRIPCIONValue: String;
+begin
+  result := DataTable.Fields[idx_FabricantesDESCRIPCION].AsString;
+end;
+
+procedure TFabricantesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_FabricantesDESCRIPCION].AsString := aValue;
+end;
+
+function TFabricantesDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FabricantesDESCRIPCION].IsNull;
+end;
+
+procedure TFabricantesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FabricantesDESCRIPCION].AsVariant := Null;
+end;
+
+
+initialization
+  RegisterDataTableRules(RID_Fabricantes, TFabricantesDataTableRules);
+
+end.

Source/Modulos/Fabricantes/Model/schFabricantesServer_Intf.pas

@@ -0,0 +1,143 @@
+unit schFabricantesServer_Intf;
+
+interface
+
+uses
+  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schFabricantesClient_Intf;
+
+const
+  { Delta rules ids 
+       Feel free to change them to something more human readable
+       but make sure they are unique in the context of your application }
+  RID_FabricantesDelta = '{4EA345C5-9E36-44DF-8403-CBEE4967A1B5}';
+
+type
+  { IFabricantesDelta }
+  IFabricantesDelta = interface(IFabricantes)
+  ['{4EA345C5-9E36-44DF-8403-CBEE4967A1B5}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldDESCRIPCIONValue : String;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+  end;
+
+  { TFabricantesBusinessProcessorRules }
+  TFabricantesBusinessProcessorRules = class(TDABusinessProcessorRules, IFabricantes, IFabricantesDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetIDIsNull: Boolean; virtual;
+    function GetOldIDValue: Integer; virtual;
+    function GetOldIDIsNull: Boolean; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    function GetOldDESCRIPCIONValue: String; virtual;
+    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID : Integer read GetIDValue write SetIDValue;
+    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+    property OldID : Integer read GetOldIDValue;
+    property OldIDIsNull : Boolean read GetOldIDIsNull;
+    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses
+  Variants, uROBinaryHelpers, uDAInterfaces;
+
+{ TFabricantesBusinessProcessorRules }
+constructor TFabricantesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TFabricantesBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TFabricantesBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesID];
+end;
+
+function TFabricantesBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesID]);
+end;
+
+function TFabricantesBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FabricantesID];
+end;
+
+function TFabricantesBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FabricantesID]);
+end;
+
+procedure TFabricantesBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesID] := aValue;
+end;
+
+procedure TFabricantesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesID] := Null;
+end;
+
+function TFabricantesBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesDESCRIPCION];
+end;
+
+function TFabricantesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesDESCRIPCION]);
+end;
+
+function TFabricantesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FabricantesDESCRIPCION];
+end;
+
+function TFabricantesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FabricantesDESCRIPCION]);
+end;
+
+procedure TFabricantesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesDESCRIPCION] := aValue;
+end;
+
+procedure TFabricantesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesDESCRIPCION] := Null;
+end;
+
+
+initialization
+  RegisterBusinessProcessorRules(RID_FabricantesDelta, TFabricantesBusinessProcessorRules);
+
+end.

Source/Modulos/Fabricantes/Model/uBizFabricantes.pas

@@ -0,0 +1,141 @@
+{
+===============================================================================
+  Copyright (©) 2007. Rodax Software.
+===============================================================================
+  Los contenidos de este fichero son propiedad de Rodax Software titular del
+  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+  bajo el que se suministra.
+  -----------------------------------------------------------------------------
+  Web:  www.rodax-software.com
+===============================================================================
+  Fecha primera versión: 
+  Versión actual: 1.0.0
+  Fecha versión actual: 
+===============================================================================
+  Modificaciones:
+
+    Fecha         Comentarios
+    ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uBizFabricantes;
+
+interface
+
+uses
+  uDAInterfaces, uDADataTable, uDBSelectionListUtils, schFabricantesClient_Intf;
+
+const
+  BIZ_CLIENT_Fabricante = 'Client.Fabricante';
+
+type
+  IBizFabricante = interface(IFabricantes)
+  ['{A82736D7-55AC-475F-8B08-98832EB6A1B1}']
+    function EsNuevo : Boolean;
+    
+  	// Descomentar esto si hay clases detalles
+    // procedure SetDetalles(AValue : IBizDetalles);
+    // function GetDetalles : IBizDetalles;
+    // property Detalles : IBizDetalles read GetDetalles write SetDetalles;  
+  end;
+
+  TBizFabricante = class(TFabricantesDataTableRules, IBizFabricante, ISeleccionable)
+  protected
+  	FSeleccionableInterface : ISeleccionable;
+  	
+  	// Descomentar esto si hay clases detalles
+    // FDetalles : IBizDetalles;
+    // FDetallesLink : TDADataSource;
+    // procedure SetDetalles(AValue : IBizDetalles);
+    // function GetDetalles : IBizDetalles;
+
+    procedure OnNewRecord(Sender: TDADataTable); override;
+    procedure AfterOpen(Sender: TDADataTable); override;
+  public
+    procedure IniciarValoresFabricanteNuevo;
+    function EsNuevo : Boolean;
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+    property SeleccionableInterface : ISeleccionable 
+    					read FSeleccionableInterface
+    					write FSeleccionableInterface 
+    					implements ISeleccionable;
+    
+  	// Descomentar esto si hay clases detalles
+    // property Detalles : IBizDetalles read GetDetalles write SetDetalles;    
+  end;
+
+implementation
+
+{ TBizFabricante }
+
+uses
+  SysUtils, uDataTableUtils;
+
+// Descomentar esto si hay clases detalles
+// function TBizFabricante.GetDetalles: IBizDetalles;
+// begin
+//   Result := FDetalles;
+// end;
+
+// Descomentar esto si hay clases detalles
+// procedure TBizFabricante.SetDetalles(AValue: IBizDetalles);
+// begin
+//   FDetalles := AValue;
+//   EnlazarMaestroDetalle(FDetallesLink, FDetalles);
+// end;
+
+procedure TBizFabricante.AfterOpen(Sender: TDADataTable);
+begin
+  inherited;
+  DataTable.Sort([fld_FabricantesDESCRIPCION], [sdAscending]);
+end;
+
+constructor TBizFabricante.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+  // Descomentar esto si hay clases detalles
+  // FDetallesLink := TDADataSource.Create(NIL);
+  // FDetallesLink.DataTable := aDataTable;  
+  
+	FSeleccionableInterface := TSeleccionable.Create(aDataTable);  
+end;
+
+destructor TBizFabricante.Destroy;
+begin
+	// Descomentar esto si hay clases detalles
+  // FDetalles := NIL;
+  // FreeAndNIL(FDetallesLink);	
+  
+  FSeleccionableInterface := NIL;
+  inherited;
+end;
+
+function TBizFabricante.EsNuevo: Boolean;
+begin
+  Result := (ID < 0);
+end;
+
+procedure TBizFabricante.IniciarValoresFabricanteNuevo;
+begin
+  //
+end;
+
+procedure TBizFabricante.OnNewRecord(Sender: TDADataTable);
+begin
+  inherited;
+  ID := GetRecNo; // -1, -2, -3...
+  IniciarValoresFabricanteNuevo;
+end;
+
+initialization
+  RegisterDataTableRules(BIZ_CLIENT_Fabricante, TBizFabricante);
+
+finalization
+
+end.
+

Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.dpk

@@ -0,0 +1,41 @@
+package Fabricantes_plugin;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  vcl,
+  PluginSDK_D10R,
+  Base,
+  GUIBase,
+  ApplicationBase,
+  Fabricantes_view,
+  Fabricantes_controller,
+  Fabricantes_model;
+
+contains
+  uPluginFabricantes in 'uPluginFabricantes.pas' {PluginFabricantes};
+
+end.

Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.dproj

@@ -0,0 +1,546 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{139324a2-0c57-446d-aebd-edd9578e22fd}</ProjectGuid>
+    <MainSource>Fabricantes_plugin.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Fabricantes_plugin.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Release\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Fabricantes_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="Fabricantes_plugin.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ApplicationBase.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="Fabricantes_controller.dcp" />
+    <DCCReference Include="Fabricantes_model.dcp" />
+    <DCCReference Include="Fabricantes_view.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="PluginSDK_D10R.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="uPluginFabricantes.pas">
+      <Form>PluginFabricantes</Form>
+    </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+  </ItemGroup>
+</Project>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->

Source/Modulos/Fabricantes/Plugin/uPluginFabricantes.dfm

@@ -0,0 +1,136 @@
+object PluginFabricantes: TPluginFabricantes
+  OldCreateOrder = True
+  DefaultAction = actFabricantes
+  Description = 'Fabricantes'
+  ModuleMenu = MainMenu
+  ModuleName = 'Fabricantes'
+  SmallImages = SmallImages
+  LargeImages = LargeImages
+  Author = 'Rodax Software S.L.'
+  Version = '1.0.0'
+  Height = 234
+  Width = 459
+  object LargeImages: TPngImageList
+    Height = 24
+    Width = 24
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+          F8000000097048597300000B3A00000B3A01647F570D000002874944415478DA
+          B5944D68134114C7DF50C47E585BA2D0B095924095A51E4CA5CA2208D58BE9AD
+          154F06CA565452A1A224E736F4165088F45222480881DE6C901EA4274F122FC9
+          0A3DE450684C2FA188C4A6F9EA6EB2CE5BBBC36E13936CA40F1E339999FC7FFB
+          E63F3344555538CB20670EE864D1FA7AC2471B81E6384DD7C9B044739766C2EB
+          15DE760C0804246349F18101A53438A83CE6790EC6C62E82D339C4268B451962
+          B1644B5053C0CACA0DF63B184C42A5D20399CC1736B6BC2C6A2004E8B9BD9DC6
+          29FF6908317E7520E022B4EFA1DD18428E8E6428148E211CDE8DD3B9B993B5DA
+          BCDF3F6102944A0AA4523F1A20C4F8D50B0BEF2012798510D5E79BD0C4313736
+          B21ADC58E5E2E2559378B9FCB7CD660F80024853000642D6D65E3071CCADAD1C
+          033C7BFE441DE55EC2FCBCA3411C7367A704767B85556102C8721DAAD59A49DC
+          66EB856834A301425E507F2AD7A176E91E9CEF7B0A333323267145A9433E9F6F
+          345914439B3E9F6796E32E306104A1389AB9B7F75B83B8875D50EBE761F36B11
+          F2E7EEC395D1D726F31D8E69AD32FD3FABAB115681872E7C8490C3C3636DF1FE
+          7E8196DACF8EA60E79303205A4AA40F0130797C7DDF03EFC81E8772597EB7D83
+          000C141704C16F344E83D0EEAC3EE676BB9B4286732E887EE321994A9B8E396E
+          35027471F4A1E54DA65BA7FE0B623C5546006E992EDEF4A2E981860A3C2D5D0A
+          811548DB9B6C14770922A43312843E8B5D43483BF14A4E82047D05A44A779590
+          4EC47543AD7A6202B413EFD6786245BC1B08B12A6E1542961EDAD4E93BD7A047
+          FE0EF6BE7247E2ED2078D1F055665B74739257EFF2BFC03974D0B1782B087D91
+          E31430673279EAF62DB52E172C89378344221F9978C331FD9F40086D4CE2187F
+          00FADE10E28785B5A40000000049454E44AE426082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end>
+    Left = 232
+    Top = 16
+    Bitmap = {}
+  end
+  object ModuleActionList: TActionList
+    Images = SmallImages
+    Left = 40
+    Top = 72
+    object actFabricantes: TAction
+      Category = 'Datos'
+      Caption = 'Fabricantes'
+      ImageIndex = 0
+      OnExecute = actFabricantesExecute
+    end
+  end
+  object MainMenu: TMainMenu
+    Images = LargeImages
+    Left = 40
+    Top = 16
+    object Ventas1: TMenuItem
+      Caption = 'Datos'
+      object Fabricantes1: TMenuItem
+        Tag = 313
+        Action = actFabricantes
+      end
+    end
+  end
+  object SmallImages: TPngImageList
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000B1300000B1301009A9C18000001604944415478DA
+          A5923F48C34014C6DF81B838A88B145DD22D20D8E8505737330A5D9CE4BA650C
+          34739BEE0AE7E658B277A8939364B5A0C6A19231500417A14D177539EF1D5EB8
+          E64F1D3C7821B9F7BE1FDFFB08E19CC37F0E512FBE1FE9244FD465C9BCE7FBD6
+          5529000FA58C33E60063B1005A04BFF1BEDBA550AF6F42BFFF5280C8A1C1C025
+          CA45ABB507C3E19B04FCDE75D04DAFD780F9FC4BC275880418C649E6220F5060
+          D735613A5DC81A8FD3AC4F946D6C4C261FD06CD62008926C40B4F8AC164930CE
+          A4E937DC3F8E6077E354BA4040470FCCB66D5186B4BAF56E814329C44904EC8E
+          CAFE6C6D013BDBEB08280D51C274C89949210C23081E4C787A8E899E49BB7DBD
+          0CA882DC8ECEA558CF244942C0F00B00DC196D3B37D6D23A7AA895FF8112E3CE
+          683BFA647F42489518773E68385E7E9D3C845489D5CE6599E810B24A5C166CFE
+          3F918FA343935F1CC7A5E23C44D4AB487FBF900142AAC4ABCE0F9C32EE2C4B99
+          4F200000000049454E44AE426082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end>
+    PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
+    Left = 308
+    Top = 16
+    Bitmap = {}
+  end
+  object ExtraImages: TPngImageList
+    Height = 28
+    Width = 28
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
+          94000000097048597300004E2000004E2001167D99DE000002C04944415478DA
+          E5D54D6813411400E0B788D816B1A5150CA99404AA2CF5E02AFE2C82503DA5B7
+          14BD054A2A6A130F5549CE6DDA9BD0424A2F69041B42A517B1417A909E3C497A
+          3129F49043A131BD8422129BE6A7CDCF3A6F935932C96E9AB0928B0F1E43B233
+          FBCD4CDE4C384992A093C1FD1F20C7712D0FF0F9C22ED2882487490AD5AFA324
+          F748861D0E71516BAC6CB50356B1059E37C2D0D025309B7B99E72B2BDB4D6155
+          D0E389D6EE7188E4278F47F85805A564B20BE2F16F4A879919BB0C67320525B7
+          B662F8C85D8F6A82B3B33795CF73733B0C5A1BA4AF8D346B6EF7080366B34588
+          447E36A00A485E2A555E2070F425881E1F17209D3E05BF7F2F449E8DAB6D334E
+          D0E9BCC660B95CA54D240E81809C2A88C0E4E41204026F10955CAE1119C35C5F
+          4FC893A9C75EBC7C260D1AA76162C2D48061EEEE66C160C82BAB6C0031105D5E
+          7EA560989B9BC906D0EB00E957F10694061EC185EEE730367685C18AC532A452
+          2966825353F739062C14CA70725262B0FEFE2E0806E30C8898C803947A78D8F8
+          9E81D4F9C77075F02D534C26D3A8BC722CA8FDFD3F303F1F80D5D5D71590AC6A
+          C3E5B2598DC68B0A8430627400452926887652186BC09D14E1DD17235C1EB6C0
+          7BFF078E1E1F52CD0B086220268AA29BAC7091AED04666F714D1A3A353B9D3C1
+          419AEC7F8F72DE286AE913642C168F423E1985303901C16D1E7E4462CC96631D
+          204831FC1D996381D58928E96BA5832C168B2A6AE5ED4D310AE216534CF31CD6
+          86DDEE95B4D0BEA4A08969454B575B3354EDA8E8026981F8A25EF8176853B0B6
+          1AB140BC5FEDBA514DB01EA30512CDEB5BA92AA885D102D1F39B368067617A0B
+          89015BC5F4A00AB8E4E4DAC2CE42F176C17F1D4D70FAC98034FAE03A9C2BEC80
+          A13BD712D60C2577738880E39A206EE9ED5BBCF490FF0DE6DEC3B66F905A3410
+          F8AC8AA916CD9D7B77A57221DD16568B92461363C04E46C7C1BF0E73BFE74CCD
+          6AD20000000049454E44AE426082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end>
+    Left = 232
+    Top = 80
+    Bitmap = {}
+  end
+end

Source/Modulos/Fabricantes/Plugin/uPluginFabricantes.pas

@@ -0,0 +1,73 @@
+unit uPluginFabricantes;
+
+interface
+
+uses
+  uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
+  ImgList, Controls, PngImageList;
+
+type
+  IMCFabricantes = interface(IInterface)
+  ['{F7C8960F-5ECE-492B-8D6C-D068DAA66E6C}']
+  end;
+
+  TPluginFabricantes = class(TModuleController, IMCFabricantes)
+    actFabricantes: TAction;
+    ExtraImages: TPngImageList;
+    LargeImages: TPngImageList;
+    MainMenu: TMainMenu;
+    ModuleActionList: TActionList;
+    SmallImages: TPngImageList;
+    Ventas1: TMenuItem;
+    Fabricantes1: TMenuItem;
+    procedure actFabricantesExecute(Sender: TObject);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  Forms, Dialogs, SysUtils,
+  uFabricantesController, uBizFabricantes, uFabricantesViewRegister;
+
+function GetModule : TModuleController;
+begin
+  Result := TPluginFabricantes.Create(NIL);
+end;
+
+exports
+  GetModule name GET_MODULE_FUNC;
+
+procedure TPluginFabricantes.actFabricantesExecute(Sender: TObject);
+var
+  AFabricantesController : IFabricantesController;
+  AFabricantes : IBizFabricante;
+begin
+  AFabricantesController := TFabricantesController.Create;
+  AFabricantes := (AFabricantesController.BuscarTodos as IBizFabricante);
+  AFabricantesController.VerTodos(AFabricantes);
+end;
+
+constructor TPluginFabricantes.Create(AOwner: TComponent);
+begin
+  inherited;
+  uFabricantesViewRegister.RegisterViews;
+end;
+
+destructor TPluginFabricantes.Destroy;
+begin
+  uFabricantesViewRegister.UnregisterViews;
+  inherited;
+end;
+
+initialization
+  RegisterModuleClass(TPluginFabricantes);
+
+finalization
+  UnRegisterModuleClass(TPluginFabricantes);
+
+end.

Source/Modulos/Fabricantes/Servidor/srvFabricantes_Impl.dfm

@@ -0,0 +1,90 @@
+object srvFabricantes: TsrvFabricantes
+  OldCreateOrder = True
+  OnCreate = DARemoteServiceCreate
+  RequiresSession = True
+  SessionManager = dmServer.SessionManager
+  ServiceSchema = schFabricantes
+  ServiceDataStreamer = Bin2DataStreamer
+  ExportedDataTables = <>
+  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
+  Height = 300
+  Width = 334
+  object Diagrams: TDADiagrams
+    Left = 150
+    Top = 88
+    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <
+      item
+        Name = 'Fabricantes_ID'
+        DataType = datAutoInc
+        GeneratorName = 'GEN_FABRICANTES_ID'
+        Required = True
+        DisplayLabel = 'ID'
+        ServerAutoRefresh = True
+      end
+      item
+        Name = 'Fabricantes_DESCRIPCION'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Descripci'#243'n'
+      end>
+    Left = 150
+    Top = 24
+  end
+  object schFabricantes: TDASchema
+    ConnectionManager = dmServer.ConnectionManager
+    DataDictionary = DataDictionary
+    Diagrams = Diagrams
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'FABRICANTES'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'DESCRIPCION'
+                TableField = 'DESCRIPCION'
+              end>
+          end>
+        Name = 'Fabricantes'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_FABRICANTES_ID'
+            ServerAutoRefresh = True
+            DictionaryEntry = 'Fabricantes_ID'
+            InPrimaryKey = True
+          end
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Fabricantes_DESCRIPCION'
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 48
+    Top = 24
+  end
+  object Bin2DataStreamer: TDABin2DataStreamer
+    Left = 48
+    Top = 88
+  end
+end

Source/Modulos/Fabricantes/Servidor/srvFabricantes_Impl.pas

@@ -0,0 +1,61 @@
+unit srvFabricantes_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
+  uDAScriptingProvider, uDAClasses,
+  FactuGES_Intf, uDAInterfaces;
+
+type
+  { TsrvFabricantes }
+  TsrvFabricantes = class(TDataAbstractService, IsrvFabricantes)
+    Diagrams: TDADiagrams;
+    Bin2DataStreamer: TDABin2DataStreamer;
+    schFabricantes: TDASchema;
+    DataDictionary: TDADataDictionary;
+    procedure DARemoteServiceCreate(Sender: TObject);
+    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
+      var aConnectionName: string);
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils;
+
+procedure Create_srvFabricantes(out anInstance : IUnknown);
+begin
+  anInstance := TsrvFabricantes.Create(NIL);
+end;
+
+{ srvFabricantes }
+procedure TsrvFabricantes.DARemoteServiceCreate(Sender: TObject);
+begin
+  SessionManager := dmServer.SessionManager;
+end;
+
+procedure TsrvFabricantes.DataAbstractServiceBeforeAcquireConnection(
+  aSender: TObject; var aConnectionName: string);
+begin
+  ConnectionName := dmServer.ConnectionName;
+end;
+
+initialization
+  TROClassFactory.Create('srvFabricantes', Create_srvFabricantes, TsrvFabricantes_Invoker);
+
+finalization
+
+end.

Source/Modulos/Fabricantes/Views/Fabricantes_view.dpk

@@ -0,0 +1,40 @@
+package Fabricantes_view;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  vcl,
+  Base,
+  GUIBase,
+  ApplicationBase,
+  Fabricantes_model,
+  Fabricantes_controller;
+
+contains
+  uEditorFabricantes in 'uEditorFabricantes.pas' {fEditorFabricantes: TfEditorUnidadesMedida},
+  uFabricantesViewRegister in 'uFabricantesViewRegister.pas';
+
+end.

Source/Modulos/Fabricantes/Views/Fabricantes_view.dproj

@@ -0,0 +1,545 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e3d36a6f-7004-4c89-9f3d-f2d77e386d1b}</ProjectGuid>
+    <MainSource>Fabricantes_view.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Fabricantes_view.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Release\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Fabricantes_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="Fabricantes_view.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Lib\Base.dcp" />
+    <DCCReference Include="..\..\Lib\Fabricantes_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Fabricantes_model.dcp" />
+    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\rtl.dcp" />
+    <DCCReference Include="..\..\Lib\vcl.dcp" />
+    <DCCReference Include="uEditorFabricantes.pas">
+      <Form>fEditorFabricantes</Form>
+      <DesignClass>TfEditorUnidadesMedida</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uFabricantesViewRegister.pas" />
+  </ItemGroup>
+</Project>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->

Source/Modulos/Fabricantes/Views/uEditorFabricantes.dfm

@@ -0,0 +1,144 @@
+object fEditorFabricantes: TfEditorFabricantes
+  Left = 453
+  Top = 234
+  ActiveControl = ListaFabricantes
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  Caption = 'Administraci'#243'n de fabricantes'
+  ClientHeight = 494
+  ClientWidth = 404
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = CustomEditorClose
+  OnShow = FormShow
+  InstanceID = 0
+  ReadOnly = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object bAceptar: TButton
+    Left = 235
+    Top = 462
+    Width = 75
+    Height = 23
+    Action = actAceptar
+    Default = True
+    TabOrder = 1
+  end
+  object bCancelar: TButton
+    Left = 321
+    Top = 462
+    Width = 75
+    Height = 23
+    Action = actCancelar
+    Cancel = True
+    TabOrder = 2
+  end
+  object PageControl1: TPageControl
+    Left = 8
+    Top = 8
+    Width = 390
+    Height = 442
+    ActivePage = TabSheet1
+    TabOrder = 0
+    object TabSheet1: TTabSheet
+      Caption = 'Fabricantes'
+      object Label1: TLabel
+        Left = 10
+        Top = 12
+        Width = 147
+        Height = 13
+        Caption = 'Lista de fabricantes disponibles'
+      end
+      object Label2: TLabel
+        Left = 10
+        Top = 326
+        Width = 128
+        Height = 13
+        Caption = 'A'#241'adir un nuevo fabricante'
+      end
+      object Bevel1: TBevel
+        Left = 144
+        Top = 330
+        Width = 232
+        Height = 5
+        Shape = bsBottomLine
+      end
+      object eCategoria: TLabel
+        Left = 18
+        Top = 353
+        Width = 40
+        Height = 13
+        Caption = 'Nombre:'
+      end
+      object ListaFabricantes: TDBLookupListBox
+        Left = 8
+        Top = 31
+        Width = 262
+        Height = 277
+        KeyField = 'RecID'
+        ListField = 'DESCRIPCION'
+        ListSource = DADataSource
+        TabOrder = 0
+      end
+      object bEliminar: TButton
+        Left = 281
+        Top = 31
+        Width = 95
+        Height = 23
+        Action = actEliminar
+        TabOrder = 1
+      end
+      object editFabricante: TEdit
+        Left = 64
+        Top = 349
+        Width = 312
+        Height = 21
+        TabOrder = 2
+      end
+      object bAnadir: TButton
+        Left = 281
+        Top = 382
+        Width = 95
+        Height = 23
+        Action = actAnadir
+        TabOrder = 3
+      end
+    end
+  end
+  object ActionList1: TActionList
+    Left = 144
+    Top = 16
+    object actAnadir: TAction
+      Caption = '&A'#241'adir'
+      OnExecute = actAnadirExecute
+      OnUpdate = actAnadirUpdate
+    end
+    object actEliminar: TAction
+      Caption = '&Eliminar'
+      OnExecute = actEliminarExecute
+      OnUpdate = actEliminarUpdate
+    end
+    object actAceptar: TAction
+      Caption = 'A&ceptar'
+      OnExecute = actAceptarExecute
+    end
+    object actCancelar: TAction
+      Caption = '&Cancelar'
+      OnExecute = actCancelarExecute
+    end
+    object actCerrar: TAction
+      Caption = 'actCerrar'
+      OnExecute = actCerrarExecute
+    end
+  end
+  object DADataSource: TDADataSource
+    Left = 168
+    Top = 16
+  end
+end

Source/Modulos/Fabricantes/Views/uEditorFabricantes.pas

@@ -0,0 +1,181 @@
+{
+===============================================================================
+  Copyright (©) 2006. Rodax Software.
+===============================================================================
+  Los contenidos de este fichero son propiedad de Rodax Software titular del
+  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+  bajo el que se suministra.
+  -----------------------------------------------------------------------------
+  Web:  www.rodax-software.com
+===============================================================================
+  Fecha primera versión: 22-05-2006
+  Versión actual: 1.0.0
+  Fecha versión actual: 22-05-2006
+===============================================================================
+  Modificaciones:
+
+    Fecha         Comentarios
+    ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uEditorFabricantes;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
+  uIEditorFabricantes, uCustomEditor, uGUIBase, ExtCtrls,
+  ComCtrls, uBizFabricantes, uFabricantesController, uDAInterfaces;
+
+type
+  TfEditorFabricantes = class(TCustomEditor, IEditorFabricantes)
+    ActionList1: TActionList;
+    DADataSource: TDADataSource;
+    ListaFabricantes: TDBLookupListBox;
+    actAnadir: TAction;
+    actEliminar: TAction;
+    bEliminar: TButton;
+    actAceptar: TAction;
+    actCancelar: TAction;
+    bAceptar: TButton;
+    bCancelar: TButton;
+    actCerrar: TAction;
+    PageControl1: TPageControl;
+    TabSheet1: TTabSheet;
+    Label1: TLabel;
+    Label2: TLabel;
+    Bevel1: TBevel;
+    eCategoria: TLabel;
+    editFabricante: TEdit;
+    bAnadir: TButton;
+    procedure FormShow(Sender: TObject);
+    procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
+
+    procedure actAnadirExecute(Sender: TObject);
+    procedure actEliminarExecute(Sender: TObject);
+    procedure actAceptarExecute(Sender: TObject);
+    procedure actCancelarExecute(Sender: TObject);
+    procedure actCerrarExecute(Sender: TObject);
+    procedure actAnadirUpdate(Sender: TObject);
+    procedure actEliminarUpdate(Sender: TObject);
+  protected
+    FFabricantes: IBizFabricante;
+    FController: IFabricantesController;
+    function GetFabricantes: IBizFabricante;
+    procedure SetFabricantes(const Value: IBizFabricante);
+    function GetController : IFabricantesController;
+    procedure SetController (const Value : IFabricantesController);
+  public
+    property Fabricantes: IBizFabricante read GetFabricantes write SetFabricantes;
+    property Controller : IFabricantesController read GetController write SetController;
+  end;
+
+
+implementation
+{$R *.dfm}
+
+{ TfEditorFabricantes }
+
+uses
+  uDialogUtils;
+
+function TfEditorFabricantes.GetController: IFabricantesController;
+begin
+  Result := FController;
+end;
+
+function TfEditorFabricantes.GetFabricantes: IBizFabricante;
+begin
+  Result := FFabricantes;
+end;
+
+procedure TfEditorFabricantes.SetController(const Value: IFabricantesController);
+begin
+  FController := Value;
+end;
+
+procedure TfEditorFabricantes.SetFabricantes(const Value: IBizFabricante);
+begin
+  FFabricantes := Value;
+  DADataSource.DataTable := (FFabricantes as IBizFabricante).DataTable;
+  DADataSource.DataTable.Open;
+end;
+
+procedure TfEditorFabricantes.actAnadirExecute(Sender: TObject);
+begin
+  if not FController.Localizar(Fabricantes, editFabricante.Text) then
+  begin
+    Fabricantes.Append;
+    Fabricantes.DESCRIPCION := editFabricante.Text;
+    Fabricantes.Post;
+    editFabricante.Clear;
+    ListaFabricantes.SetFocus;
+  end
+  else
+    ShowErrorMessage('Ya existe la unidad ' + editFabricante.Text,
+      'Ya existe la unidad ''' + editFabricante.Text + ''' en la lista.');
+end;
+
+procedure TfEditorFabricantes.actEliminarExecute(Sender: TObject);
+begin
+  Fabricantes.Delete;
+  ListaFabricantes.SetFocus;
+end;
+
+procedure TfEditorFabricantes.actEliminarUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := (FFabricantes.DataTable.RecordCount > 0) and
+                                  (Length(ListaFabricantes.SelectedItem) > 0);
+
+end;
+
+procedure TfEditorFabricantes.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
+begin
+  FFabricantes := Nil;
+  FController := Nil;
+end;
+
+procedure TfEditorFabricantes.actAceptarExecute(Sender: TObject);
+begin
+  try
+    Fabricantes.DataTable.ApplyUpdates;
+  except
+    on E : Exception do begin
+      Fabricantes.DataTable.CancelUpdates;
+      ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
+      exit;
+    end;
+  end;
+  actCerrar.Execute;
+end;
+
+procedure TfEditorFabricantes.actCancelarExecute(Sender: TObject);
+begin
+  Fabricantes.DataTable.CancelUpdates;
+  actCerrar.Execute;
+end;
+
+procedure TfEditorFabricantes.actCerrarExecute(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfEditorFabricantes.actAnadirUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := (Length(editFabricante.Text) > 0)
+end;
+
+procedure TfEditorFabricantes.FormShow(Sender: TObject);
+begin
+  if not FFabricantes.DataTable.Active then
+     FFabricantes.DataTable.Active := true;
+
+  FFabricantes.DataTable.Sort(['DESCRIPCION'], [sdAscending]);
+  EditFabricante.SetFocus;
+end;
+
+end.

Source/Modulos/Fabricantes/Views/uFabricantesViewRegister.pas

@@ -0,0 +1,23 @@
+unit uFabricantesViewRegister;
+
+interface
+
+procedure RegisterViews;
+procedure UnregisterViews;
+
+implementation
+
+uses
+  uEditorRegistryUtils, uEditorFabricantes;
+
+procedure RegisterViews;
+begin
+  EditorRegistry.RegisterClass(TfEditorFabricantes, 'EditorFabricantes');
+end;
+
+procedure UnregisterViews;
+begin
+  EditorRegistry.UnRegisterClass(TfEditorFabricantes);
+end;
+
+end.

Source/Servicios/FactuGES.RODL

@@ -400,6 +400,15 @@
 </Interface>
 </Interfaces>
 </Service>
+<Service Name="srvFabricantes" UID="{EEE46742-B6B7-4373-8D7A-A80116C455F9}" Ancestor="DataAbstractService">
+<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
+<Interfaces>
+<Interface Name="Default" UID="{E26547E0-9E61-4BC8-B154-49ACC9339875}">
+<Operations>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
 </Services>
 <EventSinks>
 </EventSinks>

Source/Servicios/FactuGES_Intf.pas

@@ -47,6 +47,7 @@ const
   IsrvAlbaranesProveedor_IID : TGUID = '{66B71884-5CE4-4574-B825-60CDA956B628}';
   IsrvReferencias_IID : TGUID = '{B957528D-3BE1-412D-A35E-801C97CCD252}';
   IsrvUnidadesMedida_IID : TGUID = '{8B4C72F0-5ACE-46FF-9F00-D70C2B611652}';
+  IsrvFabricantes_IID : TGUID = '{E26547E0-9E61-4BC8-B154-49ACC9339875}';
 
   { Event ID's }
 
@@ -76,6 +77,7 @@ type
   IsrvAlbaranesProveedor = interface;
   IsrvReferencias = interface;
   IsrvUnidadesMedida = interface;
+  IsrvFabricantes = interface;
 
   TRdxEmpresasArray = class;
 
@@ -612,6 +614,23 @@ type
 
   end;
 
+  { IsrvFabricantes }
+  IsrvFabricantes = interface(IDataAbstractService)
+    ['{E26547E0-9E61-4BC8-B154-49ACC9339875}']
+  end;
+
+  { CosrvFabricantes }
+  CosrvFabricantes = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFabricantes;
+  end;
+
+  { TsrvFabricantes_Proxy }
+  TsrvFabricantes_Proxy = class(TDataAbstractService_Proxy, IsrvFabricantes)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
 implementation
 
 uses
@@ -1604,6 +1623,18 @@ begin
   result := 'srvUnidadesMedida';
 end;
 
+{ CosrvFabricantes }
+
+class function CosrvFabricantes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFabricantes;
+begin
+  result := TsrvFabricantes_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TsrvFabricantes_Proxy.__GetInterfaceName:string;
+begin
+  result := 'srvFabricantes';
+end;
+
 initialization
   RegisterROClass(TRdxLoginInfo);
   RegisterROClass(TRdxEmpresasArray);
@@ -1631,6 +1662,7 @@ initialization
   RegisterProxyClass(IsrvAlbaranesProveedor_IID, TsrvAlbaranesProveedor_Proxy);
   RegisterProxyClass(IsrvReferencias_IID, TsrvReferencias_Proxy);
   RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy);
+  RegisterProxyClass(IsrvFabricantes_IID, TsrvFabricantes_Proxy);
 
 
 finalization
@@ -1660,5 +1692,6 @@ finalization
   UnregisterProxyClass(IsrvAlbaranesProveedor_IID);
   UnregisterProxyClass(IsrvReferencias_IID);
   UnregisterProxyClass(IsrvUnidadesMedida_IID);
+  UnregisterProxyClass(IsrvFabricantes_IID);
 
 end.

Source/Servicios/FactuGES_Invk.pas

@@ -188,6 +188,12 @@ type
   published
   end;
 
+  TsrvFabricantes_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+  end;
+
 implementation
 
 uses

Source/Servidor/FactuGES_Server.dpr

@@ -103,8 +103,6 @@ uses
   uRptWordPresupuestoCliente in '..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas' {RptWordPresupuestosCliente: TDataModule},
   AHWord97 in 'Utiles\AHWord97.pas',
   uSistemaFunc in '..\Base\Utiles\uSistemaFunc.pas',
-  schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
-  schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
   uRptWordAlbaranCliente in '..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas' {RptWordAlbaranCliente: TDataModule},
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
@@ -114,7 +112,12 @@ uses
   uRptFichasEmpleado_Server in '..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas' {RptFichasEmpleado: TDataModule},
   uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule},
   uRptWordFacturaCliente in '..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas' {RptWordFacturaCliente: TDataModule},
-  uCiaServiceTools in 'Utiles\uCiaServiceTools.pas';
+  uCiaServiceTools in 'Utiles\uCiaServiceTools.pas',
+  srvFabricantes_Impl in '..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas' {srvFabricantes: TDataAbstractService},
+  schFabricantesClient_Intf in '..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas',
+  schFabricantesServer_Intf in '..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas',
+  schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
+  schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -42,9 +42,6 @@
       
       
       
-      
-      
-      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@@ -116,6 +113,12 @@
       <Form>srvContactos</Form>
       <DesignClass>TDARemoteService</DesignClass>
     </DCCReference>
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
+      <Form>srvFabricantes</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
     <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
     <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />