roberto
9ee2b0303a
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@474 0c75b7a4-871f-7646-8a2f-f78d34cc349f
535 lines
17 KiB
Plaintext
535 lines
17 KiB
Plaintext
inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
|
Width = 787
|
|
Height = 615
|
|
OnCreate = CustomViewCreate
|
|
OnDestroy = CustomViewDestroy
|
|
ExplicitWidth = 787
|
|
ExplicitHeight = 615
|
|
object dxLayoutControl1: TdxLayoutControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 787
|
|
Height = 615
|
|
Align = alClient
|
|
ParentBackground = True
|
|
TabOrder = 0
|
|
TabStop = False
|
|
AutoContentSizes = [acsWidth, acsHeight]
|
|
DesignSize = (
|
|
787
|
|
615)
|
|
object edtFechaPedido: TcxDBDateEdit
|
|
Left = 137
|
|
Top = 55
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'FECHA_PEDIDO'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.ImmediatePost = True
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.Color = clInfoBk
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
Style.Shadow = False
|
|
Style.ButtonStyle = bts3D
|
|
Style.ButtonTransparency = ebtNone
|
|
Style.PopupBorderStyle = epbsFrame3D
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 1
|
|
Width = 240
|
|
end
|
|
object edtFechaConfirmacion: TcxDBDateEdit
|
|
Left = 137
|
|
Top = 195
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'FECHA_CONFIRMACION'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.ImmediatePost = True
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
Style.Shadow = False
|
|
Style.ButtonStyle = bts3D
|
|
Style.ButtonTransparency = ebtNone
|
|
Style.PopupBorderStyle = epbsFrame3D
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 7
|
|
Width = 240
|
|
end
|
|
object edtFechaEntrega: TcxDBDateEdit
|
|
Left = 137
|
|
Top = 222
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'FECHA_ENTREGA'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.ImmediatePost = True
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
Style.ButtonStyle = bts3D
|
|
Style.PopupBorderStyle = epbsFrame3D
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 8
|
|
Width = 240
|
|
end
|
|
object memObservaciones: TcxDBMemo
|
|
Left = 526
|
|
Top = 213
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
DataBinding.DataField = 'OBSERVACIONES'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.ScrollBars = ssVertical
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 12
|
|
Height = 380
|
|
Width = 358
|
|
end
|
|
object eReferencia: TcxDBTextEdit
|
|
Left = 137
|
|
Top = 28
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'REFERENCIA'
|
|
DataBinding.DataSource = DADataSource
|
|
Enabled = False
|
|
Properties.ReadOnly = False
|
|
Properties.ValidateOnEnter = True
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.Color = clInfoBk
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.Color = clMenuBar
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.TextColor = clWindowText
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 0
|
|
Width = 240
|
|
end
|
|
inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
|
|
Left = 22
|
|
Top = 279
|
|
Width = 355
|
|
Height = 314
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 9
|
|
ReadOnly = False
|
|
ExplicitLeft = 22
|
|
ExplicitTop = 279
|
|
ExplicitWidth = 355
|
|
ExplicitHeight = 314
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 355
|
|
Height = 314
|
|
ExplicitWidth = 355
|
|
ExplicitHeight = 314
|
|
inherited Bevel1: TBevel
|
|
Top = 190
|
|
Width = 529
|
|
ExplicitTop = 190
|
|
ExplicitWidth = 529
|
|
end
|
|
inherited rdxDestino1: TRadioButton
|
|
Width = 335
|
|
ExplicitWidth = 335
|
|
end
|
|
inherited rdxDestino2: TRadioButton
|
|
Width = 335
|
|
ExplicitWidth = 335
|
|
end
|
|
inherited cbListaAlmacenes: TcxDBLookupComboBox
|
|
ExplicitWidth = 320
|
|
Width = 320
|
|
end
|
|
inherited bModificar: TBitBtn
|
|
Left = 336
|
|
Top = 159
|
|
ExplicitLeft = 336
|
|
ExplicitTop = 159
|
|
end
|
|
inherited txtDireccion: TStaticText
|
|
Width = 320
|
|
Height = 102
|
|
ExplicitWidth = 320
|
|
ExplicitHeight = 102
|
|
end
|
|
inherited RadioButton1: TRadioButton
|
|
Width = 335
|
|
ExplicitWidth = 335
|
|
end
|
|
inherited cbListaObras: TcxDBLookupComboBox
|
|
ExplicitWidth = 320
|
|
Width = 320
|
|
end
|
|
inherited edtEntregarA: TcxDBButtonEdit
|
|
Top = 201
|
|
ExplicitTop = 201
|
|
ExplicitWidth = 275
|
|
Width = 275
|
|
end
|
|
end
|
|
inherited ActionList1: TActionList
|
|
Left = 72
|
|
end
|
|
inherited dsPedido: TDADataSource
|
|
Left = 0
|
|
Top = 0
|
|
end
|
|
inherited dsObras: TDADataSource
|
|
Left = 272
|
|
end
|
|
end
|
|
object cbFormaPago: TcxDBLookupComboBox
|
|
Left = 137
|
|
Top = 82
|
|
DataBinding.DataField = 'ID_FORMA_PAGO'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'REFERENCIA'
|
|
end>
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
Properties.ListOptions.SyncMode = True
|
|
Properties.ListSource = dsFormaPago
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.Kind = lfStandard
|
|
Style.LookAndFeel.NativeStyle = True
|
|
Style.ButtonStyle = bts3D
|
|
Style.PopupBorderStyle = epbsFrame3D
|
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.Kind = lfStandard
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 2
|
|
Width = 102
|
|
end
|
|
object bFormasPago: TButton
|
|
Left = 364
|
|
Top = 82
|
|
Width = 132
|
|
Height = 21
|
|
Caption = 'Ver las formas de pago...'
|
|
TabOrder = 3
|
|
OnClick = bFormasPagoClick
|
|
end
|
|
object edtFechaEnvio: TcxDBDateEdit
|
|
Left = 137
|
|
Top = 168
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'FECHA_ENVIO'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.ImmediatePost = True
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
Style.Shadow = False
|
|
Style.ButtonStyle = bts3D
|
|
Style.ButtonTransparency = ebtNone
|
|
Style.PopupBorderStyle = epbsFrame3D
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 6
|
|
Width = 240
|
|
end
|
|
object eReferenciaPedidoCli: TcxTextEdit
|
|
Left = 137
|
|
Top = 109
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Enabled = False
|
|
Properties.ReadOnly = False
|
|
Properties.ValidateOnEnter = True
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.Color = clWindow
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.Kind = lfStandard
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.TextColor = clWindowText
|
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.Kind = lfStandard
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 4
|
|
Width = 102
|
|
end
|
|
object bVerPedidoCliente: TButton
|
|
Left = 364
|
|
Top = 109
|
|
Width = 132
|
|
Height = 23
|
|
Action = actVerPedidoCli
|
|
TabOrder = 5
|
|
end
|
|
inline frViewProveedorPedido1: TfrViewProveedorPedido
|
|
Left = 526
|
|
Top = 28
|
|
Width = 358
|
|
Height = 149
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 11
|
|
ReadOnly = False
|
|
ExplicitLeft = 526
|
|
ExplicitTop = 28
|
|
ExplicitWidth = 358
|
|
ExplicitHeight = 149
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 358
|
|
Height = 266
|
|
ExplicitWidth = 358
|
|
ExplicitHeight = 266
|
|
inherited edtlNombre: TcxDBTextEdit
|
|
ExplicitWidth = 230
|
|
Width = 230
|
|
end
|
|
inherited edtNIFCIF: TcxDBTextEdit
|
|
ExplicitWidth = 230
|
|
Width = 230
|
|
end
|
|
inherited edtCalle: TcxDBTextEdit
|
|
ExplicitWidth = 230
|
|
Width = 230
|
|
end
|
|
inherited edtPoblacion: TcxDBTextEdit
|
|
ExplicitWidth = 112
|
|
Width = 112
|
|
end
|
|
inherited edtProvincia: TcxDBTextEdit
|
|
ExplicitWidth = 230
|
|
Width = 230
|
|
end
|
|
inherited edtCodigoPostal: TcxDBTextEdit
|
|
Left = 249
|
|
ExplicitLeft = 249
|
|
end
|
|
inherited Button3: TBitBtn
|
|
Left = 133
|
|
ExplicitLeft = 133
|
|
end
|
|
inherited edtPersonaContacto: TcxDBTextEdit
|
|
ExplicitWidth = 230
|
|
Width = 230
|
|
end
|
|
inherited edtReferenciaAsignada: TcxDBTextEdit
|
|
Left = 210
|
|
ExplicitLeft = 210
|
|
end
|
|
inherited edtFax: TcxDBTextEdit
|
|
ExplicitWidth = 37
|
|
Width = 37
|
|
end
|
|
end
|
|
end
|
|
inline frViewObraReserva1: TfrViewObraReserva
|
|
Left = 137
|
|
Top = 547
|
|
Width = 586
|
|
Height = 46
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 10
|
|
ReadOnly = False
|
|
ExplicitLeft = 137
|
|
ExplicitTop = 547
|
|
end
|
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group6: TdxLayoutGroup
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
|
AutoAligns = []
|
|
AlignHorz = ahClient
|
|
Caption = 'Datos del pedido'
|
|
object dxLayoutControl1Item3: TdxLayoutItem
|
|
Caption = 'Referencia:'
|
|
Control = eReferencia
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item2: TdxLayoutItem
|
|
Caption = 'Fecha del pedido:'
|
|
Control = edtFechaPedido
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Group4: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group9: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Visible = False
|
|
Hidden = True
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
object dxLayoutControl1Item9: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Forma de pago'
|
|
Control = cbFormaPago
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item10: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahRight
|
|
ShowCaption = False
|
|
Control = bFormasPago
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Group10: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Visible = False
|
|
Hidden = True
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
object dxLayoutControl1Item11: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Ref. pedido cliente:'
|
|
Control = eReferenciaPedidoCli
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item12: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahRight
|
|
ShowCaption = False
|
|
Control = bVerPedidoCliente
|
|
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 dxLayoutControl1Group8: TdxLayoutGroup
|
|
AutoAligns = []
|
|
AlignHorz = ahClient
|
|
AlignVert = avClient
|
|
Caption = 'Datos de la entrega'
|
|
object dxLayoutControl1Item8: TdxLayoutItem
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Control = frViewDireccionEntregaPedidoProv1
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Group11: TdxLayoutGroup
|
|
Caption = 'Datos de reserva'
|
|
object dxLayoutControl1Item13: TdxLayoutItem
|
|
Caption = 'Reservar para obra:'
|
|
Control = frViewObraReserva1
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
object dxLayoutControl1Group3: TdxLayoutGroup
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Datos del proveedor'
|
|
object dxLayoutControl1Item1: TdxLayoutItem
|
|
Control = frViewProveedorPedido1
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Group7: TdxLayoutGroup
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Observaciones'
|
|
object dxLayoutControl1Item6: TdxLayoutItem
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Control = memObservaciones
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object DADataSource: TDADataSource
|
|
Left = 24
|
|
Top = 8
|
|
end
|
|
object dsFormaPago: TDADataSource
|
|
Left = 56
|
|
Top = 8
|
|
end
|
|
object ActionList1: TActionList
|
|
Left = 88
|
|
Top = 8
|
|
object actVerPedidoCli: TAction
|
|
Caption = 'Ver pedido de cliente...'
|
|
OnExecute = actVerPedidoCliExecute
|
|
OnUpdate = actVerPedidoCliUpdate
|
|
end
|
|
end
|
|
end
|