Ticket #90 -> En los presupuestos, poder poner una persona de contacto y que sea modificable.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@549 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Database/scripts/factuges.sql

@@ -1004,7 +1004,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
     ID_FORMA_PAGO        TIPO_ID,
     REFERENCIA_CLIENTE   VARCHAR(255),
     CLIENTE_FINAL        VARCHAR(255),
-	ID_FACTURA           TIPO_ID
+	ID_FACTURA           TIPO_ID,
+	PERSONA_CONTACTO     VARCHAR(255)
 );
 
 
@@ -2786,7 +2787,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
     IMPORTE_TOTAL,
     ID_FORMA_PAGO,
     ID_FACTURA,
-    FACTURA)
+    FACTURA,
+	PERSONA_CONTACTO)
 AS
 SELECT
   PRESUPUESTOS_CLIENTE.ID,
@@ -2819,7 +2821,8 @@ SELECT
   PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,
   PRESUPUESTOS_CLIENTE.ID_FORMA_PAGO,
   PRESUPUESTOS_CLIENTE.ID_FACTURA,
-  FACTURAS_CLIENTE.REFERENCIA
+  FACTURAS_CLIENTE.REFERENCIA,
+  PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO
 FROM
   PRESUPUESTOS_CLIENTE
   INNER JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_CLIENTE)  

Source/Modulos/Contactos/Controller/Contactos_controller.dpk

@@ -31,7 +31,14 @@ requires
   GUIBase,
   ApplicationBase,
   Contactos_model,
-  Contactos_data;
+  Contactos_data,
+  GUISDK_D11,
+  xmlrtl,
+  cfpack_d11,
+  vclx,
+  vclactnband,
+  designide,
+  ccpackD11;
 
 contains
   uContactosController in 'uContactosController.pas',
@@ -65,6 +72,7 @@ contains
   uDatosBancariosContactoController in 'uDatosBancariosContactoController.pas',
   uIEditorDatoBancarioContacto in 'View\uIEditorDatoBancarioContacto.pas',
   uPersonalContactoController in 'uPersonalContactoController.pas',
-  uIEditorPersonalContacto in 'View\uIEditorPersonalContacto.pas';
+  uIEditorPersonalContacto in 'View\uIEditorPersonalContacto.pas',
+  uIEditorElegirPersonaContactoCliente in 'View\uIEditorElegirPersonaContactoCliente.pas';
 
 end.

Source/Modulos/Contactos/Controller/Contactos_controller.dproj

@@ -43,15 +43,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="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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@@ -62,13 +53,6 @@
     <DelphiCompile Include="Contactos_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
     <DCCReference Include="uClientesController.pas" />
     <DCCReference Include="uContactosController.pas" />
     <DCCReference Include="uDatosBancariosContactoController.pas" />
@@ -81,6 +65,16 @@
     <DCCReference Include="uGruposProveedorController.pas" />
     <DCCReference Include="uPersonalContactoController.pas" />
     <DCCReference Include="uProveedoresController.pas" />
+    <DCCReference Include="View\ApplicationBase.dcp" />
+    <DCCReference Include="View\Base.dcp" />
+    <DCCReference Include="View\ccpackD11.dcp" />
+    <DCCReference Include="View\cfpack_d11.dcp" />
+    <DCCReference Include="View\Contactos_data.dcp" />
+    <DCCReference Include="View\Contactos_model.dcp" />
+    <DCCReference Include="View\designide.dcp" />
+    <DCCReference Include="View\GUIBase.dcp" />
+    <DCCReference Include="View\GUISDK_D11.dcp" />
+    <DCCReference Include="View\rtl.dcp" />
     <DCCReference Include="View\uIEditorCliente.pas" />
     <DCCReference Include="View\uIEditorClientes.pas" />
     <DCCReference Include="View\uIEditorContacto.pas" />
@@ -90,6 +84,7 @@
     <DCCReference Include="View\uIEditorElegirClientes.pas" />
     <DCCReference Include="View\uIEditorElegirContactos.pas" />
     <DCCReference Include="View\uIEditorElegirDireccionEntrega.pas" />
+    <DCCReference Include="View\uIEditorElegirPersonaContactoCliente.pas" />
     <DCCReference Include="View\uIEditorElegirProveedores.pas" />
     <DCCReference Include="View\uIEditorEmpleado.pas" />
     <DCCReference Include="View\uIEditorEmpleados.pas" />
@@ -101,6 +96,10 @@
     <DCCReference Include="View\uIEditorPersonalContacto.pas" />
     <DCCReference Include="View\uIEditorProveedor.pas" />
     <DCCReference Include="View\uIEditorProveedores.pas" />
+    <DCCReference Include="View\vcl.dcp" />
+    <DCCReference Include="View\vclactnband.dcp" />
+    <DCCReference Include="View\vclx.dcp" />
+    <DCCReference Include="View\xmlrtl.dcp" />
     <None Include="ModelSupport_Contactos_controller\default.txaPackage" />
   </ItemGroup>
 </Project>

Source/Modulos/Contactos/Controller/View/uIEditorElegirPersonaContactoCliente.pas

@@ -0,0 +1,29 @@
+unit uIEditorElegirPersonaContactoCliente;
+
+interface
+
+uses
+  uBizContactosPersonal, uGUIBase;
+
+type
+  IEditorElegirPersonaContactoCliente = interface
+    ['{40EBA9D9-EFE4-4A0E-B433-AD61E2EAF94F}']
+    function GetPersonas: IBizContactoPersonal;
+    procedure SetPersonas(const Value: IBizContactoPersonal);
+    property Personas: IBizContactoPersonal read GetPersonas write SetPersonas;
+
+    procedure SetMensaje (const AValue: String);
+    function GetMensaje: String;
+    property Mensaje : String read GetMensaje write SetMensaje;
+
+    function GetPersonaSeleccionada: IBizContactoPersonal;
+    property PersonaSeleccionada: IBizContactoPersonal read GetPersonaSeleccionada;
+
+    function ShowModal : Integer;
+    procedure Release;    
+  end;
+
+
+implementation
+
+end.

Source/Modulos/Contactos/Controller/uClientesController.pas

@@ -6,7 +6,7 @@ uses
   uCustomEditor,
   uContactosController, uBizContactos, uBizDireccionesContacto,
   uIEditorClientes, uIEditorCliente, uIDataModuleContactos, uIDataModuleClientes,
-  uDireccionesContactoController;
+  uDireccionesContactoController, uBizContactosPersonal;
 
 type
   IClientesController = interface(IContactosController)
@@ -14,6 +14,7 @@ type
     function BuscarTodosTiendaWeb: IBizCliente;
     function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
     function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto; AMensaje: String): IBizDireccionesContacto;
+    function ElegirPersonaContacto(APersonal: IBizContactoPersonal; AMensaje: String): IBizContactoPersonal;
     function EsEliminable(ACliente: IBizContacto): Boolean;
     function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
     procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
@@ -41,6 +42,8 @@ type
     function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
     function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto;
       AMensaje: String): IBizDireccionesContacto;
+    function ElegirPersonaContacto(APersonal: IBizContactoPersonal;
+      AMensaje: String): IBizContactoPersonal;
     function EsEliminable(ACliente: IBizContacto): Boolean;
     function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
     procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
@@ -53,7 +56,7 @@ uses
   Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
   uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
   uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase,
-  Dialogs, uIntegerListUtils;
+  Dialogs, uIntegerListUtils, uIEditorElegirPersonaContactoCliente;
 
 { TClientesController }
 
@@ -128,17 +131,39 @@ begin
   Result := NIL;
 
   CreateEditor('EditorElegirDireccionEntrega', IEditorElegirDireccionEntrega, AEditor);
-  try
+  if Assigned(AEditor) then
-    with AEditor do
+  begin
-    begin
+    try
-      Direccion := ADirecciones;
+      AEditor.Direccion := ADirecciones;
-      Mensaje := AMensaje;
+      AEditor.Mensaje := AMensaje;
-      if IsPositiveResult(ShowModal) then
+      if IsPositiveResult(AEditor.ShowModal) then
-        Result := DireccionSeleccionada;
+        Result := AEditor.DireccionSeleccionada;
-      Release;
+    finally
+      AEditor.Release;
+      AEditor := NIL;
+    end;
+  end;
+end;
+
+function TClientesController.ElegirPersonaContacto(
+  APersonal: IBizContactoPersonal; AMensaje: String): IBizContactoPersonal;
+var
+  AEditor : IEditorElegirPersonaContactoCliente;
+begin
+  Result := NIL;
+
+  CreateEditor('EditorElegirPersonaContactoCliente', IEditorElegirPersonaContactoCliente, AEditor);
+  if Assigned(AEditor) then
+  begin
+    try
+      AEditor.Personas := APersonal;
+      AEditor.Mensaje := AMensaje;
+      if IsPositiveResult(AEditor.ShowModal) then
+        Result := AEditor.PersonaSeleccionada;
+    finally
+      AEditor.Release;
+      AEditor := NIL;
     end;
-  finally
-    AEditor := NIL;
   end;
 end;
 

Source/Modulos/Contactos/Views/Contactos_view.dpk

@@ -35,7 +35,7 @@ requires
   TiposIVA_model,
   TiposIVA_controller,
   Contactos_model,
-  Contactos_controller,
+  Contactos_controller,  
   JvGlobusD11R,
   dbrtl,
   DataAbstract_Core_D11,
@@ -82,7 +82,7 @@ contains
   uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame},
   uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame},
   uEditorDatoBancario in 'uEditorDatoBancario.pas' {fEditorDatoBancario},
-  uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega},
+  uEditorElegirPersonaContactoCliente in 'uEditorElegirPersonaContactoCliente.pas' {fEditorElegirPersonaContactoCliente: TfEditorElegirDireccionEntrega},
   uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame},
   uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame},
   uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame},

Source/Modulos/Contactos/Views/Contactos_view.dproj

@@ -49,38 +49,52 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\adortl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\adortl.dcp" />
-    <DCCReference Include="..\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\ApplicationBase.dcp" />
-    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\Base.dcp" />
-    <DCCReference Include="..\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\CJvGlobusD11R.dcp" />
-    <DCCReference Include="..\Contactos_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\CoJvGlobusD11R.dcp" />
-    <DCCReference Include="..\cxDataD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\ConJvGlobusD11R.dcp" />
-    <DCCReference Include="..\cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\ContacJvGlobusD11R.dcp" />
-    <DCCReference Include="..\cxExportD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\ContactJvGlobusD11R.dcp" />
-    <DCCReference Include="..\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\ContactoJvGlobusD11R.dcp" />
-    <DCCReference Include="..\cxGridD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\ContactosJvGlobusD11R.dcp" />
-    <DCCReference Include="..\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_controller.dcp" />
-    <DCCReference Include="..\cxPageControlD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_JvGlobusD11R.dcp" />
-    <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_model.dcp" />
-    <DCCReference Include="..\dbrtl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_vieJvGlobusD11R.dcp" />
-    <DCCReference Include="..\dsnap.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_viewJvGlobusD11R.dcp" />
-    <DCCReference Include="..\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_viJvGlobusD11R.dcp" />
-    <DCCReference Include="..\dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_vJvGlobusD11R.dcp" />
-    <DCCReference Include="..\FormasPago_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\ContaJvGlobusD11R.dcp" />
-    <DCCReference Include="..\FormasPago_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\ContJvGlobusD11R.dcp" />
-    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\cxDataD11.dcp" />
-    <DCCReference Include="..\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\cxEditorsD11.dcp" />
-    <DCCReference Include="..\PngComponentsD10.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\cxExportD11.dcp" />
-    <DCCReference Include="..\PNG_D10.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\cxGridD11.dcp" />
-    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\cxLibraryD11.dcp" />
-    <DCCReference Include="..\TiposIVA_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\cxPageControlD11.dcp" />
-    <DCCReference Include="..\TiposIVA_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\dbrtl.dcp" />
-    <DCCReference Include="..\vclactnband.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\dsnap.dcp" />
-    <DCCReference Include="..\vcldb.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\vcljpg.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\dxThemeD11.dcp" />
-    <DCCReference Include="..\vclx.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\FormasPago_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\FormasPago_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\GUIBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\PngComponentsD10.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\PNG_D10.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\rtl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\TiposIVA_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\TiposIVA_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\vcl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\vclactnband.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\vcldb.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\vcljpg.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Controller\vclx.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorCliente.pas">
       <Form>fEditorCliente</Form>
@@ -109,8 +123,8 @@
       <Form>fEditorElegirClientes</Form>
       <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
-    <DCCReference Include="uEditorElegirDireccionEntrega.pas">
+    <DCCReference Include="uEditorElegirPersonaContactoCliente.pas">
-      <Form>fEditorElegirDireccionEntrega</Form>
+      <Form>fEditorElegirPersonaContactoCliente</Form>
       <DesignClass>TfEditorElegirDireccionEntrega</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorElegirProveedores.pas">

Source/Modulos/Contactos/Views/uContactosViewRegister.pas

@@ -15,7 +15,7 @@ uses
   uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion,
   uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorGruposProveedor, uEditorGruposEmpleado,
   uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport,
-  uEditorDatoBancario, uEditorPersonal;
+  uEditorDatoBancario, uEditorPersonal, uEditorElegirPersonaContactoCliente;
 
 procedure RegisterViews;
 begin
@@ -43,6 +43,8 @@ begin
 
   EditorRegistry.RegisterClass(TfEditorFichasEmpleadoPreview, 'EditorFichasEmpleadoPreview');
   EditorRegistry.RegisterClass(TfEditorEtiquetasContactosPreview, 'EditorEtiquetasContactosPreview');
+
+  EditorRegistry.RegisterClass(TfEditorElegirPersonaContactoCliente, 'EditorElegirPersonaContactoCliente');
 end;
 
 procedure UnregisterViews;
@@ -70,7 +72,9 @@ begin
   EditorRegistry.UnRegisterClass(TfEditorDatoBancario);
 
   EditorRegistry.UnRegisterClass(TfEditorFichasEmpleadoPreview);
-  EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);  
+  EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);
+
+  EditorRegistry.UnRegisterClass(TfEditorElegirPersonaContactoCliente);
 end;
 
 end.

Source/Modulos/Contactos/Views/uEditorElegirPersonaContactoCliente.dfm

@@ -0,0 +1,247 @@
+object fEditorElegirPersonaContactoCliente: TfEditorElegirPersonaContactoCliente
+  Left = 227
+  Top = 108
+  BorderStyle = bsDialog
+  Caption = 'Elegir una direcciones de cliente'
+  ClientHeight = 383
+  ClientWidth = 599
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = True
+  Position = poOwnerFormCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object JvgWizardHeader1: TJvgWizardHeader
+    Left = 0
+    Top = 0
+    Width = 599
+    Height = 60
+    CaptionFont.Charset = DEFAULT_CHARSET
+    CaptionFont.Color = clWindowText
+    CaptionFont.Height = -11
+    CaptionFont.Name = 'Tahoma'
+    CaptionFont.Style = [fsBold]
+    CommentFont.Charset = DEFAULT_CHARSET
+    CommentFont.Color = clWindowText
+    CommentFont.Height = -11
+    CommentFont.Name = 'Tahoma'
+    CommentFont.Style = []
+    SymbolFont.Charset = DEFAULT_CHARSET
+    SymbolFont.Color = clHighlightText
+    SymbolFont.Height = -35
+    SymbolFont.Name = 'Wingdings'
+    SymbolFont.Style = [fsBold]
+    Captions.Strings = (
+      'Seleccione una persona de contacto')
+    Comments.Strings = (
+      
+        'El cliente dispone de personas de contacto dadas de alta en su f' +
+        'icha. Seleccione la que quiere utilizar.')
+    Gradient.FromColor = clHighlight
+    Gradient.ToColor = clWindow
+    Gradient.Active = False
+    Gradient.Orientation = fgdVertical
+    BufferedDraw = False
+    ExplicitLeft = -57
+    ExplicitTop = 27
+    ExplicitWidth = 656
+  end
+  inline frViewBarraSeleccion1: TfrViewBarraSeleccion
+    Left = 0
+    Top = 334
+    Width = 599
+    Height = 49
+    Align = alBottom
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 0
+    ReadOnly = False
+    ExplicitTop = 334
+    ExplicitWidth = 599
+    inherited JvFooter1: TJvFooter
+      Width = 599
+      ExplicitWidth = 599
+      inherited bSeleccionar: TJvFooterBtn
+        Left = 387
+        ExplicitLeft = 387
+      end
+      inherited bCancelar: TJvFooterBtn
+        Left = 491
+        ExplicitLeft = 491
+      end
+    end
+    inherited BarraSeleccionActionList: TActionList
+      Top = 11
+      inherited actSeleccionar: TAction
+        OnExecute = frViewBarraSeleccion1actSeleccionarExecute
+      end
+      inherited actCancelar: TAction
+        OnExecute = frViewBarraSeleccion1actCancelarExecute
+      end
+    end
+  end
+  object DBCtrlGrid1: TDBCtrlGrid
+    Left = 8
+    Top = 66
+    Width = 583
+    Height = 261
+    Margins.Left = 10
+    Margins.Top = 10
+    Margins.Right = 10
+    Margins.Bottom = 0
+    AllowDelete = False
+    AllowInsert = False
+    Color = clBtnFace
+    DataSource = dsPersonas
+    PanelHeight = 87
+    PanelWidth = 566
+    ParentColor = False
+    TabOrder = 1
+    SelectedColor = clHighlight
+    OnDblClick = DBCtrlGrid1DblClick
+    object ePuesto: TDBText
+      Left = 58
+      Top = 28
+      Width = 502
+      Height = 17
+      DataField = 'PUESTO'
+      DataSource = dsPersonas
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      Transparent = True
+      OnDblClick = ComponenteDblClick
+    end
+    object eTelefono: TDBText
+      Left = 70
+      Top = 47
+      Width = 187
+      Height = 17
+      DataField = 'TELEFONO'
+      DataSource = dsPersonas
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      Transparent = True
+      OnDblClick = ComponenteDblClick
+    end
+    object eNombre: TDBText
+      Left = 8
+      Top = 7
+      Width = 537
+      Height = 17
+      DataField = 'NOMBRE'
+      DataSource = dsPersonas
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      Transparent = True
+      OnDblClick = ComponenteDblClick
+    end
+    object Label1: TLabel
+      Left = 15
+      Top = 28
+      Width = 37
+      Height = 13
+      Caption = 'Puesto:'
+      OnDblClick = ComponenteDblClick
+    end
+    object Label2: TLabel
+      Left = 15
+      Top = 47
+      Width = 46
+      Height = 13
+      Caption = 'Tel'#233'fono:'
+      OnDblClick = ComponenteDblClick
+    end
+    object Label3: TLabel
+      Left = 281
+      Top = 47
+      Width = 47
+      Height = 13
+      Caption = 'Tlf. m'#243'vil:'
+      OnDblClick = ComponenteDblClick
+    end
+    object eMovil: TDBText
+      Left = 334
+      Top = 47
+      Width = 187
+      Height = 17
+      DataField = 'MOVIL'
+      DataSource = dsPersonas
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      Transparent = True
+      OnDblClick = ComponenteDblClick
+    end
+    object Label4: TLabel
+      Left = 16
+      Top = 66
+      Width = 48
+      Height = 13
+      Caption = 'N'#250'm. fax:'
+      OnDblClick = ComponenteDblClick
+    end
+    object eFax: TDBText
+      Left = 70
+      Top = 66
+      Width = 187
+      Height = 17
+      DataField = 'FAX'
+      DataSource = dsPersonas
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      Transparent = True
+      OnDblClick = ComponenteDblClick
+    end
+    object Label5: TLabel
+      Left = 281
+      Top = 66
+      Width = 32
+      Height = 13
+      Caption = 'E-mail:'
+      OnDblClick = ComponenteDblClick
+    end
+    object eEMail: TDBText
+      Left = 334
+      Top = 66
+      Width = 187
+      Height = 17
+      DataField = 'EMAIL'
+      DataSource = dsPersonas
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      Transparent = True
+      OnDblClick = ComponenteDblClick
+    end
+  end
+  object dsPersonas: TDADataSource
+    Left = 24
+    Top = 286
+  end
+end

Source/Modulos/Contactos/Views/uEditorElegirPersonaContactoCliente.pas

@@ -0,0 +1,110 @@
+unit uEditorElegirPersonaContactoCliente;
+
+interface
+
+uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
+  Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
+  cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
+  uIEditorElegirPersonaContactoCliente, uCustomView,
+  uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader,
+  DBCGrids, uBizContactosPersonal, uDAInterfaces;
+
+type
+  TfEditorElegirPersonaContactoCliente = class(TForm, IEditorElegirPersonaContactoCliente)
+    dsPersonas: TDADataSource;
+    frViewBarraSeleccion1: TfrViewBarraSeleccion;
+    JvgWizardHeader1: TJvgWizardHeader;
+    DBCtrlGrid1: TDBCtrlGrid;
+    ePuesto: TDBText;
+    eTelefono: TDBText;
+    eNombre: TDBText;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    eMovil: TDBText;
+    Label4: TLabel;
+    eFax: TDBText;
+    Label5: TLabel;
+    eEMail: TDBText;
+    procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
+    procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
+    procedure DBCtrlGrid1DblClick(Sender: TObject);
+    procedure ComponenteDblClick(Sender: TObject);
+
+  protected
+    FPersonas: IBizContactoPersonal;
+    function GetPersonas: IBizContactoPersonal;
+    procedure SetPersonas(const Value: IBizContactoPersonal);
+
+    function GetPersonaSeleccionada: IBizContactoPersonal;
+
+    procedure SetMensaje (const AValue: String);
+    function GetMensaje: String;
+  public
+    property Mensaje : String read GetMensaje write SetMensaje;
+    property Personas: IBizContactoPersonal read GetPersonas write SetPersonas;
+    property PersonaSeleccionada: IBizContactoPersonal read GetPersonaSeleccionada;
+  end;
+
+implementation
+{$R *.dfm}
+
+uses
+  uDireccionesContactoController;
+
+{ TfEditorDireccionEntrega }
+
+procedure TfEditorElegirPersonaContactoCliente.DBCtrlGrid1DblClick(Sender: TObject);
+begin
+  frViewBarraSeleccion1.actSeleccionar.Execute;
+end;
+
+procedure TfEditorElegirPersonaContactoCliente.ComponenteDblClick(Sender: TObject);
+begin
+  DBCtrlGrid1DblClick(Sender);
+end;
+
+procedure TfEditorElegirPersonaContactoCliente.frViewBarraSeleccion1actCancelarExecute(
+  Sender: TObject);
+begin
+  ModalResult := mrCancel;
+end;
+
+procedure TfEditorElegirPersonaContactoCliente.frViewBarraSeleccion1actSeleccionarExecute(
+  Sender: TObject);
+begin
+  ModalResult := mrOk;
+end;
+
+function TfEditorElegirPersonaContactoCliente.GetPersonas: IBizContactoPersonal;
+begin
+  Result := FPersonas;
+end;
+
+function TfEditorElegirPersonaContactoCliente.GetPersonaSeleccionada: IBizContactoPersonal;
+begin
+  // Devuelvo el mismo objeto que recibo pero con el punto de lectura
+  // posicionado en la dirección elegida.
+  Result := FPersonas;
+end;
+
+function TfEditorElegirPersonaContactoCliente.GetMensaje: String;
+begin
+  Result := JvgWizardHeader1.Comments.Text;
+end;
+
+procedure TfEditorElegirPersonaContactoCliente.SetPersonas(const Value: IBizContactoPersonal);
+begin
+  FPersonas := Value;
+  if Assigned(FPersonas) then
+    dsPersonas.DataTable := FPersonas.DataTable
+  else
+    dsPersonas.DataTable := NIL;
+end;
+
+procedure TfEditorElegirPersonaContactoCliente.SetMensaje(const AValue: String);
+begin
+  JvgWizardHeader1.Comments.Text := AValue;
+end;
+
+end.

Source/Modulos/Contactos/Views/uEditorEmpleado.dfm

@@ -67,6 +67,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
     ExplicitWidth = 923
     ExplicitHeight = 482
     inherited pagGeneral: TTabSheet
+      ExplicitLeft = 0
+      ExplicitTop = 0
       ExplicitWidth = 915
       ExplicitHeight = 454
       inline frViewEmpleado1: TfrViewEmpleado
@@ -111,18 +113,30 @@ inherited fEditorEmpleado: TfEditorEmpleado
           end
           inherited eCalle: TcxDBTextEdit
             Top = 243
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 243
             ExplicitWidth = 341
             Width = 341
           end
           inherited cbProvincia: TcxDBComboBox
             Top = 270
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 270
             ExplicitWidth = 240
             Width = 240
           end
           inherited cbPoblacion: TcxDBComboBox
             Top = 297
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 297
             ExplicitWidth = 341
             Width = 341
@@ -130,11 +144,19 @@ inherited fEditorEmpleado: TfEditorEmpleado
           inherited eCodigoPostal: TcxDBTextEdit
             Left = 397
             Top = 270
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 397
             ExplicitTop = 270
           end
           inherited eObservaciones: TcxDBMemo
             Top = 375
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 375
             ExplicitWidth = 871
             ExplicitHeight = 63
@@ -143,18 +165,30 @@ inherited fEditorEmpleado: TfEditorEmpleado
           end
           inherited eFechaNacimiento: TcxDBDateEdit
             Top = 84
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 84
             ExplicitWidth = 341
             Width = 341
           end
           inherited eFechaAltaEmpresa: TcxDBDateEdit
             Top = 111
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 111
             ExplicitWidth = 341
             Width = 341
           end
           inherited cbCategoria: TcxDBComboBox
             Top = 138
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 138
             ExplicitWidth = 341
             Width = 341
@@ -162,6 +196,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
           inherited cbContrato: TcxDBComboBox
             Left = 585
             Top = 270
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 585
             ExplicitTop = 270
             ExplicitWidth = 308
@@ -170,6 +208,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
           inherited eDuracionContrato: TcxDBTextEdit
             Left = 585
             Top = 297
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 585
             ExplicitTop = 297
             ExplicitWidth = 308
@@ -178,6 +220,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
           inherited eTlfParticular: TcxDBTextEdit
             Left = 585
             Top = 57
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 585
             ExplicitTop = 57
             ExplicitWidth = 308
@@ -186,6 +232,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
           inherited eTlfTrabajo: TcxDBTextEdit
             Left = 585
             Top = 30
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 585
             ExplicitTop = 30
             ExplicitWidth = 308
@@ -194,6 +244,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
           inherited eTlfMovil: TcxDBTextEdit
             Left = 585
             Top = 84
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 585
             ExplicitTop = 84
             ExplicitWidth = 308
@@ -202,6 +256,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
           inherited eFax: TcxDBTextEdit
             Left = 585
             Top = 111
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 585
             ExplicitTop = 111
             ExplicitWidth = 308
@@ -209,6 +267,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
           end
           inherited eNombre: TcxDBTextEdit
             Top = 57
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 57
             ExplicitWidth = 341
             Width = 341
@@ -216,6 +278,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
           inherited eNIFCIF: TcxDBTextEdit
             Left = 259
             Top = 30
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 259
             ExplicitTop = 30
             ExplicitWidth = 203
@@ -225,6 +291,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
             Left = 585
             Top = 162
             Properties.Prefix = 'mailto:'
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 585
             ExplicitTop = 162
             ExplicitWidth = 279
@@ -234,6 +304,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
             Left = 585
             Top = 190
             Properties.Prefix = 'mailto:'
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 585
             ExplicitTop = 190
             ExplicitWidth = 279
@@ -242,12 +316,20 @@ inherited fEditorEmpleado: TfEditorEmpleado
           inherited eFechaBaja: TcxDBDateEdit
             Top = 165
             Properties.ImmediatePost = True
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 165
             ExplicitWidth = 341
             Width = 341
           end
           inherited eCausaBaja: TcxDBTextEdit
             Top = 192
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 192
             ExplicitWidth = 341
             Width = 341
@@ -255,6 +337,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
           inherited ePaginaWeb: TcxDBHyperLinkEdit
             Left = 585
             Top = 217
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 585
             ExplicitTop = 217
             ExplicitWidth = 279
@@ -262,12 +348,20 @@ inherited fEditorEmpleado: TfEditorEmpleado
           end
           inherited eReferencia: TcxDBTextEdit
             Top = 30
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 30
             ExplicitWidth = 105
             Width = 105
           end
           inherited ePersonaContacto: TcxDBTextEdit
             Top = 324
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 324
             ExplicitWidth = 341
             Width = 341
@@ -347,6 +441,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
     object pagFormacion: TTabSheet
       Caption = 'Formaci'#243'n'
       ImageIndex = 2
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object dxLayoutControl1: TdxLayoutControl
         Left = 0
         Top = 0
@@ -369,12 +467,16 @@ inherited fEditorEmpleado: TfEditorEmpleado
           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 = ''
           StyleFocused.LookAndFeel.Kind = lfStandard
           StyleFocused.LookAndFeel.NativeStyle = True
+          StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.Kind = lfStandard
           StyleHot.LookAndFeel.NativeStyle = True
+          StyleHot.LookAndFeel.SkinName = ''
           TabOrder = 0
           Height = 116
           Width = 871
@@ -390,12 +492,16 @@ inherited fEditorEmpleado: TfEditorEmpleado
           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 = ''
           StyleFocused.LookAndFeel.Kind = lfStandard
           StyleFocused.LookAndFeel.NativeStyle = True
+          StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.Kind = lfStandard
           StyleHot.LookAndFeel.NativeStyle = True
+          StyleHot.LookAndFeel.SkinName = ''
           TabOrder = 1
           Height = 116
           Width = 871
@@ -411,12 +517,16 @@ inherited fEditorEmpleado: TfEditorEmpleado
           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 = ''
           StyleFocused.LookAndFeel.Kind = lfStandard
           StyleFocused.LookAndFeel.NativeStyle = True
+          StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.Kind = lfStandard
           StyleHot.LookAndFeel.NativeStyle = True
+          StyleHot.LookAndFeel.SkinName = ''
           TabOrder = 2
           Height = 116
           Width = 871
@@ -465,6 +575,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
     object pagExperiencia: TTabSheet
       Caption = 'Experiencia'
       ImageIndex = 3
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object dxLayoutControl2: TdxLayoutControl
         Left = 0
         Top = 0
@@ -488,12 +602,16 @@ inherited fEditorEmpleado: TfEditorEmpleado
           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 = ''
           StyleFocused.LookAndFeel.Kind = lfStandard
           StyleFocused.LookAndFeel.NativeStyle = True
+          StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.Kind = lfStandard
           StyleHot.LookAndFeel.NativeStyle = True
+          StyleHot.LookAndFeel.SkinName = ''
           TabOrder = 0
           Height = 408
           Width = 871

Source/Modulos/Contactos/Views/uEditorEmpleado.pas

@@ -86,13 +86,9 @@ end;
 
 procedure TfEditorEmpleado.ImprimirInterno;
 var
-  Respuesta : Integer;
   AFichas: IBizEmpleado;
-  AllItems: Boolean;
 begin
   AFichas := Nil;
-  AllItems := False;
-
   AFichas := (Contacto as IBizEmpleado);
 
   if Assigned(AFichas) then
@@ -116,13 +112,9 @@ end;
 
 procedure TfEditorEmpleado.PrevisualizarInterno;
 var
-  Respuesta : Integer;
   AFichas: IBizEmpleado;
-  AllItems: Boolean;
 begin
   AFichas := Nil;
-  AllItems := False;
-
   AFichas := (Contacto as IBizEmpleado);
 
   if Assigned(AFichas) then

Source/Modulos/Contactos/Views/uViewDatosYSeleccionCliente.pas

@@ -71,23 +71,23 @@ type
     procedure actVerContactoUpdate(Sender: TObject);
 
   private
-    FController : IClientesController;
-    FCliente : IBizCliente;
     FOnClienteChanged : TNotifyEvent;
     FMsgElegirCliente: String;
     function GetMsgElegirCliente: String;
     procedure SetMsgElegirCliente(const Value: String);
 
   protected
+    FController : IClientesController;
+    FCliente : IBizCliente;
     function GetController: IClientesController;
     procedure SetController(Value: IClientesController);
-    function GetCliente: IBizCliente;
+    function GetCliente: IBizCliente; virtual;
-    procedure SetCliente(Value: IBizCliente);
+    procedure SetCliente(Value: IBizCliente); virtual;
     function GetOnClienteChanged : TNotifyEvent;
     procedure SetOnClienteChanged (const Value : TNotifyEvent);
     procedure SetReadOnly(Value: Boolean); override;
-    function GetID_Cliente: integer;
+    function GetID_Cliente: integer; virtual;
-    procedure SetID_Cliente(const Value: integer);
+    procedure SetID_Cliente(const Value: integer); virtual;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;

Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf260.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf285.tmp */

Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf25E.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf283.tmp */

Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm

@@ -221,6 +221,13 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         Name = 'FACTURA'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'PERSONA_CONTACTO'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Persona de contacto'
+        DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj

@@ -42,7 +42,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <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="ImplicitBuild">True</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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
       <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas

@@ -9,8 +9,8 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_PresupuestosCliente = '{89F89777-0F3D-4773-BCF7-D9EDC642EB9F}';
+  RID_PresupuestosCliente = '{469001A1-C0ED-4AA1-AFA1-D87F447B92D3}';
-  RID_PresupuestosCliente_Detalles = '{F2B28DDF-AFEE-424B-AC4F-4BB35ED49C18}';
+  RID_PresupuestosCliente_Detalles = '{0C15349E-9BB9-437D-9152-BB070D344F3B}';
 
   { Data table names }
   nme_PresupuestosCliente = 'PresupuestosCliente';
@@ -48,6 +48,7 @@ const
   fld_PresupuestosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
   fld_PresupuestosClienteID_FACTURA = 'ID_FACTURA';
   fld_PresupuestosClienteFACTURA = 'FACTURA';
+  fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
 
   { PresupuestosCliente field indexes }
   idx_PresupuestosClienteID = 0;
@@ -81,6 +82,7 @@ const
   idx_PresupuestosClienteID_FORMA_PAGO = 28;
   idx_PresupuestosClienteID_FACTURA = 29;
   idx_PresupuestosClienteFACTURA = 30;
+  idx_PresupuestosClientePERSONA_CONTACTO = 31;
 
   { PresupuestosCliente_Detalles fields }
   fld_PresupuestosCliente_DetallesID = 'ID';
@@ -119,7 +121,7 @@ const
 type
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{75476B18-14DA-4F77-9CCA-CBB84940A43C}']
+  ['{879349D0-AFB3-4D2C-8736-9C44B8F1C0E2}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -241,6 +243,10 @@ type
     procedure SetFACTURAValue(const aValue: String);
     function GetFACTURAIsNull: Boolean;
     procedure SetFACTURAIsNull(const aValue: Boolean);
+    function GetPERSONA_CONTACTOValue: String;
+    procedure SetPERSONA_CONTACTOValue(const aValue: String);
+    function GetPERSONA_CONTACTOIsNull: Boolean;
+    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -306,6 +312,8 @@ type
     property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
     property FACTURA: String read GetFACTURAValue write SetFACTURAValue;
     property FACTURAIsNull: Boolean read GetFACTURAIsNull write SetFACTURAIsNull;
+    property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+    property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
   end;
 
   { TPresupuestosClienteDataTableRules }
@@ -441,6 +449,10 @@ type
     procedure SetFACTURAValue(const aValue: String); virtual;
     function GetFACTURAIsNull: Boolean; virtual;
     procedure SetFACTURAIsNull(const aValue: Boolean); virtual;
+    function GetPERSONA_CONTACTOValue: String; virtual;
+    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
+    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -505,6 +517,8 @@ type
     property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
     property FACTURA: String read GetFACTURAValue write SetFACTURAValue;
     property FACTURAIsNull: Boolean read GetFACTURAIsNull write SetFACTURAIsNull;
+    property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+    property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -514,7 +528,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{DD64698E-5579-4A4D-BA5F-6CADB7B70DCB}']
+  ['{4D852074-23F1-488D-9188-EE0A686AA6AC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1403,6 +1417,27 @@ begin
     DataTable.Fields[idx_PresupuestosClienteFACTURA].AsVariant := Null;
 end;
 
+function TPresupuestosClienteDataTableRules.GetPERSONA_CONTACTOValue: String;
+begin
+  result := DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsString;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsString := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsVariant := Null;
+end;
+
 
 { TPresupuestosCliente_DetallesDataTableRules }
 constructor TPresupuestosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas

@@ -9,13 +9,13 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_PresupuestosClienteDelta = '{41FB8E7F-7AF2-4249-9C75-76E6586FC80C}';
+  RID_PresupuestosClienteDelta = '{8DECA7AC-12C3-4688-867C-EF1FBF18E4BC}';
-  RID_PresupuestosCliente_DetallesDelta = '{6B4F2438-4896-46C7-8D87-B21770DA9B2E}';
+  RID_PresupuestosCliente_DetallesDelta = '{AC56C197-1697-4E61-96A2-AAEC2E9F783D}';
 
 type
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{41FB8E7F-7AF2-4249-9C75-76E6586FC80C}']
+  ['{8DECA7AC-12C3-4688-867C-EF1FBF18E4BC}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -48,6 +48,7 @@ type
     function GetOldID_FORMA_PAGOValue : Integer;
     function GetOldID_FACTURAValue : Integer;
     function GetOldFACTURAValue : String;
+    function GetOldPERSONA_CONTACTOValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -81,6 +82,7 @@ type
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
     property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
     property OldFACTURA : String read GetOldFACTURAValue;
+    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
   end;
 
   { TPresupuestosClienteBusinessProcessorRules }
@@ -278,6 +280,12 @@ type
     function GetOldFACTURAIsNull: Boolean; virtual;
     procedure SetFACTURAValue(const aValue: String); virtual;
     procedure SetFACTURAIsNull(const aValue: Boolean); virtual;
+    function GetPERSONA_CONTACTOValue: String; virtual;
+    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
+    function GetOldPERSONA_CONTACTOValue: String; virtual;
+    function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
+    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -404,6 +412,10 @@ type
     property FACTURAIsNull : Boolean read GetFACTURAIsNull write SetFACTURAIsNull;
     property OldFACTURA : String read GetOldFACTURAValue;
     property OldFACTURAIsNull : Boolean read GetOldFACTURAIsNull;
+    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+    property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+    property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -413,7 +425,7 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{6B4F2438-4896-46C7-8D87-B21770DA9B2E}']
+  ['{AC56C197-1697-4E61-96A2-AAEC2E9F783D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
@@ -1616,6 +1628,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFACTURA] := Null;
 end;
 
+function TPresupuestosClienteBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePERSONA_CONTACTO];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePERSONA_CONTACTO]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO] := Null;
+end;
+
 
 { TPresupuestosCliente_DetallesBusinessProcessorRules }
 constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm

@@ -61,12 +61,12 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
               'STOS_CLIENTE.ID_CLIENTE,'#10'    V_PRESUPUESTOS_CLIENTE.REFERENCIA_C' +
               'LIENTE,'#10'    V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10'    V_CLIENTES' +
               '.NIF_CIF, V_CLIENTES.NOMBRE,'#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_' +
-              'IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10'    V_CLIENTES.PERSON' +
+              'IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10'    V_CLIENTES.CALLE,' +
-              'A_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.POBLACION,'#10'    V_CLIENT' +
+              ' V_CLIENTES.POBLACION,'#10'    V_CLIENTES.PROVINCIA, V_CLIENTES.CODI' +
-              'ES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL'#10'FROM'#10'    V_PRESUPUESTOS_C' +
+              'GO_POSTAL,'#10'    V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO'#10'FROM'#10'    ' +
-              'LIENTE INNER JOIN V_CLIENTES ON'#10'        (V_PRESUPUESTOS_CLIENTE.' +
+              'V_PRESUPUESTOS_CLIENTE INNER JOIN V_CLIENTES ON'#10'        (V_PRESU' +
-              'ID_CLIENTE = V_CLIENTES.ID)'#10'  WHERE V_PRESUPUESTOS_CLIENTE.ID = ' +
+              'PUESTOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)'#10'  WHERE V_PRESUPUEST' +
-              ':ID'#10
+              'OS_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -259,11 +259,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
             Name = 'IMPORTE_TOTAL'
             DataType = datCurrency
           end
-          item
-            Name = 'PERSONA_CONTACTO'
-            DataType = datString
-            Size = 255
-          end
           item
             Name = 'CALLE'
             DataType = datString
@@ -283,6 +278,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
             Name = 'CODIGO_POSTAL'
             DataType = datString
             Size = 10
+          end
+          item
+            Name = 'PERSONA_CONTACTO'
+            DataType = datString
+            Size = 255
           end>
         ReadOnly = True
       end
@@ -618,7 +618,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 39065.872423495400000000
-    ReportOptions.LastChange = 39604.452998402800000000
+    ReportOptions.LastChange = 39680.550162581000000000
     ScriptLanguage = 'PascalScript'
     ScriptText.Strings = (
       ''
@@ -721,10 +721,12 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
       '    if Engine.FinalPass then'
       '  begin              '
       '     Set('#39'Capitulo'#39', (<Capitulo> + 1));'
-      '     if (<NumCapitulos> = 1) then'
+      
+        '     if ((<NumCapitulos> = 1) and (<frxDBCapitulos."CONCEPTO"> =' +
+        ' '#39'General'#39')) then'
       
         '       MasterData1.Visible := False;                            ' +
-        '                                       '
+        '                                         '
       '  end'
       '  else'
       '     Set('#39'NumCapitulos'#39', (<NumCapitulos> + 1));  '
@@ -741,6 +743,17 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
       '    end                               '
       'end;'
       ''
+      'procedure Footer2OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  if not ((<frxDBCabecera."DESCUENTO">) > 0) then'
+      '  begin'
+      '    mBonificacion.Visible := False;'
+      
+        '    mImporteFinal.Visible := False;                             ' +
+        '                                         '
+      '  end;            '
+      'end;'
+      ''
       'begin'
       ''
       'end.')

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas

@@ -75,9 +75,9 @@ type
     tbl_Resumen: TDAMemDataTable;
     DAMemDataTable1: TDAMemDataTable;
     DAMemDataTable2: TDAMemDataTable;
+    frxPDFExport1: TfrxPDFExport;
     schReport: TDASchema;
     DataDictionary: TDADataDictionary;
-    frxPDFExport1: TfrxPDFExport;
     procedure DataModuleCreate(Sender: TObject);
   private
     FConnection: IDAConnection;

Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm

@@ -29,12 +29,12 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
               'STOS_CLIENTE.ID_CLIENTE,'#10'    V_PRESUPUESTOS_CLIENTE.REFERENCIA_C' +
               'LIENTE,'#10'    V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10'    V_CLIENTES' +
               '.NIF_CIF, V_CLIENTES.NOMBRE,'#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_' +
-              'IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10'    V_CLIENTES.PERSON' +
+              'IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10'    V_PRESUPUESTOS_CL' +
-              'A_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.POBLACION,'#10'    V_CLIENT' +
+              'IENTE.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.POBLACION,'#10 +
-              'ES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL'#10'FROM'#10'    V_PRESUPUESTOS_C' +
+              '    V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL'#10'FROM'#10'    V_PR' +
-              'LIENTE INNER JOIN V_CLIENTES ON'#10'        (V_PRESUPUESTOS_CLIENTE.' +
+              'ESUPUESTOS_CLIENTE INNER JOIN V_CLIENTES ON'#10'        (V_PRESUPUES' +
-              'ID_CLIENTE = V_CLIENTES.ID)'#10'  WHERE V_PRESUPUESTOS_CLIENTE.ID = ' +
+              'TOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)'#10'  WHERE V_PRESUPUESTOS_C' +
-              ':ID'#10
+              'LIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item

Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas

@@ -19,9 +19,9 @@ type
     DABin2DataStreamer: TDABin2DataStreamer;
     tbl_Cabecera: TDAMemDataTable;
     tbl_Detalles: TDAMemDataTable;
+    tbl_Empresa: TDAMemDataTable;
     schReport: TDASchema;
     DataDictionary: TDADataDictionary;
-    tbl_Empresa: TDAMemDataTable;
     procedure DataModuleCreate(Sender: TObject);
   private
     FConnection: IDAConnection;

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm

@@ -144,6 +144,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               item
                 DatasetField = 'FACTURA'
                 TableField = 'FACTURA'
+              end
+              item
+                DatasetField = 'PERSONA_CONTACTO'
+                TableField = 'PERSONA_CONTACTO'
               end>
           end>
         Name = 'PresupuestosCliente'
@@ -314,6 +318,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'FACTURA'
             DataType = datString
             Size = 255
+          end
+          item
+            Name = 'PERSONA_CONTACTO'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO'
           end>
       end
       item
@@ -497,8 +507,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
         Params = <
           item
             Name = 'ID'
-            DataType = datAutoInc
-            GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
             Value = ''
           end
           item
@@ -608,6 +616,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
           item
             Name = 'ID_FACTURA'
             Value = ''
+          end
+          item
+            Name = 'PERSONA_CONTACTO'
+            Value = ''
           end>
         Statements = <
           item
@@ -621,15 +633,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'DA, MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10'     INCIDENCIAS_ACTIV' +
               'AS, FECHA_ALTA, FECHA_MODIFICACION, '#10'     USUARIO, IMPORTE_NETO,' +
               ' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10'     BASE_IMPONIB' +
-              'LE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA)'#10 +
+              'LE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA,'#10 +
-              '  VALUES'#10'    (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_DECIS' +
+              '     PERSONA_CONTACTO)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :FECHA_PR' +
-              'ION, :REFERENCIA,'#10'     :REFERENCIA_AUX, :SITUACION, :ID_CLIENTE,' +
+              'ESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10'     :REFERENCIA_AUX, :' +
-              ' :REFERENCIA_CLIENTE,'#10'     :CLIENTE_FINAL, :PORTADA, :MEMORIA, :' +
+              'SITUACION, :ID_CLIENTE, :REFERENCIA_CLIENTE,'#10'     :CLIENTE_FINAL' +
-              'OBSERVACIONES, '#10'     :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_' +
+              ', :PORTADA, :MEMORIA, :OBSERVACIONES, '#10'     :INCIDENCIAS, :INCID' +
-              'ALTA, :FECHA_MODIFICACION, '#10'     :USUARIO, :IMPORTE_NETO, :IMPOR' +
+              'ENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION, '#10'     :USUARIO' +
-              'TE_PORTE, :DESCUENTO, '#10'     :IMPORTE_DESCUENTO, :BASE_IMPONIBLE,' +
+              ', :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10'     :IMPORTE_DESC' +
-              ' :IVA, :IMPORTE_IVA, '#10'     :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_F' +
+              'UENTO, :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10'     :IMPORTE_TOTAL' +
-              'ACTURA)'#10
+              ', :ID_FORMA_PAGO, :ID_FACTURA, :PERSONA_CONTACTO)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -659,8 +671,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
         Params = <
           item
             Name = 'ID'
-            DataType = datAutoInc
-            GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
             Value = ''
           end
           item
@@ -771,6 +781,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'ID_FACTURA'
             Value = ''
           end
+          item
+            Name = 'PERSONA_CONTACTO'
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -796,7 +810,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'TO = :IMPORTE_DESCUENTO, '#10'    BASE_IMPONIBLE = :BASE_IMPONIBLE, ' +
               #10'    IVA = :IVA, '#10'    IMPORTE_IVA = :IMPORTE_IVA, '#10'    IMPORTE_T' +
               'OTAL = :IMPORTE_TOTAL, '#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10'    ' +
-              'ID_FACTURA = :ID_FACTURA'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
+              'ID_FACTURA = :ID_FACTURA,'#10'    PERSONA_CONTACTO = :PERSONA_CONTAC' +
+              'TO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1137,6 +1152,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
         DisplayLabel = 'Importe neto'
         Alignment = taRightJustify
       end
+      item
+        Name = 'PresupuestosCliente_PERSONA_CONTACTO'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Persona de contacto'
+      end
       item
         Name = 'PresupuestosCliente_IMPORTE_PORTE'
         DataType = datCurrency

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk

@@ -43,7 +43,17 @@ requires
   cxDataD11,
   dbrtl,
   vcljpg,
-  vcldb;
+  vcldb,
+  DataAbstract_Core_D11,
+  dsnap,
+  adortl,
+  RemObjects_Core_D11,
+  PngComponentsD10,
+  PNG_D10,
+  vclactnband,
+  vclx,
+  dxLayoutControlD11,
+  dxComnD11;
 
 contains
   uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
@@ -58,6 +68,7 @@ contains
   uEditorPresupuestosClienteReport in 'uEditorPresupuestosClienteReport.pas' {fEditorPresupuestosClientePreview: TfEditorPedidosClientePreview},
   uViewDireccionEntregaPresupuestoCliente in 'uViewDireccionEntregaPresupuestoCliente.pas' {frViewDireccionEntregaPresupuestoCliente: TFrame},
   uEditorFechaDecision in 'uEditorFechaDecision.pas' {fEditorFechaDecision},
-  uViewDocumentosPresupuestoCliente in 'uViewDocumentosPresupuestoCliente.pas' {frViewDocumentosPresupuestoCliente: TFrame};
+  uViewDocumentosPresupuestoCliente in 'uViewDocumentosPresupuestoCliente.pas' {frViewDocumentosPresupuestoCliente: TFrame},
+  uViewDatosClientePresupuesto in 'uViewDatosClientePresupuesto.pas' {frViewDatosClientePresupuesto: TFrame};
 
 end.

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj

@@ -49,19 +49,27 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="adortl.dcp" />
     <DCCReference Include="Articulos_view.dcp" />
     <DCCReference Include="Base.dcp" />
     <DCCReference Include="cxDataD11.dcp" />
     <DCCReference Include="cxEditorsD11.dcp" />
     <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
     <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="dxComnD11.dcp" />
     <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxLayoutControlD11.dcp" />
     <DCCReference Include="dxThemeD11.dcp" />
     <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
     <DCCReference Include="PreCli_AlbCli_relation.dcp" />
     <DCCReference Include="PreCli_FacCli_relation.dcp" />
     <DCCReference Include="PresupuestosCliente_controller.dcp" />
     <DCCReference Include="PresupuestosCliente_model.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
     <DCCReference Include="rtl.dcp" />
     <DCCReference Include="tb2k_d10.dcp" />
     <DCCReference Include="tbx_d10.dcp" />
@@ -89,6 +97,10 @@
       <DesignClass>TfEditorPedidosClientePreview</DesignClass>
     </DCCReference>
     <DCCReference Include="uPresupuestosClienteViewRegister.pas" />
+    <DCCReference Include="uViewDatosClientePresupuesto.pas">
+      <Form>frViewDatosClientePresupuesto</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewDetallesPresupuestoCliente.pas">
       <Form>frViewDetallesPresupuestoCliente</Form>
       <DesignClass>TFrame</DesignClass>
@@ -114,8 +126,10 @@
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
     <DCCReference Include="vcldb.dcp" />
     <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclx.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

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

@@ -166,7 +166,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   inherited pgPaginas: TPageControl
     Width = 743
     Height = 414
-    ActivePage = pagDocumentos
     TabOrder = 1
     OnChanging = pgPaginasChanging
     ExplicitWidth = 743
@@ -812,8 +811,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         inherited ListView1: TListView
           Width = 735
           Height = 363
-          ExplicitLeft = 0
-          ExplicitTop = 23
           ExplicitWidth = 735
           ExplicitHeight = 363
         end

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

@@ -0,0 +1,122 @@
+inherited frViewDatosClientePresupuesto: TfrViewDatosClientePresupuesto
+  Width = 508
+  Height = 243
+  ExplicitWidth = 508
+  ExplicitHeight = 243
+  inherited dxLayoutControl1: TdxLayoutControl
+    Width = 508
+    Height = 243
+    ExplicitWidth = 508
+    ExplicitHeight = 243
+    DesignSize = (
+      508
+      243)
+    inherited edtlNombre: TcxDBTextEdit
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited edtNIFCIF: TcxDBTextEdit
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited edtCalle: TcxDBTextEdit
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited edtPoblacion: TcxDBTextEdit
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited edtProvincia: TcxDBTextEdit
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited edtCodigoPostal: TcxDBTextEdit
+      Left = 416
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 416
+    end
+    inherited Button3: TBitBtn
+      Left = 306
+      Top = 203
+      TabOrder = 9
+      ExplicitLeft = 306
+      ExplicitTop = 203
+    end
+    object edtPersonaContacto: TcxDBButtonEdit [9]
+      Left = 64
+      Top = 176
+      Anchors = [akLeft, akTop, akRight]
+      DataBinding.DataField = 'PERSONA_CONTACTO'
+      DataBinding.DataSource = dsPresupuesto
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.ReadOnly = False
+      Properties.OnButtonClick = edtPersonaContactoPropertiesButtonClick
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clWindow
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      Style.ButtonStyle = bts3D
+      StyleDisabled.Color = clMenuBar
+      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 = 8
+      Width = 494
+    end
+    inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+      object dxLayoutControl1Item10: TdxLayoutItem [6]
+        Caption = 'Contacto:'
+        Control = edtPersonaContacto
+        ControlOptions.ShowBorder = False
+      end
+    end
+  end
+  inherited DADataSource: TDADataSource
+    Left = 168
+    Top = 8
+  end
+  inherited ActionList1: TActionList
+    Left = 208
+    Top = 8
+    object actElegirPersonaContacto: TAction
+      Caption = 'Elegir persona de contacto...'
+      OnExecute = actElegirPersonaContactoExecute
+    end
+  end
+  inherited PngImageList: TPngImageList
+    Left = 240
+    Top = 8
+  end
+  object dsPresupuesto: TDADataSource
+    Left = 280
+    Top = 8
+  end
+end

Source/Modulos/Presupuestos de cliente/Views/uViewDatosClientePresupuesto.pas

@@ -0,0 +1,66 @@
+unit uViewDatosClientePresupuesto;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB,
+  uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
+  cxEdit, cxTextEdit, cxDBEdit, cxControls, cxMaskEdit, cxButtonEdit,
+  uBizContactos;
+
+type
+  TfrViewDatosClientePresupuesto = class(TfrViewDatosYSeleccionCliente)
+    dxLayoutControl1Item10: TdxLayoutItem;
+    edtPersonaContacto: TcxDBButtonEdit;
+    dsPresupuesto: TDADataSource;
+    actElegirPersonaContacto: TAction;
+    procedure edtPersonaContactoPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure actElegirPersonaContactoExecute(Sender: TObject);
+  protected
+    procedure SetCliente(Value: IBizCliente); override;  
+  public
+    { Public declarations }
+  end;
+
+
+implementation
+
+{$R *.dfm}
+
+uses
+  uBizContactosPersonal;
+
+procedure TfrViewDatosClientePresupuesto.actElegirPersonaContactoExecute(
+  Sender: TObject);
+var
+  APersona : IBizContactoPersonal;
+begin
+  inherited;
+  APersona := FController.ElegirPersonaContacto(FCliente.Personal, 'El cliente dispone de personas de contacto dadas de alta en su ficha. Seleccione la que quiere utilizar.');
+  if Assigned(APersona) then
+  begin
+    dsPresupuesto.DataTable.Edit;
+    edtPersonaContacto.DataBinding.Field.AsString := APersona.NOMBRE;
+  end;
+end;
+
+procedure TfrViewDatosClientePresupuesto.edtPersonaContactoPropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  inherited;
+  actElegirPersonaContacto.Execute;
+end;
+
+procedure TfrViewDatosClientePresupuesto.SetCliente(Value: IBizCliente);
+begin
+  inherited;
+  if Assigned(FCliente) and Assigned(FCliente.Personal) then
+  begin
+    FCliente.Personal.Open;
+    edtPersonaContacto.Properties.Buttons[0].Visible := (FCliente.Personal.RecordCount > 0);
+  end;
+end;
+
+end.

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

@@ -1,24 +1,23 @@
 inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
   Width = 929
-  Height = 513
+  Height = 459
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
   ExplicitWidth = 929
-  ExplicitHeight = 513
+  ExplicitHeight = 459
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
     Width = 929
-    Height = 513
+    Height = 459
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
-    ExplicitWidth = 766
     DesignSize = (
       929
-      513)
+      459)
     object edtFechaPresupuesto: TcxDBDateEdit
       Left = 123
       Top = 82
@@ -102,75 +101,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       TabOrder = 0
       Width = 122
     end
-    inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente
-      Left = 486
-      Top = 28
-      Width = 350
-      Height = 212
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentFont = False
-      TabOrder = 9
-      ReadOnly = False
-      ExplicitLeft = 486
-      ExplicitTop = 28
-      inherited dxLayoutControl1: TdxLayoutControl
-        inherited edtlNombre: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
-        end
-        inherited edtNIFCIF: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
-        end
-        inherited edtCalle: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
-        end
-        inherited edtPoblacion: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
-        end
-        inherited edtProvincia: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
-        end
-        inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 329
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 329
-        end
-        inherited Button3: TBitBtn
-          Left = 219
-          ExplicitLeft = 219
-        end
-      end
-      inherited DADataSource: TDADataSource
-        Top = 72
-      end
-      inherited ActionList1: TActionList
-        Top = 72
-      end
-      inherited PngImageList: TPngImageList
-        Top = 72
-      end
-    end
     object cbFormaPago: TcxDBLookupComboBox
       Left = 123
       Top = 163
@@ -206,7 +136,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 122
     end
     object bFormasPago: TButton
-      Left = 324
+      Left = 251
       Top = 163
       Width = 132
       Height = 21
@@ -270,8 +200,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 260
     end
     object cbClienteFinal: TcxDBButtonEdit
-      Left = 486
+      Left = 413
-      Top = 276
+      Top = 309
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'CLIENTE_FINAL'
       DataBinding.DataSource = DADataSource
@@ -339,7 +269,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 260
     end
     object eReferenciaAux: TcxDBTextEdit
-      Left = 297
+      Left = 251
       Top = 28
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'REFERENCIA_AUX'
@@ -367,6 +297,84 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       TabOrder = 1
       Width = 132
     end
+    inline frViewDatosClientePresupuesto1: TfrViewDatosClientePresupuesto
+      Left = 413
+      Top = 28
+      Width = 494
+      Height = 245
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 9
+      ReadOnly = False
+      ExplicitLeft = 413
+      ExplicitTop = 28
+      ExplicitWidth = 494
+      ExplicitHeight = 245
+      inherited dxLayoutControl1: TdxLayoutControl
+        Width = 494
+        Height = 245
+        ExplicitWidth = 494
+        ExplicitHeight = 117
+        inherited edtlNombre: TcxDBTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 224
+          Width = 224
+        end
+        inherited edtNIFCIF: TcxDBTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 562
+          Width = 562
+        end
+        inherited edtCalle: TcxDBTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 562
+          Width = 562
+        end
+        inherited edtPoblacion: TcxDBTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 177
+          Width = 177
+        end
+        inherited edtProvincia: TcxDBTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 327
+          Width = 327
+        end
+        inherited edtCodigoPostal: TcxDBTextEdit
+          Left = 402
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitLeft = 402
+        end
+        inherited Button3: TBitBtn
+          Left = 292
+          ExplicitLeft = 292
+        end
+        inherited edtPersonaContacto: TcxDBButtonEdit
+        end
+      end
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -462,11 +470,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
         Hidden = True
         ShowBorder = False
         object dxLayoutControl1Group2: TdxLayoutGroup
-          AutoAligns = [aaVertical]
-          AlignHorz = ahClient
           Caption = 'Datos del cliente'
           object dxLayoutControl1Item1: TdxLayoutItem
-            Control = frViewClientePresupuesto
+            Caption = 'New Item'
+            ShowCaption = False
+            Control = frViewDatosClientePresupuesto1
             ControlOptions.AutoColor = True
             ControlOptions.ShowBorder = False
           end

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

@@ -5,7 +5,7 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, uViewBase, uBizPresupuestosCliente, DB, uDADataTable, uCustomView,
-  AppEvnts, StdCtrls, Mask, DBCtrls,
+  AppEvnts, StdCtrls, Mask, DBCtrls, uViewDatosClientePresupuesto,
   uViewObservaciones,  uViewDatosYSeleccionCliente,
   cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit,
   cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
@@ -38,8 +38,6 @@ type
     dxLayoutControl1Item3: TdxLayoutItem;
     eReferencia: TcxDBTextEdit;
     dxLayoutControl1Group7: TdxLayoutGroup;
-    dxLayoutControl1Item1: TdxLayoutItem;
-    frViewClientePresupuesto: TfrViewDatosYSeleccionCliente;
     ActionList1: TActionList;
     actElegirDireccion: TAction;
     dxLayoutControl1Item4: TdxLayoutItem;
@@ -62,6 +60,8 @@ type
     dxLayoutControl1Group4: TdxLayoutGroup;
     dxLayoutControl1Group6: TdxLayoutGroup;
     dxLayoutControl1Group8: TdxLayoutGroup;
+    frViewDatosClientePresupuesto1: TfrViewDatosClientePresupuesto;
+    dxLayoutControl1Item1: TdxLayoutItem;
     procedure CustomViewCreate(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure actElegirDireccionExecute(Sender: TObject);
@@ -174,7 +174,7 @@ begin
   inherited;
   FFormasPago := Nil;
   FFormasPagoController := TFormasPagoController.Create;
-  FViewClientePresupuesto := frViewClientePresupuesto;
+  FViewClientePresupuesto := frViewDatosClientePresupuesto1;
   FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
 end;
 
@@ -194,7 +194,7 @@ begin
     if (Application.MessageBox('Los descuentos de los artículos del presupuesto serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
       Exit;
   end;
-  frViewClientePresupuesto.actElegirContacto.Execute;
+  frViewDatosClientePresupuesto1.actElegirContacto.Execute;
 end;
 
 procedure TfrViewPresupuestoCliente.frViewClientePresupuestoButton2Click(Sender: TObject);
@@ -205,7 +205,7 @@ begin
     if (Application.MessageBox('Los descuentos de los artículos del presupuesto serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
       Exit;
   end;
-  frViewClientePresupuesto.actAnadirContacto.Execute;
+  frViewDatosClientePresupuesto1.actAnadirContacto.Execute;
 end;
 
 function TfrViewPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;
@@ -229,12 +229,14 @@ begin
     dsFormaPago.DataTable := FFormasPago.DataTable;
     dsFormaPago.DataTable.Active := True;
 
-    frViewClientePresupuesto.Cliente := FPresupuesto.Cliente;
+    frViewDatosClientePresupuesto1.Cliente := FPresupuesto.Cliente;
+    frViewDatosClientePresupuesto1.dsPresupuesto.DataTable := FPresupuesto.DataTable;
   end
   else begin
     DADataSource.DataTable := NIL;
     dsFormaPago.DataTable := NIL;
-    frViewClientePresupuesto.Cliente := nil;
+    frViewDatosClientePresupuesto1.Cliente := nil;
+    frViewDatosClientePresupuesto1.dsPresupuesto.DataTable := nil; 
   end;
 end;
 

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.2.4.0\0"
               VALUE "ProductVersion", "1.2.4.0\0"
-              VALUE "CompileDate", "viernes, 29 de agosto de 2008 16:16\0"
+              VALUE "CompileDate", "martes, 02 de septiembre de 2008 17:41\0"
          END
     END
     BLOCK "VarFileInfo"