diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index e197a3f3..426db58c 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,34 +44,6 @@
     <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>
@@ -87,7 +59,54 @@
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="adortl.dcp" />
+    <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>
@@ -102,47 +121,7 @@
     </DCCReference>
     <DCCReference Include="Controladores\uControllerBase.pas" />
     <DCCReference Include="Controladores\uControllerDetallesBase.pas" />
-    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="cxExtEditorsD11.dcp" />
-    <DCCReference Include="cxGridD11.dcp" />
-    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="cxPageControlD11.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="dclIndyCore.dcp" />
-    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxPSCoreD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="GUISDK_D11R.dcp" />
-    <DCCReference Include="IndyCore.dcp" />
-    <DCCReference Include="IndyProtocols.dcp" />
-    <DCCReference Include="IndySystem.dcp" />
-    <DCCReference Include="Jcl.dcp" />
-    <DCCReference Include="JclVcl.dcp" />
-    <DCCReference Include="JSDialog100.dcp" />
-    <DCCReference Include="JvCmpD11R.dcp" />
-    <DCCReference Include="JvCoreD11R.dcp" />
-    <DCCReference Include="JvCtrlsD11R.dcp" />
-    <DCCReference Include="JvDlgsD11R.dcp" />
-    <DCCReference Include="JvMMD11R.dcp" />
-    <DCCReference Include="JvNetD11R.dcp" />
-    <DCCReference Include="JvPageCompsD11R.dcp" />
-    <DCCReference Include="JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="JvSystemD11R.dcp" />
-    <DCCReference Include="pckMD5.dcp" />
-    <DCCReference Include="pckUCDataConnector.dcp" />
-    <DCCReference Include="pckUserControl_RT.dcp" />
-    <DCCReference Include="PluginSDK_D11R.dcp" />
-    <DCCReference Include="PngComponentsD10.dcp" />
-    <DCCReference Include="PNG_D10.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="schBase_Intf.pas" />
-    <DCCReference Include="TB2k_D10.dcp" />
-    <DCCReference Include="tbx_d10.dcp" />
     <DCCReference Include="uDataModuleBase.pas">
       <Form>DataModuleBase</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -171,13 +150,6 @@
     <DCCReference Include="Utiles\uPasswordUtils.pas" />
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
     <DCCReference Include="Utiles\uStringsUtils.pas" />
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclactnband.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vcljpg.dcp" />
-    <DCCReference Include="VclSmp.dcp" />
-    <DCCReference Include="vclx.dcp" />
-    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index cf043357..f44e3be7 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,34 +58,34 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\Base.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\ccpackD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\tb2k_d10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.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\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.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\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\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 1641339f..8b251f31 100644
Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ
diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3
index 57c68841..b022753c 100644
--- a/Source/Informes/InfPresupuestoCliente.fr3
+++ b/Source/Informes/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40116,7092601505" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));                                 &#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;&#13;&#10;&#13;&#10;//  Memo11.lines.add(&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;);  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo11.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end&#13;&#10;}        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;{    &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;  ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;  AIndice := Pos(',', ACantidad);&#13;&#10;  if AIndice &#62; 0 then                                           &#13;&#10;     AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)]&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)];  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin&#13;&#10;  ATexto := '';                                                       &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;     or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') or&#13;&#10;     (&#60;frxDBCabecera.&#34;MOVIL_1&#34;&#62; &#60;&#62; '') then                                   &#13;&#10;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' / ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;MOVIL_1&#34;&#62;;                                                                          &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;&#13;&#10;&#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := ' NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;  &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'Cód. cliente: ' + &#60;frxDBCabecera.&#34;REF_CLIENTE&#34;&#62;;  &#13;&#10;  DatosCliente.Lines.Add(ATexto);&#13;&#10;      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AF' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AI' )&#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'B' ) then&#13;&#10;  begin&#13;&#10;    Header1.Visible := False;                                                        &#13;&#10;    DetailData1.Visible := False;                                                                  &#13;&#10;    DetailData2.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Header1.Visible := True;                                                          &#13;&#10;    DetailData1.Visible := True;                                                                  &#13;&#10;    DetailData2.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo29OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;BASE_IMPONIBLE&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;      Memo29.visible := True;&#13;&#10;      if (&#60;frxDBCabecera.&#34;RE&#34;&#62; &#62; 0) then&#13;&#10;      begin&#13;&#10;        Memo30.visible := True;  &#13;&#10;      end&#13;&#10;      else&#13;&#10;      begin&#13;&#10;        Memo30.visible := False;        &#13;&#10;        Shape10.Top := Shape9.Top;&#13;&#10;        Memo26.Top := Memo30.Top;&#13;&#10;        Memo25.Top := Memo31.Top;&#13;&#10;        Line8.height := Line8.height - Shape10.height;                                                                                    &#13;&#10;      end&#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo29.visible := False;&#13;&#10;      Shape10.Top := Shape8.Top;&#13;&#10;      Memo26.Top := Memo29.Top;&#13;&#10;      Memo25.Top := Memo33.Top;&#13;&#10;      Line8.height := Line8.height - Shape10.height;&#13;&#10;      //Si IVA es 0 RE tambien&#13;&#10;      Memo30.Visible := False;&#13;&#10;      Shape9.Visible := False;        &#13;&#10;    end;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;     Shape7.Visible := False;                  &#13;&#10;     Shape8.Visible := False;  &#13;&#10;     Shape9.Visible := False;  &#13;&#10;     Shape10.Visible := False;&#13;&#10;     Memo25.Visible := False;&#13;&#10;     Memo26.Visible := False;&#13;&#10;     Memo29.Visible := False;&#13;&#10;     Memo30.Visible := False;&#13;&#10;     Memo31.Visible := False;&#13;&#10;     Memo32.Visible := False;&#13;&#10;     Memo33.Visible := False;&#13;&#10;     Line8.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo38.Visible := False;&#13;&#10;    Memo27.Visible := False;                                                              &#13;&#10;  end;              &#13;&#10;  &#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo40.Visible := False;&#13;&#10;    Memo37.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;PLAZO_ENTREGA&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo39.Visible := False;&#13;&#10;    Memo28.Visible := False;&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) &#60;&#62; 0) then&#13;&#10;       Memo37.Height := Memo37.Height + (Memo39.Height + Memo28.Height);                                                                        &#13;&#10;  end;              &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if ((sum(&#60;frxDBDetalles.&#34;IMPORTE_TOTAL&#34;&#62;, DetailData1) = 0)&#13;&#10;  and (sum(&#60;frxDBDetalles.&#34;IMPORTE_TOTAL&#34;&#62;, DetailData2) = 0))  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc') then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 5;&#13;&#10;    Memo13.Visible := False;&#13;&#10;    Memo20.Visible := False;  &#13;&#10;    Memo21.Visible := False;  &#13;&#10;    Memo11.Visible := False;&#13;&#10;    Memo24.Visible := False;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 40;&#13;&#10;    Memo13.Visible := True;  &#13;&#10;    Memo20.Visible := True;&#13;&#10;    Memo21.Visible := True;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;IMPORTE_DESCUENTO&#34;&#62; = 0) then&#13;&#10;    begin&#13;&#10;      Footer1.Height := 24;    &#13;&#10;      Memo11.Visible := False;&#13;&#10;      Memo24.Visible := False;       &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo34OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F220000055374796C650100">
+<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40121,7260277315" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));                                 &#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;&#13;&#10;&#13;&#10;//  Memo11.lines.add(&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;);  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo11.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end&#13;&#10;}        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;{    &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;  ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;  AIndice := Pos(',', ACantidad);&#13;&#10;  if AIndice &#62; 0 then                                           &#13;&#10;     AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)]&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)];  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin&#13;&#10;  ATexto := '';                                                       &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;     or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  ATexto := '';    &#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') or&#13;&#10;     (&#60;frxDBCabecera.&#34;MOVIL_1&#34;&#62; &#60;&#62; '') then                                   &#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then                          &#13;&#10;        ATexto := 'Tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;MOVIL_1&#34;&#62; &#60;&#62; '') then&#13;&#10;     begin                 &#13;&#10;       if ATexto &#60;&#62; '' then&#13;&#10;          ATexto := ATexto + ' / ';&#13;&#10;       ATexto := ATexto + 'Móvil: ';            &#13;&#10;       ATexto := ATexto + &#60;frxDBCabecera.&#34;MOVIL_1&#34;&#62;;&#13;&#10;     end;                        &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;&#13;&#10;&#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := ' NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;  &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'Cód. cliente: ' + &#60;frxDBCabecera.&#34;REF_CLIENTE&#34;&#62;;  &#13;&#10;  DatosCliente.Lines.Add(ATexto);&#13;&#10;      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AF' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AI' )&#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'B' ) then&#13;&#10;  begin&#13;&#10;    Header1.Visible := False;                                                        &#13;&#10;    DetailData1.Visible := False;                                                                  &#13;&#10;    DetailData2.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Header1.Visible := True;                                                          &#13;&#10;    DetailData1.Visible := True;                                                                  &#13;&#10;    DetailData2.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo29OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;BASE_IMPONIBLE&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;      Memo29.visible := True;&#13;&#10;      if (&#60;frxDBCabecera.&#34;RE&#34;&#62; &#62; 0) then&#13;&#10;      begin&#13;&#10;        Memo30.visible := True;  &#13;&#10;      end&#13;&#10;      else&#13;&#10;      begin&#13;&#10;        Memo30.visible := False;        &#13;&#10;        Shape10.Top := Shape9.Top;&#13;&#10;        Memo26.Top := Memo30.Top;&#13;&#10;        Memo25.Top := Memo31.Top;&#13;&#10;        Line8.height := Line8.height - Shape10.height;                                                                                    &#13;&#10;      end&#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo29.visible := False;&#13;&#10;      Shape10.Top := Shape8.Top;&#13;&#10;      Memo26.Top := Memo29.Top;&#13;&#10;      Memo25.Top := Memo33.Top;&#13;&#10;      Line8.height := Line8.height - Shape10.height;&#13;&#10;      //Si IVA es 0 RE tambien&#13;&#10;      Memo30.Visible := False;&#13;&#10;      Shape9.Visible := False;        &#13;&#10;    end;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;     Shape7.Visible := False;                  &#13;&#10;     Shape8.Visible := False;  &#13;&#10;     Shape9.Visible := False;  &#13;&#10;     Shape10.Visible := False;&#13;&#10;     Memo25.Visible := False;&#13;&#10;     Memo26.Visible := False;&#13;&#10;     Memo29.Visible := False;&#13;&#10;     Memo30.Visible := False;&#13;&#10;     Memo31.Visible := False;&#13;&#10;     Memo32.Visible := False;&#13;&#10;     Memo33.Visible := False;&#13;&#10;     Line8.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo38.Visible := False;&#13;&#10;    Memo27.Visible := False;                                                              &#13;&#10;  end;              &#13;&#10;  &#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo40.Visible := False;&#13;&#10;    Memo37.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;PLAZO_ENTREGA&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo39.Visible := False;&#13;&#10;    Memo28.Visible := False;&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) &#60;&#62; 0) then&#13;&#10;       Memo37.Height := Memo37.Height + (Memo39.Height + Memo28.Height);                                                                        &#13;&#10;  end;              &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if ((sum(&#60;frxDBDetalles.&#34;IMPORTE_TOTAL&#34;&#62;, DetailData1) = 0)&#13;&#10;  and (sum(&#60;frxDBDetalles.&#34;IMPORTE_TOTAL&#34;&#62;, DetailData2) = 0))  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc') then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 5;&#13;&#10;    Memo13.Visible := False;&#13;&#10;    Memo20.Visible := False;  &#13;&#10;    Memo21.Visible := False;  &#13;&#10;    Memo11.Visible := False;&#13;&#10;    Memo24.Visible := False;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 40;&#13;&#10;    Memo13.Visible := True;  &#13;&#10;    Memo20.Visible := True;&#13;&#10;    Memo21.Visible := True;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;IMPORTE_DESCUENTO&#34;&#62; = 0) then&#13;&#10;    begin&#13;&#10;      Footer1.Height := 24;    &#13;&#10;      Memo11.Visible := False;&#13;&#10;      Memo24.Visible := False;       &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo34OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page3" Font.Charset="1" Font.Color="13056" Font.Height="-13" Font.Name="Arial" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="PageHeader2" Height="245,99227" Left="0" Top="16" Width="718,101251175" OnBeforePrint="PageHeader1OnBeforePrint">
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
index 3426befd..8b751eb6 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj	
+++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj	
@@ -49,29 +49,29 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\adortl.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\Articulos_view.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\Base.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dsnap.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxComnD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\GUIBase.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\PresupuestosCliente_model.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\rtl.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\vcl.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\vcldb.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.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\cxLibraryD11.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\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PreCli_ConCli_relation.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.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\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
     <DCCReference Include="uEditorAsignarDescuento.pas">
       <Form>fEditorAsignarDescuento</Form>
     </DCCReference>
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res
index 1641339f..8b251f31 100644
Binary files a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res and b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res differ
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
index 4f831a7e..f7bfc59e 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm	
@@ -237,57 +237,57 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
             ExplicitWidth = 58
           end
           inherited UpDown1: TUpDown
-            Left = 587
+            Left = 571
             Top = 0
-            ExplicitLeft = 587
+            ExplicitLeft = 571
             ExplicitTop = 0
           end
           inherited ToolButton13: TToolButton
-            Left = 604
+            Left = 588
             Top = 0
-            ExplicitLeft = 604
+            ExplicitLeft = 588
             ExplicitTop = 0
           end
           inherited ToolButton6: TToolButton
-            Left = 612
+            Left = 596
             Top = 0
-            ExplicitLeft = 612
+            ExplicitLeft = 596
             ExplicitTop = 0
           end
           inherited ToolButton7: TToolButton
-            Left = 646
+            Left = 630
             Top = 0
-            ExplicitLeft = 646
+            ExplicitLeft = 630
             ExplicitTop = 0
           end
           inherited ToolButton8: TToolButton
-            Left = 680
+            Left = 664
             Top = 0
-            ExplicitLeft = 680
+            ExplicitLeft = 664
             ExplicitTop = 0
           end
           inherited ToolButton12: TToolButton
-            Left = 714
+            Left = 698
             Top = 0
-            ExplicitLeft = 714
+            ExplicitLeft = 698
             ExplicitTop = 0
           end
           inherited ToolButton9: TToolButton
-            Left = 722
+            Left = 706
             Top = 0
-            ExplicitLeft = 722
+            ExplicitLeft = 706
             ExplicitTop = 0
           end
           inherited ToolButton10: TToolButton
-            Left = 756
+            Left = 740
             Top = 0
-            ExplicitLeft = 756
+            ExplicitLeft = 740
             ExplicitTop = 0
           end
           inherited ToolButton11: TToolButton
-            Left = 790
+            Left = 774
             Top = 0
-            ExplicitLeft = 790
+            ExplicitLeft = 774
             ExplicitTop = 0
           end
         end
@@ -348,10 +348,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
           ExplicitWidth = 834
           ExplicitHeight = 295
           inherited eIncidencias: TcxDBMemo
-            ExplicitWidth = 811
-            ExplicitHeight = 292
-            Height = 292
-            Width = 811
+            ExplicitWidth = 830
+            ExplicitHeight = 278
+            Height = 278
+            Width = 830
           end
         end
       end
@@ -422,9 +422,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       ExplicitWidth = 848
       inherited Bevel3: TBevel
         Left = 417
-        Height = 122
         ExplicitLeft = 417
-        ExplicitHeight = 122
       end
       inherited Bevel4: TBevel
         Left = 529
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.dfm
index d1f82151..bd1b6938 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.dfm	
@@ -1,13 +1,13 @@
 inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionClientePresupuesto
-  Width = 539
-  Height = 200
-  ExplicitWidth = 539
-  ExplicitHeight = 200
+  Width = 439
+  Height = 226
+  ExplicitWidth = 439
+  ExplicitHeight = 226
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 539
-    Height = 200
+    Width = 439
+    Height = 226
     Margins.Left = 0
     Margins.Top = 0
     Margins.Right = 0
@@ -18,16 +18,15 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     DesignSize = (
-      539
-      200)
+      439
+      226)
     object edtlNombre: TcxDBTextEdit
-      Left = 63
+      Left = 71
       Top = 41
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'NOMBRE'
       DataBinding.DataSource = dsCliente
-      Enabled = False
       ParentFont = False
       Properties.ReadOnly = True
       Properties.UseLeftAlignmentOnEditing = False
@@ -48,13 +47,12 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
       Width = 224
     end
     object edtNIFCIF: TcxDBTextEdit
-      Left = 426
+      Left = 326
       Top = 41
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'NIF_CIF'
       DataBinding.DataSource = dsCliente
-      Enabled = False
       ParentFont = False
       Properties.ReadOnly = True
       Properties.UseLeftAlignmentOnEditing = False
@@ -163,13 +161,13 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
         FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
     end
     object Button3: TBitBtn
-      Left = 337
-      Top = 158
+      Left = 237
+      Top = 185
       Width = 192
       Height = 25
       Action = actVerContacto
       Caption = 'Ver ficha completa del cliente...'
-      TabOrder = 8
+      TabOrder = 10
       Glyph.Data = {
         36040000424D3604000000000000360000002800000010000000100000000100
         2000000000000004000000000000000000000000000000000000FF00FF00FF00
@@ -207,8 +205,8 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
         FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
     end
     object edtPersonaContacto: TcxDBTextEdit
-      Left = 63
-      Top = 129
+      Left = 71
+      Top = 156
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'PERSONA_CONTACTO'
@@ -226,12 +224,77 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 6
+      TabOrder = 8
       Height = 21
       Width = 283
     end
     object edtDireccion: TcxMemo
-      Left = 63
+      Left = 71
+      Top = 95
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 6
+      Height = 53
+      Width = 437
+    end
+    object Button4: TButton
+      Left = 406
+      Top = 95
+      Width = 23
+      Height = 25
+      Action = actElegirDireccion
+      TabOrder = 7
+    end
+    object Button5: TButton
+      Left = 406
+      Top = 154
+      Width = 23
+      Height = 25
+      Action = actElegirPersonaContacto
+      TabOrder = 9
+    end
+    object edtReferencia: TcxDBTextEdit
+      Left = 71
+      Top = 68
+      Anchors = [akLeft, akTop, akRight]
+      AutoSize = False
+      DataBinding.DataField = 'REFERENCIA'
+      DataBinding.DataSource = dsCliente
+      ParentFont = False
+      Properties.ReadOnly = True
+      Properties.UseLeftAlignmentOnEditing = False
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 4
+      Height = 21
+      Width = 103
+    end
+    object edtTelefonos: TcxTextEdit
+      Left = 236
       Top = 68
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
@@ -249,25 +312,8 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 4
-      Height = 53
-      Width = 437
-    end
-    object Button4: TButton
-      Left = 506
-      Top = 68
-      Width = 23
-      Height = 25
-      Action = actElegirDireccion
       TabOrder = 5
-    end
-    object Button5: TButton
-      Left = 506
-      Top = 127
-      Width = 23
-      Height = 25
-      Action = actElegirPersonaContacto
-      TabOrder = 7
+      Width = 363
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
@@ -295,7 +341,7 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
         ShowCaption = False
         Hidden = True
         ShowBorder = False
-        object dxLayoutControl1Group4: TdxLayoutGroup
+        object dxLayoutControl1Group7: TdxLayoutGroup
           ShowCaption = False
           Hidden = True
           LayoutDirection = ldHorizontal
@@ -309,12 +355,29 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
           end
           object dxLayoutControl1Item2: TdxLayoutItem
             AutoAligns = [aaVertical]
-            AlignHorz = ahRight
             Caption = 'NIF/CIF:'
             Control = edtNIFCIF
             ControlOptions.ShowBorder = False
           end
         end
+        object dxLayoutControl1Group4: TdxLayoutGroup
+          ShowCaption = False
+          Hidden = True
+          LayoutDirection = ldHorizontal
+          ShowBorder = False
+          object dxLayoutControl1Item10: TdxLayoutItem
+            Caption = 'Referencia:'
+            Control = edtReferencia
+            ControlOptions.ShowBorder = False
+          end
+          object dxLayoutControl1Item11: TdxLayoutItem
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Tel'#233'fonos:'
+            Control = edtTelefonos
+            ControlOptions.ShowBorder = False
+          end
+        end
         object dxLayoutControl1Group3: TdxLayoutGroup
           ShowCaption = False
           Hidden = True
@@ -371,13 +434,13 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
     end
   end
   object dsCliente: TDADataSource
-    Left = 400
-    Top = 8
+    Left = 112
+    Top = 187
   end
   object ActionList1: TActionList
     Images = PngImageList
-    Left = 368
-    Top = 8
+    Left = 80
+    Top = 187
     object actElegirContacto: TAction
       Caption = 'Elegir un cliente'
       ImageIndex = 1
@@ -484,12 +547,12 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
         Name = 'PngImage2'
         Background = clWindow
       end>
-    Left = 304
-    Top = 8
+    Left = 16
+    Top = 187
     Bitmap = {}
   end
   object dsPresupuesto: TDADataSource
-    Left = 336
-    Top = 8
+    Left = 48
+    Top = 187
   end
 end
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas
index f58ffd40..9edaa183 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas	
@@ -39,6 +39,7 @@ type
     procedure VerFichaCliente;
     procedure AnadirNuevoCliente;
     procedure RefrescarDireccion;
+    procedure RefrescarTelefonos;
   end;
 
   TfrViewDatosYSeleccionClientePresupuesto = class(TfrViewBase, IViewDatosYSeleccionClientePresupuesto)
@@ -67,7 +68,6 @@ type
     actElegirPersonaContacto: TAction;
     dxLayoutControl1Item3: TdxLayoutItem;
     edtPersonaContacto: TcxDBTextEdit;
-    dxLayoutControl1Group4: TdxLayoutGroup;
     dxLayoutControl1Item4: TdxLayoutItem;
     edtDireccion: TcxMemo;
     Button4: TButton;
@@ -76,6 +76,12 @@ type
     dxLayoutControl1Item6: TdxLayoutItem;
     Button5: TButton;
     dxLayoutControl1Group5: TdxLayoutGroup;
+    dxLayoutControl1Item10: TdxLayoutItem;
+    edtReferencia: TcxDBTextEdit;
+    dxLayoutControl1Group4: TdxLayoutGroup;
+    dxLayoutControl1Item11: TdxLayoutItem;
+    edtTelefonos: TcxTextEdit;
+    dxLayoutControl1Group7: TdxLayoutGroup;
     procedure actElegirContactoExecute(Sender: TObject);
     procedure actAnadirContactoExecute(Sender: TObject);
     procedure actVerContactoUpdate(Sender: TObject);
@@ -108,6 +114,7 @@ type
     function GetPresupuesto: IBizPresupuestoCliente;
     procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
     procedure EscribirTextoDireccion;
+    procedure EscribirTextoTelefonos;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -117,6 +124,7 @@ type
     procedure VerFichaCliente;
     procedure AnadirNuevoCliente;
     procedure RefrescarDireccion;
+    procedure RefrescarTelefonos;
     property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
     property Cliente: IBizCliente read GetCliente write SetCliente;
     property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged;
@@ -203,8 +211,10 @@ begin
   FDireccionesController := TDireccionesContactoController.Create;
 
   edtlNombre.Enabled := False;
+  edtReferencia.Enabled := False;
   edtNIFCIF.Enabled := False;
   edtDireccion.Enabled := False;
+  edtTelefonos.Enabled := False;
   edtPersonaContacto.Enabled := False;
   
   Button5.Visible := False;
@@ -299,6 +309,25 @@ begin
   edtDireccion.Text := ACadena;
 end;
 
+procedure TfrViewDatosYSeleccionClientePresupuesto.EscribirTextoTelefonos;
+var
+  ACadena : String;
+begin
+  ACadena := '';
+
+  if not FCliente.TELEFONO_1IsNull then
+    ACadena := FCliente.TELEFONO_1;
+
+  if not FCliente.MOVIL_1IsNull then
+  begin
+    if ACadena <> '' then
+      ACadena := ACadena + ' / ';
+    ACadena := ACadena + FCliente.MOVIL_1;
+  end;
+
+  edtTelefonos.Text := ACadena;
+end;
+
 function TfrViewDatosYSeleccionClientePresupuesto.GetCliente: IBizCliente;
 begin
   Result := FCliente;
@@ -321,6 +350,8 @@ begin
     if not FCliente.DataTable.Active then
       FCliente.DataTable.Active := True;
 
+    RefrescarTelefonos;
+          
     //Solo podremos establecer persona de contacto si se ha asignado un cliente
     if FCliente.ID > 0 then
        edtPersonaContacto.Enabled := True;
@@ -372,6 +403,11 @@ begin
   EscribirTextoDireccion;
 end;
 
+procedure TfrViewDatosYSeleccionClientePresupuesto.RefrescarTelefonos;
+begin
+  EscribirTextoTelefonos;
+end;
+
 procedure TfrViewDatosYSeleccionClientePresupuesto.SetOnClienteChanged(
   const Value: TNotifyEvent);
 begin
@@ -396,6 +432,7 @@ begin
     if FCliente.ID > 0 then
        edtPersonaContacto.Enabled := True;
 
+    RefrescarTelefonos;
     RefrescarDireccion;
   end
   else begin
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
index 47597b7f..96664490 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm	
@@ -1,23 +1,25 @@
 inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
-  Width = 1019
-  Height = 392
+  Width = 694
+  Height = 522
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
-  ExplicitWidth = 1019
-  ExplicitHeight = 392
+  ExplicitWidth = 694
+  ExplicitHeight = 522
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 1019
-    Height = 392
+    Width = 694
+    Height = 522
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
+    ExplicitWidth = 1019
+    ExplicitHeight = 392
     DesignSize = (
-      1019
-      392)
+      694
+      522)
     object edtFechaPresupuesto: TcxDBDateEdit
       Left = 123
       Top = 55
@@ -46,8 +48,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 260
     end
     object memObservaciones: TcxDBMemo
-      Left = 490
-      Top = 259
+      Left = 352
+      Top = 288
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'OBSERVACIONES'
       DataBinding.DataSource = DADataSource
@@ -135,7 +137,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 122
     end
     object bFormasPago: TButton
-      Left = 328
+      Left = 190
       Top = 163
       Width = 132
       Height = 21
@@ -234,10 +236,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 260
     end
     inline frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
-      Left = 490
+      Left = 352
       Top = 28
-      Width = 507
-      Height = 195
+      Width = 320
+      Height = 224
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
       Font.Height = -11
@@ -246,14 +248,14 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       ParentFont = False
       TabOrder = 10
       ReadOnly = False
-      ExplicitLeft = 490
+      ExplicitLeft = 352
       ExplicitTop = 28
-      ExplicitWidth = 507
-      ExplicitHeight = 195
+      ExplicitWidth = 320
+      ExplicitHeight = 224
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 507
-        Height = 195
-        ExplicitWidth = 507
+        Width = 320
+        Height = 224
+        ExplicitWidth = 277
         ExplicitHeight = 195
         inherited edtlNombre: TcxDBTextEdit
           Style.LookAndFeel.SkinName = ''
@@ -264,16 +266,16 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           Width = 224
         end
         inherited edtNIFCIF: TcxDBTextEdit
-          Left = 394
+          Left = 207
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 394
+          ExplicitLeft = 207
         end
         inherited Button3: TBitBtn
-          Left = 305
-          ExplicitLeft = 305
+          Left = 118
+          ExplicitLeft = 118
         end
         inherited edtPersonaContacto: TcxDBTextEdit
           Style.LookAndFeel.SkinName = ''
@@ -292,12 +294,26 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           Width = 121
         end
         inherited Button4: TButton
-          Left = 474
-          ExplicitLeft = 474
+          Left = 287
+          ExplicitLeft = 287
         end
         inherited Button5: TButton
-          Left = 474
-          ExplicitLeft = 474
+          Left = 287
+          ExplicitLeft = 287
+        end
+        inherited edtReferencia: TcxDBTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+        end
+        inherited edtTelefonos: TcxTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 363
+          Width = 363
         end
       end
     end
@@ -324,12 +340,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 8
-      Height = 100
-      Width = 396
+      Height = 44
+      Width = 475
     end
     object memPlazoEntrega: TcxDBMemo
       Left = 22
-      Top = 327
+      Top = 353
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'PLAZO_ENTREGA'
       DataBinding.DataSource = DADataSource
@@ -487,6 +503,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
         end
       end
       object dxLayoutControl1Group3: TdxLayoutGroup
+        AutoAligns = [aaVertical]
+        AlignHorz = ahClient
         ShowCaption = False
         Hidden = True
         ShowBorder = False