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@639 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-30 09:55:13 +00:00
parent cd224d1e44
commit 7f1c25b8e8
3 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -320,7 +320,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datFloat
DictionaryEntry = 'CANTIDAD' DictionaryEntry = 'CANTIDAD'
end end
item item

34
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -3,14 +3,14 @@ unit schAlbaranesProveedorClient_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_AlbaranesProveedor = '{7DB07FA1-C594-4F6F-A3AB-62B8AAE9EFA5}'; RID_AlbaranesProveedor = '{BB462AD6-B2B8-4657-AD65-71223BAA1B84}';
RID_AlbaranesProveedor_Detalles = '{7FCFF51E-1B40-47EE-BC5C-3925F440AD37}'; RID_AlbaranesProveedor_Detalles = '{522B12F2-7A2E-40D5-B022-10C07D3DA1B3}';
{ Data table names } { Data table names }
nme_AlbaranesProveedor = 'AlbaranesProveedor'; nme_AlbaranesProveedor = 'AlbaranesProveedor';
@ -135,7 +135,7 @@ const
type type
{ IAlbaranesProveedor } { IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{AAF09857-D18A-4696-9964-9A7FE0E23C0F}'] ['{F1E38E39-40C8-49FC-B3F5-47F528563F9B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -363,7 +363,7 @@ type
end; end;
{ TAlbaranesProveedorDataTableRules } { TAlbaranesProveedorDataTableRules }
TAlbaranesProveedorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor) TAlbaranesProveedorDataTableRules = class(TDADataTableRules, IAlbaranesProveedor)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
@ -602,7 +602,7 @@ type
{ IAlbaranesProveedor_Detalles } { IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{09211C9C-4122-4F30-83FC-886D245B8952}'] ['{DE04C3FD-7982-4432-9F46-7BBBD5D47EE5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -624,8 +624,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;
@ -685,7 +685,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;
@ -712,7 +712,7 @@ type
end; end;
{ TAlbaranesProveedor_DetallesDataTableRules } { TAlbaranesProveedor_DetallesDataTableRules }
TAlbaranesProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor_Detalles) TAlbaranesProveedor_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesProveedor_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -736,8 +736,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;
@ -796,7 +796,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;
@ -1748,14 +1748,14 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesCONCEPTO].AsVariant := Null; DataTable.Fields[idx_AlbaranesProveedor_DetallesCONCEPTO].AsVariant := Null;
end; end;
function TAlbaranesProveedor_DetallesDataTableRules.GetCANTIDADValue: Integer; function TAlbaranesProveedor_DetallesDataTableRules.GetCANTIDADValue: Float;
begin begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsInteger; result := DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsFloat;
end; end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer); procedure TAlbaranesProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsInteger := aValue; DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsFloat := aValue;
end; end;
function TAlbaranesProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean; function TAlbaranesProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean;

28
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_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_AlbaranesProveedorDelta = '{2A2F0AD1-E371-4938-9505-C0733D91A9EE}'; RID_AlbaranesProveedorDelta = '{AD8DEBAC-BCFA-4B95-A6B5-9C8948F7A56C}';
RID_AlbaranesProveedor_DetallesDelta = '{1371B0E5-5F40-4895-9EE0-1ED3CAB202B3}'; RID_AlbaranesProveedor_DetallesDelta = '{67FD1B90-D35D-4B44-9D07-57DDA0EE7407}';
type type
{ IAlbaranesProveedorDelta } { IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor) IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{2A2F0AD1-E371-4938-9505-C0733D91A9EE}'] ['{AD8DEBAC-BCFA-4B95-A6B5-9C8948F7A56C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -483,14 +483,14 @@ type
{ IAlbaranesProveedor_DetallesDelta } { IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles) IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{1371B0E5-5F40-4895-9EE0-1ED3CAB202B3}'] ['{67FD1B90-D35D-4B44-9D07-57DDA0EE7407}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : 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;
@ -509,7 +509,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;
@ -558,11 +558,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;
@ -652,9 +652,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;
@ -2051,7 +2051,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCONCEPTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCONCEPTO] := Null;
end; end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer; function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD];
end; end;
@ -2061,7 +2061,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD]);
end; end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer; function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD];
end; end;
@ -2071,7 +2071,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD]);
end; end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD] := aValue;
end; end;