From c83c0e21dd8c579e2c67e269c804e8aff96242a3 Mon Sep 17 00:00:00 2001 From: david Date: Tue, 4 Mar 2008 11:19:32 +0000 Subject: [PATCH] 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 --- .../Views/PresupuestosCliente_view.dproj | 13 ++---- .../Views/PresupuestosCliente_view.res | Bin 384 -> 4748 bytes .../Views/uViewPresupuestoCliente.dfm | 11 +++-- .../Views/uViewPresupuestoCliente.pas | 44 +++++++++++++++--- 4 files changed, 50 insertions(+), 18 deletions(-) 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 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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;