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
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
DictionaryEntry = 'CANTIDAD'
end
item

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

@ -3,14 +3,14 @@ unit schAlbaranesProveedorClient_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_AlbaranesProveedor = '{7DB07FA1-C594-4F6F-A3AB-62B8AAE9EFA5}';
RID_AlbaranesProveedor_Detalles = '{7FCFF51E-1B40-47EE-BC5C-3925F440AD37}';
RID_AlbaranesProveedor = '{BB462AD6-B2B8-4657-AD65-71223BAA1B84}';
RID_AlbaranesProveedor_Detalles = '{522B12F2-7A2E-40D5-B022-10C07D3DA1B3}';
{ Data table names }
nme_AlbaranesProveedor = 'AlbaranesProveedor';
@ -135,7 +135,7 @@ const
type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{AAF09857-D18A-4696-9964-9A7FE0E23C0F}']
['{F1E38E39-40C8-49FC-B3F5-47F528563F9B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -363,7 +363,7 @@ type
end;
{ TAlbaranesProveedorDataTableRules }
TAlbaranesProveedorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor)
TAlbaranesProveedorDataTableRules = class(TDADataTableRules, IAlbaranesProveedor)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@ -602,7 +602,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{09211C9C-4122-4F30-83FC-886D245B8952}']
['{DE04C3FD-7982-4432-9F46-7BBBD5D47EE5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -624,8 +624,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;
@ -685,7 +685,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;
@ -712,7 +712,7 @@ type
end;
{ TAlbaranesProveedor_DetallesDataTableRules }
TAlbaranesProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor_Detalles)
TAlbaranesProveedor_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesProveedor_Detalles)
private
protected
{ Property getters and setters }
@ -736,8 +736,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;
@ -796,7 +796,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;
@ -1748,14 +1748,14 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesCONCEPTO].AsVariant := Null;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetCANTIDADValue: Integer;
function TAlbaranesProveedor_DetallesDataTableRules.GetCANTIDADValue: Float;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsInteger;
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsFloat;
end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TAlbaranesProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsFloat := aValue;
end;
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_AlbaranesProveedorDelta = '{2A2F0AD1-E371-4938-9505-C0733D91A9EE}';
RID_AlbaranesProveedor_DetallesDelta = '{1371B0E5-5F40-4895-9EE0-1ED3CAB202B3}';
RID_AlbaranesProveedorDelta = '{AD8DEBAC-BCFA-4B95-A6B5-9C8948F7A56C}';
RID_AlbaranesProveedor_DetallesDelta = '{67FD1B90-D35D-4B44-9D07-57DDA0EE7407}';
type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{2A2F0AD1-E371-4938-9505-C0733D91A9EE}']
['{AD8DEBAC-BCFA-4B95-A6B5-9C8948F7A56C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -483,14 +483,14 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{1371B0E5-5F40-4895-9EE0-1ED3CAB202B3}']
['{67FD1B90-D35D-4B44-9D07-57DDA0EE7407}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : 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;
@ -509,7 +509,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;
@ -558,11 +558,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;
@ -652,9 +652,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;
@ -2051,7 +2051,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCONCEPTO] := Null;
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD];
end;
@ -2061,7 +2061,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD]);
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD];
end;
@ -2071,7 +2071,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD]);
end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD] := aValue;
end;