diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 20d8b11..899a2cf 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -4293,6 +4293,7 @@ CREATE VIEW V_CONTRATOS_BENEFICIOS(
ID,
REFERENCIA,
FECHA_CONTRATO,
+ REFERENCIA_CLIENTE,
NOMBRE,
NIF_CIF,
IMPORTE_NETO,
@@ -4308,6 +4309,7 @@ AS
select
contratos_cliente.ID,
contratos_cliente.referencia, contratos_cliente.fecha_contrato,
+CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,
contratos_cliente.nombre, contratos_cliente.nif_cif,
contratos_cliente.importe_neto, contratos_cliente.importe_descuento,
contratos_cliente.base_imponible,
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index f7a67e6..9d87741 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -51,13 +51,6 @@
-
-
-
-
-
-
-
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -72,55 +65,55 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.RES b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.RES
index 8b251f3..1641339 100644
Binary files a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.RES and b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.RES differ
diff --git a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj
index add048f..aaee729 100644
--- a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj
+++ b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj
@@ -49,18 +49,18 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
index 56e2b7d..e1be470 100644
--- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
@@ -532,6 +532,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'FECHA_CONTRATO'
DataType = datDateTime
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'NOMBRE'
DataType = datString
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
index 46bc117..e601b28 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 = '{F8BEAEBD-B764-475D-AAC0-BDE37787074F}';
- RID_Propiedades = '{C20A8F74-2A21-4468-BE12-33F78435D1C9}';
- RID_ListaAnosContratos = '{DC2AD3BB-AF55-46C9-9D92-22A69E3595BA}';
- RID_ContratosClienteBeneficios = '{39274DD9-6C7F-4D63-B46F-0D91784A5BDD}';
- RID_ContratosCliente = '{BBB0D52D-EF28-471F-9E8A-EF6650935779}';
- RID_TiposCapitulos = '{0004836D-B859-4F01-88B4-152E7DE8EE12}';
- RID_ContratosCliente_Detalles = '{7FAF4020-9A11-43F8-9EC3-50D2C51F5511}';
+ RID_Valores = '{EFD1F7C2-8E8E-4AAE-B2C5-7B343C56CABC}';
+ RID_Propiedades = '{4820AA98-F3FF-4077-9FEB-C2E4736BB23B}';
+ RID_ListaAnosContratos = '{3D3572A5-2C27-483B-AA9B-3143CB5C9BA1}';
+ RID_ContratosClienteBeneficios = '{329FBEE1-47CA-4E16-BA30-0FE155B5FDA5}';
+ RID_ContratosCliente = '{3EBF8421-AFE3-42F9-9B07-525AEE7A2348}';
+ RID_TiposCapitulos = '{342EFE89-C164-4DF7-8324-ADBB8C121644}';
+ RID_ContratosCliente_Detalles = '{A2EF3306-B4B6-4109-96EF-20C9F6D82300}';
{ Data table names }
nme_Valores = 'Valores';
@@ -56,6 +56,7 @@ const
fld_ContratosClienteBeneficiosID = 'ID';
fld_ContratosClienteBeneficiosREFERENCIA = 'REFERENCIA';
fld_ContratosClienteBeneficiosFECHA_CONTRATO = 'FECHA_CONTRATO';
+ fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteBeneficiosNOMBRE = 'NOMBRE';
fld_ContratosClienteBeneficiosNIF_CIF = 'NIF_CIF';
fld_ContratosClienteBeneficiosIMPORTE_NETO = 'IMPORTE_NETO';
@@ -72,17 +73,18 @@ const
idx_ContratosClienteBeneficiosID = 0;
idx_ContratosClienteBeneficiosREFERENCIA = 1;
idx_ContratosClienteBeneficiosFECHA_CONTRATO = 2;
- idx_ContratosClienteBeneficiosNOMBRE = 3;
- idx_ContratosClienteBeneficiosNIF_CIF = 4;
- idx_ContratosClienteBeneficiosIMPORTE_NETO = 5;
- idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO = 6;
- idx_ContratosClienteBeneficiosBASE_IMPONIBLE = 7;
- idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 8;
- idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 9;
- idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 10;
- idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE = 11;
- idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL = 12;
- idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL = 13;
+ idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE = 3;
+ idx_ContratosClienteBeneficiosNOMBRE = 4;
+ idx_ContratosClienteBeneficiosNIF_CIF = 5;
+ idx_ContratosClienteBeneficiosIMPORTE_NETO = 6;
+ idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO = 7;
+ idx_ContratosClienteBeneficiosBASE_IMPONIBLE = 8;
+ idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 9;
+ idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 10;
+ idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 11;
+ idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE = 12;
+ idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL = 13;
+ idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL = 14;
{ ContratosCliente fields }
fld_ContratosClienteID = 'ID';
@@ -239,7 +241,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{93B5E16D-D83A-44D5-9A72-73F5C06B4DB6}']
+ ['{F9BF1948-763A-4CB4-9DF1-35E6C948DDB4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -265,7 +267,7 @@ type
end;
{ TValoresDataTableRules }
- TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
+ TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@@ -298,7 +300,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{D3ECB8CA-7CD6-4072-81D7-4199649CD877}']
+ ['{AC649959-C638-4C8A-8B1D-764BB1751371}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -324,7 +326,7 @@ type
end;
{ TPropiedadesDataTableRules }
- TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
+ TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@@ -357,7 +359,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
- ['{D92E481B-B83E-4A7D-A894-82D9AC8611F2}']
+ ['{A739B752-2CAA-42C8-A07D-BD0A28068E5E}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -371,7 +373,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
- TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
+ TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@@ -392,7 +394,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
- ['{79AF05E5-1F98-494B-AA3C-701988FC5D95}']
+ ['{E7667437-590B-4D1C-9762-7242E8107E1A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -406,6 +408,10 @@ type
procedure SetFECHA_CONTRATOValue(const aValue: DateTime);
function GetFECHA_CONTRATOIsNull: Boolean;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean);
+ function GetREFERENCIA_CLIENTEValue: String;
+ procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
+ function GetREFERENCIA_CLIENTEIsNull: Boolean;
+ procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
@@ -459,6 +465,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
+ property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+ property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
@@ -484,7 +492,7 @@ type
end;
{ TContratosClienteBeneficiosDataTableRules }
- TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
+ TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@@ -500,6 +508,10 @@ type
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
function GetFECHA_CONTRATOIsNull: Boolean; virtual;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_CLIENTEValue: String; virtual;
+ procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
+ function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
@@ -552,6 +564,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
+ property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+ property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
@@ -583,7 +597,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
- ['{FBF1D4A1-5EC3-4737-94F2-4D2E02961885}']
+ ['{A6237FAB-2A10-4BBF-B5A6-CF29A326D98F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -869,7 +883,7 @@ type
end;
{ TContratosClienteDataTableRules }
- TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
+ TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@@ -1173,7 +1187,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
- ['{4FAEAA24-0C3E-4102-9245-1268C047848E}']
+ ['{5AE90EC7-AD94-4636-A2B9-44465BB62E8D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1217,7 +1231,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
- TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
+ TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@@ -1268,7 +1282,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{E1402F62-24C6-4568-B3B3-5D84C8E7072D}']
+ ['{D463BB1A-F962-4B97-AE5E-FDBB7D58439E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1378,7 +1392,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
- TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
+ TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -1754,6 +1768,27 @@ begin
DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsVariant := Null;
end;
+function TContratosClienteBeneficiosDataTableRules.GetREFERENCIA_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].AsString;
+end;
+
+procedure TContratosClienteBeneficiosDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].AsString := aValue;
+end;
+
+function TContratosClienteBeneficiosDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].IsNull;
+end;
+
+procedure TContratosClienteBeneficiosDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].AsVariant := Null;
+end;
+
function TContratosClienteBeneficiosDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosNOMBRE].AsString;
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
index 6e883dc..cbe227d 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 = '{AFA3E014-9771-46CA-AD58-BB178DE03490}';
- RID_PropiedadesDelta = '{F2BDFF90-4F7C-49F9-9A3D-8C5D3FE5F537}';
- RID_ListaAnosContratosDelta = '{5DBDFDE8-A17E-4EC5-87F7-C17E6D4ECF66}';
- RID_ContratosClienteBeneficiosDelta = '{4932E674-FD06-4DFB-B2C2-9F8CF8625791}';
- RID_ContratosClienteDelta = '{55AD4AA0-BD11-4F4E-ADA3-CD019CB2E92B}';
- RID_TiposCapitulosDelta = '{DA81420C-1A5E-47F3-8FAC-14ACDBAD9749}';
- RID_ContratosCliente_DetallesDelta = '{2F500632-2D38-4B7A-AB5F-4AB42F4D4D83}';
+ RID_ValoresDelta = '{6D64F831-7B58-4A9E-9180-0CE187DC1F33}';
+ RID_PropiedadesDelta = '{00F00B68-D182-4416-83C1-3850142A5B63}';
+ RID_ListaAnosContratosDelta = '{7E698FA6-63C1-49A6-BAF4-5958D8B922E1}';
+ RID_ContratosClienteBeneficiosDelta = '{ACA5ABBD-4284-4E2B-AE63-9F9DACC26E93}';
+ RID_ContratosClienteDelta = '{E74263B4-9F80-48FF-8228-19422AFDBA51}';
+ RID_TiposCapitulosDelta = '{82C3C976-5C8E-41F2-A0A9-B8028E119613}';
+ RID_ContratosCliente_DetallesDelta = '{55A68F42-1449-47F7-BCD9-E5613C7AED8B}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{AFA3E014-9771-46CA-AD58-BB178DE03490}']
+ ['{6D64F831-7B58-4A9E-9180-0CE187DC1F33}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{F2BDFF90-4F7C-49F9-9A3D-8C5D3FE5F537}']
+ ['{00F00B68-D182-4416-83C1-3850142A5B63}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
- ['{5DBDFDE8-A17E-4EC5-87F7-C17E6D4ECF66}']
+ ['{7E698FA6-63C1-49A6-BAF4-5958D8B922E1}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -170,11 +170,12 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
- ['{4932E674-FD06-4DFB-B2C2-9F8CF8625791}']
+ ['{ACA5ABBD-4284-4E2B-AE63-9F9DACC26E93}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldFECHA_CONTRATOValue : DateTime;
+ function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldNOMBREValue : String;
function GetOldNIF_CIFValue : String;
function GetOldIMPORTE_NETOValue : Currency;
@@ -191,6 +192,7 @@ type
property OldID : Integer read GetOldIDValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
+ property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
@@ -227,6 +229,12 @@ type
function GetOldFECHA_CONTRATOIsNull: Boolean; virtual;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_CLIENTEValue: String; virtual;
+ function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_CLIENTEValue: String; virtual;
+ function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
@@ -307,6 +315,10 @@ type
property FECHA_CONTRATOIsNull : Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
property OldFECHA_CONTRATOIsNull : Boolean read GetOldFECHA_CONTRATOIsNull;
+ property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+ property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
+ property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
+ property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
@@ -360,7 +372,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
- ['{55AD4AA0-BD11-4F4E-ADA3-CD019CB2E92B}']
+ ['{E74263B4-9F80-48FF-8228-19422AFDBA51}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -950,7 +962,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
- ['{DA81420C-1A5E-47F3-8FAC-14ACDBAD9749}']
+ ['{82C3C976-5C8E-41F2-A0A9-B8028E119613}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -1044,7 +1056,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
- ['{2F500632-2D38-4B7A-AB5F-4AB42F4D4D83}']
+ ['{55A68F42-1449-47F7-BCD9-E5613C7AED8B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@@ -1630,6 +1642,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO] := Null;
end;
+function TContratosClienteBeneficiosBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE];
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE]);
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE];
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE]);
+end;
+
+procedure TContratosClienteBeneficiosBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE] := aValue;
+end;
+
+procedure TContratosClienteBeneficiosBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE] := Null;
+end;
+
function TContratosClienteBeneficiosBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNOMBRE];
diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
index 97a87d0..f25897e 100644
--- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
+++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
@@ -137,11 +137,12 @@ object srvContratosCliente: TsrvContratosCliente
TargetTable = 'V_CONTRATOS_BENEFICIOS'
Name = 'IBX'
SQL =
- 'SELECT '#10' ID, REFERENCIA, FECHA_CONTRATO, NOMBRE, NIF_CIF, IMP' +
- 'ORTE_NETO, '#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IMPORTE_FACTU' +
- 'RAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO, IMP' +
- 'ORTE_FACTURAS_CLIENTE,'#10' IMPORTE_BENEFICIO_REAL, PORCENTAJE_BE' +
- 'NEFICIO_REAL'#10' FROM'#10' V_CONTRATOS_BENEFICIOS'#10' WHERE {Where}'#10
+ 'SELECT '#10' ID, REFERENCIA, FECHA_CONTRATO, REFERENCIA_CLIENTE, ' +
+ 'NOMBRE, NIF_CIF, IMPORTE_NETO,'#10' IMPORTE_DESCUENTO, BASE_IMPON' +
+ 'IBLE, IMPORTE_FACTURAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCEN' +
+ 'TAJE_BENEFICIO, IMPORTE_FACTURAS_CLIENTE,'#10' IMPORTE_BENEFICIO_' +
+ 'REAL, PORCENTAJE_BENEFICIO_REAL'#10' FROM'#10' V_CONTRATOS_BENEFICIO' +
+ 'S'#10' WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -156,6 +157,10 @@ object srvContratosCliente: TsrvContratosCliente
DatasetField = 'FECHA_CONTRATO'
TableField = 'FECHA_CONTRATO'
end
+ item
+ DatasetField = 'REFERENCIA_CLIENTE'
+ TableField = 'REFERENCIA_CLIENTE'
+ end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
@@ -216,6 +221,11 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'FECHA_CONTRATO'
DataType = datDateTime
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'NOMBRE'
DataType = datString
diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES
index 8b251f3..1641339 100644
Binary files a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES and b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES differ
diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj
index 77532e5..0e40c72 100644
--- a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj
+++ b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj
@@ -49,57 +49,57 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm
index 7b3ca44..4a1c426 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm
@@ -16,6 +16,10 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
DataBinding.FieldName = 'FECHA_CONTRATO'
PropertiesClassName = 'TcxDateEditProperties'
end
+ object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
+ Caption = 'Ref. Cliente'
+ DataBinding.FieldName = 'REFERENCIA_CLIENTE'
+ end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE'
@@ -107,9 +111,6 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
end
end
end
- inherited pnlAgrupaciones: TTBXDockablePanel
- ExplicitWidth = 554
- end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 40415.784062094910000000
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas
index 9d2c717..4802669 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas
@@ -30,6 +30,7 @@ type
cxGridViewIMPORTE_FACTURAS_CLIENTE: TcxGridDBColumn;
cxGridViewIMPORTE_BENEFICIO_REAL: TcxGridDBColumn;
cxGridViewPORCENTAJE_BENEFICIO_REAL: TcxGridDBColumn;
+ cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
procedure CustomViewDestroy(Sender: TObject);
private
FContratos: IBizContratosClienteBeneficios;
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 8b6539b..57faecf 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -134,15 +134,15 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
- schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
- schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
uNumUtils in '..\Base\Utiles\uNumUtils.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
- schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
+ schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
+ schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
+ schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 76d57e5..35e3dcd 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -29,6 +29,7 @@
FalseTrueFalseTrueFalse2680FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.8.0FactuGES (Servidor)2.6.8.0lunes, 11 de abril de 2016 13:37
+
File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
FactuGES_Server.dpr