diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index ec64903e..b7e460b5 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,27 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -58,54 +79,54 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index d9993713..4cc7bab4 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 2,4,7,0
-PRODUCTVERSION 2,4,7,0
+FILEVERSION 2,4,8,0
+PRODUCTVERSION 2,4,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.4.7.0\0"
+ VALUE "FileVersion", "2.4.8.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "2.4.7.0\0"
+ VALUE "ProductVersion", "2.4.8.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 56f852e3..a3fe5b86 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 1641339f..8b251f31 100644
Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ
diff --git a/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
index 32ca61ae..36fb1996 100644
--- a/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
+++ b/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
@@ -152,6 +152,7 @@ end;
procedure TDetallesContratoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
+ ADetalles.DataTable.FieldByName('PROPIEDAD').AsString := AArticulos.FAMILIA;
//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
// if Assigned(AArticulos) then
// ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
index 0433d472..109b78d7 100644
--- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
@@ -357,6 +357,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DataType = datString
Size = 10
end
+ item
+ Name = 'PROPIEDAD'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'CONCEPTO'
DataType = datString
@@ -398,7 +403,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item
Name = 'REFERENCIA'
DataType = datString
- Size = 50
+ Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
@@ -451,74 +456,6 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Left = 248
Top = 144
end
- object tbl_Propiedades: TDAMemDataTable
- RemoteUpdatesOptions = []
- Fields = <
- item
- Name = 'ID'
- DataType = datInteger
- Required = True
- InPrimaryKey = True
- end
- item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 50
- end
- item
- Name = 'ID_PROPIEDAD_VALORES'
- DataType = datInteger
- end>
- Params = <>
- StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteDataAdapter = rda_ContratosCliente
- LogicalName = 'Propiedades'
- IndexDefs = <>
- Left = 464
- Top = 200
- end
- object ds_Propiedades: TDADataSource
- DataSet = tbl_Propiedades.Dataset
- DataTable = tbl_Propiedades
- Left = 464
- Top = 152
- end
- object tbl_Valores: TDAMemDataTable
- RemoteUpdatesOptions = []
- Fields = <
- item
- Name = 'ID'
- DataType = datInteger
- Required = True
- InPrimaryKey = True
- end
- item
- Name = 'ID_PROPIEDAD'
- DataType = datInteger
- end
- item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 2000
- end>
- Params = <>
- MasterMappingMode = mmWhere
- StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteDataAdapter = rda_ContratosCliente
- MasterSource = ds_Propiedades
- MasterFields = 'ID_PROPIEDAD_VALORES'
- DetailFields = 'ID_PROPIEDAD'
- LogicalName = 'Valores'
- IndexDefs = <>
- Left = 544
- Top = 200
- end
- object ds_Valores: TDADataSource
- DataSet = tbl_Valores.Dataset
- DataTable = tbl_Valores
- Left = 544
- Top = 152
- end
object tbl_TiposCapitulos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
index 4a37414f..a1021448 100644
--- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
@@ -25,10 +25,6 @@ type
RORemoteService1: TRORemoteService;
tbl_ListaAnosContratos: TDAMemDataTable;
ds_ListaAnosContratos: TDADataSource;
- tbl_Propiedades: TDAMemDataTable;
- ds_Propiedades: TDADataSource;
- tbl_Valores: TDAMemDataTable;
- ds_Valores: TDADataSource;
tbl_TiposCapitulos: TDAMemDataTable;
ds_TiposCapitulos: TDADataSource;
tbl_ContratosClienteBeneficios: TDAMemDataTable;
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
index 0492828d..9030ac1a 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
@@ -3,19 +3,19 @@ unit schContratosClienteClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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_Valores = '{72B7AEE8-325E-4838-9EFA-4A888B257897}';
- RID_Propiedades = '{204B145C-8E4B-42B5-8305-40B6D02D17A8}';
- RID_ListaAnosContratos = '{A9376B52-1BE5-4374-A5C9-A28ED0A55664}';
- RID_ContratosClienteBeneficios = '{465DF5E0-F5CF-4515-B7DC-B4BE11BE7934}';
- RID_ContratosCliente = '{8CB29C6D-A484-4B0A-8273-424E91DAF879}';
- RID_TiposCapitulos = '{A3D99F24-9CDC-4DC7-A89B-2AC340010C93}';
- RID_ContratosCliente_Detalles = '{421C5A4A-27CD-4656-9DC9-6D2E2E508231}';
+ RID_Valores = '{77A5C873-380F-4698-9E11-F611CF7B4D6A}';
+ RID_Propiedades = '{486DF363-F3FC-4540-B80F-3D6ECD60057F}';
+ RID_ListaAnosContratos = '{5F6BBC0C-7DD6-4B5A-93C3-E0A70687F51B}';
+ RID_ContratosClienteBeneficios = '{5001FCC6-7A3E-420B-A362-C66022A8D4F9}';
+ RID_ContratosCliente = '{ED10394C-954E-4012-88CC-B63CAC527A63}';
+ RID_TiposCapitulos = '{2DF18C63-1821-49E9-AC1D-634E5396332E}';
+ RID_ContratosCliente_Detalles = '{FE59D0AE-E7D9-4742-A444-A90ACC89B005}';
{ Data table names }
nme_Valores = 'Valores';
@@ -193,6 +193,7 @@ const
fld_ContratosCliente_DetallesID_CONTRATO = 'ID_CONTRATO';
fld_ContratosCliente_DetallesPOSICION = 'POSICION';
fld_ContratosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
+ fld_ContratosCliente_DetallesPROPIEDAD = 'PROPIEDAD';
fld_ContratosCliente_DetallesCONCEPTO = 'CONCEPTO';
fld_ContratosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
@@ -210,22 +211,23 @@ const
idx_ContratosCliente_DetallesID_CONTRATO = 1;
idx_ContratosCliente_DetallesPOSICION = 2;
idx_ContratosCliente_DetallesTIPO_DETALLE = 3;
- idx_ContratosCliente_DetallesCONCEPTO = 4;
- idx_ContratosCliente_DetallesCANTIDAD = 5;
- idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 6;
- idx_ContratosCliente_DetallesIMPORTE_TOTAL = 7;
- idx_ContratosCliente_DetallesVISIBLE = 8;
- idx_ContratosCliente_DetallesID_ARTICULO = 9;
- idx_ContratosCliente_DetallesTIPO_ARTICULO = 10;
- idx_ContratosCliente_DetallesDESCUENTO = 11;
- idx_ContratosCliente_DetallesIMPORTE_PORTE = 12;
- idx_ContratosCliente_DetallesREFERENCIA = 13;
- idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 14;
+ idx_ContratosCliente_DetallesPROPIEDAD = 4;
+ idx_ContratosCliente_DetallesCONCEPTO = 5;
+ idx_ContratosCliente_DetallesCANTIDAD = 6;
+ idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 7;
+ idx_ContratosCliente_DetallesIMPORTE_TOTAL = 8;
+ idx_ContratosCliente_DetallesVISIBLE = 9;
+ idx_ContratosCliente_DetallesID_ARTICULO = 10;
+ idx_ContratosCliente_DetallesTIPO_ARTICULO = 11;
+ idx_ContratosCliente_DetallesDESCUENTO = 12;
+ idx_ContratosCliente_DetallesIMPORTE_PORTE = 13;
+ idx_ContratosCliente_DetallesREFERENCIA = 14;
+ idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 15;
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{FAEF0BA9-EE5E-4DBA-8566-920E9D426DC7}']
+ ['{DFCE6325-A26B-4ABC-B445-11FC8A0B0EA5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -251,7 +253,7 @@ type
end;
{ TValoresDataTableRules }
- TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
+ TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@@ -284,7 +286,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{E0116E85-FA5E-4B34-9EB7-CDD77FBE72DE}']
+ ['{3905AFC7-7942-4A46-9780-838277847C23}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -310,7 +312,7 @@ type
end;
{ TPropiedadesDataTableRules }
- TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
+ TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@@ -343,7 +345,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
- ['{B157E813-9175-49A8-B893-9A9924926C56}']
+ ['{50911EB2-C48F-4B1B-B3B5-2AE0C9EF69E9}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -357,7 +359,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
- TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
+ TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@@ -378,7 +380,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
- ['{669F62EB-07E0-4A41-9D2A-B8FC81A11A12}']
+ ['{E857F9D0-94BB-4BAD-8CC8-5BBBAFDB6B52}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -452,7 +454,7 @@ type
end;
{ TContratosClienteBeneficiosDataTableRules }
- TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
+ TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@@ -533,7 +535,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
- ['{6C9916A4-79AB-4C37-A48C-6012AB24C980}']
+ ['{918B08A5-1B87-4AC4-A9E9-AC5F96815EB0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -807,7 +809,7 @@ type
end;
{ TContratosClienteDataTableRules }
- TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
+ TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@@ -1099,7 +1101,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
- ['{CA80C6D6-6E5B-4E3A-9790-34416A07D6B6}']
+ ['{48215290-558C-4E03-B941-E5C5162F335F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1143,7 +1145,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
- TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
+ TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@@ -1194,7 +1196,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{01A6BC62-F13E-40FD-A7CA-ACE471474C86}']
+ ['{202C1D1C-1786-4027-A601-61B2DF617286}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1212,6 +1214,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String);
function GetTIPO_DETALLEIsNull: Boolean;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean);
+ function GetPROPIEDADValue: String;
+ procedure SetPROPIEDADValue(const aValue: String);
+ function GetPROPIEDADIsNull: Boolean;
+ procedure SetPROPIEDADIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
@@ -1267,6 +1273,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
+ property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
+ property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@@ -1292,7 +1300,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
- TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
+ TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -1312,6 +1320,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
+ function GetPROPIEDADValue: String; virtual;
+ procedure SetPROPIEDADValue(const aValue: String); virtual;
+ function GetPROPIEDADIsNull: Boolean; virtual;
+ procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
@@ -1366,6 +1378,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
+ property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
+ property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@@ -3037,6 +3051,27 @@ begin
DataTable.Fields[idx_ContratosCliente_DetallesTIPO_DETALLE].AsVariant := Null;
end;
+function TContratosCliente_DetallesDataTableRules.GetPROPIEDADValue: String;
+begin
+ result := DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsString;
+end;
+
+procedure TContratosCliente_DetallesDataTableRules.SetPROPIEDADValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsString := aValue;
+end;
+
+function TContratosCliente_DetallesDataTableRules.GetPROPIEDADIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].IsNull;
+end;
+
+procedure TContratosCliente_DetallesDataTableRules.SetPROPIEDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsVariant := Null;
+end;
+
function TContratosCliente_DetallesDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesCONCEPTO].AsString;
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
index c4f08e06..394a8e93 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
@@ -9,18 +9,18 @@ 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_ValoresDelta = '{70C4BC9D-7C37-4D4D-8DD1-28D18949AFCF}';
- RID_PropiedadesDelta = '{EAC18BA2-1808-42BD-B887-7780E0DE9339}';
- RID_ListaAnosContratosDelta = '{2E6083C4-12F7-4E98-B59D-C5DDBBA65708}';
- RID_ContratosClienteBeneficiosDelta = '{01CD2693-B234-4FED-ABDE-8B8E1C7A2508}';
- RID_ContratosClienteDelta = '{D54F00B0-E8DC-4A66-BE4C-3F39EE74EE66}';
- RID_TiposCapitulosDelta = '{6A3B35F6-2F7A-413B-AB11-9F05935C5774}';
- RID_ContratosCliente_DetallesDelta = '{01D29ED0-F4B1-45DD-A233-C0B689192303}';
+ RID_ValoresDelta = '{8CBBCC4D-7331-4B84-AAA3-4BB44C00350D}';
+ RID_PropiedadesDelta = '{ABE36068-9C2A-4085-A298-7A30650655AB}';
+ RID_ListaAnosContratosDelta = '{A4974C08-1841-49BF-8870-5515D21B8330}';
+ RID_ContratosClienteBeneficiosDelta = '{E213F4FC-FC45-4298-BB98-EFCC5BF3A82F}';
+ RID_ContratosClienteDelta = '{D5BD987F-847E-4F41-AB14-F13F95A95B72}';
+ RID_TiposCapitulosDelta = '{5573FCA2-DCAD-4F1D-BE66-CD8EE363EEF6}';
+ RID_ContratosCliente_DetallesDelta = '{6F34F5D3-1DE1-4784-97F6-30522B0CBAC2}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{70C4BC9D-7C37-4D4D-8DD1-28D18949AFCF}']
+ ['{8CBBCC4D-7331-4B84-AAA3-4BB44C00350D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{EAC18BA2-1808-42BD-B887-7780E0DE9339}']
+ ['{ABE36068-9C2A-4085-A298-7A30650655AB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
- ['{2E6083C4-12F7-4E98-B59D-C5DDBBA65708}']
+ ['{A4974C08-1841-49BF-8870-5515D21B8330}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
- ['{01CD2693-B234-4FED-ABDE-8B8E1C7A2508}']
+ ['{E213F4FC-FC45-4298-BB98-EFCC5BF3A82F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@@ -324,7 +324,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
- ['{D54F00B0-E8DC-4A66-BE4C-3F39EE74EE66}']
+ ['{D5BD987F-847E-4F41-AB14-F13F95A95B72}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -890,7 +890,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
- ['{6A3B35F6-2F7A-413B-AB11-9F05935C5774}']
+ ['{5573FCA2-DCAD-4F1D-BE66-CD8EE363EEF6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -984,12 +984,13 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
- ['{01D29ED0-F4B1-45DD-A233-C0B689192303}']
+ ['{6F34F5D3-1DE1-4784-97F6-30522B0CBAC2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
+ function GetOldPROPIEDADValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency;
@@ -1007,6 +1008,7 @@ type
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
+ property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@@ -1049,6 +1051,12 @@ type
function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
+ function GetPROPIEDADValue: String; virtual;
+ function GetPROPIEDADIsNull: Boolean; virtual;
+ function GetOldPROPIEDADValue: String; virtual;
+ function GetOldPROPIEDADIsNull: Boolean; virtual;
+ procedure SetPROPIEDADValue(const aValue: String); virtual;
+ procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual;
@@ -1133,6 +1141,10 @@ type
property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
+ property PROPIEDAD : String read GetPROPIEDADValue write SetPROPIEDADValue;
+ property PROPIEDADIsNull : Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
+ property OldPROPIEDAD : String read GetOldPROPIEDADValue;
+ property OldPROPIEDADIsNull : Boolean read GetOldPROPIEDADIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
@@ -3561,6 +3573,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesTIPO_DETALLE] := Null;
end;
+function TContratosCliente_DetallesBusinessProcessorRules.GetPROPIEDADValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD];
+end;
+
+function TContratosCliente_DetallesBusinessProcessorRules.GetPROPIEDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD]);
+end;
+
+function TContratosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesPROPIEDAD];
+end;
+
+function TContratosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesPROPIEDAD]);
+end;
+
+procedure TContratosCliente_DetallesBusinessProcessorRules.SetPROPIEDADValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD] := aValue;
+end;
+
+procedure TContratosCliente_DetallesBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD] := Null;
+end;
+
function TContratosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCONCEPTO];
diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
index fc5a9612..282dcb72 100644
--- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
+++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
@@ -760,18 +760,18 @@ object srvContratosCliente: TsrvContratosCliente
'SELECT'#10' CONTRATOS_CLIENTE_DETALLES.ID, CONTRATOS_CLIENTE_DETA' +
'LLES.ID_CONTRATO,'#10' CONTRATOS_CLIENTE_DETALLES.POSICION, CONTR' +
'ATOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' CONTRATOS_CLIENTE_DETALL' +
- 'ES.CONCEPTO, CONTRATOS_CLIENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_' +
- 'CLIENTE_DETALLES.IMPORTE_UNIDAD, CONTRATOS_CLIENTE_DETALLES.IMPO' +
- 'RTE_TOTAL,'#10' CONTRATOS_CLIENTE_DETALLES.VISIBLE,'#10#10' CONTRATO' +
- 'S_CLIENTE_DETALLES.ID_ARTICULO, CONTRATOS_CLIENTE_DETALLES.TIPO_' +
- 'ARTICULO,'#10' CONTRATOS_CLIENTE_DETALLES.DESCUENTO,'#10' CONTRATO' +
- 'S_CLIENTE_DETALLES.IMPORTE_PORTE,'#10' PRESUPUESTOS_PROPIEDADES.D' +
- 'ESCRIPCION as REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es ne' +
- 'cesario para que no fallen los detalles porque los detalles son ' +
- 'comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTRATOS' +
- '_CLIENTE_DETALLES'#10'LEFT JOIN PRESUPUESTOS_PROPIEDADES ON (PRESUPU' +
- 'ESTOS_PROPIEDADES.ID = CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO)'#10'w' +
- 'here {where}'#10'ORDER BY POSICION;'#10#10
+ 'ES.PROPIEDAD, CONTRATOS_CLIENTE_DETALLES.CONCEPTO, CONTRATOS_CLI' +
+ 'ENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_U' +
+ 'NIDAD, CONTRATOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' CONTRATOS_C' +
+ 'LIENTE_DETALLES.VISIBLE,'#10#10' CONTRATOS_CLIENTE_DETALLES.ID_ARTI' +
+ 'CULO, CONTRATOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' CONTRATOS_CL' +
+ 'IENTE_DETALLES.DESCUENTO,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE' +
+ '_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*E' +
+ 's necesario para que no fallen los detalles porque los detalles ' +
+ 'son comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTR' +
+ 'ATOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON CONTRATOS_CLIENTE_D' +
+ 'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICI' +
+ 'ON;'#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@@ -826,15 +826,19 @@ object srvContratosCliente: TsrvContratosCliente
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
- item
- DatasetField = 'REFERENCIA'
- TableField = ''
- SQLOrigin = 'REFERENCIA'
- end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = ''
SQLOrigin = 'REFERENCIA_PROVEEDOR'
+ end
+ item
+ DatasetField = 'PROPIEDAD'
+ TableField = 'PROPIEDAD'
+ end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = ''
+ SQLOrigin = 'REFERENCIA'
end>
end>
Name = 'ContratosCliente_Detalles'
@@ -858,6 +862,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString
Size = 10
end
+ item
+ Name = 'PROPIEDAD'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'CONCEPTO'
DataType = datString
@@ -899,7 +908,7 @@ object srvContratosCliente: TsrvContratosCliente
item
Name = 'REFERENCIA'
DataType = datString
- Size = 50
+ Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
@@ -1415,6 +1424,12 @@ object srvContratosCliente: TsrvContratosCliente
Size = 10
Value = ''
end
+ item
+ Name = 'PROPIEDAD'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
item
Name = 'CONCEPTO'
DataType = datString
@@ -1469,12 +1484,13 @@ object srvContratosCliente: TsrvContratosCliente
TargetTable = 'CONTRATOS_CLIENTE_DETALLES'
SQL =
'INSERT'#10' INTO CONTRATOS_CLIENTE_DETALLES'#10' (ID, ID_CONTRATO, P' +
- 'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, ' +
- 'IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' DESCUEN' +
- 'TO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_CONTRATO, ' +
- ':POSICION, :TIPO_DETALLE, :CONCEPTO,'#10' :CANTIDAD, :IMPORTE_UN' +
- 'IDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTICULO, :TIPO_ARTICUL' +
- 'O, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10
+ 'OSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' IMPOR' +
+ 'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' ' +
+ ' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID' +
+ '_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCEPTO,'#10' ' +
+ ' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_' +
+ 'ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TI' +
+ 'MESTAMP)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1523,6 +1539,12 @@ object srvContratosCliente: TsrvContratosCliente
Size = 10
Value = ''
end
+ item
+ Name = 'PROPIEDAD'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
item
Name = 'CONCEPTO'
DataType = datString
@@ -1582,12 +1604,13 @@ object srvContratosCliente: TsrvContratosCliente
SQL =
'UPDATE CONTRATOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_CO' +
'NTRATO = :ID_CONTRATO,'#10' POSICION = :POSICION, '#10' TIPO_DETAL' +
- 'LE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :' +
- 'CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOT' +
- 'AL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO =' +
- ' :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENT' +
- 'O = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_M' +
- 'ODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'LE = :TIPO_DETALLE,'#10' PROPIEDAD = :PROPIEDAD,'#10' CONCEPTO = :' +
+ 'CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPO' +
+ 'RTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :' +
+ 'VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = :' +
+ 'TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE = ' +
+ ':IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHE' +
+ 'RE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
index f64d1257..20eb87f8 100644
--- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
@@ -174,6 +174,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited pgPaginas: TPageControl
Width = 839
Height = 270
+ ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 839
@@ -187,10 +188,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0
Top = 0
@@ -211,77 +208,96 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitHeight = 242
inherited ToolBar1: TToolBar
Width = 831
+ Height = 24
ExplicitWidth = 831
- inherited ToolButton4: TToolButton
- Wrap = True
- end
+ ExplicitHeight = 24
inherited ToolButton14: TToolButton
- Left = 0
- Top = 22
Wrap = False
- ExplicitLeft = 0
- ExplicitTop = 22
end
inherited FontName: TJvFontComboBox
- Left = 34
- ExplicitLeft = 34
+ Left = 368
+ Top = 0
+ ExplicitLeft = 368
+ ExplicitTop = 0
end
- inherited FontSize: TEdit
- Left = 179
+ inherited UpDown1: TUpDown [6]
+ Left = 513
+ Top = 0
+ ExplicitLeft = 513
+ ExplicitTop = 0
+ end
+ inherited ToolButton13: TToolButton [7]
+ Left = 530
+ Top = 0
+ ExplicitLeft = 530
+ ExplicitTop = 0
+ end
+ inherited ToolButton6: TToolButton [8]
+ Left = 538
+ Top = 0
+ ExplicitLeft = 538
+ ExplicitTop = 0
+ end
+ inherited ToolButton7: TToolButton [9]
+ Left = 572
+ Top = 0
+ ExplicitLeft = 572
+ ExplicitTop = 0
+ end
+ inherited ToolButton8: TToolButton [10]
+ Left = 606
+ Top = 0
+ ExplicitLeft = 606
+ ExplicitTop = 0
+ end
+ inherited ToolButton12: TToolButton [11]
+ Left = 640
+ Top = 0
+ ExplicitLeft = 640
+ ExplicitTop = 0
+ end
+ inherited ToolButton9: TToolButton [12]
+ Left = 648
+ Top = 0
+ ExplicitLeft = 648
+ ExplicitTop = 0
+ end
+ inherited ToolButton10: TToolButton [13]
+ Left = 682
+ Top = 0
+ ExplicitLeft = 682
+ ExplicitTop = 0
+ end
+ inherited ToolButton11: TToolButton [14]
+ Left = 716
+ Top = 0
+ ExplicitLeft = 716
+ ExplicitTop = 0
+ end
+ inherited FontSize: TEdit [15]
+ Left = 750
+ Top = 0
Width = 74
- ExplicitLeft = 179
+ ExplicitLeft = 750
+ ExplicitTop = 0
ExplicitWidth = 74
end
- inherited UpDown1: TUpDown
- Left = 253
- ExplicitLeft = 253
- end
- inherited ToolButton13: TToolButton
- Left = 270
- ExplicitLeft = 270
- end
- inherited ToolButton6: TToolButton
- Left = 278
- ExplicitLeft = 278
- end
- inherited ToolButton7: TToolButton
- Left = 312
- ExplicitLeft = 312
- end
- inherited ToolButton8: TToolButton
- Left = 346
- ExplicitLeft = 346
- end
- inherited ToolButton12: TToolButton
- Left = 380
- ExplicitLeft = 380
- end
- inherited ToolButton9: TToolButton
- Left = 388
- ExplicitLeft = 388
- end
- inherited ToolButton10: TToolButton
- Left = 422
- ExplicitLeft = 422
- end
- inherited ToolButton11: TToolButton
- Left = 456
- ExplicitLeft = 456
- end
end
inherited cxGrid: TcxGrid
+ Top = 50
Width = 831
- Height = 170
+ Height = 192
ExplicitTop = 50
- ExplicitWidth = 834
- ExplicitHeight = 273
+ ExplicitWidth = 831
+ ExplicitHeight = 192
end
inherited TBXDock1: TTBXDock
+ Top = 24
Width = 831
ExplicitTop = 24
- ExplicitWidth = 834
+ ExplicitWidth = 831
inherited TBXToolbar1: TTBXToolbar
- ExplicitWidth = 564
+ ExplicitWidth = 665
end
end
inherited cxLookupComboBox1: TcxLookupComboBox
@@ -290,15 +306,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited cxRichEdit1: TcxRichEdit
Style.IsFontAssigned = True
end
+ inherited cxLookupComboBox2: TcxLookupComboBox
+ Style.IsFontAssigned = True
+ end
end
end
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@@ -375,6 +390,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited PnlComentario: TPanel
Width = 845
ExplicitWidth = 845
+ inherited lbComentario: TLabel
+ Width = 835
+ Height = 25
+ end
end
inline frViewTotales1: TfrViewTotales [5]
Left = 0
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
index 72b5da66..06ffd43f 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
@@ -1,61 +1,89 @@
inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
+ Width = 905
+ Height = 475
inherited ToolBar1: TToolBar
+ Width = 905
+ Height = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
- Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
- Left = 0
- ExplicitLeft = 0
+ Left = 368
+ Top = 0
+ ExplicitLeft = 368
+ ExplicitTop = 0
end
inherited FontSize: TEdit
- Left = 145
- ExplicitLeft = 145
+ Left = 513
+ Top = 0
+ ExplicitLeft = 513
+ ExplicitTop = 0
end
inherited UpDown1: TUpDown
- Left = 187
- ExplicitLeft = 187
+ Left = 555
+ Top = 0
+ ExplicitLeft = 555
+ ExplicitTop = 0
end
inherited ToolButton13: TToolButton
- Left = 204
- ExplicitLeft = 204
+ Left = 572
+ Top = 0
+ ExplicitLeft = 572
+ ExplicitTop = 0
end
inherited ToolButton6: TToolButton
- Left = 212
- ExplicitLeft = 212
+ Left = 580
+ Top = 0
+ ExplicitLeft = 580
+ ExplicitTop = 0
end
inherited ToolButton7: TToolButton
- Left = 246
- ExplicitLeft = 246
+ Left = 614
+ Top = 0
+ ExplicitLeft = 614
+ ExplicitTop = 0
end
inherited ToolButton8: TToolButton
- Left = 280
- ExplicitLeft = 280
+ Left = 648
+ Top = 0
+ ExplicitLeft = 648
+ ExplicitTop = 0
end
inherited ToolButton12: TToolButton
- Left = 314
- ExplicitLeft = 314
+ Left = 682
+ Top = 0
+ ExplicitLeft = 682
+ ExplicitTop = 0
end
inherited ToolButton9: TToolButton
- Left = 322
- ExplicitLeft = 322
+ Left = 690
+ Top = 0
+ ExplicitLeft = 690
+ ExplicitTop = 0
end
inherited ToolButton10: TToolButton
- Left = 356
- ExplicitLeft = 356
+ Left = 724
+ Top = 0
+ ExplicitLeft = 724
+ ExplicitTop = 0
end
inherited ToolButton11: TToolButton
- Left = 390
- ExplicitLeft = 390
+ Left = 758
+ Top = 0
+ ExplicitLeft = 758
+ ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
+ Top = 50
+ Width = 905
+ Height = 425
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID_ARTICULO: TcxGridDBColumn
Width = 57
@@ -68,19 +96,12 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Visible = True
end
- object cxGridViewID_PROPIEDAD: TcxGridDBColumn [6]
+ object cxGridViewPROPIEDAD: TcxGridDBColumn [6]
Caption = 'Propiedad'
- DataBinding.FieldName = 'ID_ARTICULO'
- PropertiesClassName = 'TcxLookupComboBoxProperties'
- Properties.ImmediatePost = True
- Properties.KeyFieldNames = 'ID'
- Properties.ListColumns = <
- item
- FieldName = 'DESCRIPCION'
- end>
- Properties.ListOptions.ShowHeader = False
- Properties.ListOptions.SyncMode = True
- Properties.ListSource = DAPropiedades
+ DataBinding.FieldName = 'PROPIEDAD'
+ PropertiesClassName = 'TcxRichEditProperties'
+ OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
+ Width = 138
end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [7]
end
@@ -89,15 +110,15 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9]
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
- Width = 243
+ Width = 186
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn [10]
VisibleForCustomization = False
- Width = 25
+ Width = 20
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11]
VisibleForCustomization = False
- Width = 34
+ Width = 26
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [12]
VisibleForCustomization = False
@@ -112,12 +133,15 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15]
VisibleForCustomization = False
- Width = 29
+ Width = 22
end
end
end
inherited TBXDock1: TTBXDock
+ Top = 24
+ Width = 905
inherited TBXToolbar1: TTBXToolbar
+ ExplicitWidth = 665
object TBXSubmenuItem1: TTBXSubmenuItem [0]
Caption = 'A'#241'adir cap'#237'tulo'
DisplayMode = nbdmImageAndText
@@ -207,6 +231,29 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Height = 25
Width = 145
end
+ object cxLookupComboBox2: TcxLookupComboBox [5]
+ Left = 78
+ Top = 280
+ ParentFont = False
+ Properties.DropDownListStyle = lsEditList
+ Properties.ImmediatePost = True
+ Properties.KeyFieldNames = 'DESCRIPCION'
+ Properties.ListColumns = <
+ item
+ FieldName = 'DESCRIPCION'
+ end>
+ Properties.ListOptions.ShowHeader = False
+ Properties.ListSource = DAPropiedades
+ Style.Font.Charset = DEFAULT_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -13
+ Style.Font.Name = 'Lucida Console'
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 5
+ Visible = False
+ Width = 145
+ end
inherited ActionListContenido: TActionList
object actAsignarDescuento: TAction
Category = 'Operaciones'
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
index 6ca6790e..8d467ca9 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
@@ -30,7 +30,7 @@ type
TBXItem18: TTBXItem;
TBXSeparatorItem9: TTBXSeparatorItem;
DAPropiedades: TDADataSource;
- cxGridViewID_PROPIEDAD: TcxGridDBColumn;
+ cxGridViewPROPIEDAD: TcxGridDBColumn;
cxLookupComboBox1: TcxLookupComboBox;
DAValores: TDADataSource;
cxRichEdit1: TcxRichEdit;
@@ -57,11 +57,14 @@ type
TBXItem21: TTBXItem;
actCapituloObra: TAction;
TBXItem22: TTBXItem;
+ cxLookupComboBox2: TcxLookupComboBox;
procedure actAsignarDescuentoExecute(Sender: TObject);
procedure actAsignarDescuentoUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
procedure cxGridViewDESCRIPCIONGetPropertiesForEdit(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
+ procedure cxGridViewPROPIEDADGetPropertiesForEdit(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
+ var AProperties: TcxCustomEditProperties);
procedure actCapituloBanoExecute(Sender: TObject);
procedure actCapituloArmarioFExecute(Sender: TObject);
procedure actCapituloArmarioIExecute(Sender: TObject);
@@ -70,7 +73,7 @@ type
procedure actCapituloVariosExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject);
procedure actCapituloImportesExecute(Sender: TObject);
- procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
+ procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actCapituloObraExecute(Sender: TObject);
@@ -268,18 +271,29 @@ begin
inherited;
//OJO sin esto no se refresca el filtro en tabla detalle "VALORES".
- (cxGridViewID_PROPIEDAD.Properties as TcxLookupComboBoxProperties).ListSource.DataSet.Locate(fld_PropiedadesID, cxGridViewID_PROPIEDAD.DataBinding.Field.AsVariant,[]);
+ DAPropiedades.DataTable.Locate(fld_PropiedadesDESCRIPCION, cxGridViewPROPIEDAD.DataBinding.Field.AsVariant,[]);
+
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
- and ((ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AF)
- or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AI)
- or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_B)
- or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_C)) then
+ then
AProperties := cxLookupComboBox1.Properties
else
AProperties := cxRichEdit1.Properties;
end;
+procedure TfrViewDetallesContratoCliente.cxGridViewPROPIEDADGetPropertiesForEdit(
+ Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
+ var AProperties: TcxCustomEditProperties);
+begin
+ inherited;
+
+ if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
+ then
+ AProperties := cxLookupComboBox2.Properties
+ else
+ AProperties := cxRichEdit1.Properties;
+end;
+
function TfrViewDetallesContratoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean;
var
IndiceCol : Integer;
@@ -292,7 +306,7 @@ begin
if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then
Result := False
end
- else if (AItem.Index in [cxGridViewID_PROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
+ else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
begin
IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) or
@@ -305,8 +319,11 @@ begin
IndiceCol := cxGridView.GetColumnByFieldName(fld_ContratosCliente_DetallesTIPO_ARTICULO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AF) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AI) and
- (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B) and
- (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_C)) then
+ (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_C) and
+ (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_O) and
+ (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_V) and
+ (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_E) and
+ (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B)) then
Result := False
end;
end
diff --git a/Source/Modulos/Familias/Data/uDataModuleFamilias.dfm b/Source/Modulos/Familias/Data/uDataModuleFamilias.dfm
index b9faae68..dfb75ee3 100644
--- a/Source/Modulos/Familias/Data/uDataModuleFamilias.dfm
+++ b/Source/Modulos/Familias/Data/uDataModuleFamilias.dfm
@@ -10,12 +10,12 @@ inherited DataModuleFamilias: TDataModuleFamilias
Top = 24
end
object rda_Familias: TDARemoteDataAdapter
+ DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
- DataStreamer = Bin2DataStreamer
Left = 203
Top = 23
end
@@ -44,8 +44,6 @@ inherited DataModuleFamilias: TDataModuleFamilias
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Familias
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Familias'
IndexDefs = <>
Left = 280
diff --git a/Source/Modulos/Familias/Model/schFamiliasClient_Intf.pas b/Source/Modulos/Familias/Model/schFamiliasClient_Intf.pas
index 6e2f6f0a..4a1aad69 100644
--- a/Source/Modulos/Familias/Model/schFamiliasClient_Intf.pas
+++ b/Source/Modulos/Familias/Model/schFamiliasClient_Intf.pas
@@ -3,13 +3,13 @@ unit schFamiliasClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, 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_Familias = '{5E0E521B-7290-449D-9894-03C398EAC16B}';
+ RID_Familias = '{C080B399-6DAA-4558-9E84-9DE0C6929783}';
{ Data table names }
nme_Familias = 'Familias';
@@ -25,7 +25,7 @@ const
type
{ IFamilias }
IFamilias = interface(IDAStronglyTypedDataTable)
- ['{2AE94E1A-10A4-49E9-9644-4D2DD29A7C1E}']
+ ['{05E4B82B-526F-4BF8-A3CA-E2095F4A73A5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
diff --git a/Source/Modulos/Familias/Model/schFamiliasServer_Intf.pas b/Source/Modulos/Familias/Model/schFamiliasServer_Intf.pas
index c5bf019e..fd451e02 100644
--- a/Source/Modulos/Familias/Model/schFamiliasServer_Intf.pas
+++ b/Source/Modulos/Familias/Model/schFamiliasServer_Intf.pas
@@ -9,12 +9,12 @@ 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_FamiliasDelta = '{40100251-026E-43C3-8E18-67EA817A9BA4}';
+ RID_FamiliasDelta = '{A7871FF9-60A2-476E-813D-5FAA89816E86}';
type
{ IFamiliasDelta }
IFamiliasDelta = interface(IFamilias)
- ['{40100251-026E-43C3-8E18-67EA817A9BA4}']
+ ['{A7871FF9-60A2-476E-813D-5FAA89816E86}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES and b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES differ
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj
index a002c2ba..3649289c 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj
+++ b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj
@@ -49,12 +49,12 @@
MainSource
-
-
-
-
-
-
+
+
+
+
+
+
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
index b811520b..5879cb57 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
@@ -58,7 +58,7 @@ type
implementation
uses DB, Controls, SysUtils, Dialogs, uDAInterfaces, uDialogUtils, Variants, uDataModulePresupuestosCliente,
- uArticulosPresupuestoClienteController, schPresupuestosClienteClient_Intf,
+ uArticulosPresupuestoClienteController, schPresupuestosClienteClient_Intf,
uDataTableUtils, uCalculosUtils, uIEditorAsignarDescuento, uEditorRegistryUtils;
{ TDetallesPresupuestoClienteController }
@@ -130,7 +130,7 @@ begin
ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := Tipo;
- ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesID_ARTICULO).AsInteger := ACapitulo.ID_ARTICULO;
+ ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesPROPIEDAD).AsString := ACapitulo.PROPIEDAD;
Next;
until EOF;
end;
@@ -230,6 +230,7 @@ end;
procedure TDetallesPresupuestoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
+ ADetalles.DataTable.FieldByName('PROPIEDAD').AsString := AArticulos.FAMILIA;
//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
// if Assigned(AArticulos) then
// ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
index fa52ac30..98fa4117 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
@@ -292,6 +292,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datString
Size = 10
end
+ item
+ Name = 'PROPIEDAD'
+ DataType = datString
+ Size = 2000
+ end
item
Name = 'CONCEPTO'
DataType = datString
@@ -398,11 +403,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
item
Name = 'DESCRIPCION'
DataType = datString
- Size = 50
- end
- item
- Name = 'ID_PROPIEDAD_VALORES'
- DataType = datInteger
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@@ -428,21 +429,31 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
InPrimaryKey = True
end
item
- Name = 'ID_PROPIEDAD'
+ Name = 'ID_EMPRESA'
DataType = datInteger
end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'DESCRIPCION'
DataType = datString
- Size = 2000
+ Size = 255
+ end
+ item
+ Name = 'FAMILIA'
+ DataType = datString
+ Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
MasterSource = ds_Propiedades
- MasterFields = 'ID_PROPIEDAD_VALORES'
- DetailFields = 'ID_PROPIEDAD'
+ MasterFields = 'DESCRIPCION'
+ DetailFields = 'FAMILIA'
LogicalName = 'Valores'
IndexDefs = <>
Left = 544
@@ -478,13 +489,9 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Size = 2
end
item
- Name = 'ID_ARTICULO'
- DataType = datInteger
- end
- item
- Name = 'CONCEPTO'
+ Name = 'PROPIEDAD'
DataType = datString
- Size = 2000
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
index 0ab6f9c8..eab6bb8c 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
@@ -3,18 +3,18 @@ unit schPresupuestosClienteClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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_Valores = '{AC6EF137-1256-43A3-AB3F-76A5C484DFF0}';
- RID_Propiedades = '{A6F5198D-19FD-49CA-8AA3-BC35F11D3BEF}';
- RID_ListaAnosPresupuestos = '{D4D48BBF-987E-4085-893B-DCC70A9B63E7}';
- RID_PresupuestosCliente = '{FF71F28A-9955-44A1-AE5B-5A1229D17A8F}';
- RID_CapitulosPresupuesto = '{3ACF0486-2EFD-4EF7-90DF-CE29E1006EC3}';
- RID_PresupuestosCliente_Detalles = '{12678EE2-C67A-44AC-A8FA-52125FCCBF5D}';
+ RID_Valores = '{3F54B7A7-2485-451E-A0A1-8097FCFE8FF3}';
+ RID_Propiedades = '{33469FFB-91A9-4C08-A5D2-F0EE66507E4D}';
+ RID_ListaAnosPresupuestos = '{2F66482F-A1D1-4C81-B38C-595BEF96A735}';
+ RID_PresupuestosCliente = '{3DDEE7F7-DDE9-4B90-BFB5-176B2D61F96A}';
+ RID_CapitulosPresupuesto = '{401C302B-DE1C-46C9-824C-3AD1AC66AA1B}';
+ RID_PresupuestosCliente_Detalles = '{9D17FCE3-3455-4F90-8260-7319FBD352EB}';
{ Data table names }
nme_Valores = 'Valores';
@@ -26,23 +26,25 @@ const
{ Valores fields }
fld_ValoresID = 'ID';
- fld_ValoresID_PROPIEDAD = 'ID_PROPIEDAD';
+ fld_ValoresID_EMPRESA = 'ID_EMPRESA';
+ fld_ValoresREFERENCIA = 'REFERENCIA';
fld_ValoresDESCRIPCION = 'DESCRIPCION';
+ fld_ValoresFAMILIA = 'FAMILIA';
{ Valores field indexes }
idx_ValoresID = 0;
- idx_ValoresID_PROPIEDAD = 1;
- idx_ValoresDESCRIPCION = 2;
+ idx_ValoresID_EMPRESA = 1;
+ idx_ValoresREFERENCIA = 2;
+ idx_ValoresDESCRIPCION = 3;
+ idx_ValoresFAMILIA = 4;
{ Propiedades fields }
fld_PropiedadesID = 'ID';
fld_PropiedadesDESCRIPCION = 'DESCRIPCION';
- fld_PropiedadesID_PROPIEDAD_VALORES = 'ID_PROPIEDAD_VALORES';
{ Propiedades field indexes }
idx_PropiedadesID = 0;
idx_PropiedadesDESCRIPCION = 1;
- idx_PropiedadesID_PROPIEDAD_VALORES = 2;
{ ListaAnosPresupuestos fields }
fld_ListaAnosPresupuestosANO = 'ANO';
@@ -141,22 +143,21 @@ const
fld_CapitulosPresupuestoPOSICION = 'POSICION';
fld_CapitulosPresupuestoTIPO_DETALLE = 'TIPO_DETALLE';
fld_CapitulosPresupuestoTIPO_ARTICULO = 'TIPO_ARTICULO';
- fld_CapitulosPresupuestoID_ARTICULO = 'ID_ARTICULO';
- fld_CapitulosPresupuestoCONCEPTO = 'CONCEPTO';
+ fld_CapitulosPresupuestoPROPIEDAD = 'PROPIEDAD';
{ CapitulosPresupuesto field indexes }
idx_CapitulosPresupuestoID = 0;
idx_CapitulosPresupuestoPOSICION = 1;
idx_CapitulosPresupuestoTIPO_DETALLE = 2;
idx_CapitulosPresupuestoTIPO_ARTICULO = 3;
- idx_CapitulosPresupuestoID_ARTICULO = 4;
- idx_CapitulosPresupuestoCONCEPTO = 5;
+ idx_CapitulosPresupuestoPROPIEDAD = 4;
{ PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID';
fld_PresupuestosCliente_DetallesID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_PresupuestosCliente_DetallesPOSICION = 'POSICION';
fld_PresupuestosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
+ fld_PresupuestosCliente_DetallesPROPIEDAD = 'PROPIEDAD';
fld_PresupuestosCliente_DetallesCONCEPTO = 'CONCEPTO';
fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
@@ -174,48 +175,61 @@ const
idx_PresupuestosCliente_DetallesID_PRESUPUESTO = 1;
idx_PresupuestosCliente_DetallesPOSICION = 2;
idx_PresupuestosCliente_DetallesTIPO_DETALLE = 3;
- idx_PresupuestosCliente_DetallesCONCEPTO = 4;
- idx_PresupuestosCliente_DetallesCANTIDAD = 5;
- idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 6;
- idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 7;
- idx_PresupuestosCliente_DetallesVISIBLE = 8;
- idx_PresupuestosCliente_DetallesID_ARTICULO = 9;
- idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 10;
- idx_PresupuestosCliente_DetallesDESCUENTO = 11;
- idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 12;
- idx_PresupuestosCliente_DetallesREFERENCIA = 13;
- idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 14;
+ idx_PresupuestosCliente_DetallesPROPIEDAD = 4;
+ idx_PresupuestosCliente_DetallesCONCEPTO = 5;
+ idx_PresupuestosCliente_DetallesCANTIDAD = 6;
+ idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7;
+ idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8;
+ idx_PresupuestosCliente_DetallesVISIBLE = 9;
+ idx_PresupuestosCliente_DetallesID_ARTICULO = 10;
+ idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 11;
+ idx_PresupuestosCliente_DetallesDESCUENTO = 12;
+ idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 13;
+ idx_PresupuestosCliente_DetallesREFERENCIA = 14;
+ idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 15;
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{1E453B5F-0C22-4019-AD7A-79E409310CF5}']
+ ['{7233C9EC-5F96-4CD6-AECB-A19F749396BD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
- function GetID_PROPIEDADValue: Integer;
- procedure SetID_PROPIEDADValue(const aValue: Integer);
- function GetID_PROPIEDADIsNull: Boolean;
- procedure SetID_PROPIEDADIsNull(const aValue: Boolean);
+ function GetID_EMPRESAValue: Integer;
+ procedure SetID_EMPRESAValue(const aValue: Integer);
+ function GetID_EMPRESAIsNull: Boolean;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean);
+ function GetREFERENCIAValue: String;
+ procedure SetREFERENCIAValue(const aValue: String);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+ function GetFAMILIAValue: String;
+ procedure SetFAMILIAValue(const aValue: String);
+ function GetFAMILIAIsNull: Boolean;
+ procedure SetFAMILIAIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
- property ID_PROPIEDAD: Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue;
- property ID_PROPIEDADIsNull: Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull;
+ property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
+ property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
end;
{ TValoresDataTableRules }
- TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
+ TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@@ -223,22 +237,34 @@ type
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
- function GetID_PROPIEDADValue: Integer; virtual;
- procedure SetID_PROPIEDADValue(const aValue: Integer); virtual;
- function GetID_PROPIEDADIsNull: Boolean; virtual;
- procedure SetID_PROPIEDADIsNull(const aValue: Boolean); virtual;
+ function GetID_EMPRESAValue: Integer; virtual;
+ procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+ function GetFAMILIAValue: String; virtual;
+ procedure SetFAMILIAValue(const aValue: String); virtual;
+ function GetFAMILIAIsNull: Boolean; virtual;
+ procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
- property ID_PROPIEDAD: Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue;
- property ID_PROPIEDADIsNull: Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull;
+ property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
+ property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -248,7 +274,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{ED342BFE-21DA-4BE7-A720-199166F086D8}']
+ ['{31A40577-FC3A-475C-A49B-B00F60EA59D4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -258,10 +284,6 @@ type
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
- function GetID_PROPIEDAD_VALORESValue: Integer;
- procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
- function GetID_PROPIEDAD_VALORESIsNull: Boolean;
- procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
{ Properties }
@@ -269,12 +291,10 @@ type
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
- property ID_PROPIEDAD_VALORES: Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
- property ID_PROPIEDAD_VALORESIsNull: Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
end;
{ TPropiedadesDataTableRules }
- TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
+ TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@@ -286,18 +306,12 @@ type
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
- function GetID_PROPIEDAD_VALORESValue: Integer; virtual;
- procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer); virtual;
- function GetID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
- procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
- property ID_PROPIEDAD_VALORES: Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
- property ID_PROPIEDAD_VALORESIsNull: Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -307,7 +321,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
- ['{D632F9B0-5384-430B-B64C-E93F01D72966}']
+ ['{63A6C637-5FDF-4677-9761-D8002D4D9EBA}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -321,7 +335,7 @@ type
end;
{ TListaAnosPresupuestosDataTableRules }
- TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
+ TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
private
protected
{ Property getters and setters }
@@ -342,7 +356,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
- ['{42A8FF1A-071F-44AE-9B50-2B5A4A7625C6}']
+ ['{9F8F0789-D6FD-4E4C-97B1-1EEAEFA900F2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -592,7 +606,7 @@ type
end;
{ TPresupuestosClienteDataTableRules }
- TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
+ TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@@ -857,7 +871,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
- ['{EC8BE7EC-E277-42FB-A7F2-C23DC9E74BB6}']
+ ['{4AD23244-E63C-48A2-9F9F-662B3D41785B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -875,14 +889,10 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String);
function GetTIPO_ARTICULOIsNull: Boolean;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean);
- function GetID_ARTICULOValue: Integer;
- procedure SetID_ARTICULOValue(const aValue: Integer);
- function GetID_ARTICULOIsNull: Boolean;
- procedure SetID_ARTICULOIsNull(const aValue: Boolean);
- function GetCONCEPTOValue: String;
- procedure SetCONCEPTOValue(const aValue: String);
- function GetCONCEPTOIsNull: Boolean;
- procedure SetCONCEPTOIsNull(const aValue: Boolean);
+ function GetPROPIEDADValue: String;
+ procedure SetPROPIEDADValue(const aValue: String);
+ function GetPROPIEDADIsNull: Boolean;
+ procedure SetPROPIEDADIsNull(const aValue: Boolean);
{ Properties }
@@ -894,14 +904,12 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
- property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
- property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
+ property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
+ property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
end;
{ TCapitulosPresupuestoDataTableRules }
- TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
+ TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
private
protected
{ Property getters and setters }
@@ -921,14 +929,10 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
function GetTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetID_ARTICULOValue: Integer; virtual;
- procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
- function GetID_ARTICULOIsNull: Boolean; virtual;
- procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetCONCEPTOValue: String; virtual;
- procedure SetCONCEPTOValue(const aValue: String); virtual;
- function GetCONCEPTOIsNull: Boolean; virtual;
- procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
+ function GetPROPIEDADValue: String; virtual;
+ procedure SetPROPIEDADValue(const aValue: String); virtual;
+ function GetPROPIEDADIsNull: Boolean; virtual;
+ procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -939,10 +943,8 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
- property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
- property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
+ property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
+ property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -952,7 +954,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{23EFE68F-D5E4-4B76-A8F6-50E45D5C755A}']
+ ['{77CBC642-6303-467E-85B6-BE1CECD5ECFC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -970,6 +972,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String);
function GetTIPO_DETALLEIsNull: Boolean;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean);
+ function GetPROPIEDADValue: String;
+ procedure SetPROPIEDADValue(const aValue: String);
+ function GetPROPIEDADIsNull: Boolean;
+ procedure SetPROPIEDADIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
@@ -1025,6 +1031,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
+ property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
+ property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@@ -1050,7 +1058,7 @@ type
end;
{ TPresupuestosCliente_DetallesDataTableRules }
- TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
+ TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -1070,6 +1078,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
+ function GetPROPIEDADValue: String; virtual;
+ procedure SetPROPIEDADValue(const aValue: String); virtual;
+ function GetPROPIEDADIsNull: Boolean; virtual;
+ procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
@@ -1124,6 +1136,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
+ property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
+ property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@@ -1189,25 +1203,46 @@ begin
DataTable.Fields[idx_ValoresID].AsVariant := Null;
end;
-function TValoresDataTableRules.GetID_PROPIEDADValue: Integer;
+function TValoresDataTableRules.GetID_EMPRESAValue: Integer;
begin
- result := DataTable.Fields[idx_ValoresID_PROPIEDAD].AsInteger;
+ result := DataTable.Fields[idx_ValoresID_EMPRESA].AsInteger;
end;
-procedure TValoresDataTableRules.SetID_PROPIEDADValue(const aValue: Integer);
+procedure TValoresDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
- DataTable.Fields[idx_ValoresID_PROPIEDAD].AsInteger := aValue;
+ DataTable.Fields[idx_ValoresID_EMPRESA].AsInteger := aValue;
end;
-function TValoresDataTableRules.GetID_PROPIEDADIsNull: boolean;
+function TValoresDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
- result := DataTable.Fields[idx_ValoresID_PROPIEDAD].IsNull;
+ result := DataTable.Fields[idx_ValoresID_EMPRESA].IsNull;
end;
-procedure TValoresDataTableRules.SetID_PROPIEDADIsNull(const aValue: Boolean);
+procedure TValoresDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_ValoresID_PROPIEDAD].AsVariant := Null;
+ DataTable.Fields[idx_ValoresID_EMPRESA].AsVariant := Null;
+end;
+
+function TValoresDataTableRules.GetREFERENCIAValue: String;
+begin
+ result := DataTable.Fields[idx_ValoresREFERENCIA].AsString;
+end;
+
+procedure TValoresDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ValoresREFERENCIA].AsString := aValue;
+end;
+
+function TValoresDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ValoresREFERENCIA].IsNull;
+end;
+
+procedure TValoresDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ValoresREFERENCIA].AsVariant := Null;
end;
function TValoresDataTableRules.GetDESCRIPCIONValue: String;
@@ -1231,6 +1266,27 @@ begin
DataTable.Fields[idx_ValoresDESCRIPCION].AsVariant := Null;
end;
+function TValoresDataTableRules.GetFAMILIAValue: String;
+begin
+ result := DataTable.Fields[idx_ValoresFAMILIA].AsString;
+end;
+
+procedure TValoresDataTableRules.SetFAMILIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ValoresFAMILIA].AsString := aValue;
+end;
+
+function TValoresDataTableRules.GetFAMILIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ValoresFAMILIA].IsNull;
+end;
+
+procedure TValoresDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ValoresFAMILIA].AsVariant := Null;
+end;
+
{ TPropiedadesDataTableRules }
constructor TPropiedadesDataTableRules.Create(aDataTable: TDADataTable);
@@ -1285,27 +1341,6 @@ begin
DataTable.Fields[idx_PropiedadesDESCRIPCION].AsVariant := Null;
end;
-function TPropiedadesDataTableRules.GetID_PROPIEDAD_VALORESValue: Integer;
-begin
- result := DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsInteger;
-end;
-
-procedure TPropiedadesDataTableRules.SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsInteger := aValue;
-end;
-
-function TPropiedadesDataTableRules.GetID_PROPIEDAD_VALORESIsNull: boolean;
-begin
- result := DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].IsNull;
-end;
-
-procedure TPropiedadesDataTableRules.SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsVariant := Null;
-end;
-
{ TListaAnosPresupuestosDataTableRules }
constructor TListaAnosPresupuestosDataTableRules.Create(aDataTable: TDADataTable);
@@ -2330,46 +2365,25 @@ begin
DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsVariant := Null;
end;
-function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOValue: Integer;
+function TCapitulosPresupuestoDataTableRules.GetPROPIEDADValue: String;
begin
- result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger;
+ result := DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].AsString;
end;
-procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
+procedure TCapitulosPresupuestoDataTableRules.SetPROPIEDADValue(const aValue: String);
begin
- DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger := aValue;
+ DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].AsString := aValue;
end;
-function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOIsNull: boolean;
+function TCapitulosPresupuestoDataTableRules.GetPROPIEDADIsNull: boolean;
begin
- result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].IsNull;
+ result := DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].IsNull;
end;
-procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
+procedure TCapitulosPresupuestoDataTableRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsVariant := Null;
-end;
-
-function TCapitulosPresupuestoDataTableRules.GetCONCEPTOValue: String;
-begin
- result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString;
-end;
-
-procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOValue(const aValue: String);
-begin
- DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString := aValue;
-end;
-
-function TCapitulosPresupuestoDataTableRules.GetCONCEPTOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].IsNull;
-end;
-
-procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsVariant := Null;
+ DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].AsVariant := Null;
end;
@@ -2468,6 +2482,27 @@ begin
DataTable.Fields[idx_PresupuestosCliente_DetallesTIPO_DETALLE].AsVariant := Null;
end;
+function TPresupuestosCliente_DetallesDataTableRules.GetPROPIEDADValue: String;
+begin
+ result := DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsString;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetPROPIEDADValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsString := aValue;
+end;
+
+function TPresupuestosCliente_DetallesDataTableRules.GetPROPIEDADIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].IsNull;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetPROPIEDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsVariant := Null;
+end;
+
function TPresupuestosCliente_DetallesDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsString;
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
index fafc5b4d..f7af4258 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
@@ -9,26 +9,30 @@ 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_ValoresDelta = '{89E797B9-962D-4358-A7F2-A2C87D74F290}';
- RID_PropiedadesDelta = '{7F6C1A91-3ACF-4AE9-B31B-F5F676E19824}';
- RID_ListaAnosPresupuestosDelta = '{57AFBB3B-DC9E-49C9-8FE1-84CFC4233879}';
- RID_PresupuestosClienteDelta = '{DED2F200-34F4-4A2B-9C56-78640B5B9B52}';
- RID_CapitulosPresupuestoDelta = '{CB74C4B2-B235-4C86-8030-F3BFE2F75F8D}';
- RID_PresupuestosCliente_DetallesDelta = '{FD4CE9BE-0A53-4FB8-A820-356C4F7BACCA}';
+ RID_ValoresDelta = '{520946FF-B8D7-470C-A8D1-085390E88242}';
+ RID_PropiedadesDelta = '{953D246D-7ED0-4B5D-9755-B661A08AC228}';
+ RID_ListaAnosPresupuestosDelta = '{EE50CEDA-7BCF-4608-AC09-803D95F41C36}';
+ RID_PresupuestosClienteDelta = '{D990481F-7BB6-4BBC-A0C0-3623BC468D3B}';
+ RID_CapitulosPresupuestoDelta = '{1D168748-D2EF-4DB7-85A3-05B2C3237FB9}';
+ RID_PresupuestosCliente_DetallesDelta = '{1BC57EDD-6A91-48FA-B9AE-EDCA498A98BD}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{89E797B9-962D-4358-A7F2-A2C87D74F290}']
+ ['{520946FF-B8D7-470C-A8D1-085390E88242}']
{ Property getters and setters }
function GetOldIDValue : Integer;
- function GetOldID_PROPIEDADValue : Integer;
+ function GetOldID_EMPRESAValue : Integer;
+ function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String;
+ function GetOldFAMILIAValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
- property OldID_PROPIEDAD : Integer read GetOldID_PROPIEDADValue;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldFAMILIA : String read GetOldFAMILIAValue;
end;
{ TValoresBusinessProcessorRules }
@@ -42,32 +46,52 @@ type
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
- function GetID_PROPIEDADValue: Integer; virtual;
- function GetID_PROPIEDADIsNull: Boolean; virtual;
- function GetOldID_PROPIEDADValue: Integer; virtual;
- function GetOldID_PROPIEDADIsNull: Boolean; virtual;
- procedure SetID_PROPIEDADValue(const aValue: Integer); virtual;
- procedure SetID_PROPIEDADIsNull(const aValue: Boolean); virtual;
+ function GetID_EMPRESAValue: Integer; virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ function GetOldID_EMPRESAValue: Integer; virtual;
+ function GetOldID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+ function GetFAMILIAValue: String; virtual;
+ function GetFAMILIAIsNull: Boolean; virtual;
+ function GetOldFAMILIAValue: String; virtual;
+ function GetOldFAMILIAIsNull: Boolean; virtual;
+ procedure SetFAMILIAValue(const aValue: String); virtual;
+ procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
- property ID_PROPIEDAD : Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue;
- property ID_PROPIEDADIsNull : Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull;
- property OldID_PROPIEDAD : Integer read GetOldID_PROPIEDADValue;
- property OldID_PROPIEDADIsNull : Boolean read GetOldID_PROPIEDADIsNull;
+ property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+ property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+ property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
+ property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
+ property OldFAMILIA : String read GetOldFAMILIAValue;
+ property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -77,16 +101,14 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{7F6C1A91-3ACF-4AE9-B31B-F5F676E19824}']
+ ['{953D246D-7ED0-4B5D-9755-B661A08AC228}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
- function GetOldID_PROPIEDAD_VALORESValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
- property OldID_PROPIEDAD_VALORES : Integer read GetOldID_PROPIEDAD_VALORESValue;
end;
{ TPropiedadesBusinessProcessorRules }
@@ -106,12 +128,6 @@ type
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
- function GetID_PROPIEDAD_VALORESValue: Integer; virtual;
- function GetID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
- function GetOldID_PROPIEDAD_VALORESValue: Integer; virtual;
- function GetOldID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
- procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer); virtual;
- procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -122,10 +138,6 @@ type
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
- property ID_PROPIEDAD_VALORES : Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
- property ID_PROPIEDAD_VALORESIsNull : Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
- property OldID_PROPIEDAD_VALORES : Integer read GetOldID_PROPIEDAD_VALORESValue;
- property OldID_PROPIEDAD_VALORESIsNull : Boolean read GetOldID_PROPIEDAD_VALORESIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -135,7 +147,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
- ['{57AFBB3B-DC9E-49C9-8FE1-84CFC4233879}']
+ ['{EE50CEDA-7BCF-4608-AC09-803D95F41C36}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -169,7 +181,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
- ['{DED2F200-34F4-4A2B-9C56-78640B5B9B52}']
+ ['{D990481F-7BB6-4BBC-A0C0-3623BC468D3B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -687,22 +699,20 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
- ['{CB74C4B2-B235-4C86-8030-F3BFE2F75F8D}']
+ ['{1D168748-D2EF-4DB7-85A3-05B2C3237FB9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldTIPO_ARTICULOValue : String;
- function GetOldID_ARTICULOValue : Integer;
- function GetOldCONCEPTOValue : String;
+ function GetOldPROPIEDADValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
- property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
- property OldCONCEPTO : String read GetOldCONCEPTOValue;
+ property OldPROPIEDAD : String read GetOldPROPIEDADValue;
end;
{ TCapitulosPresupuestoBusinessProcessorRules }
@@ -734,18 +744,12 @@ type
function GetOldTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetID_ARTICULOValue: Integer; virtual;
- function GetID_ARTICULOIsNull: Boolean; virtual;
- function GetOldID_ARTICULOValue: Integer; virtual;
- function GetOldID_ARTICULOIsNull: Boolean; virtual;
- procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
- procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetCONCEPTOValue: String; virtual;
- function GetCONCEPTOIsNull: Boolean; virtual;
- function GetOldCONCEPTOValue: String; virtual;
- function GetOldCONCEPTOIsNull: Boolean; virtual;
- procedure SetCONCEPTOValue(const aValue: String); virtual;
- procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
+ function GetPROPIEDADValue: String; virtual;
+ function GetPROPIEDADIsNull: Boolean; virtual;
+ function GetOldPROPIEDADValue: String; virtual;
+ function GetOldPROPIEDADIsNull: Boolean; virtual;
+ procedure SetPROPIEDADValue(const aValue: String); virtual;
+ procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -764,14 +768,10 @@ type
property TIPO_ARTICULOIsNull : Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
property OldTIPO_ARTICULOIsNull : Boolean read GetOldTIPO_ARTICULOIsNull;
- property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
- property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
- property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
- property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property OldCONCEPTO : String read GetOldCONCEPTOValue;
- property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
+ property PROPIEDAD : String read GetPROPIEDADValue write SetPROPIEDADValue;
+ property PROPIEDADIsNull : Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
+ property OldPROPIEDAD : String read GetOldPROPIEDADValue;
+ property OldPROPIEDADIsNull : Boolean read GetOldPROPIEDADIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -781,12 +781,13 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
- ['{FD4CE9BE-0A53-4FB8-A820-356C4F7BACCA}']
+ ['{1BC57EDD-6A91-48FA-B9AE-EDCA498A98BD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
+ function GetOldPROPIEDADValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency;
@@ -804,6 +805,7 @@ type
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
+ property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@@ -846,6 +848,12 @@ type
function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
+ function GetPROPIEDADValue: String; virtual;
+ function GetPROPIEDADIsNull: Boolean; virtual;
+ function GetOldPROPIEDADValue: String; virtual;
+ function GetOldPROPIEDADIsNull: Boolean; virtual;
+ procedure SetPROPIEDADValue(const aValue: String); virtual;
+ procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual;
@@ -930,6 +938,10 @@ type
property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
+ property PROPIEDAD : String read GetPROPIEDADValue write SetPROPIEDADValue;
+ property PROPIEDADIsNull : Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
+ property OldPROPIEDAD : String read GetOldPROPIEDADValue;
+ property OldPROPIEDADIsNull : Boolean read GetOldPROPIEDADIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
@@ -1028,35 +1040,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID] := Null;
end;
-function TValoresBusinessProcessorRules.GetID_PROPIEDADValue: Integer;
+function TValoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA];
end;
-function TValoresBusinessProcessorRules.GetID_PROPIEDADIsNull: Boolean;
+function TValoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA]);
end;
-function TValoresBusinessProcessorRules.GetOldID_PROPIEDADValue: Integer;
+function TValoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_PROPIEDAD];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_EMPRESA];
end;
-function TValoresBusinessProcessorRules.GetOldID_PROPIEDADIsNull: Boolean;
+function TValoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_PROPIEDAD]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_EMPRESA]);
end;
-procedure TValoresBusinessProcessorRules.SetID_PROPIEDADValue(const aValue: Integer);
+procedure TValoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA] := aValue;
end;
-procedure TValoresBusinessProcessorRules.SetID_PROPIEDADIsNull(const aValue: Boolean);
+procedure TValoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA] := Null;
+end;
+
+function TValoresBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA];
+end;
+
+function TValoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA]);
+end;
+
+function TValoresBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresREFERENCIA];
+end;
+
+function TValoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresREFERENCIA]);
+end;
+
+procedure TValoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA] := aValue;
+end;
+
+procedure TValoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA] := Null;
end;
function TValoresBusinessProcessorRules.GetDESCRIPCIONValue: String;
@@ -1090,6 +1133,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresDESCRIPCION] := Null;
end;
+function TValoresBusinessProcessorRules.GetFAMILIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA];
+end;
+
+function TValoresBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA]);
+end;
+
+function TValoresBusinessProcessorRules.GetOldFAMILIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresFAMILIA];
+end;
+
+function TValoresBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresFAMILIA]);
+end;
+
+procedure TValoresBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA] := aValue;
+end;
+
+procedure TValoresBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA] := Null;
+end;
+
{ TPropiedadesBusinessProcessorRules }
constructor TPropiedadesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1164,37 +1238,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesDESCRIPCION] := Null;
end;
-function TPropiedadesBusinessProcessorRules.GetID_PROPIEDAD_VALORESValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES];
-end;
-
-function TPropiedadesBusinessProcessorRules.GetID_PROPIEDAD_VALORESIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES]);
-end;
-
-function TPropiedadesBusinessProcessorRules.GetOldID_PROPIEDAD_VALORESValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_PropiedadesID_PROPIEDAD_VALORES];
-end;
-
-function TPropiedadesBusinessProcessorRules.GetOldID_PROPIEDAD_VALORESIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PropiedadesID_PROPIEDAD_VALORES]);
-end;
-
-procedure TPropiedadesBusinessProcessorRules.SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES] := aValue;
-end;
-
-procedure TPropiedadesBusinessProcessorRules.SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES] := Null;
-end;
-
{ TListaAnosPresupuestosBusinessProcessorRules }
constructor TListaAnosPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -2683,66 +2726,35 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := Null;
end;
-function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOValue: Integer;
+function TCapitulosPresupuestoBusinessProcessorRules.GetPROPIEDADValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD];
end;
-function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
+function TCapitulosPresupuestoBusinessProcessorRules.GetPROPIEDADIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD]);
end;
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
+function TCapitulosPresupuestoBusinessProcessorRules.GetOldPROPIEDADValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPROPIEDAD];
end;
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
+function TCapitulosPresupuestoBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPROPIEDAD]);
end;
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
+procedure TCapitulosPresupuestoBusinessProcessorRules.SetPROPIEDADValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD] := aValue;
end;
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
+procedure TCapitulosPresupuestoBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := Null;
-end;
-
-function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO];
-end;
-
-function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO]);
-end;
-
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO];
-end;
-
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO]);
-end;
-
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := aValue;
-end;
-
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD] := Null;
end;
@@ -2881,6 +2893,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE] := Null;
end;
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetPROPIEDADValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetPROPIEDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD]);
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD]);
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetPROPIEDADValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD] := aValue;
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD] := Null;
+end;
+
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO];
diff --git a/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj b/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj
index 766beaa6..23749ae9 100644
--- a/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj
+++ b/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj
@@ -17,6 +17,7 @@
+
@@ -231,14 +232,23 @@
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
index 5ddb5943..df2c0421 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
@@ -18,54 +18,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
- TargetTable = 'PRESUPUESTOS_VALORES'
- Name = 'IBX'
- StatementType = stAutoSQL
- ColumnMappings = <
- item
- DatasetField = 'ID'
- TableField = 'ID'
- end
- item
- DatasetField = 'ID_PROPIEDAD'
- TableField = 'ID_PROPIEDAD'
- end
- item
- DatasetField = 'DESCRIPCION'
- TableField = 'DESCRIPCION'
- end>
- end>
- Name = 'Valores'
- Fields = <
- item
- Name = 'ID'
- DataType = datInteger
- Required = True
- InPrimaryKey = True
- end
- item
- Name = 'ID_PROPIEDAD'
- DataType = datInteger
- end
- item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 2000
- end>
- end
- item
- Params = <>
- Statements = <
- item
- Connection = 'IBX'
- ConnectionType = 'Interbase'
- Default = True
- TargetTable = 'PRESUPUESTOS_PROPIEDADES'
+ TargetTable = 'ARTICULOS'
Name = 'IBX'
SQL =
- 'select ID,'#10' DESCRIPCION,'#10' case WHEN ID_PADRE IS NULL' +
- ' THEN ID'#10' ELSE ID_PADRE'#10' end AS ID_PROPIEDAD_VA' +
- 'LORES'#10#10'from presupuestos_propiedades'#10#10'WHERE {Where}'#10
+ 'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, DESCRIPCION, FAMILIA'#10#10' ' +
+ 'FROM'#10' ARTICULOS'#10' WHERE ELIMINADO = 0 and {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -77,9 +34,65 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TableField = 'DESCRIPCION'
end
item
- DatasetField = 'ID_PROPIEDAD_VALORES'
- TableField = ''
- SQLOrigin = 'ID_PROPIEDAD_VALORES'
+ DatasetField = 'ID_EMPRESA'
+ TableField = 'ID_EMPRESA'
+ end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'FAMILIA'
+ TableField = 'FAMILIA'
+ end>
+ end>
+ Name = 'Valores'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Required = True
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FAMILIA'
+ DataType = datString
+ Size = 255
+ end>
+ end
+ item
+ Params = <>
+ Statements = <
+ item
+ Connection = 'IBX'
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'FAMILIAS'
+ Name = 'IBX'
+ SQL = 'select ID,'#10' DESCRIPCION'#10#10'from familias'#10#10'WHERE {Where}'#10
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'DESCRIPCION'
+ TableField = 'DESCRIPCION'
end>
end>
Name = 'Propiedades'
@@ -93,11 +106,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
Name = 'DESCRIPCION'
DataType = datString
- Size = 50
- end
- item
- Name = 'ID_PROPIEDAD_VALORES'
- DataType = datInteger
+ Size = 255
end>
end
item
@@ -536,12 +545,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TableField = 'TIPO_ARTICULO'
end
item
- DatasetField = 'ID_ARTICULO'
- TableField = 'ID_ARTICULO'
- end
- item
- DatasetField = 'CONCEPTO'
- TableField = 'CONCEPTO'
+ DatasetField = 'PROPIEDAD'
+ TableField = 'PROPIEDAD'
end>
end>
Name = 'CapitulosPresupuesto'
@@ -567,13 +572,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 2
end
item
- Name = 'ID_ARTICULO'
- DataType = datInteger
- end
- item
- Name = 'CONCEPTO'
+ Name = 'PROPIEDAD'
DataType = datString
- Size = 2000
+ Size = 255
end>
end
item
@@ -587,18 +588,18 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'SELECT'#10' PRESUPUESTOS_CLIENTE_DETALLES.ID, PRESUPUESTOS_CLIENT' +
'E_DETALLES.ID_PRESUPUESTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.POS' +
'ICION, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' PRESUPUES' +
- 'TOS_CLIENTE_DETALLES.CONCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CAN' +
- 'TIDAD,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPU' +
- 'ESTOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_D' +
- 'ETALLES.VISIBLE,'#10#10' PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO,' +
- ' PRESUPUESTOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_C' +
- 'LIENTE_DETALLES.DESCUENTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMP' +
- 'ORTE_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR' +
- ' /*Es necesario para que no fallen los detalles porque los detal' +
- 'les son comunes para la rama de cliente y de proveedor*/'#10#10'FROM P' +
- 'RESUPUESTOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS' +
- '_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER' +
- ' BY POSICION;'#10#10#10
+ 'TOS_CLIENTE_DETALLES.PROPIEDAD, PRESUPUESTOS_CLIENTE_DETALLES.CO' +
+ 'NCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CANTIDAD,'#10' PRESUPUESTOS' +
+ '_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_DETALLES.' +
+ 'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE,'#10#10' P' +
+ 'RESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_D' +
+ 'ETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.DESCUEN' +
+ 'TO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.R' +
+ 'EFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para qu' +
+ 'e no fallen los detalles porque los detalles son comunes para la' +
+ ' rama de cliente y de proveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DET' +
+ 'ALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_AR' +
+ 'TICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@@ -662,6 +663,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = ''
SQLOrigin = 'REFERENCIA_PROVEEDOR'
+ end
+ item
+ DatasetField = 'PROPIEDAD'
+ TableField = 'PROPIEDAD'
end>
end>
Name = 'PresupuestosCliente_Detalles'
@@ -685,6 +690,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString
Size = 10
end
+ item
+ Name = 'PROPIEDAD'
+ DataType = datString
+ Size = 2000
+ end
item
Name = 'CONCEPTO'
DataType = datString
@@ -1189,6 +1199,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 10
Value = ''
end
+ item
+ Name = 'PROPIEDAD'
+ DataType = datString
+ Size = 2000
+ Value = ''
+ end
item
Name = 'CONCEPTO'
DataType = datString
@@ -1243,12 +1259,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES'
SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' +
- 'STO, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UN' +
- 'IDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' D' +
- 'ESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_PRES' +
- 'UPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,'#10' :CANTIDAD, :I' +
- 'MPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTICULO, :TIP' +
- 'O_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10
+ 'STO, POSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' ' +
+ ' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTIC' +
+ 'ULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:I' +
+ 'D, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCE' +
+ 'PTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10 +
+ ' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, C' +
+ 'URRENT_TIMESTAMP)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1297,6 +1314,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 10
Value = ''
end
+ item
+ Name = 'PROPIEDAD'
+ DataType = datString
+ Size = 2000
+ Value = ''
+ end
item
Name = 'CONCEPTO'
DataType = datString
@@ -1356,13 +1379,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
SQL =
'UPDATE PRESUPUESTOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID' +
'_PRESUPUESTO = :ID_PRESUPUESTO, '#10' POSICION = :POSICION, '#10' ' +
- 'TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CA' +
- 'NTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD,'#10' I' +
- 'MPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_' +
- 'ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' ' +
- ' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ' +
- ' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD' +
- '_ID)'#10
+ 'TIPO_DETALLE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' C' +
+ 'ONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNI' +
+ 'DAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
+ 'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_A' +
+ 'RTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPOR' +
+ 'TE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIME' +
+ 'STAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1372,9 +1395,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
Name = 'FK_Propiedades_Valores'
MasterDatasetName = 'Propiedades'
- MasterFields = 'ID_PROPIEDAD_VALORES'
+ MasterFields = 'DESCRIPCION'
DetailDatasetName = 'Valores'
- DetailFields = 'ID_PROPIEDAD'
+ DetailFields = 'FAMILIA'
RelationshipType = rtForeignKey
end
item
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.RES b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.RES
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.RES and b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.RES differ
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
index 78ceda42..5ee973c5 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
+++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
@@ -49,30 +49,34 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -117,7 +121,7 @@
TFrame
-
+
TFrame
@@ -156,10 +160,6 @@
TFrame
-
-
-
-