Ticket #10: elegir cliente final a partir de la lista de clientes.

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

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

@@ -44,9 +44,6 @@
     <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>
       
-      
-      
-      
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
@@ -55,11 +52,11 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
+    <DCCReference Include="..\Articulos_view.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="..\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="..\PresupuestosCliente_model.dcp" />
     <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
       <Form>fEditorElegirArticulosPresupuestoCliente</Form>
       <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>

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

@@ -229,14 +229,19 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       TabOrder = 2
       Width = 216
     end
-    object edtClienteFinal: TcxDBTextEdit
+    object cbClienteFinal: TcxDBButtonEdit
       Left = 123
       Top = 163
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'CLIENTE_FINAL'
       DataBinding.DataSource = DADataSource
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
       Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
+      Properties.OnButtonClick = cbClienteFinalPropertiesButtonClick
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
       Style.Color = clWindow
@@ -360,7 +365,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           end
           object dxLayoutControl1Item8: TdxLayoutItem
             Caption = 'Cliente final:'
-            Control = edtClienteFinal
+            Control = cbClienteFinal
             ControlOptions.ShowBorder = False
           end
           object dxLayoutControl1Group5: TdxLayoutGroup

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

@@ -12,7 +12,7 @@ uses
   cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
   uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit,
   cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
-  uBizFormasPago;
+  uBizFormasPago, cxButtonEdit;
 
 type
   IViewPresupuestoCliente = interface(IViewBase)
@@ -55,7 +55,7 @@ type
     dxLayoutControl1Item15: TdxLayoutItem;
     eRefCliente: TcxDBTextEdit;
     dxLayoutControl1Item8: TdxLayoutItem;
-    edtClienteFinal: TcxDBTextEdit;
+    cbClienteFinal: TcxDBButtonEdit;
     cbSituacion: TcxDBImageComboBox;
     dxLayoutControl1Item10: TdxLayoutItem;
     dxLayoutControl1Item9: TdxLayoutItem;
@@ -68,6 +68,8 @@ type
     procedure bFormasPagoClick(Sender: TObject);
     procedure frViewClientePresupuestoButton1Click(Sender: TObject);
     procedure frViewClientePresupuestoButton2Click(Sender: TObject);
+    procedure cbClienteFinalPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
   protected
     FPresupuesto : IBizPresupuestoCliente;
     FFormasPago : IBizFormaPago;
@@ -90,7 +92,8 @@ implementation
 { TfrViewPresupuestoCliente }
 
 uses
-  uClientesController, uBizDireccionesContacto, uPresupuestosClienteController;
+  uClientesController, uBizContactos, uBizDireccionesContacto,
+  uPresupuestosClienteController;
 
 
 procedure TfrViewPresupuestoCliente.actElegirDireccionExecute(Sender: TObject);
@@ -104,7 +107,7 @@ begin
   APresupuestoController := TPresupuestosClienteController.Create;
   try
     ADireccion := AClientesController.ElegirDireccionEntrega(FPresupuesto.Cliente.Direcciones, 
-      'Seleccione la dirección del cliente que quiere utilizar como dirección de envio de este Presupuesto.');
+      'Seleccione la dirección del cliente que quiere utilizar como dirección de envio de este presupuesto.');
     if Assigned(ADireccion) then
     begin
       APresupuestoController.CopiarDireccionEnvio(ADireccion, FPresupuesto);
@@ -138,13 +141,40 @@ begin
      FFormasPagoController.VerTodos(FFormasPago);
 end;
 
+procedure TfrViewPresupuestoCliente.cbClienteFinalPropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+var
+  ACliente : IBizCliente;
+  AClienteController : IClientesController;
+begin
+  inherited;
+  AClienteController := TClientesController.Create;
+  try
+    ACliente := (AClienteController.ElegirContacto(AClienteController.BuscarTodos,
+      'Elija el cliente final de este presupuesto', False) as IBizCliente);
+    if Assigned(ACliente) then
+    begin
+      ShowHourglassCursor;
+      try
+        Presupuesto.Edit;
+        Presupuesto.CLIENTE_FINAL := ACliente.NOMBRE;
+      finally
+        HideHourglassCursor;
+      end;
+    end;
+  finally
+    ACliente := NIL;
+    AClienteController := NIL;
+  end;
+end;
+
 procedure TfrViewPresupuestoCliente.CustomViewCreate(Sender: TObject);
 begin
   inherited;
   FFormasPago := Nil;
   FFormasPagoController := TFormasPagoController.Create;
   FViewClientePresupuesto := frViewClientePresupuesto;
-  FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el Presupuesto.';
+  FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
 end;
 
 procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject);
@@ -160,7 +190,7 @@ begin
   if Assigned(Presupuesto) and Assigned(Presupuesto.Cliente) and
     Assigned (Presupuesto.Detalles) and (Presupuesto.Detalles.RecordCount > 0) then
   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
+    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;
@@ -171,7 +201,7 @@ begin
   if Assigned(Presupuesto) and Assigned(Presupuesto.Cliente) and
     Assigned (Presupuesto.Detalles) and (Presupuesto.Detalles.RecordCount > 0) then
   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
+    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;