Ticket #79 -> (repaso) Imprimir en el presupuesto el nº de teléfono del cliente

Ticket #80 -> En la ficha de presupuesto mostrar el cód. del cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@456 f4e31baf-9722-1c47-927c-6f952f962d4b

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

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="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\ccpackD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxPScxCommonD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\frx11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\frxe11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\fs11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\JvAppFrmD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\tb2k_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>

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="C:\Documents and Settings\Usuario\adortl.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\Articulos_view.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxComnD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\GestorInformes_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PreCli_ConCli_relation.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
-    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
     <DCCReference Include="uEditorAsignarDescuento.pas">
       <Form>fEditorAsignarDescuento</Form>
     </DCCReference>

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
+            ExplicitWidth = 830
-            ExplicitHeight = 292
+            ExplicitHeight = 278
-            Height = 292
+            Height = 278
-            Width = 811
+            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

Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.dfm

@@ -1,13 +1,13 @@
 inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionClientePresupuesto
-  Width = 539
+  Width = 439
-  Height = 200
+  Height = 226
-  ExplicitWidth = 539
+  ExplicitWidth = 439
-  ExplicitHeight = 200
+  ExplicitHeight = 226
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 539
+    Width = 439
-    Height = 200
+    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
+      439
-      200)
+      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
+      Left = 237
-      Top = 158
+      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
+      Left = 71
-      Top = 129
+      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
+      Width = 363
-    object Button5: TButton
-      Left = 506
-      Top = 127
-      Width = 23
-      Height = 25
-      Action = actElegirPersonaContacto
-      TabOrder = 7
     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
+    Left = 112
-    Top = 8
+    Top = 187
   end
   object ActionList1: TActionList
     Images = PngImageList
-    Left = 368
+    Left = 80
-    Top = 8
+    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
+    Left = 16
-    Top = 8
+    Top = 187
     Bitmap = {}
   end
   object dsPresupuesto: TDADataSource
-    Left = 336
+    Left = 48
-    Top = 8
+    Top = 187
   end
 end

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

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm

@@ -1,23 +1,25 @@
 inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
-  Width = 1019
+  Width = 694
-  Height = 392
+  Height = 522
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
-  ExplicitWidth = 1019
+  ExplicitWidth = 694
-  ExplicitHeight = 392
+  ExplicitHeight = 522
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 1019
+    Width = 694
-    Height = 392
+    Height = 522
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
+    ExplicitWidth = 1019
+    ExplicitHeight = 392
     DesignSize = (
-      1019
+      694
-      392)
+      522)
     object edtFechaPresupuesto: TcxDBDateEdit
       Left = 123
       Top = 55
@@ -46,8 +48,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 260
     end
     object memObservaciones: TcxDBMemo
-      Left = 490
+      Left = 352
-      Top = 259
+      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
+      Width = 320
-      Height = 195
+      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
+      ExplicitWidth = 320
-      ExplicitHeight = 195
+      ExplicitHeight = 224
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 507
+        Width = 320
-        Height = 195
+        Height = 224
-        ExplicitWidth = 507
+        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
+          Left = 118
-          ExplicitLeft = 305
+          ExplicitLeft = 118
         end
         inherited edtPersonaContacto: TcxDBTextEdit
           Style.LookAndFeel.SkinName = ''
@@ -292,12 +294,26 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           Width = 121
         end
         inherited Button4: TButton
-          Left = 474
+          Left = 287
-          ExplicitLeft = 474
+          ExplicitLeft = 287
         end
         inherited Button5: TButton
-          Left = 474
+          Left = 287
-          ExplicitLeft = 474
+          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
+      Height = 44
-      Width = 396
+      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