diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index 620ec4e0..4cf8df42 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,34 +58,34 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 8b251f31..1641339f 100644
Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ
diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
index 3c3bc85b..01d42ca0 100644
--- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
@@ -541,6 +541,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'FECHA_CONTRATO'
DataType = datDateTime
@@ -583,6 +588,15 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'SITUACION'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'ID_VENDEDOR'
+ DataType = datInteger
+ end
+ item
+ Name = 'VENDEDOR'
+ DataType = datString
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
index 679ddd51..eeca5fac 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 = '{8D0A6005-9221-49D8-850E-9132CB554EF3}';
- RID_Propiedades = '{8B55BD13-9462-4069-8727-FC0E5CC3B5CE}';
- RID_ListaAnosContratos = '{C307F363-E262-45D7-92C8-C8A315917474}';
- RID_ContratosClienteBeneficios = '{2A105B52-7E4A-4F48-9BAC-4E919F6619A5}';
- RID_ContratosCliente = '{E6050152-2E8E-4AAB-BD2F-C7A863966187}';
- RID_TiposCapitulos = '{8DC00365-1B40-406A-94F0-0A706EA1889C}';
- RID_ContratosCliente_Detalles = '{9BAA7277-F710-4A9B-8EC7-FFC449E23AF6}';
+ RID_Valores = '{58A2DEFE-73CE-4294-A509-3456173EC1E8}';
+ RID_Propiedades = '{FD279174-BDCF-4C6E-86A5-9EF688F8A386}';
+ RID_ListaAnosContratos = '{995B8113-D69E-45F6-B0C6-279DE92E8AE1}';
+ RID_ContratosClienteBeneficios = '{AADFE498-8072-4F5F-84FD-7BDAE2D03E88}';
+ RID_ContratosCliente = '{6BBAF32D-E3F6-4C2F-BB50-EEB0BABCE782}';
+ RID_TiposCapitulos = '{4355D117-B641-4CF9-99AC-17558CB0C354}';
+ RID_ContratosCliente_Detalles = '{02F28C43-5EC9-4A4F-A2BC-CD4BF581ED0B}';
{ Data table names }
nme_Valores = 'Valores';
@@ -55,6 +55,7 @@ const
{ ContratosClienteBeneficios fields }
fld_ContratosClienteBeneficiosID = 'ID';
fld_ContratosClienteBeneficiosREFERENCIA = 'REFERENCIA';
+ fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteBeneficiosFECHA_CONTRATO = 'FECHA_CONTRATO';
fld_ContratosClienteBeneficiosNOMBRE = 'NOMBRE';
fld_ContratosClienteBeneficiosNIF_CIF = 'NIF_CIF';
@@ -65,20 +66,25 @@ const
fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 'IMPORTE_BENEFICIO';
fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 'PORCENTAJE_BENEFICIO';
fld_ContratosClienteBeneficiosSITUACION = 'SITUACION';
+ fld_ContratosClienteBeneficiosID_VENDEDOR = 'ID_VENDEDOR';
+ fld_ContratosClienteBeneficiosVENDEDOR = 'VENDEDOR';
{ ContratosClienteBeneficios field indexes }
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_ContratosClienteBeneficiosSITUACION = 11;
+ idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE = 2;
+ idx_ContratosClienteBeneficiosFECHA_CONTRATO = 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_ContratosClienteBeneficiosSITUACION = 12;
+ idx_ContratosClienteBeneficiosID_VENDEDOR = 13;
+ idx_ContratosClienteBeneficiosVENDEDOR = 14;
{ ContratosCliente fields }
fld_ContratosClienteID = 'ID';
@@ -239,7 +245,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{BE709E0D-DA15-433E-845D-A94BC20A4918}']
+ ['{8DC482B0-0D63-436F-AB19-74A480249588}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -265,7 +271,7 @@ type
end;
{ TValoresDataTableRules }
- TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
+ TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@@ -298,7 +304,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{5B1734E1-7B39-4B14-B907-21077C041461}']
+ ['{83E4E5BD-A49A-4677-A830-7C9B83F3DDE4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -324,7 +330,7 @@ type
end;
{ TPropiedadesDataTableRules }
- TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
+ TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@@ -357,7 +363,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
- ['{ABCA5139-F042-4033-BCA2-09D644B80C2C}']
+ ['{35D2C046-61DA-487F-A0F4-5E3AB7CCA58D}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -371,7 +377,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
- TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
+ TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@@ -392,7 +398,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
- ['{6429E1F0-65EC-42C4-B326-A3FDFD709C6B}']
+ ['{FEA1561B-0DF3-4193-8881-62C4433488E8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -402,6 +408,10 @@ type
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
+ function GetREFERENCIA_CLIENTEValue: String;
+ procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
+ function GetREFERENCIA_CLIENTEIsNull: Boolean;
+ procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetFECHA_CONTRATOValue: DateTime;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime);
function GetFECHA_CONTRATOIsNull: Boolean;
@@ -442,6 +452,14 @@ type
procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean;
procedure SetSITUACIONIsNull(const aValue: Boolean);
+ function GetID_VENDEDORValue: Integer;
+ procedure SetID_VENDEDORValue(const aValue: Integer);
+ function GetID_VENDEDORIsNull: Boolean;
+ procedure SetID_VENDEDORIsNull(const aValue: Boolean);
+ function GetVENDEDORValue: String;
+ procedure SetVENDEDORValue(const aValue: String);
+ function GetVENDEDORIsNull: Boolean;
+ procedure SetVENDEDORIsNull(const aValue: Boolean);
{ Properties }
@@ -449,6 +467,8 @@ type
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+ property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@@ -469,10 +489,14 @@ type
property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
+ property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
+ property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
+ property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
end;
{ TContratosClienteBeneficiosDataTableRules }
- TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
+ TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@@ -484,6 +508,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(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 GetFECHA_CONTRATOValue: DateTime; virtual;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
function GetFECHA_CONTRATOIsNull: Boolean; virtual;
@@ -524,12 +552,22 @@ type
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
+ function GetID_VENDEDORValue: Integer; virtual;
+ procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
+ function GetID_VENDEDORIsNull: Boolean; virtual;
+ procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual;
+ function GetVENDEDORValue: String; virtual;
+ procedure SetVENDEDORValue(const aValue: String); virtual;
+ function GetVENDEDORIsNull: Boolean; virtual;
+ procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+ property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@@ -550,6 +588,10 @@ type
property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
+ property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
+ property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
+ property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -559,7 +601,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
- ['{F6CA8D2A-7FE2-492D-9C31-17EEED90EA92}']
+ ['{F2DEA876-B1A6-475D-8D1D-8D416E7D40CA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -855,7 +897,7 @@ type
end;
{ TContratosClienteDataTableRules }
- TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
+ TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@@ -1173,7 +1215,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
- ['{83723322-56DB-4D52-A7F2-71BE5705EFF4}']
+ ['{5F81E7D5-452E-4E0A-88C8-1F996B6AF531}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1217,7 +1259,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
- TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
+ TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@@ -1268,7 +1310,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{E4351EBD-42E9-42AA-A32C-EBF448AF3AAB}']
+ ['{251944F0-59A0-4544-BC1D-DC85411F2FD7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1378,7 +1420,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
- TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
+ TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -1733,6 +1775,27 @@ begin
DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].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.GetFECHA_CONTRATOValue: DateTime;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsDateTime;
@@ -1943,6 +2006,48 @@ begin
DataTable.Fields[idx_ContratosClienteBeneficiosSITUACION].AsVariant := Null;
end;
+function TContratosClienteBeneficiosDataTableRules.GetID_VENDEDORValue: Integer;
+begin
+ result := DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].AsInteger;
+end;
+
+procedure TContratosClienteBeneficiosDataTableRules.SetID_VENDEDORValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].AsInteger := aValue;
+end;
+
+function TContratosClienteBeneficiosDataTableRules.GetID_VENDEDORIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].IsNull;
+end;
+
+procedure TContratosClienteBeneficiosDataTableRules.SetID_VENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].AsVariant := Null;
+end;
+
+function TContratosClienteBeneficiosDataTableRules.GetVENDEDORValue: String;
+begin
+ result := DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].AsString;
+end;
+
+procedure TContratosClienteBeneficiosDataTableRules.SetVENDEDORValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].AsString := aValue;
+end;
+
+function TContratosClienteBeneficiosDataTableRules.GetVENDEDORIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].IsNull;
+end;
+
+procedure TContratosClienteBeneficiosDataTableRules.SetVENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].AsVariant := Null;
+end;
+
{ TContratosClienteDataTableRules }
constructor TContratosClienteDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
index 0b4d8d45..5a19d641 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 = '{684CE7DA-07CD-44B6-B5D0-A53167809071}';
- RID_PropiedadesDelta = '{9411016A-2563-45A8-A869-AD6D77B08D8D}';
- RID_ListaAnosContratosDelta = '{3904C59D-140E-4B09-8883-BAD4283361E1}';
- RID_ContratosClienteBeneficiosDelta = '{33BCE36F-E764-4D57-B64F-CC3336F86D08}';
- RID_ContratosClienteDelta = '{5A623AB9-EB89-4FE8-B2EB-DCA2DF9DE9E2}';
- RID_TiposCapitulosDelta = '{9005E869-C4FF-4100-B6D7-7C3AB110EF02}';
- RID_ContratosCliente_DetallesDelta = '{922730A0-E1D3-48AF-B9FA-C766F808A26F}';
+ RID_ValoresDelta = '{B57572E7-8CF0-400C-A161-CC3597A61C0B}';
+ RID_PropiedadesDelta = '{9194A821-5316-4432-AB61-66CB529F49E3}';
+ RID_ListaAnosContratosDelta = '{E141AD09-588D-4313-90DB-61941556C617}';
+ RID_ContratosClienteBeneficiosDelta = '{662E0B0F-1674-4F05-9CF7-89346BE5E7D5}';
+ RID_ContratosClienteDelta = '{07069709-DA46-44C8-9C1C-AAB3F80D3F26}';
+ RID_TiposCapitulosDelta = '{19191BFF-2C9D-43C5-85D6-81B96CDBBF10}';
+ RID_ContratosCliente_DetallesDelta = '{65037CFE-4A72-4CD0-A197-CECC6A4FDD1D}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{684CE7DA-07CD-44B6-B5D0-A53167809071}']
+ ['{B57572E7-8CF0-400C-A161-CC3597A61C0B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{9411016A-2563-45A8-A869-AD6D77B08D8D}']
+ ['{9194A821-5316-4432-AB61-66CB529F49E3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
- ['{3904C59D-140E-4B09-8883-BAD4283361E1}']
+ ['{E141AD09-588D-4313-90DB-61941556C617}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -170,10 +170,11 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
- ['{33BCE36F-E764-4D57-B64F-CC3336F86D08}']
+ ['{662E0B0F-1674-4F05-9CF7-89346BE5E7D5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
+ function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldFECHA_CONTRATOValue : DateTime;
function GetOldNOMBREValue : String;
function GetOldNIF_CIFValue : String;
@@ -184,10 +185,13 @@ type
function GetOldIMPORTE_BENEFICIOValue : Currency;
function GetOldPORCENTAJE_BENEFICIOValue : Currency;
function GetOldSITUACIONValue : String;
+ function GetOldID_VENDEDORValue : Integer;
+ function GetOldVENDEDORValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
@@ -198,6 +202,8 @@ type
property OldIMPORTE_BENEFICIO : Currency read GetOldIMPORTE_BENEFICIOValue;
property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue;
property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
+ property OldVENDEDOR : String read GetOldVENDEDORValue;
end;
{ TContratosClienteBeneficiosBusinessProcessorRules }
@@ -217,6 +223,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(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 GetFECHA_CONTRATOValue: DateTime; virtual;
function GetFECHA_CONTRATOIsNull: Boolean; virtual;
function GetOldFECHA_CONTRATOValue: DateTime; virtual;
@@ -277,6 +289,18 @@ type
function GetOldSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
+ function GetID_VENDEDORValue: Integer; virtual;
+ function GetID_VENDEDORIsNull: Boolean; virtual;
+ function GetOldID_VENDEDORValue: Integer; virtual;
+ function GetOldID_VENDEDORIsNull: Boolean; virtual;
+ procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
+ procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual;
+ function GetVENDEDORValue: String; virtual;
+ function GetVENDEDORIsNull: Boolean; virtual;
+ function GetOldVENDEDORValue: String; virtual;
+ function GetOldVENDEDORIsNull: Boolean; virtual;
+ procedure SetVENDEDORValue(const aValue: String); virtual;
+ procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -287,6 +311,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+ 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 FECHA_CONTRATO : DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull : Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
@@ -327,6 +355,14 @@ type
property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
+ property ID_VENDEDOR : Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
+ property ID_VENDEDORIsNull : Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
+ property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
+ property OldID_VENDEDORIsNull : Boolean read GetOldID_VENDEDORIsNull;
+ property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue;
+ property VENDEDORIsNull : Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
+ property OldVENDEDOR : String read GetOldVENDEDORValue;
+ property OldVENDEDORIsNull : Boolean read GetOldVENDEDORIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -336,7 +372,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
- ['{5A623AB9-EB89-4FE8-B2EB-DCA2DF9DE9E2}']
+ ['{07069709-DA46-44C8-9C1C-AAB3F80D3F26}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -952,7 +988,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
- ['{9005E869-C4FF-4100-B6D7-7C3AB110EF02}']
+ ['{19191BFF-2C9D-43C5-85D6-81B96CDBBF10}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -1046,7 +1082,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
- ['{922730A0-E1D3-48AF-B9FA-C766F808A26F}']
+ ['{65037CFE-4A72-4CD0-A197-CECC6A4FDD1D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@@ -1601,6 +1637,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA] := 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.GetFECHA_CONTRATOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO];
@@ -1911,6 +1978,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosSITUACION] := Null;
end;
+function TContratosClienteBeneficiosBusinessProcessorRules.GetID_VENDEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR];
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetID_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR]);
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetOldID_VENDEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR];
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetOldID_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR]);
+end;
+
+procedure TContratosClienteBeneficiosBusinessProcessorRules.SetID_VENDEDORValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR] := aValue;
+end;
+
+procedure TContratosClienteBeneficiosBusinessProcessorRules.SetID_VENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR] := Null;
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetVENDEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR];
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetVENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR]);
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetOldVENDEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosVENDEDOR];
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetOldVENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosVENDEDOR]);
+end;
+
+procedure TContratosClienteBeneficiosBusinessProcessorRules.SetVENDEDORValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR] := aValue;
+end;
+
+procedure TContratosClienteBeneficiosBusinessProcessorRules.SetVENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR] := Null;
+end;
+
{ TContratosClienteBusinessProcessorRules }
constructor TContratosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
index 6b2d3530..7a2d546e 100644
--- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
+++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
@@ -137,10 +137,11 @@ 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, SIT' +
- 'UACION'#10' FROM'#10' V_CONTRATOS_BENEFICIOS'#10' WHERE {Where}'#10
+ 'SELECT '#10' ID, REFERENCIA, REFERENCIA_CLIENTE, FECHA_CONTRATO, ' +
+ 'NOMBRE, NIF_CIF, IMPORTE_NETO,'#10' IMPORTE_DESCUENTO, BASE_IMPON' +
+ 'IBLE, IMPORTE_FACTURAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCEN' +
+ 'TAJE_BENEFICIO, SITUACION, ID_VENDEDOR, VENDEDOR'#10' FROM'#10' V_CO' +
+ 'NTRATOS_BENEFICIOS'#10' WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -190,6 +191,18 @@ object srvContratosCliente: TsrvContratosCliente
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
+ end
+ item
+ DatasetField = 'REFERENCIA_CLIENTE'
+ TableField = 'REFERENCIA_CLIENTE'
+ end
+ item
+ DatasetField = 'ID_VENDEDOR'
+ TableField = 'ID_VENDEDOR'
+ end
+ item
+ DatasetField = 'VENDEDOR'
+ TableField = 'VENDEDOR'
end>
end>
Name = 'ContratosClienteBeneficios'
@@ -203,6 +216,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'FECHA_CONTRATO'
DataType = datDateTime
@@ -245,6 +263,15 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'SITUACION'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'ID_VENDEDOR'
+ DataType = datInteger
+ end
+ item
+ Name = 'VENDEDOR'
+ DataType = datString
+ Size = 255
end>
end
item
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm
index 8f8e2f50..1d97062c 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm
@@ -26,6 +26,10 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA'
end
+ object cxGridViewREF_CONTENIDO: TcxGridDBColumn
+ Caption = 'ref. contenido'
+ DataBinding.FieldName = 'REFERENCIA_CLIENTE'
+ end
object cxGridViewFECHA_CONTRATO: TcxGridDBColumn
Caption = 'Fecha'
DataBinding.FieldName = 'FECHA_CONTRATO'
@@ -83,6 +87,10 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
end
+ object cxGridViewVENDEDOR: TcxGridDBColumn
+ Caption = 'Vendedor'
+ DataBinding.FieldName = 'VENDEDOR'
+ end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos'
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas
index 8bac50b8..178c5c1f 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas
@@ -30,6 +30,8 @@ type
cxGridPendientes: TcxGridLevel;
cxGridTerminados: TcxGridLevel;
cxGridViewSITUACION: TcxGridDBColumn;
+ cxGridViewVENDEDOR: TcxGridDBColumn;
+ cxGridViewREF_CONTENIDO: TcxGridDBColumn;
procedure CustomViewDestroy(Sender: TObject);
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid;
ALevel: TcxGridLevel);
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 2f958b77..0ccb3f07 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -133,12 +133,12 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
- schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
- schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
- schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
+ schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_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 03da1f64..54a055d5 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,298 +1,299 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
- FalseTrueFalseTrueFalse2930FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.9.3.0FactuGES (Servidor)2.9.3.0viernes, 17 de mayo de 2019 18:59
- File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
- TRORemoteDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+FalseTrueFalseTrueFalse2930FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.9.3.0FactuGES (Servidor)2.9.3.0viernes, 17 de mayo de 2019 18:59
+
+ File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TRORemoteDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+