* 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

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;

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.

Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj

@@ -49,20 +49,20 @@
     <DelphiCompile Include="PedidosProveedor_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Almacenes_controller.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Almacenes_model.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Articulos_view.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Contactos_model.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Contactos_view.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\GUIBase.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Obras_controller.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Obras_model.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PedidosProveedor_controller.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PedidosProveedor_model.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PedProv_AlbProv_relation.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PedProv_FacProv_relation.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\Almacenes_controller.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\Almacenes_model.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\Articulos_view.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\Contactos_model.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\Contactos_view.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\GestorInformes_controller.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\GUIBase.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\Obras_controller.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\Obras_model.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\PedidosProveedor_controller.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\PedidosProveedor_model.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\PedProv_AlbProv_relation.dcp" />
+    <DCCReference Include="..\..\..\..\Resources\Firmas Tecsitel\PedProv_FacProv_relation.dcp" />
     <DCCReference Include="uDialogOpcionesImpresion.pas">
       <Form>fDialogOpcionesImpresion</Form>
       <DesignClass>TForm</DesignClass>
@@ -100,10 +100,6 @@
       <DesignClass>TfEditorSituacionPedidoProveedor</DesignClass>
     </DCCReference>
     <DCCReference Include="uPedidosProveedorViewRegister.pas" />
-    <DCCReference Include="uViewDatosYSeleccionProveedorPedido.pas">
-      <Form>fruViewDatosYSeleccionProveedorPedido</Form>
-      <DesignClass>TFrame</DesignClass>
-    </DCCReference>
     <DCCReference Include="uViewDetallesPedidoProveedor.pas">
       <Form>frViewDetallesPedidoProveedor</Form>
       <DesignClass>TFrame</DesignClass>

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

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;
 

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