Se adaptan los detalles para que puedan ser las cantidades decimales

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

Source/Modulos/Inventario/Controller/uInventarioController.pas

@@ -285,7 +285,7 @@ procedure TInventarioController.Copiar(AArticulos: IBizInventario; ADetalles: ID
   - 3 Detalles de un pedido de proveedor u albaran de cliente: IDAStronglyTypedDataTable (cumple con los tipos de controller detalles base
 }
 var
-  StockArticulo: Integer;
+  StockArticulo: Double;
 
 begin
   if (not Assigned(AArticulos))
@@ -336,7 +336,7 @@ begin
         else
         begin
           AArticulos.DESCRIPCION := FieldByName(fld_PedidosProveedor_DetallesCONCEPTO).AsString;
-          AArticulos.CANTIDAD := FieldByName(fld_INVENTARIOCANTIDAD).AsInteger;
+          AArticulos.CANTIDAD := FieldByName(fld_INVENTARIOCANTIDAD).Asfloat;
         end;
       end;
 

Source/Modulos/Inventario/Data/uDataModuleInventario.dfm

@@ -88,7 +88,7 @@ inherited DataModuleInventario: TDataModuleInventario
       end
       item
         Name = 'CANTIDAD'
-        DataType = datInteger
+        DataType = datFloat
       end
       item
         Name = 'ID_ALMACEN_RESERVA'
@@ -165,25 +165,25 @@ inherited DataModuleInventario: TDataModuleInventario
       end
       item
         Name = 'STOCK'
-        DataType = datLargeInt
+        DataType = datFloat
         DisplayLabel = 'Stock disponible'
         DictionaryEntry = 'INVENTARIO_STOCK'
       end
       item
         Name = 'UNIDADES_ALMACEN'
-        DataType = datLargeInt
+        DataType = datFloat
         DisplayLabel = 'U. Almac'#233'n'
         DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
       end
       item
         Name = 'RESERVA'
-        DataType = datLargeInt
+        DataType = datFloat
         DisplayLabel = 'Reservado'
         DictionaryEntry = 'INVENTARIO_RESERVA'
       end
       item
         Name = 'PENDIENTE_RECEPCION'
-        DataType = datLargeInt
+        DataType = datFloat
         DisplayLabel = 'Pendiente de recibir'
         DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
       end
@@ -201,7 +201,7 @@ inherited DataModuleInventario: TDataModuleInventario
       end
       item
         Name = 'CANTIDAD'
-        DataType = datInteger
+        DataType = datFloat
         DisplayLabel = 'INVENTARIO_CANTIDAD'
         DictionaryEntry = 'INVENTARIO_CANTIDAD'
       end

Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas

@@ -3,14 +3,14 @@ unit schInventarioClient_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_Inventario = '{9DBC2875-7FEE-44C5-B6F6-36F7228B1ABF}';
+  RID_Inventario = '{FBC72002-7716-4732-AAD2-E87B268B83A0}';
-  RID_DetalleReservas = '{9582173C-A3AC-40FC-8465-057DB277739D}';
+  RID_DetalleReservas = '{F3C9E29D-BD43-4801-AD95-A0D11AFB4098}';
 
   { Data table names }
   nme_Inventario = 'Inventario';
@@ -97,7 +97,7 @@ const
 type
   { IInventario }
   IInventario = interface(IDAStronglyTypedDataTable)
-  ['{A7CAFCC8-D9B8-4932-ABF0-3497D4090710}']
+  ['{69094B48-AAFF-4300-B006-0DCEAEE89878}']
     { Property getters and setters }
     function GetID_ALMACENValue: Integer;
     procedure SetID_ALMACENValue(const aValue: Integer);
@@ -131,20 +131,20 @@ type
     procedure SetUNIDAD_MEDIDAValue(const aValue: String);
     function GetUNIDAD_MEDIDAIsNull: Boolean;
     procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
-    function GetSTOCKValue: Int64;
+    function GetSTOCKValue: Float;
-    procedure SetSTOCKValue(const aValue: Int64);
+    procedure SetSTOCKValue(const aValue: Float);
     function GetSTOCKIsNull: Boolean;
     procedure SetSTOCKIsNull(const aValue: Boolean);
-    function GetUNIDADES_ALMACENValue: Int64;
+    function GetUNIDADES_ALMACENValue: Float;
-    procedure SetUNIDADES_ALMACENValue(const aValue: Int64);
+    procedure SetUNIDADES_ALMACENValue(const aValue: Float);
     function GetUNIDADES_ALMACENIsNull: Boolean;
     procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean);
-    function GetRESERVAValue: Int64;
+    function GetRESERVAValue: Float;
-    procedure SetRESERVAValue(const aValue: Int64);
+    procedure SetRESERVAValue(const aValue: Float);
     function GetRESERVAIsNull: Boolean;
     procedure SetRESERVAIsNull(const aValue: Boolean);
-    function GetPENDIENTE_RECEPCIONValue: Int64;
+    function GetPENDIENTE_RECEPCIONValue: Float;
-    procedure SetPENDIENTE_RECEPCIONValue(const aValue: Int64);
+    procedure SetPENDIENTE_RECEPCIONValue(const aValue: Float);
     function GetPENDIENTE_RECEPCIONIsNull: Boolean;
     procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean);
     function GetTIPO_ALMACENValue: String;
@@ -155,8 +155,8 @@ type
     procedure SetIDValue(const aValue: Integer);
     function GetIDIsNull: Boolean;
     procedure SetIDIsNull(const aValue: Boolean);
-    function GetCANTIDADValue: Integer;
+    function GetCANTIDADValue: Float;
-    procedure SetCANTIDADValue(const aValue: Integer);
+    procedure SetCANTIDADValue(const aValue: Float);
     function GetCANTIDADIsNull: Boolean;
     procedure SetCANTIDADIsNull(const aValue: Boolean);
     function GetFECHA_MOVIMIENTOValue: DateTime;
@@ -194,19 +194,19 @@ type
     property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
     property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
-    property STOCK: Int64 read GetSTOCKValue write SetSTOCKValue;
+    property STOCK: Float read GetSTOCKValue write SetSTOCKValue;
     property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
-    property UNIDADES_ALMACEN: Int64 read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
+    property UNIDADES_ALMACEN: Float read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
     property UNIDADES_ALMACENIsNull: Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull;
-    property RESERVA: Int64 read GetRESERVAValue write SetRESERVAValue;
+    property RESERVA: Float read GetRESERVAValue write SetRESERVAValue;
     property RESERVAIsNull: Boolean read GetRESERVAIsNull write SetRESERVAIsNull;
-    property PENDIENTE_RECEPCION: Int64 read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
+    property PENDIENTE_RECEPCION: Float read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
     property PENDIENTE_RECEPCIONIsNull: Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull;
     property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
     property TIPO_ALMACENIsNull: Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
     property ID: Integer read GetIDValue write SetIDValue;
     property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
-    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property FECHA_MOVIMIENTO: DateTime read GetFECHA_MOVIMIENTOValue write SetFECHA_MOVIMIENTOValue;
     property FECHA_MOVIMIENTOIsNull: Boolean read GetFECHA_MOVIMIENTOIsNull write SetFECHA_MOVIMIENTOIsNull;
@@ -219,7 +219,7 @@ type
   end;
 
   { TInventarioDataTableRules }
-  TInventarioDataTableRules = class(TIntfObjectDADataTableRules, IInventario)
+  TInventarioDataTableRules = class(TDADataTableRules, IInventario)
   private
   protected
     { Property getters and setters }
@@ -255,20 +255,20 @@ type
     procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
     function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
     procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
-    function GetSTOCKValue: Int64; virtual;
+    function GetSTOCKValue: Float; virtual;
-    procedure SetSTOCKValue(const aValue: Int64); virtual;
+    procedure SetSTOCKValue(const aValue: Float); virtual;
     function GetSTOCKIsNull: Boolean; virtual;
     procedure SetSTOCKIsNull(const aValue: Boolean); virtual;
-    function GetUNIDADES_ALMACENValue: Int64; virtual;
+    function GetUNIDADES_ALMACENValue: Float; virtual;
-    procedure SetUNIDADES_ALMACENValue(const aValue: Int64); virtual;
+    procedure SetUNIDADES_ALMACENValue(const aValue: Float); virtual;
     function GetUNIDADES_ALMACENIsNull: Boolean; virtual;
     procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual;
-    function GetRESERVAValue: Int64; virtual;
+    function GetRESERVAValue: Float; virtual;
-    procedure SetRESERVAValue(const aValue: Int64); virtual;
+    procedure SetRESERVAValue(const aValue: Float); virtual;
     function GetRESERVAIsNull: Boolean; virtual;
     procedure SetRESERVAIsNull(const aValue: Boolean); virtual;
-    function GetPENDIENTE_RECEPCIONValue: Int64; virtual;
+    function GetPENDIENTE_RECEPCIONValue: Float; virtual;
-    procedure SetPENDIENTE_RECEPCIONValue(const aValue: Int64); virtual;
+    procedure SetPENDIENTE_RECEPCIONValue(const aValue: Float); virtual;
     function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual;
     procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); virtual;
     function GetTIPO_ALMACENValue: String; virtual;
@@ -279,8 +279,8 @@ type
     procedure SetIDValue(const aValue: Integer); virtual;
     function GetIDIsNull: Boolean; virtual;
     procedure SetIDIsNull(const aValue: Boolean); virtual;
-    function GetCANTIDADValue: Integer; virtual;
+    function GetCANTIDADValue: Float; virtual;
-    procedure SetCANTIDADValue(const aValue: Integer); virtual;
+    procedure SetCANTIDADValue(const aValue: Float); virtual;
     function GetCANTIDADIsNull: Boolean; virtual;
     procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
     function GetFECHA_MOVIMIENTOValue: DateTime; virtual;
@@ -317,19 +317,19 @@ type
     property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
     property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
-    property STOCK: Int64 read GetSTOCKValue write SetSTOCKValue;
+    property STOCK: Float read GetSTOCKValue write SetSTOCKValue;
     property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
-    property UNIDADES_ALMACEN: Int64 read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
+    property UNIDADES_ALMACEN: Float read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
     property UNIDADES_ALMACENIsNull: Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull;
-    property RESERVA: Int64 read GetRESERVAValue write SetRESERVAValue;
+    property RESERVA: Float read GetRESERVAValue write SetRESERVAValue;
     property RESERVAIsNull: Boolean read GetRESERVAIsNull write SetRESERVAIsNull;
-    property PENDIENTE_RECEPCION: Int64 read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
+    property PENDIENTE_RECEPCION: Float read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
     property PENDIENTE_RECEPCIONIsNull: Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull;
     property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
     property TIPO_ALMACENIsNull: Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
     property ID: Integer read GetIDValue write SetIDValue;
     property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
-    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property FECHA_MOVIMIENTO: DateTime read GetFECHA_MOVIMIENTOValue write SetFECHA_MOVIMIENTOValue;
     property FECHA_MOVIMIENTOIsNull: Boolean read GetFECHA_MOVIMIENTOIsNull write SetFECHA_MOVIMIENTOIsNull;
@@ -348,7 +348,7 @@ type
 
   { IDetalleReservas }
   IDetalleReservas = interface(IDAStronglyTypedDataTable)
-  ['{62277A19-0930-41F8-A5F2-1CBBCDBC009F}']
+  ['{7C927164-3284-4152-A13D-96A8BD88298E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -402,8 +402,8 @@ type
     procedure SetREFERENCIA_FABRValue(const aValue: String);
     function GetREFERENCIA_FABRIsNull: Boolean;
     procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
-    function GetCANTIDADValue: Integer;
+    function GetCANTIDADValue: Float;
-    procedure SetCANTIDADValue(const aValue: Integer);
+    procedure SetCANTIDADValue(const aValue: Float);
     function GetCANTIDADIsNull: Boolean;
     procedure SetCANTIDADIsNull(const aValue: Boolean);
     function GetID_ALMACEN_RESERVAValue: Integer;
@@ -443,7 +443,7 @@ type
     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 CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property ID_ALMACEN_RESERVA: Integer read GetID_ALMACEN_RESERVAValue write SetID_ALMACEN_RESERVAValue;
     property ID_ALMACEN_RESERVAIsNull: Boolean read GetID_ALMACEN_RESERVAIsNull write SetID_ALMACEN_RESERVAIsNull;
@@ -452,7 +452,7 @@ type
   end;
 
   { TDetalleReservasDataTableRules }
-  TDetalleReservasDataTableRules = class(TIntfObjectDADataTableRules, IDetalleReservas)
+  TDetalleReservasDataTableRules = class(TDADataTableRules, IDetalleReservas)
   private
   protected
     { Property getters and setters }
@@ -508,8 +508,8 @@ type
     procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
     function GetREFERENCIA_FABRIsNull: Boolean; virtual;
     procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
-    function GetCANTIDADValue: Integer; virtual;
+    function GetCANTIDADValue: Float; virtual;
-    procedure SetCANTIDADValue(const aValue: Integer); virtual;
+    procedure SetCANTIDADValue(const aValue: Float); virtual;
     function GetCANTIDADIsNull: Boolean; virtual;
     procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
     function GetID_ALMACEN_RESERVAValue: Integer; virtual;
@@ -548,7 +548,7 @@ type
     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 CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property ID_ALMACEN_RESERVA: Integer read GetID_ALMACEN_RESERVAValue write SetID_ALMACEN_RESERVAValue;
     property ID_ALMACEN_RESERVAIsNull: Boolean read GetID_ALMACEN_RESERVAIsNull write SetID_ALMACEN_RESERVAIsNull;
@@ -744,14 +744,14 @@ begin
     DataTable.Fields[idx_InventarioUNIDAD_MEDIDA].AsVariant := Null;
 end;
 
-function TInventarioDataTableRules.GetSTOCKValue: Int64;
+function TInventarioDataTableRules.GetSTOCKValue: Float;
 begin
-  result := DataTable.Fields[idx_InventarioSTOCK].AsLargeInt;
+  result := DataTable.Fields[idx_InventarioSTOCK].AsFloat;
 end;
 
-procedure TInventarioDataTableRules.SetSTOCKValue(const aValue: Int64);
+procedure TInventarioDataTableRules.SetSTOCKValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_InventarioSTOCK].AsLargeInt := aValue;
+  DataTable.Fields[idx_InventarioSTOCK].AsFloat := aValue;
 end;
 
 function TInventarioDataTableRules.GetSTOCKIsNull: boolean;
@@ -765,14 +765,14 @@ begin
     DataTable.Fields[idx_InventarioSTOCK].AsVariant := Null;
 end;
 
-function TInventarioDataTableRules.GetUNIDADES_ALMACENValue: Int64;
+function TInventarioDataTableRules.GetUNIDADES_ALMACENValue: Float;
 begin
-  result := DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsLargeInt;
+  result := DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsFloat;
 end;
 
-procedure TInventarioDataTableRules.SetUNIDADES_ALMACENValue(const aValue: Int64);
+procedure TInventarioDataTableRules.SetUNIDADES_ALMACENValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsLargeInt := aValue;
+  DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsFloat := aValue;
 end;
 
 function TInventarioDataTableRules.GetUNIDADES_ALMACENIsNull: boolean;
@@ -786,14 +786,14 @@ begin
     DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsVariant := Null;
 end;
 
-function TInventarioDataTableRules.GetRESERVAValue: Int64;
+function TInventarioDataTableRules.GetRESERVAValue: Float;
 begin
-  result := DataTable.Fields[idx_InventarioRESERVA].AsLargeInt;
+  result := DataTable.Fields[idx_InventarioRESERVA].AsFloat;
 end;
 
-procedure TInventarioDataTableRules.SetRESERVAValue(const aValue: Int64);
+procedure TInventarioDataTableRules.SetRESERVAValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_InventarioRESERVA].AsLargeInt := aValue;
+  DataTable.Fields[idx_InventarioRESERVA].AsFloat := aValue;
 end;
 
 function TInventarioDataTableRules.GetRESERVAIsNull: boolean;
@@ -807,14 +807,14 @@ begin
     DataTable.Fields[idx_InventarioRESERVA].AsVariant := Null;
 end;
 
-function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONValue: Int64;
+function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONValue: Float;
 begin
-  result := DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsLargeInt;
+  result := DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsFloat;
 end;
 
-procedure TInventarioDataTableRules.SetPENDIENTE_RECEPCIONValue(const aValue: Int64);
+procedure TInventarioDataTableRules.SetPENDIENTE_RECEPCIONValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsLargeInt := aValue;
+  DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsFloat := aValue;
 end;
 
 function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONIsNull: boolean;
@@ -870,14 +870,14 @@ begin
     DataTable.Fields[idx_InventarioID].AsVariant := Null;
 end;
 
-function TInventarioDataTableRules.GetCANTIDADValue: Integer;
+function TInventarioDataTableRules.GetCANTIDADValue: Float;
 begin
-  result := DataTable.Fields[idx_InventarioCANTIDAD].AsInteger;
+  result := DataTable.Fields[idx_InventarioCANTIDAD].AsFloat;
 end;
 
-procedure TInventarioDataTableRules.SetCANTIDADValue(const aValue: Integer);
+procedure TInventarioDataTableRules.SetCANTIDADValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_InventarioCANTIDAD].AsInteger := aValue;
+  DataTable.Fields[idx_InventarioCANTIDAD].AsFloat := aValue;
 end;
 
 function TInventarioDataTableRules.GetCANTIDADIsNull: boolean;
@@ -1260,14 +1260,14 @@ begin
     DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetCANTIDADValue: Integer;
+function TDetalleReservasDataTableRules.GetCANTIDADValue: Float;
 begin
-  result := DataTable.Fields[idx_DetalleReservasCANTIDAD].AsInteger;
+  result := DataTable.Fields[idx_DetalleReservasCANTIDAD].AsFloat;
 end;
 
-procedure TDetalleReservasDataTableRules.SetCANTIDADValue(const aValue: Integer);
+procedure TDetalleReservasDataTableRules.SetCANTIDADValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_DetalleReservasCANTIDAD].AsInteger := aValue;
+  DataTable.Fields[idx_DetalleReservasCANTIDAD].AsFloat := aValue;
 end;
 
 function TDetalleReservasDataTableRules.GetCANTIDADIsNull: boolean;

Source/Modulos/Inventario/Model/schInventarioServer_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_InventarioDelta = '{BD609283-85E4-49E3-9333-97C904F50355}';
+  RID_InventarioDelta = '{EEE94793-3B30-4C75-8A58-49D210D83C96}';
-  RID_DetalleReservasDelta = '{3B84878B-7FA3-4B63-ADC5-6AB56E4190FA}';
+  RID_DetalleReservasDelta = '{9660A034-84F2-4E92-987A-3518CA2FB934}';
 
 type
   { IInventarioDelta }
   IInventarioDelta = interface(IInventario)
-  ['{BD609283-85E4-49E3-9333-97C904F50355}']
+  ['{EEE94793-3B30-4C75-8A58-49D210D83C96}']
     { Property getters and setters }
     function GetOldID_ALMACENValue : Integer;
     function GetOldID_ARTICULOValue : Integer;
@@ -25,13 +25,13 @@ type
     function GetOldFAMILIAValue : String;
     function GetOldDESCRIPCIONValue : String;
     function GetOldUNIDAD_MEDIDAValue : String;
-    function GetOldSTOCKValue : Int64;
+    function GetOldSTOCKValue : Float;
-    function GetOldUNIDADES_ALMACENValue : Int64;
+    function GetOldUNIDADES_ALMACENValue : Float;
-    function GetOldRESERVAValue : Int64;
+    function GetOldRESERVAValue : Float;
-    function GetOldPENDIENTE_RECEPCIONValue : Int64;
+    function GetOldPENDIENTE_RECEPCIONValue : Float;
     function GetOldTIPO_ALMACENValue : String;
     function GetOldIDValue : Integer;
-    function GetOldCANTIDADValue : Integer;
+    function GetOldCANTIDADValue : Float;
     function GetOldFECHA_MOVIMIENTOValue : DateTime;
     function GetOldCAUSAValue : String;
     function GetOldTIPOValue : String;
@@ -46,13 +46,13 @@ type
     property OldFAMILIA : String read GetOldFAMILIAValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
     property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
-    property OldSTOCK : Int64 read GetOldSTOCKValue;
+    property OldSTOCK : Float read GetOldSTOCKValue;
-    property OldUNIDADES_ALMACEN : Int64 read GetOldUNIDADES_ALMACENValue;
+    property OldUNIDADES_ALMACEN : Float read GetOldUNIDADES_ALMACENValue;
-    property OldRESERVA : Int64 read GetOldRESERVAValue;
+    property OldRESERVA : Float read GetOldRESERVAValue;
-    property OldPENDIENTE_RECEPCION : Int64 read GetOldPENDIENTE_RECEPCIONValue;
+    property OldPENDIENTE_RECEPCION : Float read GetOldPENDIENTE_RECEPCIONValue;
     property OldTIPO_ALMACEN : String read GetOldTIPO_ALMACENValue;
     property OldID : Integer read GetOldIDValue;
-    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+    property OldCANTIDAD : Float read GetOldCANTIDADValue;
     property OldFECHA_MOVIMIENTO : DateTime read GetOldFECHA_MOVIMIENTOValue;
     property OldCAUSA : String read GetOldCAUSAValue;
     property OldTIPO : String read GetOldTIPOValue;
@@ -112,29 +112,29 @@ type
     function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
     procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
     procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
-    function GetSTOCKValue: Int64; virtual;
+    function GetSTOCKValue: Float; virtual;
     function GetSTOCKIsNull: Boolean; virtual;
-    function GetOldSTOCKValue: Int64; virtual;
+    function GetOldSTOCKValue: Float; virtual;
     function GetOldSTOCKIsNull: Boolean; virtual;
-    procedure SetSTOCKValue(const aValue: Int64); virtual;
+    procedure SetSTOCKValue(const aValue: Float); virtual;
     procedure SetSTOCKIsNull(const aValue: Boolean); virtual;
-    function GetUNIDADES_ALMACENValue: Int64; virtual;
+    function GetUNIDADES_ALMACENValue: Float; virtual;
     function GetUNIDADES_ALMACENIsNull: Boolean; virtual;
-    function GetOldUNIDADES_ALMACENValue: Int64; virtual;
+    function GetOldUNIDADES_ALMACENValue: Float; virtual;
     function GetOldUNIDADES_ALMACENIsNull: Boolean; virtual;
-    procedure SetUNIDADES_ALMACENValue(const aValue: Int64); virtual;
+    procedure SetUNIDADES_ALMACENValue(const aValue: Float); virtual;
     procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual;
-    function GetRESERVAValue: Int64; virtual;
+    function GetRESERVAValue: Float; virtual;
     function GetRESERVAIsNull: Boolean; virtual;
-    function GetOldRESERVAValue: Int64; virtual;
+    function GetOldRESERVAValue: Float; virtual;
     function GetOldRESERVAIsNull: Boolean; virtual;
-    procedure SetRESERVAValue(const aValue: Int64); virtual;
+    procedure SetRESERVAValue(const aValue: Float); virtual;
     procedure SetRESERVAIsNull(const aValue: Boolean); virtual;
-    function GetPENDIENTE_RECEPCIONValue: Int64; virtual;
+    function GetPENDIENTE_RECEPCIONValue: Float; virtual;
     function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual;
-    function GetOldPENDIENTE_RECEPCIONValue: Int64; virtual;
+    function GetOldPENDIENTE_RECEPCIONValue: Float; virtual;
     function GetOldPENDIENTE_RECEPCIONIsNull: Boolean; virtual;
-    procedure SetPENDIENTE_RECEPCIONValue(const aValue: Int64); virtual;
+    procedure SetPENDIENTE_RECEPCIONValue(const aValue: Float); virtual;
     procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); virtual;
     function GetTIPO_ALMACENValue: String; virtual;
     function GetTIPO_ALMACENIsNull: Boolean; virtual;
@@ -148,11 +148,11 @@ type
     function GetOldIDIsNull: Boolean; virtual;
     procedure SetIDValue(const aValue: Integer); virtual;
     procedure SetIDIsNull(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 GetFECHA_MOVIMIENTOValue: DateTime; virtual;
     function GetFECHA_MOVIMIENTOIsNull: Boolean; virtual;
@@ -212,21 +212,21 @@ type
     property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
     property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
     property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
-    property STOCK : Int64 read GetSTOCKValue write SetSTOCKValue;
+    property STOCK : Float read GetSTOCKValue write SetSTOCKValue;
     property STOCKIsNull : Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
-    property OldSTOCK : Int64 read GetOldSTOCKValue;
+    property OldSTOCK : Float read GetOldSTOCKValue;
     property OldSTOCKIsNull : Boolean read GetOldSTOCKIsNull;
-    property UNIDADES_ALMACEN : Int64 read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
+    property UNIDADES_ALMACEN : Float read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
     property UNIDADES_ALMACENIsNull : Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull;
-    property OldUNIDADES_ALMACEN : Int64 read GetOldUNIDADES_ALMACENValue;
+    property OldUNIDADES_ALMACEN : Float read GetOldUNIDADES_ALMACENValue;
     property OldUNIDADES_ALMACENIsNull : Boolean read GetOldUNIDADES_ALMACENIsNull;
-    property RESERVA : Int64 read GetRESERVAValue write SetRESERVAValue;
+    property RESERVA : Float read GetRESERVAValue write SetRESERVAValue;
     property RESERVAIsNull : Boolean read GetRESERVAIsNull write SetRESERVAIsNull;
-    property OldRESERVA : Int64 read GetOldRESERVAValue;
+    property OldRESERVA : Float read GetOldRESERVAValue;
     property OldRESERVAIsNull : Boolean read GetOldRESERVAIsNull;
-    property PENDIENTE_RECEPCION : Int64 read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
+    property PENDIENTE_RECEPCION : Float read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
     property PENDIENTE_RECEPCIONIsNull : Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull;
-    property OldPENDIENTE_RECEPCION : Int64 read GetOldPENDIENTE_RECEPCIONValue;
+    property OldPENDIENTE_RECEPCION : Float read GetOldPENDIENTE_RECEPCIONValue;
     property OldPENDIENTE_RECEPCIONIsNull : Boolean read GetOldPENDIENTE_RECEPCIONIsNull;
     property TIPO_ALMACEN : String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
     property TIPO_ALMACENIsNull : Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
@@ -236,9 +236,9 @@ type
     property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
     property OldID : Integer read GetOldIDValue;
     property OldIDIsNull : Boolean read GetOldIDIsNull;
-    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 FECHA_MOVIMIENTO : DateTime read GetFECHA_MOVIMIENTOValue write SetFECHA_MOVIMIENTOValue;
     property FECHA_MOVIMIENTOIsNull : Boolean read GetFECHA_MOVIMIENTOIsNull write SetFECHA_MOVIMIENTOIsNull;
@@ -265,7 +265,7 @@ type
 
   { IDetalleReservasDelta }
   IDetalleReservasDelta = interface(IDetalleReservas)
-  ['{3B84878B-7FA3-4B63-ADC5-6AB56E4190FA}']
+  ['{9660A034-84F2-4E92-987A-3518CA2FB934}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -280,7 +280,7 @@ type
     function GetOldUNIDAD_MEDIDAValue : String;
     function GetOldFABRICANTEValue : String;
     function GetOldREFERENCIA_FABRValue : String;
-    function GetOldCANTIDADValue : Integer;
+    function GetOldCANTIDADValue : Float;
     function GetOldID_ALMACEN_RESERVAValue : Integer;
     function GetOldNOMBRE_ALMACEN_RESERVAValue : String;
 
@@ -298,7 +298,7 @@ type
     property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
     property OldFABRICANTE : String read GetOldFABRICANTEValue;
     property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
-    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+    property OldCANTIDAD : Float read GetOldCANTIDADValue;
     property OldID_ALMACEN_RESERVA : Integer read GetOldID_ALMACEN_RESERVAValue;
     property OldNOMBRE_ALMACEN_RESERVA : String read GetOldNOMBRE_ALMACEN_RESERVAValue;
   end;
@@ -386,11 +386,11 @@ type
     function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
     procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
     procedure SetREFERENCIA_FABRIsNull(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 GetID_ALMACEN_RESERVAValue: Integer; virtual;
     function GetID_ALMACEN_RESERVAIsNull: Boolean; virtual;
@@ -458,9 +458,9 @@ type
     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 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 ID_ALMACEN_RESERVA : Integer read GetID_ALMACEN_RESERVAValue write SetID_ALMACEN_RESERVAValue;
     property ID_ALMACEN_RESERVAIsNull : Boolean read GetID_ALMACEN_RESERVAIsNull write SetID_ALMACEN_RESERVAIsNull;
@@ -741,7 +741,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDAD_MEDIDA] := Null;
 end;
 
-function TInventarioBusinessProcessorRules.GetSTOCKValue: Int64;
+function TInventarioBusinessProcessorRules.GetSTOCKValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK];
 end;
@@ -751,7 +751,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK]);
 end;
 
-function TInventarioBusinessProcessorRules.GetOldSTOCKValue: Int64;
+function TInventarioBusinessProcessorRules.GetOldSTOCKValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioSTOCK];
 end;
@@ -761,7 +761,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioSTOCK]);
 end;
 
-procedure TInventarioBusinessProcessorRules.SetSTOCKValue(const aValue: Int64);
+procedure TInventarioBusinessProcessorRules.SetSTOCKValue(const aValue: Float);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK] := aValue;
 end;
@@ -772,7 +772,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK] := Null;
 end;
 
-function TInventarioBusinessProcessorRules.GetUNIDADES_ALMACENValue: Int64;
+function TInventarioBusinessProcessorRules.GetUNIDADES_ALMACENValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN];
 end;
@@ -782,7 +782,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN]);
 end;
 
-function TInventarioBusinessProcessorRules.GetOldUNIDADES_ALMACENValue: Int64;
+function TInventarioBusinessProcessorRules.GetOldUNIDADES_ALMACENValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioUNIDADES_ALMACEN];
 end;
@@ -792,7 +792,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioUNIDADES_ALMACEN]);
 end;
 
-procedure TInventarioBusinessProcessorRules.SetUNIDADES_ALMACENValue(const aValue: Int64);
+procedure TInventarioBusinessProcessorRules.SetUNIDADES_ALMACENValue(const aValue: Float);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN] := aValue;
 end;
@@ -803,7 +803,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN] := Null;
 end;
 
-function TInventarioBusinessProcessorRules.GetRESERVAValue: Int64;
+function TInventarioBusinessProcessorRules.GetRESERVAValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA];
 end;
@@ -813,7 +813,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA]);
 end;
 
-function TInventarioBusinessProcessorRules.GetOldRESERVAValue: Int64;
+function TInventarioBusinessProcessorRules.GetOldRESERVAValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioRESERVA];
 end;
@@ -823,7 +823,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioRESERVA]);
 end;
 
-procedure TInventarioBusinessProcessorRules.SetRESERVAValue(const aValue: Int64);
+procedure TInventarioBusinessProcessorRules.SetRESERVAValue(const aValue: Float);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := aValue;
 end;
@@ -834,7 +834,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := Null;
 end;
 
-function TInventarioBusinessProcessorRules.GetPENDIENTE_RECEPCIONValue: Int64;
+function TInventarioBusinessProcessorRules.GetPENDIENTE_RECEPCIONValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION];
 end;
@@ -844,7 +844,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION]);
 end;
 
-function TInventarioBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONValue: Int64;
+function TInventarioBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioPENDIENTE_RECEPCION];
 end;
@@ -854,7 +854,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioPENDIENTE_RECEPCION]);
 end;
 
-procedure TInventarioBusinessProcessorRules.SetPENDIENTE_RECEPCIONValue(const aValue: Int64);
+procedure TInventarioBusinessProcessorRules.SetPENDIENTE_RECEPCIONValue(const aValue: Float);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION] := aValue;
 end;
@@ -927,7 +927,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID] := Null;
 end;
 
-function TInventarioBusinessProcessorRules.GetCANTIDADValue: Integer;
+function TInventarioBusinessProcessorRules.GetCANTIDADValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCANTIDAD];
 end;
@@ -937,7 +937,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCANTIDAD]);
 end;
 
-function TInventarioBusinessProcessorRules.GetOldCANTIDADValue: Integer;
+function TInventarioBusinessProcessorRules.GetOldCANTIDADValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCANTIDAD];
 end;
@@ -947,7 +947,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCANTIDAD]);
 end;
 
-procedure TInventarioBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
+procedure TInventarioBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCANTIDAD] := aValue;
 end;
@@ -1497,7 +1497,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_FABR] := Null;
 end;
 
-function TDetalleReservasBusinessProcessorRules.GetCANTIDADValue: Integer;
+function TDetalleReservasBusinessProcessorRules.GetCANTIDADValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD];
 end;
@@ -1507,7 +1507,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD]);
 end;
 
-function TDetalleReservasBusinessProcessorRules.GetOldCANTIDADValue: Integer;
+function TDetalleReservasBusinessProcessorRules.GetOldCANTIDADValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCANTIDAD];
 end;
@@ -1517,7 +1517,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCANTIDAD]);
 end;
 
-procedure TDetalleReservasBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
+procedure TDetalleReservasBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD] := aValue;
 end;

Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm

@@ -166,22 +166,22 @@ object srvInventario: TsrvInventario
           end
           item
             Name = 'STOCK'
-            DataType = datLargeInt
+            DataType = datFloat
             DictionaryEntry = 'INVENTARIO_STOCK'
           end
           item
             Name = 'UNIDADES_ALMACEN'
-            DataType = datLargeInt
+            DataType = datFloat
             DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
           end
           item
             Name = 'RESERVA'
-            DataType = datLargeInt
+            DataType = datFloat
             DictionaryEntry = 'INVENTARIO_RESERVA'
           end
           item
             Name = 'PENDIENTE_RECEPCION'
-            DataType = datLargeInt
+            DataType = datFloat
             DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
           end
           item
@@ -197,7 +197,7 @@ object srvInventario: TsrvInventario
           end
           item
             Name = 'CANTIDAD'
-            DataType = datInteger
+            DataType = datFloat
             DictionaryEntry = 'INVENTARIO_CANTIDAD'
           end
           item
@@ -359,7 +359,7 @@ object srvInventario: TsrvInventario
           end
           item
             Name = 'CANTIDAD'
-            DataType = datInteger
+            DataType = datFloat
           end
           item
             Name = 'ID_ALMACEN_RESERVA'
@@ -578,17 +578,17 @@ object srvInventario: TsrvInventario
       end
       item
         Name = 'INVENTARIO_STOCK'
-        DataType = datLargeInt
+        DataType = datFloat
         DisplayLabel = 'Stock disponible'
       end
       item
         Name = 'INVENTARIO_RESERVA'
-        DataType = datLargeInt
+        DataType = datFloat
         DisplayLabel = 'Reservado'
       end
       item
         Name = 'INVENTARIO_PENDIENTE_RECEPCION'
-        DataType = datLargeInt
+        DataType = datFloat
         DisplayLabel = 'Pendiente de recibir'
       end
       item
@@ -598,7 +598,7 @@ object srvInventario: TsrvInventario
       end
       item
         Name = 'INVENTARIO_CANTIDAD'
-        DataType = datInteger
+        DataType = datFloat
       end
       item
         Name = 'INVENTARIO_FECHA_MOVIMIENTO'
@@ -626,7 +626,7 @@ object srvInventario: TsrvInventario
       end
       item
         Name = 'INVENTARIO_UNIDADES_ALMACEN'
-        DataType = datLargeInt
+        DataType = datFloat
         DisplayLabel = 'U. Almac'#233'n'
       end
       item
@@ -716,7 +716,7 @@ object srvInventario: TsrvInventario
       end
       item
         Name = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
-        DataType = datLargeInt
+        DataType = datFloat
         DisplayLabel = 'Reservado'
       end
       item

Source/Modulos/Inventario/Views/uViewInventario.dfm

@@ -87,6 +87,7 @@ inherited frViewInventario: TfrViewInventario
         DataBinding.FieldName = 'STOCK'
         PropertiesClassName = 'TcxSpinEditProperties'
         Properties.Alignment.Horz = taRightJustify
+        Properties.DisplayFormat = ',0.##;-,0.##'
         BestFitMaxWidth = 50
         FooterAlignmentHorz = taRightJustify
         HeaderAlignmentHorz = taRightJustify
@@ -102,6 +103,7 @@ inherited frViewInventario: TfrViewInventario
         DataBinding.FieldName = 'UNIDADES_ALMACEN'
         PropertiesClassName = 'TcxSpinEditProperties'
         Properties.Alignment.Horz = taRightJustify
+        Properties.DisplayFormat = ',0.##;-,0.##'
         BestFitMaxWidth = 50
         FooterAlignmentHorz = taRightJustify
         HeaderAlignmentHorz = taRightJustify
@@ -127,6 +129,7 @@ inherited frViewInventario: TfrViewInventario
         DataBinding.FieldName = 'RESERVA'
         PropertiesClassName = 'TcxSpinEditProperties'
         Properties.Alignment.Horz = taRightJustify
+        Properties.DisplayFormat = ',0.##;-,0.##'
         BestFitMaxWidth = 50
         FooterAlignmentHorz = taRightJustify
         HeaderAlignmentHorz = taRightJustify
@@ -138,6 +141,7 @@ inherited frViewInventario: TfrViewInventario
         DataBinding.FieldName = 'PENDIENTE_RECEPCION'
         PropertiesClassName = 'TcxSpinEditProperties'
         Properties.Alignment.Horz = taRightJustify
+        Properties.DisplayFormat = ',0.##;-,0.##'
         BestFitMaxWidth = 50
         FooterAlignmentHorz = taRightJustify
         HeaderAlignmentHorz = taRightJustify