diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
index 2d901185..9ee84ef3 100644
--- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm	
@@ -330,7 +330,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
       end
       item
         Name = 'CANTIDAD'
-        DataType = datInteger
+        DataType = datFloat
         Alignment = taRightJustify
         DictionaryEntry = 'CANTIDAD'
       end
@@ -399,7 +399,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
       end
       item
         Name = 'CANTIDAD'
-        DataType = datInteger
+        DataType = datFloat
         Alignment = taRightJustify
         DictionaryEntry = 'CANTIDAD'
       end
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
index 9f765800..474b550b 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas	
@@ -3,15 +3,15 @@ unit schPedidosProveedorClient_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_PedidosProveedor = '{8C7AFC57-4E9B-41B1-B1CE-118FA2D7F3FB}';
-  RID_PedidosProveedor_Detalles = '{4B38181F-5E28-4B75-B25B-8BC05C23F91F}';
-  RID_PedidosProveedor_Articulos_Pendientes = '{82C98F5E-B55B-48E6-9C40-EC793DB43206}';
+  RID_PedidosProveedor = '{4CB69ADB-F44A-4A75-85F7-9979348A5A4F}';
+  RID_PedidosProveedor_Detalles = '{10828B55-F8E8-4748-A031-675BE16BE268}';
+  RID_PedidosProveedor_Articulos_Pendientes = '{A5CBDE98-7F16-45C9-A42D-51E06CFB3F01}';
 
   { Data table names }
   nme_PedidosProveedor = 'PedidosProveedor';
@@ -157,7 +157,7 @@ const
 type
   { IPedidosProveedor }
   IPedidosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{1E1C751D-BCCB-4D25-879A-BB0F0F023104}']
+  ['{662D38EC-3CAA-4034-8A93-F8BEDFCDEFB0}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -403,7 +403,7 @@ type
   end;
 
   { TPedidosProveedorDataTableRules }
-  TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor)
+  TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
   private
     f_OBSERVACIONES: IROStrings;
     f_INCIDENCIAS: IROStrings;
@@ -660,7 +660,7 @@ type
 
   { IPedidosProveedor_Detalles }
   IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{988BCD06-417B-46FC-8622-59B50138FFCB}']
+  ['{DC9CA387-5FEC-48F1-AA50-3C235D7DDEDE}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -682,8 +682,8 @@ type
     procedure SetCONCEPTOValue(const aValue: String);
     function GetCONCEPTOIsNull: Boolean;
     procedure SetCONCEPTOIsNull(const aValue: Boolean);
-    function GetCANTIDADValue: Integer;
-    procedure SetCANTIDADValue(const aValue: Integer);
+    function GetCANTIDADValue: Float;
+    procedure SetCANTIDADValue(const aValue: Float);
     function GetCANTIDADIsNull: Boolean;
     procedure SetCANTIDADIsNull(const aValue: Boolean);
     function GetUNIDAD_MEDIDAValue: String;
@@ -739,7 +739,7 @@ type
     property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
     property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
     property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
-    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@@ -764,7 +764,7 @@ type
   end;
 
   { TPedidosProveedor_DetallesDataTableRules }
-  TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles)
+  TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles)
   private
   protected
     { Property getters and setters }
@@ -788,8 +788,8 @@ type
     procedure SetCONCEPTOValue(const aValue: String); virtual;
     function GetCONCEPTOIsNull: Boolean; virtual;
     procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
-    function GetCANTIDADValue: Integer; virtual;
-    procedure SetCANTIDADValue(const aValue: Integer); virtual;
+    function GetCANTIDADValue: Float; virtual;
+    procedure SetCANTIDADValue(const aValue: Float); virtual;
     function GetCANTIDADIsNull: Boolean; virtual;
     procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
     function GetUNIDAD_MEDIDAValue: String; virtual;
@@ -844,7 +844,7 @@ type
     property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
     property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
     property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
-    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@@ -875,7 +875,7 @@ type
 
   { IPedidosProveedor_Articulos_Pendientes }
   IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
-  ['{31F1F705-E8AB-4569-8AEC-C57A05BC3507}']
+  ['{DA816701-F81A-4BAB-A93D-AF4D96E5F977}']
     { Property getters and setters }
     function GetID_PEDIDOValue: Integer;
     procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -893,8 +893,8 @@ type
     procedure SetCONCEPTOValue(const aValue: String);
     function GetCONCEPTOIsNull: Boolean;
     procedure SetCONCEPTOIsNull(const aValue: Boolean);
-    function GetCANTIDADValue: Integer;
-    procedure SetCANTIDADValue(const aValue: Integer);
+    function GetCANTIDADValue: Float;
+    procedure SetCANTIDADValue(const aValue: Float);
     function GetCANTIDADIsNull: Boolean;
     procedure SetCANTIDADIsNull(const aValue: Boolean);
     function GetREFERENCIA_PROVEEDORValue: String;
@@ -912,14 +912,14 @@ type
     property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
     property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
     property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
-    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
     property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
   end;
 
   { TPedidosProveedor_Articulos_PendientesDataTableRules }
-  TPedidosProveedor_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
+  TPedidosProveedor_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
   private
   protected
     { Property getters and setters }
@@ -939,8 +939,8 @@ type
     procedure SetCONCEPTOValue(const aValue: String); virtual;
     function GetCONCEPTOIsNull: Boolean; virtual;
     procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
-    function GetCANTIDADValue: Integer; virtual;
-    procedure SetCANTIDADValue(const aValue: Integer); virtual;
+    function GetCANTIDADValue: Float; virtual;
+    procedure SetCANTIDADValue(const aValue: Float); virtual;
     function GetCANTIDADIsNull: Boolean; virtual;
     procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
     function GetREFERENCIA_PROVEEDORValue: String; virtual;
@@ -957,7 +957,7 @@ type
     property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
     property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
     property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
-    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
     property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
@@ -1952,14 +1952,14 @@ begin
     DataTable.Fields[idx_PedidosProveedor_DetallesCONCEPTO].AsVariant := Null;
 end;
 
-function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADValue: Integer;
+function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADValue: Float;
 begin
-  result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsInteger;
+  result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsFloat;
 end;
 
-procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
+procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsInteger := aValue;
+  DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsFloat := aValue;
 end;
 
 function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
@@ -2279,14 +2279,14 @@ begin
     DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsVariant := Null;
 end;
 
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADValue: Integer;
+function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADValue: Float;
 begin
-  result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsInteger;
+  result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsFloat;
 end;
 
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADValue(const aValue: Integer);
+procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsInteger := aValue;
+  DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsFloat := aValue;
 end;
 
 function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADIsNull: boolean;
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
index 4d062bf6..1ea3215f 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas	
@@ -9,14 +9,14 @@ 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_PedidosProveedorDelta = '{9FBBD63F-B676-4988-808C-958F184692D7}';
-  RID_PedidosProveedor_DetallesDelta = '{FAC4BAF7-A40E-4569-95E0-F0DED9DE3BFC}';
-  RID_PedidosProveedor_Articulos_PendientesDelta = '{A7CF42B4-398C-4C58-B11C-4FC1E691EEC1}';
+  RID_PedidosProveedorDelta = '{8408B177-CF20-4F20-81E0-C05E43FECA8A}';
+  RID_PedidosProveedor_DetallesDelta = '{01EDC541-A23C-4981-BC41-F2352465DC6E}';
+  RID_PedidosProveedor_Articulos_PendientesDelta = '{96EE04BA-6E41-482F-BBAA-D3888AAF2BB0}';
 
 type
   { IPedidosProveedorDelta }
   IPedidosProveedorDelta = interface(IPedidosProveedor)
-  ['{9FBBD63F-B676-4988-808C-958F184692D7}']
+  ['{8408B177-CF20-4F20-81E0-C05E43FECA8A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -520,14 +520,14 @@ type
 
   { IPedidosProveedor_DetallesDelta }
   IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
-  ['{FAC4BAF7-A40E-4569-95E0-F0DED9DE3BFC}']
+  ['{01EDC541-A23C-4981-BC41-F2352465DC6E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
     function GetOldPOSICIONValue : Integer;
     function GetOldTIPO_DETALLEValue : String;
     function GetOldCONCEPTOValue : String;
-    function GetOldCANTIDADValue : Integer;
+    function GetOldCANTIDADValue : Float;
     function GetOldUNIDAD_MEDIDAValue : String;
     function GetOldIMPORTE_UNIDADValue : Currency;
     function GetOldIMPORTE_TOTALValue : Currency;
@@ -545,7 +545,7 @@ type
     property OldPOSICION : Integer read GetOldPOSICIONValue;
     property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
     property OldCONCEPTO : String read GetOldCONCEPTOValue;
-    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+    property OldCANTIDAD : Float read GetOldCANTIDADValue;
     property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
     property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
@@ -593,11 +593,11 @@ type
     function GetOldCONCEPTOIsNull: Boolean; virtual;
     procedure SetCONCEPTOValue(const aValue: String); virtual;
     procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
-    function GetCANTIDADValue: Integer; virtual;
+    function GetCANTIDADValue: Float; virtual;
     function GetCANTIDADIsNull: Boolean; virtual;
-    function GetOldCANTIDADValue: Integer; virtual;
+    function GetOldCANTIDADValue: Float; virtual;
     function GetOldCANTIDADIsNull: Boolean; virtual;
-    procedure SetCANTIDADValue(const aValue: Integer); virtual;
+    procedure SetCANTIDADValue(const aValue: Float); virtual;
     procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
     function GetUNIDAD_MEDIDAValue: String; virtual;
     function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
@@ -681,9 +681,9 @@ type
     property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
     property OldCONCEPTO : String read GetOldCONCEPTOValue;
     property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
-    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
-    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+    property OldCANTIDAD : Float read GetOldCANTIDADValue;
     property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
     property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@@ -734,13 +734,13 @@ type
 
   { IPedidosProveedor_Articulos_PendientesDelta }
   IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
-  ['{A7CF42B4-398C-4C58-B11C-4FC1E691EEC1}']
+  ['{96EE04BA-6E41-482F-BBAA-D3888AAF2BB0}']
     { Property getters and setters }
     function GetOldID_PEDIDOValue : Integer;
     function GetOldREFERENCIAValue : String;
     function GetOldID_ARTICULOValue : Integer;
     function GetOldCONCEPTOValue : String;
-    function GetOldCANTIDADValue : Integer;
+    function GetOldCANTIDADValue : Float;
     function GetOldREFERENCIA_PROVEEDORValue : String;
 
     { Properties }
@@ -748,7 +748,7 @@ type
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
     property OldCONCEPTO : String read GetOldCONCEPTOValue;
-    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+    property OldCANTIDAD : Float read GetOldCANTIDADValue;
     property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
   end;
 
@@ -781,11 +781,11 @@ type
     function GetOldCONCEPTOIsNull: Boolean; virtual;
     procedure SetCONCEPTOValue(const aValue: String); virtual;
     procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
-    function GetCANTIDADValue: Integer; virtual;
+    function GetCANTIDADValue: Float; virtual;
     function GetCANTIDADIsNull: Boolean; virtual;
-    function GetOldCANTIDADValue: Integer; virtual;
+    function GetOldCANTIDADValue: Float; virtual;
     function GetOldCANTIDADIsNull: Boolean; virtual;
-    procedure SetCANTIDADValue(const aValue: Integer); virtual;
+    procedure SetCANTIDADValue(const aValue: Float); virtual;
     procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
     function GetREFERENCIA_PROVEEDORValue: String; virtual;
     function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
@@ -811,9 +811,9 @@ type
     property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
     property OldCONCEPTO : String read GetOldCONCEPTOValue;
     property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
-    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
-    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+    property OldCANTIDAD : Float read GetOldCANTIDADValue;
     property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
     property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
     property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
@@ -2263,7 +2263,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO] := Null;
 end;
 
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
 end;
@@ -2273,7 +2273,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
 end;
 
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
 end;
@@ -2283,7 +2283,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
 end;
 
-procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD] := aValue;
 end;
@@ -2740,7 +2740,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO] := Null;
 end;
 
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADValue: Integer;
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
 end;
@@ -2750,7 +2750,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
 end;
 
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
 end;
@@ -2760,7 +2760,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
 end;
 
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD] := aValue;
 end;
diff --git a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj
index 57f0e5e0..5a3269ee 100644
--- a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj	
+++ b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj	
@@ -21,6 +21,7 @@
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
     <Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
     <Projects Include="..\Inventario\Controller\Inventario_controller.dproj" />
+    <Projects Include="..\Inventario\Data\Inventario_data.dproj" />
     <Projects Include="..\Inventario\Views\Inventario_view.dproj" />
     <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
     <Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
@@ -271,14 +272,23 @@
   <Target Name="PresupuestosCliente_view:Make">
     <MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="Inventario_data">
+    <MSBuild Projects="..\Inventario\Data\Inventario_data.dproj" Targets="" />
+  </Target>
+  <Target Name="Inventario_data:Clean">
+    <MSBuild Projects="..\Inventario\Data\Inventario_data.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Inventario_data:Make">
+    <MSBuild Projects="..\Inventario\Data\Inventario_data.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;FacturasProveedor_controller;PedProv_FacProv_relation;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbaranesProveedor_model;Inventario_view;PresupuestosCliente_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;FacturasProveedor_controller;PedProv_FacProv_relation;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbaranesProveedor_model;Inventario_view;PresupuestosCliente_view;Inventario_data" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_FacProv_relation:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_model:Clean;Inventario_view:Clean;PresupuestosCliente_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_FacProv_relation:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_model:Clean;Inventario_view:Clean;PresupuestosCliente_view:Clean;Inventario_data:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_controller:Make;PedProv_FacProv_relation:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_model:Make;Inventario_view:Make;PresupuestosCliente_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_controller:Make;PedProv_FacProv_relation:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_model:Make;Inventario_view:Make;PresupuestosCliente_view:Make;Inventario_data:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>
\ No newline at end of file
diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
index a609ef85..cfc64eb5 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm	
@@ -278,7 +278,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
           end
           item
             Name = 'CANTIDAD'
-            DataType = datInteger
+            DataType = datFloat
           end
           item
             Name = 'UNIDAD_MEDIDA'
@@ -680,7 +680,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
       end
       item
         Name = 'CANTIDAD'
-        DataType = datInteger
+        DataType = datFloat
       end
       item
         Name = 'UNIDAD_MEDIDA'
diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm
index 31143a5b..d9582c25 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm	
@@ -296,7 +296,7 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
           end
           item
             Name = 'CANTIDAD'
-            DataType = datInteger
+            DataType = datFloat
           end
           item
             Name = 'UNIDAD_MEDIDA'
@@ -473,7 +473,7 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
       end
       item
         Name = 'CANTIDAD'
-        DataType = datInteger
+        DataType = datFloat
       end
       item
         Name = 'UNIDAD_MEDIDA'
diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
index cef2fbc1..ee6a1131 100644
--- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm	
@@ -534,7 +534,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
           end
           item
             Name = 'CANTIDAD'
-            DataType = datInteger
+            DataType = datFloat
             DictionaryEntry = 'CANTIDAD'
           end
           item
@@ -668,7 +668,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
           end
           item
             Name = 'CANTIDAD'
-            DataType = datInteger
+            DataType = datFloat
             DictionaryEntry = 'CANTIDAD'
           end
           item
@@ -1455,7 +1455,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
       end
       item
         Name = 'CANTIDAD'
-        DataType = datInteger
+        DataType = datFloat
         Alignment = taRightJustify
       end
       item