Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Pedidos a proveedor: ficha del pedido recolocada para hacerla más vistosa.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@492 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-07-31 17:14:19 +00:00
parent dfc46b4396
commit e9a6941c8b
4 changed files with 173 additions and 134 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm
View File

@ -18,10 +18,10 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
476) 476)
object Bevel1: TBevel object Bevel1: TBevel
Left = 10 Left = 10
Top = 434 Top = 432
Width = 529 Width = 566
Height = 5 Height = 2
Shape = bsBottomLine Shape = bsTopLine
end end
object rdxDestino1: TRadioButton object rdxDestino1: TRadioButton
Left = 10 Left = 10
@ -73,7 +73,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
end end
object bModificar: TBitBtn object bModificar: TBitBtn
Left = 448 Left = 448
Top = 403 Top = 396
Width = 128 Width = 128
Height = 25 Height = 25
Caption = 'Modificar la direcci'#243'n...' Caption = 'Modificar la direcci'#243'n...'
@ -130,7 +130,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Width = 551 Width = 551
end end
object edtEntregarA: TcxDBButtonEdit object edtEntregarA: TcxDBButtonEdit
Left = 70 Left = 242
Top = 445 Top = 445
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsPedido DataBinding.DataSource = dsPedido
@ -213,12 +213,14 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
end end
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Bevel1' Caption = 'Bevel1'
Offsets.Bottom = 5
Offsets.Top = 5
ShowCaption = False ShowCaption = False
Control = Bevel1 Control = Bevel1
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Entregar a:' Caption = 'Entregar este pedido a la persona de contacto:'
Control = edtEntregarA Control = edtEntregarA
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

29
Source/Modulos/Pedidos a proveedor/Views/uViewObraReserva.dfm
View File

@ -1,24 +1,32 @@
inherited frViewObraReserva: TfrViewObraReserva inherited frViewObraReserva: TfrViewObraReserva
Width = 586 Width = 586
Height = 46 Height = 72
ExplicitWidth = 586 ExplicitWidth = 586
ExplicitHeight = 46 ExplicitHeight = 72
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 586 Width = 586
Height = 46 Height = 72
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 46
DesignSize = ( DesignSize = (
586 586
46) 72)
object Label1: TLabel
Left = 10
Top = 10
Width = 235
Height = 13
Caption = 'Reservar el material de este pedido para la obra:'
end
object cbListaObrasReserva: TcxDBLookupComboBox object cbListaObrasReserva: TcxDBLookupComboBox
Left = 25 Left = 25
Top = 10 Top = 29
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ID_OBRA' DataBinding.DataField = 'ID_OBRA'
DataBinding.DataSource = dsPedido DataBinding.DataSource = dsPedido
@ -51,6 +59,13 @@ inherited frViewObraReserva: TfrViewObraReserva
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Label1'
ShowCaption = False
Control = Label1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
Offsets.Left = 15 Offsets.Left = 15
ShowCaption = False ShowCaption = False
@ -60,11 +75,11 @@ inherited frViewObraReserva: TfrViewObraReserva
end end
end end
object dsPedido: TDADataSource object dsPedido: TDADataSource
Left = 320 Left = 200
Top = 8 Top = 8
end end
object dsObras: TDADataSource object dsObras: TDADataSource
Left = 288 Left = 160
Top = 8 Top = 8
end end
end end

2
Source/Modulos/Pedidos a proveedor/Views/uViewObraReserva.pas
View File

@ -31,6 +31,8 @@ type
dxLayoutControl1Item6: TdxLayoutItem; dxLayoutControl1Item6: TdxLayoutItem;
cbListaObrasReserva: TcxDBLookupComboBox; cbListaObrasReserva: TcxDBLookupComboBox;
dsObras: TDADataSource; dsObras: TDADataSource;
Label1: TLabel;
dxLayoutControl1Item1: TdxLayoutItem;
protected protected
FObrasController : IObrasController; FObrasController : IObrasController;
FObras: IBizObra; FObras: IBizObra;

260
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
View File

@ -1,25 +1,27 @@
inherited frViewPedidoProveedor: TfrViewPedidoProveedor inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 787 Width = 965
Height = 615 Height = 546
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 787 ExplicitWidth = 965
ExplicitHeight = 615 ExplicitHeight = 546
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 787 Width = 965
Height = 615 Height = 546
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 787
ExplicitHeight = 615
DesignSize = ( DesignSize = (
787 965
615) 546)
object edtFechaPedido: TcxDBDateEdit object edtFechaPedido: TcxDBDateEdit
Left = 137 Left = 121
Top = 55 Top = 55
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PEDIDO' DataBinding.DataField = 'FECHA_PEDIDO'
@ -38,11 +40,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Width = 240 Width = 4
end end
object edtFechaConfirmacion: TcxDBDateEdit object edtFechaConfirmacion: TcxDBDateEdit
Left = 137 Left = 599
Top = 195 Top = 240
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_CONFIRMACION' DataBinding.DataField = 'FECHA_CONFIRMACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -58,12 +60,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 10
Width = 240 Width = 359
end end
object edtFechaEntrega: TcxDBDateEdit object edtFechaEntrega: TcxDBDateEdit
Left = 137 Left = 599
Top = 222 Top = 267
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENTREGA' DataBinding.DataField = 'FECHA_ENTREGA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -77,12 +79,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 11
Width = 240 Width = 359
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 526 Left = 484
Top = 213 Top = 324
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -96,10 +98,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 12
Height = 380 Height = 380
Width = 358 Width = 239
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 137 Left = 121
Top = 28 Top = 28
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
@ -118,73 +120,73 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Width = 240 Width = 359
end end
inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
Left = 22 Left = 22
Top = 279 Top = 168
Width = 355 Width = 432
Height = 314 Height = 270
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 6
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 279 ExplicitTop = 168
ExplicitWidth = 355 ExplicitWidth = 432
ExplicitHeight = 314 ExplicitHeight = 270
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 355 Width = 432
Height = 314 Height = 270
ExplicitWidth = 355 ExplicitWidth = 355
ExplicitHeight = 314 ExplicitHeight = 314
inherited Bevel1: TBevel inherited Bevel1: TBevel
Top = 190 Top = 204
Width = 529 Width = 412
ExplicitTop = 190 ExplicitTop = 204
ExplicitWidth = 529 ExplicitWidth = 412
end end
inherited rdxDestino1: TRadioButton inherited rdxDestino1: TRadioButton
Width = 335 Width = 414
ExplicitWidth = 335 ExplicitWidth = 414
end end
inherited rdxDestino2: TRadioButton inherited rdxDestino2: TRadioButton
Width = 335 Width = 414
ExplicitWidth = 335 ExplicitWidth = 414
end end
inherited cbListaAlmacenes: TcxDBLookupComboBox inherited cbListaAlmacenes: TcxDBLookupComboBox
ExplicitWidth = 320 ExplicitWidth = 399
Width = 320 Width = 399
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 336 Left = 294
Top = 159 Top = 168
ExplicitLeft = 336 ExplicitLeft = 294
ExplicitTop = 159 ExplicitTop = 168
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
Width = 320 Width = 399
Height = 102 Height = 62
ExplicitWidth = 320 ExplicitWidth = 399
ExplicitHeight = 102 ExplicitHeight = 62
end end
inherited RadioButton1: TRadioButton inherited RadioButton1: TRadioButton
Width = 335 Width = 454
ExplicitWidth = 335 ExplicitWidth = 454
end end
inherited cbListaObras: TcxDBLookupComboBox inherited cbListaObras: TcxDBLookupComboBox
ExplicitWidth = 320 ExplicitWidth = 439
Width = 320 Width = 439
end end
inherited edtEntregarA: TcxDBButtonEdit inherited edtEntregarA: TcxDBButtonEdit
Top = 201 Top = 217
ExplicitTop = 201 ExplicitTop = 217
ExplicitWidth = 275 ExplicitWidth = 394
Width = 275 Width = 394
end end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
@ -199,7 +201,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 137 Left = 121
Top = 82 Top = 82
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -226,10 +228,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 2
Width = 102 Width = 24
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 364 Left = 322
Top = 82 Top = 82
Width = 132 Width = 132
Height = 21 Height = 21
@ -238,8 +240,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object edtFechaEnvio: TcxDBDateEdit object edtFechaEnvio: TcxDBDateEdit
Left = 137 Left = 599
Top = 168 Top = 213
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -255,11 +257,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 9
Width = 240 Width = 344
end end
object eReferenciaPedidoCli: TcxTextEdit object eReferenciaPedidoCli: TcxTextEdit
Left = 137 Left = 121
Top = 109 Top = 109
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False Enabled = False
@ -279,10 +281,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 4
Width = 102 Width = 221
end end
object bVerPedidoCliente: TButton object bVerPedidoCliente: TButton
Left = 364 Left = 322
Top = 109 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
@ -290,9 +292,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
TabOrder = 5 TabOrder = 5
end end
inline frViewProveedorPedido1: TfrViewProveedorPedido inline frViewProveedorPedido1: TfrViewProveedorPedido
Left = 526 Left = 484
Top = 28 Top = 28
Width = 358 Width = 486
Height = 149 Height = 149
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -300,74 +302,89 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 11 TabOrder = 8
ReadOnly = False ReadOnly = False
ExplicitLeft = 526 ExplicitLeft = 484
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 358 ExplicitWidth = 486
ExplicitHeight = 149 ExplicitHeight = 149
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 358 Width = 486
Height = 266 Height = 266
ExplicitWidth = 358 ExplicitWidth = 358
ExplicitHeight = 266 ExplicitHeight = 266
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 230 ExplicitWidth = 213
Width = 230 Width = 213
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 230 ExplicitWidth = 213
Width = 230 Width = 213
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 230 ExplicitWidth = 213
Width = 230 Width = 213
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 112 ExplicitWidth = 95
Width = 112 Width = 95
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 230 ExplicitWidth = 213
Width = 230 Width = 213
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 249 Left = 367
ExplicitLeft = 249 ExplicitLeft = 367
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 133 Left = 251
ExplicitLeft = 133 ExplicitLeft = 251
end end
inherited edtPersonaContacto: TcxDBTextEdit inherited edtPersonaContacto: TcxDBTextEdit
ExplicitWidth = 230 ExplicitWidth = 213
Width = 230 Width = 213
end end
inherited edtReferenciaAsignada: TcxDBTextEdit inherited edtReferenciaAsignada: TcxDBTextEdit
Left = 210 Left = 328
ExplicitLeft = 210 ExplicitLeft = 328
end end
inherited edtFax: TcxDBTextEdit inherited edtFax: TcxDBTextEdit
ExplicitWidth = 37 ExplicitWidth = 82
Width = 37 Width = 82
end end
end end
end end
inline frViewObraReserva1: TfrViewObraReserva inline frViewObraReserva1: TfrViewObraReserva
Left = 137 Left = 22
Top = 547 Top = 452
Width = 586 Width = 331
Height = 46 Height = 72
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 10 TabOrder = 7
ReadOnly = False ReadOnly = False
ExplicitLeft = 137 ExplicitLeft = 22
ExplicitTop = 547 ExplicitTop = 452
ExplicitWidth = 331
inherited dxLayoutControl1: TdxLayoutControl
Width = 331
DesignSize = (
331
72)
inherited Label1: TLabel
Width = 235
ExplicitWidth = 235
end
inherited cbListaObrasReserva: TcxDBLookupComboBox
ExplicitWidth = 296
Width = 296
end
end
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -442,25 +459,6 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
end end
end end
object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaHorizontal]
Caption = 'Situaci'#243'n del pedido'
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Enviado al prov. el d'#237'a:'
Control = edtFechaEnvio
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Confirmado el d'#237'a:'
Control = edtFechaConfirmacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Entrega prevista:'
Control = edtFechaEntrega
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
@ -475,9 +473,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
end end
object dxLayoutControl1Group11: TdxLayoutGroup object dxLayoutControl1Group11: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avBottom
Caption = 'Datos de reserva' Caption = 'Datos de reserva'
object dxLayoutControl1Item13: TdxLayoutItem object dxLayoutControl1Item13: TdxLayoutItem
Caption = 'Reservar para obra:' Caption = 'Reservar para obra:'
ShowCaption = False
Control = frViewObraReserva1 Control = frViewObraReserva1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -500,6 +501,25 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaHorizontal]
Caption = 'Situaci'#243'n del pedido'
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Enviado al prov. el d'#237'a:'
Control = edtFechaEnvio
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Confirmado el d'#237'a:'
Control = edtFechaConfirmacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Entrega prevista:'
Control = edtFechaEntrega
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group7: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient