Se adaptan los detalles para que puedan ser las cantidades decimales
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@636 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
b3ba866e49
commit
cfb58335e2
@ -3,14 +3,14 @@ unit schAlbaranesClienteClient_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_AlbaranesCliente = '{9F51E545-F835-4C02-BB62-FE25951D5FF2}';
|
||||
RID_AlbaranesCliente_Detalles = '{C69D472D-E905-4CA1-A3FD-B3E477AB9807}';
|
||||
RID_AlbaranesCliente = '{53F308FB-F81B-4A25-99E0-E11DF3E18565}';
|
||||
RID_AlbaranesCliente_Detalles = '{D025104D-248E-4C16-BB61-752769362E0D}';
|
||||
|
||||
{ Data table names }
|
||||
nme_AlbaranesCliente = 'AlbaranesCliente';
|
||||
@ -139,7 +139,7 @@ const
|
||||
type
|
||||
{ IAlbaranesCliente }
|
||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{B1F8F584-8F71-4CDE-B849-948102A4BD26}']
|
||||
['{9088D93F-C3A6-4EB9-83CC-7C8C04F9ABDD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -385,7 +385,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAlbaranesClienteDataTableRules }
|
||||
TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
|
||||
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente)
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
@ -642,7 +642,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles }
|
||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{B8DAC4EF-F5CD-4E41-A627-9AF6FEBD1F83}']
|
||||
['{7931FCBB-7F4B-414C-AAEB-6FB3F0A8C3D4}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -664,8 +664,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;
|
||||
@ -721,7 +721,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;
|
||||
@ -746,7 +746,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAlbaranesCliente_DetallesDataTableRules }
|
||||
TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
|
||||
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -770,8 +770,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;
|
||||
@ -826,7 +826,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;
|
||||
@ -1839,14 +1839,14 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_DetallesCONCEPTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
|
||||
function TAlbaranesCliente_DetallesDataTableRules.GetCANTIDADValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_DetallesCANTIDAD].AsInteger;
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_DetallesCANTIDAD].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
|
||||
procedure TAlbaranesCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_DetallesCANTIDAD].AsInteger := aValue;
|
||||
DataTable.Fields[idx_AlbaranesCliente_DetallesCANTIDAD].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
|
||||
|
||||
@ -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_AlbaranesClienteDelta = '{2E0A5659-946F-468E-AB61-D5C549490842}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{DD10B773-471A-4785-B22A-5C4925E89ADB}';
|
||||
RID_AlbaranesClienteDelta = '{9B8F3A42-777B-408C-8600-F52474CB6A01}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{EC9C74AF-D537-46A1-9FD4-3418C781C464}';
|
||||
|
||||
type
|
||||
{ IAlbaranesClienteDelta }
|
||||
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
||||
['{2E0A5659-946F-468E-AB61-D5C549490842}']
|
||||
['{9B8F3A42-777B-408C-8600-F52474CB6A01}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -519,14 +519,14 @@ type
|
||||
|
||||
{ IAlbaranesCliente_DetallesDelta }
|
||||
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
||||
['{DD10B773-471A-4785-B22A-5C4925E89ADB}']
|
||||
['{EC9C74AF-D537-46A1-9FD4-3418C781C464}']
|
||||
{ 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 GetOldDESCUENTOValue : Float;
|
||||
@ -544,7 +544,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 OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
||||
@ -592,11 +592,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;
|
||||
@ -680,9 +680,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;
|
||||
@ -2168,7 +2168,7 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCONCEPTO] := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCANTIDAD];
|
||||
end;
|
||||
@ -2178,7 +2178,7 @@ begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCANTIDAD]);
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesCANTIDAD];
|
||||
end;
|
||||
@ -2188,7 +2188,7 @@ begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesCANTIDAD]);
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
|
||||
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCANTIDAD] := aValue;
|
||||
end;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user