From 634ecb82b8dbf08ac37f4d531e88137ebeaef3c5 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 30 Sep 2008 10:06:07 +0000 Subject: [PATCH] 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 --- .../Controller/uInventarioController.pas | 4 +- .../Inventario/Data/uDataModuleInventario.dfm | 12 +- .../Model/schInventarioClient_Intf.pas | 134 +++++++++--------- .../Model/schInventarioServer_Intf.pas | 128 ++++++++--------- .../Servidor/srvInventario_Impl.dfm | 24 ++-- .../Inventario/Views/uViewInventario.dfm | 4 + 6 files changed, 155 insertions(+), 151 deletions(-) diff --git a/Source/Modulos/Inventario/Controller/uInventarioController.pas b/Source/Modulos/Inventario/Controller/uInventarioController.pas index 8a166f57..66c35501 100644 --- a/Source/Modulos/Inventario/Controller/uInventarioController.pas +++ b/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; diff --git a/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm b/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm index 2e1d187d..472899d0 100644 --- a/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm +++ b/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 diff --git a/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas b/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas index cfa79c9b..bec4deb1 100644 --- a/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas +++ b/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_DetalleReservas = '{9582173C-A3AC-40FC-8465-057DB277739D}'; + RID_Inventario = '{FBC72002-7716-4732-AAD2-E87B268B83A0}'; + 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; - procedure SetSTOCKValue(const aValue: Int64); + function GetSTOCKValue: Float; + procedure SetSTOCKValue(const aValue: Float); function GetSTOCKIsNull: Boolean; procedure SetSTOCKIsNull(const aValue: Boolean); - function GetUNIDADES_ALMACENValue: Int64; - procedure SetUNIDADES_ALMACENValue(const aValue: Int64); + function GetUNIDADES_ALMACENValue: Float; + procedure SetUNIDADES_ALMACENValue(const aValue: Float); function GetUNIDADES_ALMACENIsNull: Boolean; procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); - function GetRESERVAValue: Int64; - procedure SetRESERVAValue(const aValue: Int64); + function GetRESERVAValue: Float; + procedure SetRESERVAValue(const aValue: Float); function GetRESERVAIsNull: Boolean; procedure SetRESERVAIsNull(const aValue: Boolean); - function GetPENDIENTE_RECEPCIONValue: Int64; - procedure SetPENDIENTE_RECEPCIONValue(const aValue: Int64); + function GetPENDIENTE_RECEPCIONValue: Float; + 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; - procedure SetCANTIDADValue(const aValue: Integer); + function GetCANTIDADValue: Float; + 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; - procedure SetSTOCKValue(const aValue: Int64); virtual; + function GetSTOCKValue: Float; virtual; + procedure SetSTOCKValue(const aValue: Float); virtual; function GetSTOCKIsNull: Boolean; virtual; procedure SetSTOCKIsNull(const aValue: Boolean); virtual; - function GetUNIDADES_ALMACENValue: Int64; virtual; - procedure SetUNIDADES_ALMACENValue(const aValue: Int64); virtual; + function GetUNIDADES_ALMACENValue: Float; virtual; + procedure SetUNIDADES_ALMACENValue(const aValue: Float); virtual; function GetUNIDADES_ALMACENIsNull: Boolean; virtual; procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual; - function GetRESERVAValue: Int64; virtual; - procedure SetRESERVAValue(const aValue: Int64); virtual; + function GetRESERVAValue: Float; virtual; + procedure SetRESERVAValue(const aValue: Float); virtual; function GetRESERVAIsNull: Boolean; virtual; procedure SetRESERVAIsNull(const aValue: Boolean); virtual; - function GetPENDIENTE_RECEPCIONValue: Int64; virtual; - procedure SetPENDIENTE_RECEPCIONValue(const aValue: Int64); virtual; + function GetPENDIENTE_RECEPCIONValue: Float; 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; - 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 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; - procedure SetCANTIDADValue(const aValue: Integer); + function GetCANTIDADValue: Float; + 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; - 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 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; diff --git a/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas b/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas index b2cf0f3b..56559a1e 100644 --- a/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas +++ b/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_DetalleReservasDelta = '{3B84878B-7FA3-4B63-ADC5-6AB56E4190FA}'; + RID_InventarioDelta = '{EEE94793-3B30-4C75-8A58-49D210D83C96}'; + 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 GetOldUNIDADES_ALMACENValue : Int64; - function GetOldRESERVAValue : Int64; - function GetOldPENDIENTE_RECEPCIONValue : Int64; + function GetOldSTOCKValue : Float; + function GetOldUNIDADES_ALMACENValue : Float; + function GetOldRESERVAValue : Float; + 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 OldUNIDADES_ALMACEN : Int64 read GetOldUNIDADES_ALMACENValue; - property OldRESERVA : Int64 read GetOldRESERVAValue; - property OldPENDIENTE_RECEPCION : Int64 read GetOldPENDIENTE_RECEPCIONValue; + property OldSTOCK : Float read GetOldSTOCKValue; + property OldUNIDADES_ALMACEN : Float read GetOldUNIDADES_ALMACENValue; + property OldRESERVA : Float read GetOldRESERVAValue; + 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; diff --git a/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm b/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm index 1e3177c3..b852946f 100644 --- a/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm +++ b/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 diff --git a/Source/Modulos/Inventario/Views/uViewInventario.dfm b/Source/Modulos/Inventario/Views/uViewInventario.dfm index 4bc302db..2539a497 100644 --- a/Source/Modulos/Inventario/Views/uViewInventario.dfm +++ b/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