diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
index 17a90634..110a2dc1 100644
--- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
@@ -290,7 +290,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
end
item
Name = 'CANTIDAD'
- DataType = datInteger
+ DataType = datFloat
DisplayLabel = 'Cantidad'
DictionaryEntry = 'FacturasProveedor_Detalles_CANTIDAD'
end
diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
index 6b81d69f..496c5175 100644
--- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
+++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
@@ -16,6 +16,7 @@
+
@@ -241,14 +242,23 @@
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
index 63a01a65..043a3671 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
@@ -3,15 +3,15 @@ unit schFacturasProveedorClient_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_FacturasProveedor = '{9DABF9A4-726E-46BC-B327-E8A58F67033E}';
- RID_FacturasProveedor_Detalles = '{ABAE830E-4859-445D-A355-12268943230C}';
- RID_FacturasProveedor_Pedidos = '{6416A6EE-BBAF-4F0C-91C3-174807E4BCA8}';
+ RID_FacturasProveedor = '{EE9FBF74-DB1B-4B3C-93F6-B8A512067389}';
+ RID_FacturasProveedor_Detalles = '{554F91EF-CCD5-46D5-9A25-64BDD41C19E6}';
+ RID_FacturasProveedor_Pedidos = '{3EE7B732-A5CB-47B3-BB5A-32CA6600E3C3}';
{ Data table names }
nme_FacturasProveedor = 'FacturasProveedor';
@@ -143,7 +143,7 @@ const
type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
- ['{69529775-1F7D-4D22-8633-38AF61125CD7}']
+ ['{2B8A31E0-CC1A-432A-8ED5-FF8718B38A4A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -342,7 +342,7 @@ type
end;
{ TFacturasProveedorDataTableRules }
- TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
+ TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -550,7 +550,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{8FFCB0F7-4DE0-44FE-8E2D-7A0FC731A3B6}']
+ ['{719BD22D-DC5C-4EA5-83AD-3FE3BFCFACD8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -572,8 +572,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
- function GetCANTIDADValue: Integer;
- procedure SetCANTIDADValue(const aValue: Integer);
+ function GetCANTIDADValue: Float;
+ procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
@@ -629,7 +629,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@@ -654,7 +654,7 @@ type
end;
{ TFacturasProveedor_DetallesDataTableRules }
- TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
+ TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
private
protected
{ Property getters and setters }
@@ -678,8 +678,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Integer; virtual;
- procedure SetCANTIDADValue(const aValue: Integer); virtual;
+ function GetCANTIDADValue: Float; virtual;
+ procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
@@ -734,7 +734,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@@ -765,7 +765,7 @@ type
{ IFacturasProveedor_Pedidos }
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
- ['{CAA2BA29-71B5-49CE-91FE-8FD0058AFF71}']
+ ['{0EF668B9-36CD-49D2-98AA-73BC8A470306}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -815,7 +815,7 @@ type
end;
{ TFacturasProveedor_PedidosDataTableRules }
- TFacturasProveedor_PedidosDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Pedidos)
+ TFacturasProveedor_PedidosDataTableRules = class(TDADataTableRules, IFacturasProveedor_Pedidos)
private
protected
{ Property getters and setters }
@@ -1681,14 +1681,14 @@ begin
DataTable.Fields[idx_FacturasProveedor_DetallesCONCEPTO].AsVariant := Null;
end;
-function TFacturasProveedor_DetallesDataTableRules.GetCANTIDADValue: Integer;
+function TFacturasProveedor_DetallesDataTableRules.GetCANTIDADValue: Float;
begin
- result := DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsInteger;
+ result := DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsFloat;
end;
-procedure TFacturasProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
+procedure TFacturasProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
- DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsInteger := aValue;
+ DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsFloat := aValue;
end;
function TFacturasProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
index 030d2360..39d5d77d 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
@@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_FacturasProveedorDelta = '{57F20BCB-960D-454F-B3CF-D6EDE9BD1090}';
- RID_FacturasProveedor_DetallesDelta = '{39265CE2-ACD3-4A3F-8233-0C547807362E}';
- RID_FacturasProveedor_PedidosDelta = '{243BACD1-36BC-42AE-B928-04556776AE94}';
+ RID_FacturasProveedorDelta = '{DEDF4BE8-84F9-4301-B8D1-EDA6D80F4806}';
+ RID_FacturasProveedor_DetallesDelta = '{5546A2C7-8888-4209-A16C-2CBD7F2F0445}';
+ RID_FacturasProveedor_PedidosDelta = '{46AB77BB-35CB-4499-8923-289831F40490}';
type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
- ['{57F20BCB-960D-454F-B3CF-D6EDE9BD1090}']
+ ['{DEDF4BE8-84F9-4301-B8D1-EDA6D80F4806}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -423,14 +423,14 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
- ['{39265CE2-ACD3-4A3F-8233-0C547807362E}']
+ ['{5546A2C7-8888-4209-A16C-2CBD7F2F0445}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
- function GetOldCANTIDADValue : Integer;
+ function GetOldCANTIDADValue : Float;
function GetOldUNIDAD_MEDIDAValue : String;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
@@ -448,7 +448,7 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
- property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+ property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
@@ -496,11 +496,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Integer; virtual;
+ function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
- function GetOldCANTIDADValue: Integer; virtual;
+ function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
- procedure SetCANTIDADValue(const aValue: Integer); virtual;
+ procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
@@ -584,9 +584,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
- property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
- property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+ property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@@ -637,7 +637,7 @@ type
{ IFacturasProveedor_PedidosDelta }
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
- ['{243BACD1-36BC-42AE-B928-04556776AE94}']
+ ['{46AB77BB-35CB-4499-8923-289831F40490}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -1924,7 +1924,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCONCEPTO] := Null;
end;
-function TFacturasProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
+function TFacturasProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCANTIDAD];
end;
@@ -1934,7 +1934,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCANTIDAD]);
end;
-function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
+function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesCANTIDAD];
end;
@@ -1944,7 +1944,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesCANTIDAD]);
end;
-procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
+procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCANTIDAD] := aValue;
end;
diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
index 07b6d140..af6adb1a 100644
--- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
+++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
@@ -460,7 +460,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'CANTIDAD'
- DataType = datInteger
+ DataType = datFloat
DictionaryEntry = 'FacturasProveedor_Detalles_CANTIDAD'
end
item
@@ -1484,7 +1484,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'FacturasProveedor_Detalles_CANTIDAD'
- DataType = datInteger
+ DataType = datFloat
DisplayLabel = 'Cantidad'
end
item