Se saca referencia de contrato relacionado y referencia de cliente en contrato en los recibos de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@123 93f398dd-4eb6-7a46-baf6-13f46f578da2

Source/Base/Base.dproj

@@ -44,6 +44,13 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -58,55 +65,55 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Cliente/FactuGES.dproj

@@ -51,8 +51,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.7.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.7.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
       
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm

@@ -400,6 +400,16 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
       item
         Name = 'CUENTA_CONTABLE'
         DataType = datString
+      end
+      item
+        Name = 'REFERENCIA_CONTRATO'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'REF_CLIENTE_CONTRATO'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas

@@ -3,16 +3,16 @@ unit schRecibosClienteClient_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_ListaAnosRecibos = '{9AD56FB9-67A7-486D-97A3-F97769F49FBE}';
+  RID_ListaAnosRecibos = '{EA14EE7E-2EA2-4C78-BBE5-C6C8E68D4F08}';
-  RID_RecibosCliente = '{A6B99CCC-1F59-46D1-9E40-CDA699F5DBDE}';
+  RID_RecibosCliente = '{F107001F-CB55-4A48-88A1-635E9699E171}';
-  RID_PagosCliente = '{95D516A8-1FAC-4A03-8CE4-0D6CB5390369}';
+  RID_PagosCliente = '{C71D3A04-7694-4A1A-8EC7-9C3809F64EC3}';
-  RID_RecibosCompensadosCli = '{2617D7C0-DF3B-4791-8CB7-3E57E1C4E48A}';
+  RID_RecibosCompensadosCli = '{5336ACAB-56BE-4F35-B412-38358373AEBF}';
 
   { Data table names }
   nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -68,6 +68,8 @@ const
   fld_RecibosClienteID_TIENDA = 'ID_TIENDA';
   fld_RecibosClienteTIENDA = 'TIENDA';
   fld_RecibosClienteCUENTA_CONTABLE = 'CUENTA_CONTABLE';
+  fld_RecibosClienteREFERENCIA_CONTRATO = 'REFERENCIA_CONTRATO';
+  fld_RecibosClienteREF_CLIENTE_CONTRATO = 'REF_CLIENTE_CONTRATO';
 
   { RecibosCliente field indexes }
   idx_RecibosClienteID = 0;
@@ -111,6 +113,8 @@ const
   idx_RecibosClienteID_TIENDA = 38;
   idx_RecibosClienteTIENDA = 39;
   idx_RecibosClienteCUENTA_CONTABLE = 40;
+  idx_RecibosClienteREFERENCIA_CONTRATO = 41;
+  idx_RecibosClienteREF_CLIENTE_CONTRATO = 42;
 
   { PagosCliente fields }
   fld_PagosClienteID = 'ID';
@@ -241,7 +245,7 @@ const
 type
   { IListaAnosRecibos }
   IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
-  ['{6EE69FF4-C573-4C84-ABB8-AADD20CB1C97}']
+  ['{1FF14354-4B42-4F99-88E2-6495C07BD80B}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -255,7 +259,7 @@ type
   end;
 
   { TListaAnosRecibosDataTableRules }
-  TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
+  TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
   private
   protected
     { Property getters and setters }
@@ -276,7 +280,7 @@ type
 
   { IRecibosCliente }
   IRecibosCliente = interface(IDAStronglyTypedDataTable)
-  ['{FA997C06-FA56-476C-A2C8-9C14645F12AD}']
+  ['{DD664CE7-9833-46AD-9336-DF935C1896E5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -442,6 +446,14 @@ type
     procedure SetCUENTA_CONTABLEValue(const aValue: String);
     function GetCUENTA_CONTABLEIsNull: Boolean;
     procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
+    function GetREFERENCIA_CONTRATOValue: String;
+    procedure SetREFERENCIA_CONTRATOValue(const aValue: String);
+    function GetREFERENCIA_CONTRATOIsNull: Boolean;
+    procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean);
+    function GetREF_CLIENTE_CONTRATOValue: String;
+    procedure SetREF_CLIENTE_CONTRATOValue(const aValue: String);
+    function GetREF_CLIENTE_CONTRATOIsNull: Boolean;
+    procedure SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -527,10 +539,14 @@ type
     property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
     property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
     property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
+    property REFERENCIA_CONTRATO: String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
+    property REFERENCIA_CONTRATOIsNull: Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
+    property REF_CLIENTE_CONTRATO: String read GetREF_CLIENTE_CONTRATOValue write SetREF_CLIENTE_CONTRATOValue;
+    property REF_CLIENTE_CONTRATOIsNull: Boolean read GetREF_CLIENTE_CONTRATOIsNull write SetREF_CLIENTE_CONTRATOIsNull;
   end;
 
   { TRecibosClienteDataTableRules }
-  TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
+  TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
   private
   protected
     { Property getters and setters }
@@ -698,6 +714,14 @@ type
     procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
     function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
     procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_CONTRATOValue: String; virtual;
+    procedure SetREFERENCIA_CONTRATOValue(const aValue: String); virtual;
+    function GetREFERENCIA_CONTRATOIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); virtual;
+    function GetREF_CLIENTE_CONTRATOValue: String; virtual;
+    procedure SetREF_CLIENTE_CONTRATOValue(const aValue: String); virtual;
+    function GetREF_CLIENTE_CONTRATOIsNull: Boolean; virtual;
+    procedure SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -782,6 +806,10 @@ type
     property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
     property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
     property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
+    property REFERENCIA_CONTRATO: String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
+    property REFERENCIA_CONTRATOIsNull: Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
+    property REF_CLIENTE_CONTRATO: String read GetREF_CLIENTE_CONTRATOValue write SetREF_CLIENTE_CONTRATOValue;
+    property REF_CLIENTE_CONTRATOIsNull: Boolean read GetREF_CLIENTE_CONTRATOIsNull write SetREF_CLIENTE_CONTRATOIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -791,7 +819,7 @@ type
 
   { IPagosCliente }
   IPagosCliente = interface(IDAStronglyTypedDataTable)
-  ['{F52B261A-56AB-4702-9FA4-F06407A2A66E}']
+  ['{1D0D6388-4971-477A-AADB-DE1B515DE6C4}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -907,7 +935,7 @@ type
   end;
 
   { TPagosClienteDataTableRules }
-  TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
+  TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
   private
   protected
     { Property getters and setters }
@@ -1030,7 +1058,7 @@ type
 
   { IRecibosCompensadosCli }
   IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
-  ['{4FA8D8AA-25E8-4B7A-972A-1E6491B96D5B}']
+  ['{A9671AAE-1362-475C-B2E7-84DF3940B4C4}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1284,7 +1312,7 @@ type
   end;
 
   { TRecibosCompensadosCliDataTableRules }
-  TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
+  TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
   private
   protected
     { Property getters and setters }
@@ -2452,6 +2480,48 @@ begin
     DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsVariant := Null;
 end;
 
+function TRecibosClienteDataTableRules.GetREFERENCIA_CONTRATOValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_CONTRATOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetREFERENCIA_CONTRATOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetREF_CLIENTE_CONTRATOValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREF_CLIENTE_CONTRATOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetREF_CLIENTE_CONTRATOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].AsVariant := Null;
+end;
+
 
 { TPagosClienteDataTableRules }
 constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas

@@ -9,15 +9,15 @@ 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_ListaAnosRecibosDelta = '{9E586155-C30C-4C3D-969F-4C5A8A34C00E}';
+  RID_ListaAnosRecibosDelta = '{6D00330A-4C7E-46FA-BD10-76DC9B20BCD5}';
-  RID_RecibosClienteDelta = '{D8BC8C31-56C2-45FC-AB7B-063313B4B910}';
+  RID_RecibosClienteDelta = '{56014792-FD4F-4FBD-8CF9-808ADB5F5FD8}';
-  RID_PagosClienteDelta = '{056195E0-7C3A-4CAD-A6F3-3E2FD306D365}';
+  RID_PagosClienteDelta = '{97FBC855-65C7-4A19-916C-85BA6C501CCF}';
-  RID_RecibosCompensadosCliDelta = '{6642E0AE-04ED-48EA-B0C7-E82AEB48769A}';
+  RID_RecibosCompensadosCliDelta = '{5C0B63D3-2863-40C4-B4CB-2A9A1BDC6EF1}';
 
 type
   { IListaAnosRecibosDelta }
   IListaAnosRecibosDelta = interface(IListaAnosRecibos)
-  ['{9E586155-C30C-4C3D-969F-4C5A8A34C00E}']
+  ['{6D00330A-4C7E-46FA-BD10-76DC9B20BCD5}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { IRecibosClienteDelta }
   IRecibosClienteDelta = interface(IRecibosCliente)
-  ['{D8BC8C31-56C2-45FC-AB7B-063313B4B910}']
+  ['{56014792-FD4F-4FBD-8CF9-808ADB5F5FD8}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -94,6 +94,8 @@ type
     function GetOldID_TIENDAValue : Integer;
     function GetOldTIENDAValue : String;
     function GetOldCUENTA_CONTABLEValue : String;
+    function GetOldREFERENCIA_CONTRATOValue : String;
+    function GetOldREF_CLIENTE_CONTRATOValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -137,6 +139,8 @@ type
     property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
     property OldTIENDA : String read GetOldTIENDAValue;
     property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
+    property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue;
+    property OldREF_CLIENTE_CONTRATO : String read GetOldREF_CLIENTE_CONTRATOValue;
   end;
 
   { TRecibosClienteBusinessProcessorRules }
@@ -390,6 +394,18 @@ type
     function GetOldCUENTA_CONTABLEIsNull: Boolean; virtual;
     procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
     procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_CONTRATOValue: String; virtual;
+    function GetREFERENCIA_CONTRATOIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_CONTRATOValue: String; virtual;
+    function GetOldREFERENCIA_CONTRATOIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_CONTRATOValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); virtual;
+    function GetREF_CLIENTE_CONTRATOValue: String; virtual;
+    function GetREF_CLIENTE_CONTRATOIsNull: Boolean; virtual;
+    function GetOldREF_CLIENTE_CONTRATOValue: String; virtual;
+    function GetOldREF_CLIENTE_CONTRATOIsNull: Boolean; virtual;
+    procedure SetREF_CLIENTE_CONTRATOValue(const aValue: String); virtual;
+    procedure SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -556,6 +572,14 @@ type
     property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
     property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
     property OldCUENTA_CONTABLEIsNull : Boolean read GetOldCUENTA_CONTABLEIsNull;
+    property REFERENCIA_CONTRATO : String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
+    property REFERENCIA_CONTRATOIsNull : Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
+    property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue;
+    property OldREFERENCIA_CONTRATOIsNull : Boolean read GetOldREFERENCIA_CONTRATOIsNull;
+    property REF_CLIENTE_CONTRATO : String read GetREF_CLIENTE_CONTRATOValue write SetREF_CLIENTE_CONTRATOValue;
+    property REF_CLIENTE_CONTRATOIsNull : Boolean read GetREF_CLIENTE_CONTRATOIsNull write SetREF_CLIENTE_CONTRATOIsNull;
+    property OldREF_CLIENTE_CONTRATO : String read GetOldREF_CLIENTE_CONTRATOValue;
+    property OldREF_CLIENTE_CONTRATOIsNull : Boolean read GetOldREF_CLIENTE_CONTRATOIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -565,7 +589,7 @@ type
 
   { IPagosClienteDelta }
   IPagosClienteDelta = interface(IPagosCliente)
-  ['{056195E0-7C3A-4CAD-A6F3-3E2FD306D365}']
+  ['{97FBC855-65C7-4A19-916C-85BA6C501CCF}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -803,7 +827,7 @@ type
 
   { IRecibosCompensadosCliDelta }
   IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
-  ['{6642E0AE-04ED-48EA-B0C7-E82AEB48769A}']
+  ['{5C0B63D3-2863-40C4-B4CB-2A9A1BDC6EF1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -2645,6 +2669,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE] := Null;
 end;
 
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CONTRATOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CONTRATOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CONTRATOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CONTRATO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CONTRATOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CONTRATOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREF_CLIENTE_CONTRATOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREF_CLIENTE_CONTRATOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREF_CLIENTE_CONTRATOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREF_CLIENTE_CONTRATOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREF_CLIENTE_CONTRATOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO] := Null;
+end;
+
 
 { TPagosClienteBusinessProcessorRules }
 constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm

@@ -212,6 +212,14 @@ object srvRecibosCliente: TsrvRecibosCliente
               item
                 DatasetField = 'REFERENCIA_CLIENTE'
                 TableField = 'REFERENCIA_CLIENTE'
+              end
+              item
+                DatasetField = 'REFERENCIA_CONTRATO'
+                TableField = 'REFERENCIA_CONTRATO'
+              end
+              item
+                DatasetField = 'REF_CLIENTE_CONTRATO'
+                TableField = 'REF_CLIENTE_CONTRATO'
               end>
           end>
         Name = 'RecibosCliente'
@@ -442,6 +450,16 @@ object srvRecibosCliente: TsrvRecibosCliente
           item
             Name = 'CUENTA_CONTABLE'
             DataType = datString
+          end
+          item
+            Name = 'REFERENCIA_CONTRATO'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'REF_CLIENTE_CONTRATO'
+            DataType = datString
+            Size = 255
           end>
       end
       item

Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm

@@ -3,7 +3,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
   ClientHeight = 561
   ClientWidth = 645
   ExplicitWidth = 653
-  ExplicitHeight = 595
+  ExplicitHeight = 599
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -41,10 +41,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
     Width = 645
     ExplicitWidth = 645
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 561
+      ExplicitWidth = 632
     end
     inherited tbxFiltro: TTBXToolbar
-      ExplicitWidth = 431
+      ExplicitWidth = 454
       inherited lblAno: TTBXLabelItem
         Visible = True
       end
@@ -59,10 +59,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
       ExplicitWidth = 645
     end
     inherited TBXTMain2: TTBXToolbar
-      Left = 431
+      Left = 454
       Visible = True
-      ExplicitLeft = 431
+      ExplicitLeft = 454
-      ExplicitWidth = 66
+      ExplicitWidth = 74
       object TBXItem38: TTBXItem
         Action = actInformes
       end
@@ -76,9 +76,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
   end
   inline frViewRecibosCliente1: TfrViewRecibosCliente [3]
     Left = 0
-    Top = 102
+    Top = 106
     Width = 645
-    Height = 440
+    Height = 436
     Align = alClient
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -88,14 +88,14 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
     ParentFont = False
     TabOrder = 0
     ReadOnly = False
-    ExplicitTop = 102
+    ExplicitTop = 106
     ExplicitWidth = 645
-    ExplicitHeight = 440
+    ExplicitHeight = 436
     inherited cxGrid: TcxGrid
       Width = 645
-      Height = 312
+      Height = 308
       ExplicitWidth = 645
-      ExplicitHeight = 312
+      ExplicitHeight = 308
       inherited cxGridView: TcxGridDBTableView
         DataController.Summary.DefaultGroupSummaryItems = <
           item
@@ -181,8 +181,8 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
       end
     end
     inherited pnlAgrupaciones: TTBXDockablePanel
-      Top = 414
+      Top = 410
-      ExplicitTop = 414
+      ExplicitTop = 410
       ExplicitWidth = 645
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 645

Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm

@@ -220,6 +220,14 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
         Visible = False
         VisibleForCustomization = False
       end
+      object cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn
+        Caption = 'Ref. Contrato'
+        DataBinding.FieldName = 'REFERENCIA_CONTRATO'
+      end
+      object cxGridViewREF_CLIENTE_CONTRATO: TcxGridDBColumn
+        Caption = 'Ref. Cliente en contrato'
+        DataBinding.FieldName = 'REF_CLIENTE_CONTRATO'
+      end
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todos'

Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas

@@ -61,6 +61,8 @@ type
     cxGridViewIMPORTE_COMPENSADO: TcxGridDBColumn;
     cxGridViewIMPORTE_SIN_COMPENSAR: TcxGridDBColumn;
     cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
+    cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn;
+    cxGridViewREF_CLIENTE_CONTRATO: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);

Source/Servidor/FactuGES_Server.dpr

@@ -126,8 +126,6 @@ uses
   uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule},
   schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
   schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
-  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
-  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
   schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
   schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
   schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
@@ -142,7 +140,9 @@ uses
   schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
   schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
-  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
+  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
+  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@@ -28,7 +28,8 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType />
     <BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 10 de noviembre de 2016 12:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.7.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.7.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 17 de noviembre de 2016 18:06</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>