se activa historico de movimientos

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

Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.dfm

@@ -72,11 +72,25 @@ inherited DataModuleHistoricoMovimientos: TDataModuleHistoricoMovimientos
         DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA'
       end
       item
-        Name = 'REFERENCIA_PROV'
+        Name = 'UNIDAD_MEDIDA'
         DataType = datString
         Size = 255
-        DisplayLabel = 'Ref. proveedor'
+        DisplayLabel = 'Unidad de medida'
-        DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA_PROV'
+        DictionaryEntry = 'HistoricoMovimientos_UNIDAD_MEDIDA'
+      end
+      item
+        Name = 'FABRICANTE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Fabricante'
+        DictionaryEntry = 'HistoricoMovimientos_FABRICANTE'
+      end
+      item
+        Name = 'REFERENCIA_FABR'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Ref. fabricante'
+        DictionaryEntry = 'HistoricoMovimientos_REFERENCIA_FABR'
       end
       item
         Name = 'DESCRIPCION'

Source/Modulos/Historico de movimientos/HistoricoMovimientos_Group.groupproj

@@ -8,6 +8,7 @@
     <Projects Include="..\..\Cliente\FactuGES.dproj" />
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
+    <Projects Include="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
     <Projects Include="Controller\HistoricoMovimientos_controller.dproj" />
     <Projects Include="Data\HistoricoMovimientos_data.dproj" />
@@ -19,7 +20,7 @@
     <Borland.Personality>Default.Personality</Borland.Personality>
     <Borland.ProjectType />
     <BorlandProject>
-  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Target Name="Base">
     <MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
@@ -111,14 +112,23 @@
   <Target Name="FactuGES_Server:Make">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
   </Target>
+  <Target Name="AlbaranesProveedor_view">
+    <MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
+  </Target>
+  <Target Name="AlbaranesProveedor_view:Clean">
+    <MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="AlbaranesProveedor_view:Make">
+    <MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;Contactos_view;HistoricoMovimientos_model;HistoricoMovimientos_data;HistoricoMovimientos_controller;HistoricoMovimientos_view;HistoricoMovimientos_plugin;FactuGES;FactuGES_Server" />
+    <CallTarget Targets="Base;GUIBase;Contactos_view;HistoricoMovimientos_model;HistoricoMovimientos_data;HistoricoMovimientos_controller;HistoricoMovimientos_view;HistoricoMovimientos_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;HistoricoMovimientos_model:Clean;HistoricoMovimientos_data:Clean;HistoricoMovimientos_controller:Clean;HistoricoMovimientos_view:Clean;HistoricoMovimientos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;HistoricoMovimientos_model:Clean;HistoricoMovimientos_data:Clean;HistoricoMovimientos_controller:Clean;HistoricoMovimientos_view:Clean;HistoricoMovimientos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;HistoricoMovimientos_model:Make;HistoricoMovimientos_data:Make;HistoricoMovimientos_controller:Make;HistoricoMovimientos_view:Make;HistoricoMovimientos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;HistoricoMovimientos_model:Make;HistoricoMovimientos_data:Make;HistoricoMovimientos_controller:Make;HistoricoMovimientos_view:Make;HistoricoMovimientos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosClient_Intf.pas

@@ -3,13 +3,13 @@ unit schHistoricoMovimientosClient_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_HistoricoMovimientos = '{78F8AAD8-7791-4695-84E0-778DD741063E}';
+  RID_HistoricoMovimientos = '{612A1E7F-B9C3-498A-A41B-1494C47F5DAD}';
 
   { Data table names }
   nme_HistoricoMovimientos = 'HistoricoMovimientos';
@@ -22,7 +22,9 @@ const
   fld_HistoricoMovimientosID_ARTICULO = 'ID_ARTICULO';
   fld_HistoricoMovimientosFAMILIA = 'FAMILIA';
   fld_HistoricoMovimientosREFERENCIA = 'REFERENCIA';
-  fld_HistoricoMovimientosREFERENCIA_PROV = 'REFERENCIA_PROV';
+  fld_HistoricoMovimientosUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
+  fld_HistoricoMovimientosFABRICANTE = 'FABRICANTE';
+  fld_HistoricoMovimientosREFERENCIA_FABR = 'REFERENCIA_FABR';
   fld_HistoricoMovimientosDESCRIPCION = 'DESCRIPCION';
   fld_HistoricoMovimientosTIPO_MOVIMIENTO = 'TIPO_MOVIMIENTO';
   fld_HistoricoMovimientosCANTIDAD = 'CANTIDAD';
@@ -36,16 +38,18 @@ const
   idx_HistoricoMovimientosID_ARTICULO = 4;
   idx_HistoricoMovimientosFAMILIA = 5;
   idx_HistoricoMovimientosREFERENCIA = 6;
-  idx_HistoricoMovimientosREFERENCIA_PROV = 7;
+  idx_HistoricoMovimientosUNIDAD_MEDIDA = 7;
-  idx_HistoricoMovimientosDESCRIPCION = 8;
+  idx_HistoricoMovimientosFABRICANTE = 8;
-  idx_HistoricoMovimientosTIPO_MOVIMIENTO = 9;
+  idx_HistoricoMovimientosREFERENCIA_FABR = 9;
-  idx_HistoricoMovimientosCANTIDAD = 10;
+  idx_HistoricoMovimientosDESCRIPCION = 10;
-  idx_HistoricoMovimientosCAUSA = 11;
+  idx_HistoricoMovimientosTIPO_MOVIMIENTO = 11;
+  idx_HistoricoMovimientosCANTIDAD = 12;
+  idx_HistoricoMovimientosCAUSA = 13;
 
 type
   { IHistoricoMovimientos }
   IHistoricoMovimientos = interface(IDAStronglyTypedDataTable)
-  ['{13452610-3745-4EF7-9F6D-224ACA695E83}']
+  ['{AFB2228F-B55B-476F-9C1F-664A1DA2C27E}']
     { Property getters and setters }
     function GetFECHAValue: DateTime;
     procedure SetFECHAValue(const aValue: DateTime);
@@ -75,10 +79,18 @@ type
     procedure SetREFERENCIAValue(const aValue: String);
     function GetREFERENCIAIsNull: Boolean;
     procedure SetREFERENCIAIsNull(const aValue: Boolean);
-    function GetREFERENCIA_PROVValue: String;
+    function GetUNIDAD_MEDIDAValue: String;
-    procedure SetREFERENCIA_PROVValue(const aValue: String);
+    procedure SetUNIDAD_MEDIDAValue(const aValue: String);
-    function GetREFERENCIA_PROVIsNull: Boolean;
+    function GetUNIDAD_MEDIDAIsNull: Boolean;
-    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
+    procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
+    function GetFABRICANTEValue: String;
+    procedure SetFABRICANTEValue(const aValue: String);
+    function GetFABRICANTEIsNull: Boolean;
+    procedure SetFABRICANTEIsNull(const aValue: Boolean);
+    function GetREFERENCIA_FABRValue: String;
+    procedure SetREFERENCIA_FABRValue(const aValue: String);
+    function GetREFERENCIA_FABRIsNull: Boolean;
+    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
     function GetDESCRIPCIONIsNull: Boolean;
@@ -112,8 +124,12 @@ type
     property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
-    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
+    property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
-    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
+    property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
+    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
+    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
+    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
+    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
     property TIPO_MOVIMIENTO: String read GetTIPO_MOVIMIENTOValue write SetTIPO_MOVIMIENTOValue;
@@ -125,7 +141,7 @@ type
   end;
 
   { THistoricoMovimientosDataTableRules }
-  THistoricoMovimientosDataTableRules = class(TIntfObjectDADataTableRules, IHistoricoMovimientos)
+  THistoricoMovimientosDataTableRules = class(TDADataTableRules, IHistoricoMovimientos)
   private
   protected
     { Property getters and setters }
@@ -157,10 +173,18 @@ type
     procedure SetREFERENCIAValue(const aValue: String); virtual;
     function GetREFERENCIAIsNull: Boolean; virtual;
     procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
-    function GetREFERENCIA_PROVValue: String; virtual;
+    function GetUNIDAD_MEDIDAValue: String; virtual;
-    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
+    procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
-    function GetREFERENCIA_PROVIsNull: Boolean; virtual;
+    function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
-    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
+    procedure SetUNIDAD_MEDIDAIsNull(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 GetREFERENCIA_FABRValue: String; virtual;
+    procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
+    function GetREFERENCIA_FABRIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
     function GetDESCRIPCIONValue: String; virtual;
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
     function GetDESCRIPCIONIsNull: Boolean; virtual;
@@ -193,8 +217,12 @@ type
     property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
-    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
+    property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
-    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
+    property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
+    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
+    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
+    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
+    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
     property TIPO_MOVIMIENTO: String read GetTIPO_MOVIMIENTOValue write SetTIPO_MOVIMIENTOValue;
@@ -372,25 +400,67 @@ begin
     DataTable.Fields[idx_HistoricoMovimientosREFERENCIA].AsVariant := Null;
 end;
 
-function THistoricoMovimientosDataTableRules.GetREFERENCIA_PROVValue: String;
+function THistoricoMovimientosDataTableRules.GetUNIDAD_MEDIDAValue: String;
 begin
-  result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].AsString;
+  result := DataTable.Fields[idx_HistoricoMovimientosUNIDAD_MEDIDA].AsString;
 end;
 
-procedure THistoricoMovimientosDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
+procedure THistoricoMovimientosDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
 begin
-  DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].AsString := aValue;
+  DataTable.Fields[idx_HistoricoMovimientosUNIDAD_MEDIDA].AsString := aValue;
 end;
 
-function THistoricoMovimientosDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
+function THistoricoMovimientosDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].IsNull;
+  result := DataTable.Fields[idx_HistoricoMovimientosUNIDAD_MEDIDA].IsNull;
 end;
 
-procedure THistoricoMovimientosDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
+procedure THistoricoMovimientosDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].AsVariant := Null;
+    DataTable.Fields[idx_HistoricoMovimientosUNIDAD_MEDIDA].AsVariant := Null;
+end;
+
+function THistoricoMovimientosDataTableRules.GetFABRICANTEValue: String;
+begin
+  result := DataTable.Fields[idx_HistoricoMovimientosFABRICANTE].AsString;
+end;
+
+procedure THistoricoMovimientosDataTableRules.SetFABRICANTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_HistoricoMovimientosFABRICANTE].AsString := aValue;
+end;
+
+function THistoricoMovimientosDataTableRules.GetFABRICANTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_HistoricoMovimientosFABRICANTE].IsNull;
+end;
+
+procedure THistoricoMovimientosDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_HistoricoMovimientosFABRICANTE].AsVariant := Null;
+end;
+
+function THistoricoMovimientosDataTableRules.GetREFERENCIA_FABRValue: String;
+begin
+  result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_FABR].AsString;
+end;
+
+procedure THistoricoMovimientosDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
+begin
+  DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_FABR].AsString := aValue;
+end;
+
+function THistoricoMovimientosDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_FABR].IsNull;
+end;
+
+procedure THistoricoMovimientosDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_FABR].AsVariant := Null;
 end;
 
 function THistoricoMovimientosDataTableRules.GetDESCRIPCIONValue: String;

Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosServer_Intf.pas

@@ -9,12 +9,12 @@ 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_HistoricoMovimientosDelta = '{3CD3F6E4-FEEA-4235-AA03-835172F2594A}';
+  RID_HistoricoMovimientosDelta = '{FDA16BD5-0E9F-4BB8-A13E-ABEB2EB044BB}';
 
 type
   { IHistoricoMovimientosDelta }
   IHistoricoMovimientosDelta = interface(IHistoricoMovimientos)
-  ['{3CD3F6E4-FEEA-4235-AA03-835172F2594A}']
+  ['{FDA16BD5-0E9F-4BB8-A13E-ABEB2EB044BB}']
     { Property getters and setters }
     function GetOldFECHAValue : DateTime;
     function GetOldID_ALMACENValue : Integer;
@@ -23,7 +23,9 @@ type
     function GetOldID_ARTICULOValue : Integer;
     function GetOldFAMILIAValue : String;
     function GetOldREFERENCIAValue : String;
-    function GetOldREFERENCIA_PROVValue : String;
+    function GetOldUNIDAD_MEDIDAValue : String;
+    function GetOldFABRICANTEValue : String;
+    function GetOldREFERENCIA_FABRValue : String;
     function GetOldDESCRIPCIONValue : String;
     function GetOldTIPO_MOVIMIENTOValue : String;
     function GetOldCANTIDADValue : Integer;
@@ -37,7 +39,9 @@ type
     property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
     property OldFAMILIA : String read GetOldFAMILIAValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
-    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
+    property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
+    property OldFABRICANTE : String read GetOldFABRICANTEValue;
+    property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
     property OldTIPO_MOVIMIENTO : String read GetOldTIPO_MOVIMIENTOValue;
     property OldCANTIDAD : Integer read GetOldCANTIDADValue;
@@ -91,12 +95,24 @@ type
     function GetOldREFERENCIAIsNull: Boolean; virtual;
     procedure SetREFERENCIAValue(const aValue: String); virtual;
     procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
-    function GetREFERENCIA_PROVValue: String; virtual;
+    function GetUNIDAD_MEDIDAValue: String; virtual;
-    function GetREFERENCIA_PROVIsNull: Boolean; virtual;
+    function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
-    function GetOldREFERENCIA_PROVValue: String; virtual;
+    function GetOldUNIDAD_MEDIDAValue: String; virtual;
-    function GetOldREFERENCIA_PROVIsNull: Boolean; virtual;
+    function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
-    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
+    procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
-    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
+    procedure SetUNIDAD_MEDIDAIsNull(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 GetREFERENCIA_FABRValue: String; virtual;
+    function GetREFERENCIA_FABRIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_FABRValue: String; virtual;
+    function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
     function GetDESCRIPCIONValue: String; virtual;
     function GetDESCRIPCIONIsNull: Boolean; virtual;
     function GetOldDESCRIPCIONValue: String; virtual;
@@ -151,10 +167,18 @@ type
     property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
-    property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
+    property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
-    property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
+    property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
-    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
+    property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
-    property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull;
+    property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
+    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 REFERENCIA_FABR : String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
+    property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
+    property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
+    property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
     property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
@@ -411,35 +435,97 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA] := Null;
 end;
 
-function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
+function THistoricoMovimientosBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA];
 end;
 
-function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
+function THistoricoMovimientosBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA]);
 end;
 
-function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
+function THistoricoMovimientosBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA_PROV];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA];
 end;
 
-function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
+function THistoricoMovimientosBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA_PROV]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA]);
 end;
 
-procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
+procedure THistoricoMovimientosBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA] := aValue;
 end;
 
-procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
+procedure THistoricoMovimientosBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA] := Null;
+end;
+
+function THistoricoMovimientosBusinessProcessorRules.GetFABRICANTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFABRICANTE];
+end;
+
+function THistoricoMovimientosBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFABRICANTE]);
+end;
+
+function THistoricoMovimientosBusinessProcessorRules.GetOldFABRICANTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosFABRICANTE];
+end;
+
+function THistoricoMovimientosBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosFABRICANTE]);
+end;
+
+procedure THistoricoMovimientosBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFABRICANTE] := aValue;
+end;
+
+procedure THistoricoMovimientosBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFABRICANTE] := Null;
+end;
+
+function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIA_FABRValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_FABR];
+end;
+
+function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIA_FABRIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_FABR]);
+end;
+
+function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIA_FABRValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA_FABR];
+end;
+
+function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIA_FABRIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA_FABR]);
+end;
+
+procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIA_FABRValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_FABR] := aValue;
+end;
+
+procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_FABR] := Null;
 end;
 
 function THistoricoMovimientosBusinessProcessorRules.GetDESCRIPCIONValue: String;

Source/Modulos/Historico de movimientos/Plugin/uPluginHistoricoMovimientos.dfm

@@ -144,7 +144,6 @@ object PluginHistoricoMovimientos: TPluginHistoricoMovimientos
     object actHistoricoMovimientos: TAction
       Category = 'Log'#237'stica'
       Caption = 'Hist'#243'rico de movimiento'
-      Enabled = False
       ImageIndex = 0
       OnExecute = actHistoricoMovimientosExecute
     end

Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm

@@ -65,8 +65,16 @@ object srvHistoricoMovimientos: TsrvHistoricoMovimientos
                 TableField = 'REFERENCIA'
               end
               item
-                DatasetField = 'REFERENCIA_PROV'
+                DatasetField = 'UNIDAD_MEDIDA'
-                TableField = 'REFERENCIA_PROV'
+                TableField = 'UNIDAD_MEDIDA'
+              end
+              item
+                DatasetField = 'FABRICANTE'
+                TableField = 'FABRICANTE'
+              end
+              item
+                DatasetField = 'REFERENCIA_FABR'
+                TableField = 'REFERENCIA_FABR'
               end>
           end>
         Name = 'HistoricoMovimientos'
@@ -113,10 +121,22 @@ object srvHistoricoMovimientos: TsrvHistoricoMovimientos
             DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA'
           end
           item
-            Name = 'REFERENCIA_PROV'
+            Name = 'UNIDAD_MEDIDA'
             DataType = datString
             Size = 255
-            DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA_PROV'
+            DictionaryEntry = 'HistoricoMovimientos_UNIDAD_MEDIDA'
+          end
+          item
+            Name = 'FABRICANTE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'HistoricoMovimientos_FABRICANTE'
+          end
+          item
+            Name = 'REFERENCIA_FABR'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'HistoricoMovimientos_REFERENCIA_FABR'
           end
           item
             Name = 'DESCRIPCION'
@@ -219,6 +239,24 @@ object srvHistoricoMovimientos: TsrvHistoricoMovimientos
         DataType = datString
         Size = 255
         DisplayLabel = 'Ref. proveedor'
+      end
+      item
+        Name = 'HistoricoMovimientos_UNIDAD_MEDIDA'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Unidad de medida'
+      end
+      item
+        Name = 'HistoricoMovimientos_FABRICANTE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Fabricante'
+      end
+      item
+        Name = 'HistoricoMovimientos_REFERENCIA_FABR'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Ref. fabricante'
       end>
     Left = 166
     Top = 22

Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm

@@ -5,7 +5,7 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
   ClientHeight = 620
   ClientWidth = 902
   ExplicitWidth = 910
-  ExplicitHeight = 647
+  ExplicitHeight = 654
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -137,7 +137,7 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
     Width = 902
     ExplicitWidth = 902
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 358
+      ExplicitWidth = 501
     end
     inherited tbxFiltro: TTBXToolbar
       ExplicitWidth = 269
@@ -224,15 +224,23 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
             Width = 121
           end
           inherited edtFechaFinFiltro: TcxDateEdit
-            Left = 553
+            Left = 225
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 553
+            ExplicitLeft = 225
             ExplicitWidth = 121
             Width = 121
           end
+          inherited eLista: TcxComboBox
+            Left = 383
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 383
+          end
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel
           Width = 902
@@ -263,6 +271,14 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
         BuiltInReportLink = True
       end
     end
+    inherited cxViewGridPopupMenu: TcxGridPopupMenu
+      PopupMenus = <
+        item
+          GridView = frViewHistoricoMovimientos1.cxGridView
+          HitTypes = [gvhtCell]
+          Index = 0
+        end>
+    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 88

Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm

@@ -40,14 +40,15 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
         Properties.Items = <
           item
             Description = 'Entrada'
-            ImageIndex = 1
+            ImageIndex = 2
             Value = 'Entrada'
           end
           item
             Description = 'Salida'
-            ImageIndex = 2
+            ImageIndex = 3
             Value = 'Salida'
           end>
+        Properties.LargeImages = GridPNGImageList
       end
       object cxGridViewFAMILIA: TcxGridDBColumn
         Caption = 'Familia'
@@ -56,12 +57,18 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
       object cxGridViewREFERENCIA: TcxGridDBColumn
         DataBinding.FieldName = 'REFERENCIA'
       end
-      object cxGridViewREFERENCIA_PROV: TcxGridDBColumn
-        DataBinding.FieldName = 'REFERENCIA_PROV'
-      end
       object cxGridViewDESCRIPCION: TcxGridDBColumn
         DataBinding.FieldName = 'DESCRIPCION'
       end
+      object cxGridViewFABRICANTE: TcxGridDBColumn
+        DataBinding.FieldName = 'FABRICANTE'
+      end
+      object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
+        DataBinding.FieldName = 'REFERENCIA_FABR'
+      end
+      object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
+        DataBinding.FieldName = 'UNIDAD_MEDIDA'
+      end
       object cxGridViewCANTIDAD: TcxGridDBColumn
         DataBinding.FieldName = 'CANTIDAD'
         PropertiesClassName = 'TcxSpinEditProperties'
@@ -95,6 +102,8 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 510
+          Width = 510
         end
         inherited edtFechaIniFiltro: TcxDateEdit
           Style.LookAndFeel.SkinName = ''
@@ -108,6 +117,14 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
         end
+        inherited eLista: TcxComboBox
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 215
+          Width = 215
+        end
       end
     end
   end
@@ -230,6 +247,25 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
         Name = 'Icono_header'
         Background = clWindow
       end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD2520000015D4944415478DA
+          63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
+          3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
+          24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
+          E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
+          60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
+          10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
+          1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
+          BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
+          06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
+          E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
+          00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
+          00000049454E44AE426082}
+        Name = 'PngImage3'
+        Background = clWindow
+      end
       item
         PngImage.Data = {
           89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF

Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas

@@ -37,10 +37,12 @@ type
     cxGridViewID_ALMACEN: TcxGridDBColumn;
     cxGridViewFECHA: TcxGridDBColumn;
     cxGridViewCANTIDAD: TcxGridDBColumn;
-    cxGridViewREFERENCIA_PROV: TcxGridDBColumn;
+    cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
     cxGridViewTIPO_MOVIMIENTO: TcxGridDBColumn;
     cxGridViewCAUSA: TcxGridDBColumn;
     cxStyleSalida: TcxStyle;
+    cxGridViewFABRICANTE: TcxGridDBColumn;
+    cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
 
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

Source/Servidor/FactuGES_Server.dpr

@@ -64,8 +64,6 @@ uses
   srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService},
   srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService},
   srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDataAbstractService},
-  schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
-  schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas',
   uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule},
   uBizRemesasClienteServer in '..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas',
   uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas',
@@ -129,7 +127,9 @@ uses
   schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
   schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
   schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
-  schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas';
+  schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
+  schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
+  schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}