From 6e02d8997470884389f77c5d60cfed60e5182bf8 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 30 Sep 2008 09:59:03 +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@641 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Data/uDataModuleFacturasCliente.dfm | 2 +- .../Model/schFacturasClienteClient_Intf.pas | 34 +++++++++---------- .../Model/schFacturasClienteServer_Intf.pas | 28 +++++++-------- .../Reports/uRptFacturasCliente_Server.dfm | 4 +-- .../Reports/uRptWordFacturaCliente.dfm | 4 +-- .../Servidor/srvFacturasCliente_Impl.dfm | 4 +-- 6 files changed, 38 insertions(+), 38 deletions(-) diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm index 4fcfa348..00d69a57 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm @@ -306,7 +306,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente end item Name = 'CANTIDAD' - DataType = datInteger + DataType = datFloat DisplayLabel = 'Cantidad' DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' end diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index bf9411ad..3184ba9c 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -3,14 +3,14 @@ unit schFacturasClienteClient_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_FacturasCliente = '{905E4452-EC9B-42D6-B7D5-34DD181D5334}'; - RID_FacturasCliente_Detalles = '{76206BC3-9926-4361-A2A2-23CD55C558FD}'; + RID_FacturasCliente = '{1C884472-B874-4186-BBC7-C1DC0C04DE9B}'; + RID_FacturasCliente_Detalles = '{8B69432D-CC1E-49F2-8234-A4AD3BEAC334}'; { Data table names } nme_FacturasCliente = 'FacturasCliente'; @@ -127,7 +127,7 @@ const type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{A8586B84-68BF-45F1-8B9D-31CE5E7D3E9C}'] + ['{22224DB8-4B36-4F97-B348-93B12C05C36B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -344,7 +344,7 @@ type end; { TFacturasClienteDataTableRules } - TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente) + TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente) private f_OBSERVACIONES: IROStrings; procedure OBSERVACIONES_OnChange(Sender: TObject); @@ -570,7 +570,7 @@ type { IFacturasCliente_Detalles } IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{304C4E66-6E40-44E9-8AC0-E82711020403}'] + ['{14D94787-B209-42D9-A661-0E777F387D67}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -592,8 +592,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; @@ -645,7 +645,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; @@ -668,7 +668,7 @@ type end; { TFacturasCliente_DetallesDataTableRules } - TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles) + TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles) private protected { Property getters and setters } @@ -692,8 +692,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; @@ -744,7 +744,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; @@ -1645,14 +1645,14 @@ begin DataTable.Fields[idx_FacturasCliente_DetallesCONCEPTO].AsVariant := Null; end; -function TFacturasCliente_DetallesDataTableRules.GetCANTIDADValue: Integer; +function TFacturasCliente_DetallesDataTableRules.GetCANTIDADValue: Float; begin - result := DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsInteger; + result := DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsFloat; end; -procedure TFacturasCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer); +procedure TFacturasCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float); begin - DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsInteger := aValue; + DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsFloat := aValue; end; function TFacturasCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean; diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index c53e1c8a..feed4459 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_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_FacturasClienteDelta = '{E6D0EAB3-B50E-445C-8F6D-111617271847}'; - RID_FacturasCliente_DetallesDelta = '{DE5E67CA-CF82-423B-8D29-7708BEFF1F3E}'; + RID_FacturasClienteDelta = '{B409FE0D-EC7D-4D72-B893-D8B6A5B8A7C0}'; + RID_FacturasCliente_DetallesDelta = '{2DB7CADF-7D32-4620-9DA6-966DD9521C8C}'; type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{E6D0EAB3-B50E-445C-8F6D-111617271847}'] + ['{B409FE0D-EC7D-4D72-B893-D8B6A5B8A7C0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -458,14 +458,14 @@ type { IFacturasCliente_DetallesDelta } IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) - ['{DE5E67CA-CF82-423B-8D29-7708BEFF1F3E}'] + ['{2DB7CADF-7D32-4620-9DA6-966DD9521C8C}'] { 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; @@ -482,7 +482,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; @@ -529,11 +529,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; @@ -611,9 +611,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; @@ -1934,7 +1934,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCONCEPTO] := Null; end; -function TFacturasCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer; +function TFacturasCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD]; end; @@ -1944,7 +1944,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD]); end; -function TFacturasCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer; +function TFacturasCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCANTIDAD]; end; @@ -1954,7 +1954,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCANTIDAD]); end; -procedure TFacturasCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); +procedure TFacturasCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD] := aValue; end; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index ea232514..574fdcee 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -390,7 +390,7 @@ object RptFacturasCliente: TRptFacturasCliente end item Name = 'CANTIDAD' - DataType = datInteger + DataType = datFloat end item Name = 'UNIDAD_MEDIDA' @@ -1004,7 +1004,7 @@ object RptFacturasCliente: TRptFacturasCliente end item Name = 'CANTIDAD' - DataType = datInteger + DataType = datFloat end item Name = 'UNIDAD_MEDIDA' diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm index 63584574..3b8dc82f 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm @@ -384,7 +384,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente end item Name = 'CANTIDAD' - DataType = datInteger + DataType = datFloat end item Name = 'UNIDAD_MEDIDA' @@ -652,7 +652,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente end item Name = 'CANTIDAD' - DataType = datInteger + DataType = datFloat end item Name = 'UNIDAD_MEDIDA' diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index 2c93b154..8da7ffbc 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -476,7 +476,7 @@ object srvFacturasCliente: TsrvFacturasCliente end item Name = 'CANTIDAD' - DataType = datInteger + DataType = datFloat DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' end item @@ -1280,7 +1280,7 @@ object srvFacturasCliente: TsrvFacturasCliente end item Name = 'FacturasCliente_Detalles_CANTIDAD' - DataType = datInteger + DataType = datFloat DisplayLabel = 'Cantidad' end item