diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 9ccf27ea..c69edcd0 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -926,6 +926,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
     ID_EMPRESA           TIPO_ID,
     ID_CLIENTE           TIPO_ID,
     REFERENCIA           VARCHAR(255),
+	REFERENCIA_AUX       VARCHAR(255),
     FECHA_PRESUPUESTO    DATE,
     FECHA_DECISION       DATE,
     SITUACION            VARCHAR(255),
@@ -2209,6 +2210,7 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
     FECHA_PRESUPUESTO,
     FECHA_DECISION,
     REFERENCIA,
+	REFERENCIA_AUX,
     SITUACION,
     ID_CLIENTE,
     NIF_CIF,
@@ -2239,6 +2241,7 @@ SELECT
   PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO,
   PRESUPUESTOS_CLIENTE.FECHA_DECISION,
   PRESUPUESTOS_CLIENTE.REFERENCIA,
+  PRESUPUESTOS_CLIENTE.REFERENCIA_AUX,
   PRESUPUESTOS_CLIENTE.SITUACION,  
   PRESUPUESTOS_CLIENTE.ID_CLIENTE,
   V_CLIENTES.NIF_CIF,
diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
index c1f1e99a..326a15b5 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm	
@@ -59,6 +59,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DisplayLabel = 'Referencia'
         DictionaryEntry = 'PresupuestosCliente_REFERENCIA'
       end
+      item
+        Name = 'REFERENCIA_AUX'
+        DataType = datString
+        Size = 255
+      end
       item
         Name = 'SITUACION'
         DataType = datString
diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk
index 52646c25..f781c86d 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk	
+++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk	
@@ -39,7 +39,7 @@ contains
   uBizDetallesPresupuestoCliente in 'uBizDetallesPresupuestoCliente.pas',
   uBizPresupuestosCliente in 'uBizPresupuestosCliente.pas',
   uIDataModulePresupuestosClienteReport in 'Data\uIDataModulePresupuestosClienteReport.pas',
-  schPresupuestosClienteServer_Intf in 'schPresupuestosClienteServer_Intf.pas',
-  schPresupuestosClienteClient_Intf in 'schPresupuestosClienteClient_Intf.pas';
+  schPresupuestosClienteClient_Intf in 'schPresupuestosClienteClient_Intf.pas',
+  schPresupuestosClienteServer_Intf in 'schPresupuestosClienteServer_Intf.pas';
 
 end.
diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
index c2c1b004..cec3ab45 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj	
+++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj	
@@ -52,25 +52,25 @@
     <DelphiCompile Include="PresupuestosCliente_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\adortl.dcp" />
-    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="..\Contactos_model.dcp" />
-    <DCCReference Include="..\dbrtl.dcp" />
-    <DCCReference Include="..\dsnap.dcp" />
-    <DCCReference Include="..\rtl.dcp" />
-    <DCCReference Include="..\vcl.dcp" />
-    <DCCReference Include="..\vcldb.dcp" />
+    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
     <DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
     <DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="schPresupuestosClienteClient_Intf.pas" />
     <DCCReference Include="schPresupuestosClienteServer_Intf.pas" />
     <DCCReference Include="uBizDetallesPresupuestoCliente.pas" />
     <DCCReference Include="uBizPresupuestosCliente.pas" />
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vcldb.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6006
+EurekaLog Version=6011
 Activate=1
 Activate Handle=1
 Save Log File=1
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
index f6c27602..5e8ca2e6 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas	
@@ -9,8 +9,8 @@ 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_PresupuestosCliente = '{07B92F91-B78B-48C3-A022-A9DFF963F681}';
-  RID_PresupuestosCliente_Detalles = '{52E490B1-0AFF-4BBA-BA6A-CF8B547AFC33}';
+  RID_PresupuestosCliente = '{94236A84-1D4D-4C03-8863-F1A5ABC6DE7E}';
+  RID_PresupuestosCliente_Detalles = '{9FAA114D-94F9-4451-89F0-067F52ED606D}';
 
   { Data table names }
   nme_PresupuestosCliente = 'PresupuestosCliente';
@@ -22,6 +22,7 @@ const
   fld_PresupuestosClienteFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO';
   fld_PresupuestosClienteFECHA_DECISION = 'FECHA_DECISION';
   fld_PresupuestosClienteREFERENCIA = 'REFERENCIA';
+  fld_PresupuestosClienteREFERENCIA_AUX = 'REFERENCIA_AUX';
   fld_PresupuestosClienteSITUACION = 'SITUACION';
   fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE';
   fld_PresupuestosClienteNIF_CIF = 'NIF_CIF';
@@ -52,29 +53,30 @@ const
   idx_PresupuestosClienteFECHA_PRESUPUESTO = 2;
   idx_PresupuestosClienteFECHA_DECISION = 3;
   idx_PresupuestosClienteREFERENCIA = 4;
-  idx_PresupuestosClienteSITUACION = 5;
-  idx_PresupuestosClienteID_CLIENTE = 6;
-  idx_PresupuestosClienteNIF_CIF = 7;
-  idx_PresupuestosClienteNOMBRE = 8;
-  idx_PresupuestosClienteREFERENCIA_CLIENTE = 9;
-  idx_PresupuestosClienteCLIENTE_FINAL = 10;
-  idx_PresupuestosClientePORTADA = 11;
-  idx_PresupuestosClienteMEMORIA = 12;
-  idx_PresupuestosClienteOBSERVACIONES = 13;
-  idx_PresupuestosClienteINCIDENCIAS = 14;
-  idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 15;
-  idx_PresupuestosClienteFECHA_ALTA = 16;
-  idx_PresupuestosClienteFECHA_MODIFICACION = 17;
-  idx_PresupuestosClienteUSUARIO = 18;
-  idx_PresupuestosClienteIMPORTE_NETO = 19;
-  idx_PresupuestosClienteIMPORTE_PORTE = 20;
-  idx_PresupuestosClienteDESCUENTO = 21;
-  idx_PresupuestosClienteIMPORTE_DESCUENTO = 22;
-  idx_PresupuestosClienteBASE_IMPONIBLE = 23;
-  idx_PresupuestosClienteIVA = 24;
-  idx_PresupuestosClienteIMPORTE_IVA = 25;
-  idx_PresupuestosClienteIMPORTE_TOTAL = 26;
-  idx_PresupuestosClienteID_FORMA_PAGO = 27;
+  idx_PresupuestosClienteREFERENCIA_AUX = 5;
+  idx_PresupuestosClienteSITUACION = 6;
+  idx_PresupuestosClienteID_CLIENTE = 7;
+  idx_PresupuestosClienteNIF_CIF = 8;
+  idx_PresupuestosClienteNOMBRE = 9;
+  idx_PresupuestosClienteREFERENCIA_CLIENTE = 10;
+  idx_PresupuestosClienteCLIENTE_FINAL = 11;
+  idx_PresupuestosClientePORTADA = 12;
+  idx_PresupuestosClienteMEMORIA = 13;
+  idx_PresupuestosClienteOBSERVACIONES = 14;
+  idx_PresupuestosClienteINCIDENCIAS = 15;
+  idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 16;
+  idx_PresupuestosClienteFECHA_ALTA = 17;
+  idx_PresupuestosClienteFECHA_MODIFICACION = 18;
+  idx_PresupuestosClienteUSUARIO = 19;
+  idx_PresupuestosClienteIMPORTE_NETO = 20;
+  idx_PresupuestosClienteIMPORTE_PORTE = 21;
+  idx_PresupuestosClienteDESCUENTO = 22;
+  idx_PresupuestosClienteIMPORTE_DESCUENTO = 23;
+  idx_PresupuestosClienteBASE_IMPONIBLE = 24;
+  idx_PresupuestosClienteIVA = 25;
+  idx_PresupuestosClienteIMPORTE_IVA = 26;
+  idx_PresupuestosClienteIMPORTE_TOTAL = 27;
+  idx_PresupuestosClienteID_FORMA_PAGO = 28;
 
   { PresupuestosCliente_Detalles fields }
   fld_PresupuestosCliente_DetallesID = 'ID';
@@ -111,7 +113,7 @@ const
 type
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{89129FA5-5437-4FC5-A5F5-C5B6D0E115B1}']
+  ['{79249950-0D0F-48D8-8C75-C6FA49610190}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -133,6 +135,10 @@ type
     procedure SetREFERENCIAValue(const aValue: String);
     function GetREFERENCIAIsNull: Boolean;
     procedure SetREFERENCIAIsNull(const aValue: Boolean);
+    function GetREFERENCIA_AUXValue: String;
+    procedure SetREFERENCIA_AUXValue(const aValue: String);
+    function GetREFERENCIA_AUXIsNull: Boolean;
+    procedure SetREFERENCIA_AUXIsNull(const aValue: Boolean);
     function GetSITUACIONValue: String;
     procedure SetSITUACIONValue(const aValue: String);
     function GetSITUACIONIsNull: Boolean;
@@ -234,6 +240,8 @@ type
     property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property REFERENCIA_AUX: String read GetREFERENCIA_AUXValue write SetREFERENCIA_AUXValue;
+    property REFERENCIA_AUXIsNull: Boolean read GetREFERENCIA_AUXIsNull write SetREFERENCIA_AUXIsNull;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
     property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@@ -315,6 +323,10 @@ type
     procedure SetREFERENCIAValue(const aValue: String); virtual;
     function GetREFERENCIAIsNull: Boolean; virtual;
     procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_AUXValue: String; virtual;
+    procedure SetREFERENCIA_AUXValue(const aValue: String); virtual;
+    function GetREFERENCIA_AUXIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_AUXIsNull(const aValue: Boolean); virtual;
     function GetSITUACIONValue: String; virtual;
     procedure SetSITUACIONValue(const aValue: String); virtual;
     function GetSITUACIONIsNull: Boolean; virtual;
@@ -415,6 +427,8 @@ type
     property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property REFERENCIA_AUX: String read GetREFERENCIA_AUXValue write SetREFERENCIA_AUXValue;
+    property REFERENCIA_AUXIsNull: Boolean read GetREFERENCIA_AUXIsNull write SetREFERENCIA_AUXIsNull;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
     property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@@ -470,7 +484,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{5037407C-23C9-4C3D-A12B-66E966AAEB3A}']
+  ['{E028BA0A-DF1D-4E68-BAA8-5FE7F1E053F4}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -817,6 +831,27 @@ begin
     DataTable.Fields[idx_PresupuestosClienteREFERENCIA].AsVariant := Null;
 end;
 
+function TPresupuestosClienteDataTableRules.GetREFERENCIA_AUXValue: String;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_AUX].AsString;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_AUXValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PresupuestosClienteREFERENCIA_AUX].AsString := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetREFERENCIA_AUXIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_AUX].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_AUXIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosClienteREFERENCIA_AUX].AsVariant := Null;
+end;
+
 function TPresupuestosClienteDataTableRules.GetSITUACIONValue: String;
 begin
   result := DataTable.Fields[idx_PresupuestosClienteSITUACION].AsString;
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
index a18ff859..77e4fa9a 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas	
@@ -9,19 +9,20 @@ 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_PresupuestosClienteDelta = '{33FBE0A4-6909-4581-81D2-E8717839296B}';
-  RID_PresupuestosCliente_DetallesDelta = '{F84CCA1D-138D-4516-818D-EE1757D249B1}';
+  RID_PresupuestosClienteDelta = '{29052B55-642A-49D3-B556-B60088C1133B}';
+  RID_PresupuestosCliente_DetallesDelta = '{5223CE51-3EA9-4F61-BA3B-6D7B6718C52C}';
 
 type
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{33FBE0A4-6909-4581-81D2-E8717839296B}']
+  ['{29052B55-642A-49D3-B556-B60088C1133B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
     function GetOldFECHA_PRESUPUESTOValue : DateTime;
     function GetOldFECHA_DECISIONValue : DateTime;
     function GetOldREFERENCIAValue : String;
+    function GetOldREFERENCIA_AUXValue : String;
     function GetOldSITUACIONValue : String;
     function GetOldID_CLIENTEValue : Integer;
     function GetOldNIF_CIFValue : String;
@@ -52,6 +53,7 @@ type
     property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue;
     property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldREFERENCIA_AUX : String read GetOldREFERENCIA_AUXValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
     property OldNIF_CIF : String read GetOldNIF_CIFValue;
@@ -120,6 +122,12 @@ type
     function GetOldREFERENCIAIsNull: Boolean; virtual;
     procedure SetREFERENCIAValue(const aValue: String); virtual;
     procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_AUXValue: String; virtual;
+    function GetREFERENCIA_AUXIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_AUXValue: String; virtual;
+    function GetOldREFERENCIA_AUXIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_AUXValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_AUXIsNull(const aValue: Boolean); virtual;
     function GetSITUACIONValue: String; virtual;
     function GetSITUACIONIsNull: Boolean; virtual;
     function GetOldSITUACIONValue: String; virtual;
@@ -276,6 +284,10 @@ type
     property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+    property REFERENCIA_AUX : String read GetREFERENCIA_AUXValue write SetREFERENCIA_AUXValue;
+    property REFERENCIA_AUXIsNull : Boolean read GetREFERENCIA_AUXIsNull write SetREFERENCIA_AUXIsNull;
+    property OldREFERENCIA_AUX : String read GetOldREFERENCIA_AUXValue;
+    property OldREFERENCIA_AUXIsNull : Boolean read GetOldREFERENCIA_AUXIsNull;
     property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
     property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
     property OldSITUACION : String read GetOldSITUACIONValue;
@@ -377,7 +389,7 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{F84CCA1D-138D-4516-818D-EE1757D249B1}']
+  ['{5223CE51-3EA9-4F61-BA3B-6D7B6718C52C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
@@ -774,6 +786,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA] := Null;
 end;
 
+function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_AUXValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_AUX];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_AUXIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_AUX]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_AUXValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_AUX];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_AUXIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_AUX]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_AUXValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_AUX] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_AUXIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_AUX] := Null;
+end;
+
 function TPresupuestosClienteBusinessProcessorRules.GetSITUACIONValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteSITUACION];
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
index 56ec2de1..ed707d57 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm	
@@ -132,6 +132,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               item
                 DatasetField = 'ID_FORMA_PAGO'
                 TableField = 'ID_FORMA_PAGO'
+              end
+              item
+                DatasetField = 'REFERENCIA_AUX'
+                TableField = 'REFERENCIA_AUX'
               end>
           end>
         Name = 'PresupuestosCliente'
@@ -165,6 +169,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Size = 255
             DictionaryEntry = 'PresupuestosCliente_REFERENCIA'
           end
+          item
+            Name = 'REFERENCIA_AUX'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'SITUACION'
             DataType = datString
@@ -456,8 +465,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
         Params = <
           item
             Name = 'ID'
-            DataType = datAutoInc
-            GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
             Value = ''
           end
           item
@@ -476,6 +483,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'REFERENCIA'
             Value = ''
           end
+          item
+            Name = 'REFERENCIA_AUX'
+            Value = ''
+          end
           item
             Name = 'SITUACION'
             Value = ''
@@ -567,19 +578,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             TargetTable = 'PRESUPUESTOS_CLIENTE'
             SQL = 
               'INSERT'#10'  INTO PRESUPUESTOS_CLIENTE'#10'    (ID, ID_EMPRESA, FECHA_PR' +
-              'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10'     SITUACION, ID_CLIENT' +
-              'E, REFERENCIA_CLIENTE,'#10'     CLIENTE_FINAL, PORTADA, MEMORIA, OBS' +
-              'ERVACIONES, INCIDENCIAS, '#10'     INCIDENCIAS_ACTIVAS, FECHA_ALTA, ' +
-              'FECHA_MODIFICACION, '#10'     USUARIO, IMPORTE_NETO, IMPORTE_PORTE, ' +
-              'DESCUENTO, IMPORTE_DESCUENTO, '#10'     BASE_IMPONIBLE, IVA, IMPORTE' +
-              '_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO)'#10'  VALUES'#10'    (:ID, :ID_EMPRE' +
-              'SA, :FECHA_PRESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10'     :SITU' +
-              'ACION, :ID_CLIENTE, :REFERENCIA_CLIENTE,'#10'     :CLIENTE_FINAL, :P' +
-              'ORTADA, :MEMORIA, :OBSERVACIONES, '#10'     :INCIDENCIAS, :INCIDENCI' +
-              'AS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION, '#10'     :USUARIO, :I' +
-              'MPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10'     :IMPORTE_DESCUENT' +
-              'O, :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10'     :IMPORTE_TOTAL, :I' +
-              'D_FORMA_PAGO)'#10
+              'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10'     REFERENCIA_AUX, SITU' +
+              'ACION, ID_CLIENTE, REFERENCIA_CLIENTE,'#10'     CLIENTE_FINAL, PORTA' +
+              'DA, MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10'     INCIDENCIAS_ACTIV' +
+              'AS, FECHA_ALTA, FECHA_MODIFICACION, '#10'     USUARIO, IMPORTE_NETO,' +
+              ' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10'     BASE_IMPONIB' +
+              'LE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO)'#10'  VALUES'#10'   ' +
+              ' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_DECISION, :REFERE' +
+              'NCIA,'#10'     :REFERENCIA_AUX, :SITUACION, :ID_CLIENTE, :REFERENCIA' +
+              '_CLIENTE,'#10'     :CLIENTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONE' +
+              'S, '#10'     :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA' +
+              '_MODIFICACION, '#10'     :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :D' +
+              'ESCUENTO, '#10'     :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, :IMPO' +
+              'RTE_IVA, '#10'     :IMPORTE_TOTAL, :ID_FORMA_PAGO)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -609,8 +620,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
         Params = <
           item
             Name = 'ID'
-            DataType = datAutoInc
-            GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
             Value = ''
           end
           item
@@ -629,6 +638,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'REFERENCIA'
             Value = ''
           end
+          item
+            Name = 'REFERENCIA_AUX'
+            Value = ''
+          end
           item
             Name = 'SITUACION'
             Value = ''
@@ -726,18 +739,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'UPDATE PRESUPUESTOS_CLIENTE'#10'  SET '#10'    ID = :ID,'#10'    ID_EMPRESA ' +
               '= :ID_EMPRESA, '#10'    FECHA_PRESUPUESTO = :FECHA_PRESUPUESTO, '#10'   ' +
               ' FECHA_DECISION = :FECHA_DECISION, '#10'    REFERENCIA = :REFERENCIA' +
-              ', '#10'    SITUACION = :SITUACION, '#10'    ID_CLIENTE = :ID_CLIENTE, '#10' ' +
-              '   REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10'    CLIENTE_FINAL =' +
-              ' :CLIENTE_FINAL, '#10'    PORTADA = :PORTADA, '#10'    MEMORIA = :MEMORI' +
-              'A, '#10'    OBSERVACIONES = :OBSERVACIONES, '#10'    INCIDENCIAS = :INCI' +
-              'DENCIAS, '#10'    INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10'    F' +
-              'ECHA_ALTA = :FECHA_ALTA, '#10'    FECHA_MODIFICACION = :FECHA_MODIFI' +
-              'CACION, '#10'    USUARIO = :USUARIO, '#10'    IMPORTE_NETO = :IMPORTE_NE' +
-              'TO, '#10'    IMPORTE_PORTE = :IMPORTE_PORTE, '#10'    DESCUENTO = :DESCU' +
-              'ENTO, '#10'    IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10'    BASE_IMP' +
-              'ONIBLE = :BASE_IMPONIBLE, '#10'    IVA = :IVA, '#10'    IMPORTE_IVA = :I' +
-              'MPORTE_IVA, '#10'    IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10'    ID_FORMA_P' +
-              'AGO = :ID_FORMA_PAGO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
+              ', '#10'    REFERENCIA_AUX = :REFERENCIA_AUX,'#10'    SITUACION = :SITUAC' +
+              'ION, '#10'    ID_CLIENTE = :ID_CLIENTE, '#10'    REFERENCIA_CLIENTE = :R' +
+              'EFERENCIA_CLIENTE,'#10'    CLIENTE_FINAL = :CLIENTE_FINAL, '#10'    PORT' +
+              'ADA = :PORTADA, '#10'    MEMORIA = :MEMORIA, '#10'    OBSERVACIONES = :O' +
+              'BSERVACIONES, '#10'    INCIDENCIAS = :INCIDENCIAS, '#10'    INCIDENCIAS_' +
+              'ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10'    FECHA_ALTA = :FECHA_ALTA, '#10 +
+              '    FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10'    USUARIO = :US' +
+              'UARIO, '#10'    IMPORTE_NETO = :IMPORTE_NETO, '#10'    IMPORTE_PORTE = :' +
+              'IMPORTE_PORTE, '#10'    DESCUENTO = :DESCUENTO, '#10'    IMPORTE_DESCUEN' +
+              'TO = :IMPORTE_DESCUENTO, '#10'    BASE_IMPONIBLE = :BASE_IMPONIBLE, ' +
+              #10'    IVA = :IVA, '#10'    IMPORTE_IVA = :IMPORTE_IVA, '#10'    IMPORTE_T' +
+              'OTAL = :IMPORTE_TOTAL, '#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO'#10'  WHE' +
+              'RE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
index 262cc08d..f6d57c38 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm	
@@ -147,7 +147,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   inherited pgPaginas: TPageControl
     Width = 743
     Height = 414
-    ActivePage = pagContenido
     TabOrder = 1
     OnChange = pgPaginasChange
     ExplicitWidth = 743
@@ -161,10 +160,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
         Left = 0
         Top = 0
@@ -185,104 +180,107 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         ExplicitHeight = 386
         inherited ToolBar1: TToolBar
           Width = 735
-          Height = 78
+          Height = 51
           ExplicitWidth = 735
-          ExplicitHeight = 78
-          inherited ToolButton4: TToolButton [1]
-            Left = 109
-            Top = 0
-            ExplicitLeft = 109
-            ExplicitTop = 0
-          end
-          inherited ToolButton14: TToolButton [2]
-            Left = 165
-            Top = 0
-            ExplicitLeft = 165
-          end
-          inherited FontName: TJvFontComboBox [3]
-            Left = 230
-            Top = 0
-            ExplicitLeft = 230
-            ExplicitTop = 0
-          end
-          inherited FontSize: TEdit [4]
-            Left = 375
-            Top = 0
-            ExplicitLeft = 375
-            ExplicitTop = 0
-          end
-          inherited UpDown1: TUpDown [5]
-            Left = 417
-            Top = 0
-            ExplicitLeft = 417
-            ExplicitTop = 0
-          end
-          inherited ToolButton13: TToolButton [6]
-          end
-          inherited ToolButton2: TToolButton [7]
-          end
-          inherited ToolButton6: TToolButton [8]
-            Left = 114
-            Top = 27
+          ExplicitHeight = 51
+          inherited ToolButton3: TToolButton
             Wrap = False
-            ExplicitLeft = 114
-            ExplicitTop = 27
           end
-          inherited ToolButton7: TToolButton [9]
-            Left = 180
-            Top = 27
-            Wrap = False
-            ExplicitLeft = 180
-            ExplicitTop = 27
+          inherited ToolButton4: TToolButton
+            Left = 278
+            Top = 0
+            ExplicitLeft = 278
+            ExplicitTop = 0
           end
-          inherited ToolButton8: TToolButton [10]
-            Left = 247
-            Top = 27
-            ExplicitLeft = 247
-            ExplicitTop = 27
+          inherited ToolButton14: TToolButton [4]
+            Left = 334
+            Top = 0
+            ExplicitLeft = 334
+            ExplicitTop = 0
           end
-          inherited ToolButton12: TToolButton [11]
+          inherited FontName: TJvFontComboBox [5]
+            Left = 399
+            Top = 0
+            ExplicitLeft = 399
+            ExplicitTop = 0
+          end
+          inherited FontSize: TEdit
+            Left = 544
+            Top = 0
+            Width = 57
+            ExplicitLeft = 544
+            ExplicitTop = 0
+            ExplicitWidth = 57
+          end
+          inherited ToolButton13: TToolButton [7]
             Left = 0
-            Top = 27
+            Top = 0
             Wrap = True
             ExplicitLeft = 0
-            ExplicitTop = 27
+            ExplicitTop = 0
             ExplicitHeight = 27
           end
-          inherited ToolButton9: TToolButton [12]
+          inherited UpDown1: TUpDown [8]
             Left = 0
-            Top = 54
+            Top = 27
             ExplicitLeft = 0
-            ExplicitTop = 54
+            ExplicitTop = 27
           end
-          inherited ToolButton10: TToolButton [13]
-            Left = 145
-            Top = 54
-            ExplicitLeft = 145
-            ExplicitTop = 54
+          inherited ToolButton6: TToolButton [9]
+            Left = 17
+            Top = 27
+            ExplicitLeft = 17
+            ExplicitTop = 27
           end
-          inherited ToolButton3: TToolButton [14]
-            Left = 270
-            Top = 54
-            ExplicitLeft = 270
+          inherited ToolButton7: TToolButton [10]
+            Left = 83
+            Top = 27
+            ExplicitLeft = 83
+            ExplicitTop = 27
+          end
+          inherited ToolButton8: TToolButton [11]
+            Left = 150
+            Top = 27
+            ExplicitLeft = 150
+            ExplicitTop = 27
+          end
+          inherited ToolButton12: TToolButton [12]
+            Left = 233
+            Top = 27
+            Wrap = False
+            ExplicitLeft = 233
+            ExplicitTop = 27
+            ExplicitHeight = 22
+          end
+          inherited ToolButton9: TToolButton [13]
+            Left = 241
+            Top = 27
+            ExplicitLeft = 241
+            ExplicitTop = 27
+          end
+          inherited ToolButton10: TToolButton [14]
+            Left = 386
+            Top = 27
+            ExplicitLeft = 386
+            ExplicitTop = 27
           end
           inherited ToolButton11: TToolButton [15]
-            Left = 325
-            Top = 54
-            ExplicitLeft = 325
-            ExplicitTop = 54
+            Left = 511
+            Top = 27
+            ExplicitLeft = 511
+            ExplicitTop = 27
           end
         end
         inherited cxGrid: TcxGrid
-          Top = 104
+          Top = 77
           Width = 735
-          Height = 282
+          Height = 309
           ExplicitTop = 77
           ExplicitWidth = 735
           ExplicitHeight = 309
         end
         inherited TBXDock1: TTBXDock
-          Top = 78
+          Top = 51
           Width = 735
           ExplicitTop = 51
           ExplicitWidth = 735
@@ -295,10 +293,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagPortada: TTabSheet
       Caption = 'Portada'
       ImageIndex = 3
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       object Panel1: TPanel
         Left = 0
         Top = 0
@@ -430,10 +424,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagMemoria: TTabSheet
       Caption = 'Memoria'
       ImageIndex = 4
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       object Panel2: TPanel
         Left = 0
         Top = 0
@@ -736,10 +726,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
index 066ea228..b24ce273 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm	
@@ -37,7 +37,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 2
+      TabOrder = 3
       Width = 119
     end
     object memObservaciones: TcxDBMemo
@@ -58,7 +58,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 9
+      TabOrder = 10
       Height = 253
       Width = 186
     end
@@ -69,7 +69,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       DataBinding.DataField = 'REFERENCIA'
       DataBinding.DataSource = DADataSource
       Enabled = False
-      Properties.ReadOnly = False
+      Properties.ReadOnly = True
       Properties.ValidateOnEnter = True
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
@@ -86,10 +86,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 0
-      Width = 143
+      Width = 122
     end
     inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente
-      Left = 393
+      Left = 403
       Top = 28
       Width = 350
       Height = 212
@@ -99,9 +99,9 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 8
+      TabOrder = 9
       ReadOnly = False
-      ExplicitLeft = 393
+      ExplicitLeft = 403
       ExplicitTop = 28
       inherited dxLayoutControl1: TdxLayoutControl
         inherited edtlNombre: TcxDBTextEdit
@@ -125,12 +125,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           Width = 327
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 259
-          ExplicitLeft = 259
+          Left = 249
+          ExplicitLeft = 249
         end
         inherited Button3: TBitBtn
-          Left = 149
-          ExplicitLeft = 149
+          Left = 139
+          ExplicitLeft = 139
         end
       end
       inherited DADataSource: TDADataSource
@@ -170,16 +170,16 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 6
+      TabOrder = 7
       Width = 101
     end
     object bFormasPago: TButton
-      Left = 231
+      Left = 241
       Top = 190
       Width = 132
       Height = 21
       Caption = 'Ver las formas de pago...'
-      TabOrder = 7
+      TabOrder = 8
       OnClick = bFormasPagoClick
     end
     object edtFechaDecision: TcxDBDateEdit
@@ -201,7 +201,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 3
+      TabOrder = 4
       Width = 216
     end
     object eRefCliente: TcxDBTextEdit
@@ -226,7 +226,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 1
+      TabOrder = 2
       Width = 216
     end
     object edtClienteFinal: TcxDBTextEdit
@@ -251,7 +251,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 5
+      TabOrder = 6
       Width = 227
     end
     object cbSituacion: TcxDBImageComboBox
@@ -278,9 +278,34 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 4
+      TabOrder = 5
       Width = 121
     end
+    object eReferenciaAux: TcxDBTextEdit
+      Left = 245
+      Top = 28
+      Anchors = [akLeft, akTop, akRight]
+      DataBinding.DataField = 'REFERENCIA_AUX'
+      DataBinding.DataSource = DADataSource
+      Properties.ReadOnly = False
+      Properties.ValidateOnEnter = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clWindow
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.Color = clMenuBar
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 1
+      Width = 132
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -294,10 +319,24 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           AutoAligns = []
           AlignHorz = ahClient
           Caption = 'Datos del presupuesto'
-          object dxLayoutControl1Item3: TdxLayoutItem
-            Caption = 'Referencia:'
-            Control = eReferencia
-            ControlOptions.ShowBorder = False
+          object dxLayoutControl1Group3: TdxLayoutGroup
+            ShowCaption = False
+            Hidden = True
+            LayoutDirection = ldHorizontal
+            ShowBorder = False
+            object dxLayoutControl1Item3: TdxLayoutItem
+              AutoAligns = [aaVertical]
+              AlignHorz = ahClient
+              Caption = 'Referencia:'
+              Control = eReferencia
+              ControlOptions.ShowBorder = False
+            end
+            object dxLayoutControl1Item9: TdxLayoutItem
+              AutoAligns = [aaVertical]
+              AlignHorz = ahClient
+              Control = eReferenciaAux
+              ControlOptions.ShowBorder = False
+            end
           end
           object dxLayoutControl1Item15: TdxLayoutItem
             Caption = 'Ref. cliente:'
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
index 47e9ba76..32055663 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas	
@@ -58,6 +58,9 @@ type
     edtClienteFinal: TcxDBTextEdit;
     cbSituacion: TcxDBImageComboBox;
     dxLayoutControl1Item10: TdxLayoutItem;
+    dxLayoutControl1Item9: TdxLayoutItem;
+    eReferenciaAux: TcxDBTextEdit;
+    dxLayoutControl1Group3: TdxLayoutGroup;
     procedure CustomViewCreate(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure actElegirDireccionExecute(Sender: TObject);