Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adaptan los detalles para que puedan ser las cantidades decimales

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@643 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-30 10:06:07 +00:00
parent c691167579
commit 634ecb82b8
6 changed files with 155 additions and 151 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -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;

12
Source/Modulos/Inventario/Data/uDataModuleInventario.dfm
View File

@ -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

134
Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas
View File

@ -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;

128
Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas
View File

@ -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;

24
Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm
View File

@ -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

4
Source/Modulos/Inventario/Views/uViewInventario.dfm
View File

@ -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