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@641 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-30 09:59:03 +00:00
parent 5f365284b3
commit 6e02d89974
6 changed files with 38 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -306,7 +306,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datFloat
DisplayLabel = 'Cantidad' DisplayLabel = 'Cantidad'
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
end end

34
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -3,14 +3,14 @@ unit schFacturasClienteClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasCliente = '{905E4452-EC9B-42D6-B7D5-34DD181D5334}'; RID_FacturasCliente = '{1C884472-B874-4186-BBC7-C1DC0C04DE9B}';
RID_FacturasCliente_Detalles = '{76206BC3-9926-4361-A2A2-23CD55C558FD}'; RID_FacturasCliente_Detalles = '{8B69432D-CC1E-49F2-8234-A4AD3BEAC334}';
{ Data table names } { Data table names }
nme_FacturasCliente = 'FacturasCliente'; nme_FacturasCliente = 'FacturasCliente';
@ -127,7 +127,7 @@ const
type type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{A8586B84-68BF-45F1-8B9D-31CE5E7D3E9C}'] ['{22224DB8-4B36-4F97-B348-93B12C05C36B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -344,7 +344,7 @@ type
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente) TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -570,7 +570,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{304C4E66-6E40-44E9-8AC0-E82711020403}'] ['{14D94787-B209-42D9-A661-0E777F387D67}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -592,8 +592,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean; function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean); procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer; function GetCANTIDADValue: Float;
procedure SetCANTIDADValue(const aValue: Integer); procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean; function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean); procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String; function GetUNIDAD_MEDIDAValue: String;
@ -645,7 +645,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; 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 CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@ -668,7 +668,7 @@ type
end; end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles) TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -692,8 +692,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual; function GetCANTIDADValue: Float; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual; procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual; function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual; function GetUNIDAD_MEDIDAValue: String; virtual;
@ -744,7 +744,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; 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 CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@ -1645,14 +1645,14 @@ begin
DataTable.Fields[idx_FacturasCliente_DetallesCONCEPTO].AsVariant := Null; DataTable.Fields[idx_FacturasCliente_DetallesCONCEPTO].AsVariant := Null;
end; end;
function TFacturasCliente_DetallesDataTableRules.GetCANTIDADValue: Integer; function TFacturasCliente_DetallesDataTableRules.GetCANTIDADValue: Float;
begin begin
result := DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsInteger; result := DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsFloat;
end; end;
procedure TFacturasCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer); procedure TFacturasCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin begin
DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsInteger := aValue; DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsFloat := aValue;
end; end;
function TFacturasCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean; function TFacturasCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;

28
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasClienteDelta = '{E6D0EAB3-B50E-445C-8F6D-111617271847}'; RID_FacturasClienteDelta = '{B409FE0D-EC7D-4D72-B893-D8B6A5B8A7C0}';
RID_FacturasCliente_DetallesDelta = '{DE5E67CA-CF82-423B-8D29-7708BEFF1F3E}'; RID_FacturasCliente_DetallesDelta = '{2DB7CADF-7D32-4620-9DA6-966DD9521C8C}';
type type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{E6D0EAB3-B50E-445C-8F6D-111617271847}'] ['{B409FE0D-EC7D-4D72-B893-D8B6A5B8A7C0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -458,14 +458,14 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{DE5E67CA-CF82-423B-8D29-7708BEFF1F3E}'] ['{2DB7CADF-7D32-4620-9DA6-966DD9521C8C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String; function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String; function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer; function GetOldCANTIDADValue : Float;
function GetOldUNIDAD_MEDIDAValue : String; function GetOldUNIDAD_MEDIDAValue : String;
function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
@ -482,7 +482,7 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue; property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
@ -529,11 +529,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual; function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual; function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual; function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual; function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual; function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual; procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual; function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual; function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
@ -611,9 +611,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; 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 CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@ -1934,7 +1934,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCONCEPTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCONCEPTO] := Null;
end; end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer; function TFacturasCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD];
end; end;
@ -1944,7 +1944,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD]);
end; end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCANTIDAD]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCANTIDAD];
end; end;
@ -1954,7 +1954,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCANTIDAD]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCANTIDAD]);
end; end;
procedure TFacturasCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); procedure TFacturasCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD] := aValue;
end; end;

4
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -390,7 +390,7 @@ object RptFacturasCliente: TRptFacturasCliente
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datFloat
end end
item item
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'
@ -1004,7 +1004,7 @@ object RptFacturasCliente: TRptFacturasCliente
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datFloat
end end
item item
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'

4
Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm
View File

@ -384,7 +384,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datFloat
end end
item item
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'
@ -652,7 +652,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datFloat
end end
item item
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'

4
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -476,7 +476,7 @@ object srvFacturasCliente: TsrvFacturasCliente
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datFloat
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
end end
item item
@ -1280,7 +1280,7 @@ object srvFacturasCliente: TsrvFacturasCliente
end end
item item
Name = 'FacturasCliente_Detalles_CANTIDAD' Name = 'FacturasCliente_Detalles_CANTIDAD'
DataType = datInteger DataType = datFloat
DisplayLabel = 'Cantidad' DisplayLabel = 'Cantidad'
end end
item item