From 5c8c2b2b94b9b7d698cbbae8fcf897168cf3acce Mon Sep 17 00:00:00 2001 From: david Date: Wed, 3 Dec 2008 17:15:22 +0000 Subject: [PATCH] * Ticket #166 -> Arreglo para que en la ficha del pedido a proveedor salga el fax y el cod. de cliente. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@794 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../uDireccionesContactoController.pas | 1 + .../Views/PedidosProveedor_view.dpk | 3 +- .../Views/PedidosProveedor_view.dproj | 32 ++++----- .../Views/PedidosProveedor_view.res | Bin 384 -> 4748 bytes .../uViewDatosYSeleccionProveedorPedido.dfm | 33 +++++----- .../uViewDatosYSeleccionProveedorPedido.pas | 15 +++-- .../Views/uViewPedidoProveedor.dfm | 61 ++++++++++-------- 7 files changed, 78 insertions(+), 67 deletions(-) diff --git a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas index d2b389dd..12fd7d00 100644 --- a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas +++ b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas @@ -80,6 +80,7 @@ begin PROVINCIA := AContacto.PROVINCIA; CODIGO_POSTAL := AContacto.CODIGO_POSTAL; TELEFONO := AContacto.TELEFONO_1; + FAX := AContacto.FAX; MOVIL := AContacto.MOVIL_1; EMAIL := AContacto.EMAIL_1; end; diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk index ff284f44..1d4ddf98 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk +++ b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk @@ -57,7 +57,6 @@ contains uViewProveedorPedido in 'uViewProveedorPedido.pas' {frViewProveedorPedido: TFrame}, uEditorElegirPersonaContactoPedido in 'uEditorElegirPersonaContactoPedido.pas' {fEditorElegirPersonaContactoPedido: TfEditorSituacionPedidoProveedor}, uViewObraReserva in 'uViewObraReserva.pas' {frViewObraReserva: TFrame}, - uDialogOpcionesImpresion in 'uDialogOpcionesImpresion.pas' {fDialogOpcionesImpresion: TForm}, - uViewDatosYSeleccionProveedorPedido in 'uViewDatosYSeleccionProveedorPedido.pas' {frViewDatosYSeleccionProveedorPedido: TFrame}; + uDialogOpcionesImpresion in 'uDialogOpcionesImpresion.pas' {fDialogOpcionesImpresion: TForm}; end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj index 8de61fd3..d9c51866 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj +++ b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj @@ -49,20 +49,20 @@ MainSource - - - - - - - - - - - - - - + + + + + + + + + + + + + +
fDialogOpcionesImpresion
TForm @@ -100,10 +100,6 @@ TfEditorSituacionPedidoProveedor - -
fruViewDatosYSeleccionProveedorPedido
- TFrame -
frViewDetallesPedidoProveedor
TFrame diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_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/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.dfm index e841386b..1cf8694e 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.dfm @@ -1,13 +1,13 @@ inherited frViewDatosYSeleccionProveedorPedido: TfrViewDatosYSeleccionProveedorPedido Width = 505 - Height = 171 + Height = 214 ExplicitWidth = 505 - ExplicitHeight = 171 + ExplicitHeight = 214 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 505 - Height = 171 + Height = 214 Margins.Left = 0 Margins.Top = 0 Margins.Right = 0 @@ -19,7 +19,7 @@ inherited frViewDatosYSeleccionProveedorPedido: TfrViewDatosYSeleccionProveedorP AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 505 - 171) + 214) object edtlNombre: TcxDBTextEdit Left = 63 Top = 41 @@ -47,12 +47,12 @@ inherited frViewDatosYSeleccionProveedorPedido: TfrViewDatosYSeleccionProveedorP Height = 21 Width = 224 end - object edtNIFCIF: TcxDBTextEdit + object edtCODIGO_ASIGNADO: TcxDBTextEdit Left = 392 Top = 41 Anchors = [akLeft, akTop, akRight] AutoSize = False - DataBinding.DataField = 'NIF_CIF' + DataBinding.DataField = 'CODIGO_ASIGNADO' DataBinding.DataSource = dsProveedor Enabled = False ParentFont = False @@ -76,7 +76,7 @@ inherited frViewDatosYSeleccionProveedorPedido: TfrViewDatosYSeleccionProveedorP end object edtPersonaContacto: TcxDBTextEdit Left = 63 - Top = 101 + Top = 137 Anchors = [akLeft, akTop, akRight] AutoSize = False DataBinding.DataField = 'PERSONA_CONTACTO_PROV' @@ -98,9 +98,10 @@ inherited frViewDatosYSeleccionProveedorPedido: TfrViewDatosYSeleccionProveedorP Height = 21 Width = 283 end - object edtDireccion: TcxTextEdit + object edtDireccion: TcxMemo Left = 63 - Top = 70 + Top = 68 + Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False @@ -118,7 +119,8 @@ inherited frViewDatosYSeleccionProveedorPedido: TfrViewDatosYSeleccionProveedorP StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 4 - Width = 121 + Height = 61 + Width = 386 end object Button4: TButton Left = 472 @@ -130,7 +132,7 @@ inherited frViewDatosYSeleccionProveedorPedido: TfrViewDatosYSeleccionProveedorP end object Button5: TButton Left = 472 - Top = 99 + Top = 135 Width = 23 Height = 25 Action = actElegirPersonaContacto @@ -138,7 +140,7 @@ inherited frViewDatosYSeleccionProveedorPedido: TfrViewDatosYSeleccionProveedorP end object Button3: TBitBtn Left = 297 - Top = 130 + Top = 166 Width = 198 Height = 25 Action = actVerContacto @@ -303,8 +305,8 @@ inherited frViewDatosYSeleccionProveedorPedido: TfrViewDatosYSeleccionProveedorP object dxLayoutControl1Item2: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight - Caption = 'NIF/CIF:' - Control = edtNIFCIF + Caption = 'Cod. cli:' + Control = edtCODIGO_ASIGNADO ControlOptions.ShowBorder = False end end @@ -317,7 +319,8 @@ inherited frViewDatosYSeleccionProveedorPedido: TfrViewDatosYSeleccionProveedorP AutoAligns = [] AlignHorz = ahClient AlignVert = avCenter - Caption = 'Direcci'#243'n' + Caption = 'Direcci'#243'n:' + CaptionOptions.AlignVert = tavTop Control = edtDireccion ControlOptions.ShowBorder = False end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas index b99d20c5..828f7ea1 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas @@ -10,7 +10,8 @@ uses pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask, DBCtrls, uProveedoresController, dxLayoutControl, Buttons, uDAInterfaces, cxMaskEdit, cxButtonEdit, uBizPedidosProveedor, uBizDireccionesContacto, - uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons; + uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons, + cxMemo; type IViewDatosYSeleccionProveedorPedido = interface(IViewBase) @@ -51,7 +52,7 @@ type dxLayoutControl1Item1: TdxLayoutItem; edtlNombre: TcxDBTextEdit; dxLayoutControl1Item2: TdxLayoutItem; - edtNIFCIF: TcxDBTextEdit; + edtCODIGO_ASIGNADO: TcxDBTextEdit; dsPedido: TDADataSource; actElegirDireccion: TAction; actElegirPersonaContacto: TAction; @@ -59,7 +60,7 @@ type edtPersonaContacto: TcxDBTextEdit; dxLayoutControl1Group4: TdxLayoutGroup; dxLayoutControl1Item4: TdxLayoutItem; - edtDireccion: TcxTextEdit; + edtDireccion: TcxMemo; Button4: TButton; dxLayoutControl1Item5: TdxLayoutItem; dxLayoutControl1Group3: TdxLayoutGroup; @@ -202,7 +203,7 @@ begin FDireccionesController := TDireccionesContactoController.Create; edtlNombre.Enabled := False; - edtNIFCIF.Enabled := False; + edtCODIGO_ASIGNADO.Enabled := False; edtDireccion.Enabled := False; edtPersonaContacto.Enabled := False; end; @@ -289,10 +290,16 @@ begin ACadena := ''; if Assigned(FDireccion) then + begin ACadena := Format('%s %s %s %s', [FDireccion.CALLE, FDireccion.POBLACION, FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]); + if not FDireccion.FAXIsNull then + ACadena := ACadena + #13#10 + 'Fax: ' + FDireccion.FAX; + + end; + edtDireccion.Text := ACadena; end; diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm index 5e6f80f5..f2de9e45 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm @@ -46,8 +46,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 333 end object edtFechaConfirmacion: TcxDBDateEdit - Left = 578 - Top = 262 + Left = 589 + Top = 292 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_CONFIRMACION' DataBinding.DataSource = DADataSource @@ -71,8 +71,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 344 end object edtFechaEntrega: TcxDBDateEdit - Left = 578 - Top = 289 + Left = 589 + Top = 319 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ENTREGA' DataBinding.DataSource = DADataSource @@ -94,8 +94,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 344 end object memObservaciones: TcxDBMemo - Left = 463 - Top = 346 + Left = 474 + Top = 376 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -189,9 +189,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 551 end inherited bModificar: TBitBtn - Left = 273 + Left = 284 Top = 164 - ExplicitLeft = 273 + ExplicitLeft = 284 ExplicitTop = 164 end inherited txtDireccion: TStaticText @@ -261,7 +261,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 195 end object bFormasPago: TButton - Left = 301 + Left = 312 Top = 82 Width = 132 Height = 21 @@ -270,8 +270,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor OnClick = bFormasPagoClick end object edtFechaEnvio: TcxDBDateEdit - Left = 578 - Top = 235 + Left = 589 + Top = 265 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataSource = DADataSource @@ -322,7 +322,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 195 end object bVerPedidoCliente: TButton - Left = 301 + Left = 312 Top = 109 Width = 132 Height = 23 @@ -356,8 +356,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor ExplicitWidth = 202 end inherited Button3: TBitBtn - Left = 257 - ExplicitLeft = 257 + Left = 268 + ExplicitLeft = 268 end inherited cbObraReserva: TcxComboBox Style.LookAndFeel.SkinName = '' @@ -378,10 +378,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor end end inline frViewDatosYSeleccionProveedorPedido1: TfrViewDatosYSeleccionProveedorPedido - Left = 463 + Left = 474 Top = 28 - Width = 505 - Height = 171 + Width = 480 + Height = 201 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 @@ -390,9 +390,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor ParentFont = False TabOrder = 8 ReadOnly = False - ExplicitLeft = 463 + ExplicitLeft = 474 ExplicitTop = 28 + ExplicitWidth = 480 + ExplicitHeight = 201 inherited dxLayoutControl1: TdxLayoutControl + Width = 480 + Height = 201 + ExplicitHeight = 171 inherited edtlNombre: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -401,13 +406,13 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor ExplicitWidth = 224 Width = 224 end - inherited edtNIFCIF: TcxDBTextEdit - Left = 367 + inherited edtCODIGO_ASIGNADO: TcxDBTextEdit + Left = 356 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 367 + ExplicitLeft = 356 end inherited edtPersonaContacto: TcxDBTextEdit Style.LookAndFeel.SkinName = '' @@ -417,7 +422,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor ExplicitWidth = 283 Width = 283 end - inherited edtDireccion: TcxTextEdit + inherited edtDireccion: TcxMemo Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -426,16 +431,16 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 121 end inherited Button4: TButton - Left = 447 - ExplicitLeft = 447 + Left = 436 + ExplicitLeft = 436 end inherited Button5: TButton - Left = 447 - ExplicitLeft = 447 + Left = 436 + ExplicitLeft = 436 end inherited Button3: TBitBtn - Left = 272 - ExplicitLeft = 272 + Left = 261 + ExplicitLeft = 261 end end end