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
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
@@ -100,10 +100,6 @@
TfEditorSituacionPedidoProveedor
-
-
- TFrame
-
TFrame
diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res and b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res differ
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