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