diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj index f4083dcf..2f541c53 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj @@ -44,9 +44,6 @@ FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - Intraweb 8.0 Design Package for Borland Development Studio 2006 PresupuestosCliente_view.dpk @@ -55,11 +52,11 @@ MainSource - - - - - + + + + +
fEditorElegirArticulosPresupuestoCliente
TfEditorElegirArticulosPedidoCliente diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res index 8b251f31..1641339f 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res and b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res differ diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm index b24ce273..79dee12a 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm +++ b/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 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas index 32055663..7ddb10ba 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas +++ b/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;