inherited frViewPedidoCliente: TfrViewPedidoCliente Width = 872 Height = 490 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 872 ExplicitHeight = 490 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 872 Height = 490 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False DesignSize = ( 872 490) object edtFechaPedido: TcxDBDateEdit Left = 116 Top = 82 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PEDIDO' DataBinding.DataSource = DADataSource Properties.DateButtons = [btnToday] 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 = 2 Width = 119 end object memObservaciones: TcxDBMemo Left = 22 Top = 416 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 = 15 Height = 253 Width = 186 end object eReferencia: TcxDBTextEdit Left = 116 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.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.Color = clMenuBar 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 = 0 Width = 143 end inline frViewClientePedido: TfrViewDatosYSeleccionClientePedido Left = 486 Top = 28 Width = 350 Height = 212 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 14 ReadOnly = False ExplicitLeft = 486 ExplicitTop = 28 ExplicitWidth = 350 ExplicitHeight = 212 inherited dxLayoutControl1: TdxLayoutControl Width = 350 Height = 212 ExplicitWidth = 350 ExplicitHeight = 212 DesignSize = ( 350 212) inherited edtlNombre: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 224 Width = 224 end inherited edtNIFCIF: TcxDBTextEdit Left = 251 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 251 end inherited Button3: TBitBtn Left = 162 ExplicitLeft = 162 end inherited edtPersonaContacto: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 200 Width = 200 end inherited edtDireccion: TcxMemo Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 200 Width = 200 end inherited Button4: TButton Left = 331 ExplicitLeft = 331 end inherited Button5: TButton Left = 331 ExplicitLeft = 331 end end inherited ActionList1: TActionList Top = 72 end inherited PngImageList: TPngImageList Top = 72 end end object eCalle: TcxDBTextEdit Left = 116 Top = 220 DataBinding.DataField = 'CALLE' DataBinding.DataSource = DADataSource Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True 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 = 7 Width = 263 end object ePoblacion: TcxDBTextEdit Left = 116 Top = 247 DataBinding.DataField = 'POBLACION' DataBinding.DataSource = DADataSource Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True 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 = 8 Width = 162 end object eCodigoPostal: TcxDBTextEdit Left = 391 Top = 247 DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataSource = DADataSource Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True 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 = 9 Width = 65 end object eProvincia: TcxDBTextEdit Left = 116 Top = 274 DataBinding.DataField = 'PROVINCIA' DataBinding.DataSource = DADataSource Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True 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 = 10 Width = 263 end object ePersonaContacto: TcxDBTextEdit Left = 116 Top = 301 DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataSource = DADataSource Enabled = False 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 StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 11 Width = 84 end object eTlfTrabajo: TcxDBTextEdit Left = 116 Top = 328 DataBinding.DataField = 'TELEFONO' DataBinding.DataSource = DADataSource Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True 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 = 12 Width = 122 end object bElegirDireccion: TBitBtn Left = 284 Top = 355 Width = 172 Height = 25 Action = actElegirDireccion Caption = 'Elegir una direcci'#243'n de env'#237'o...' Enabled = False TabOrder = 13 end object bFormasPago: TButton Left = 324 Top = 136 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' TabOrder = 5 OnClick = bFormasPagoClick end object edtFechaPrevistaEnvio: TcxDBDateEdit Left = 116 Top = 109 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataSource = DADataSource Enabled = False Properties.ImmediatePost = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clWindow 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 = 3 Width = 216 end object eRefCliente: TcxDBTextEdit Left = 116 Top = 55 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_CLIENTE' 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.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.Color = clMenuBar 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 = 1 Width = 216 end object cbFormaPago: TcxDBLookupComboBox Left = 116 Top = 136 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.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 4 Width = 186 end object cbCuentaBancaria: TcxDBComboBox Left = 116 Top = 163 DataBinding.DataField = 'DATOS_BANCARIOS' DataBinding.DataSource = DADataSource Properties.DropDownListStyle = lsFixedList Properties.DropDownRows = 12 Properties.ImmediatePost = True Properties.ImmediateUpdateText = True Properties.PostPopupValueOnTab = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 6 Width = 324 end object dxLayoutControl1Group_Root: TdxLayoutGroup AlignHorz = ahParentManaged AlignVert = avParentManaged CaptionOptions.Visible = False ButtonOptions.Buttons = <> Hidden = True ShowBorder = False object dxLayoutControl1Group10: TdxLayoutGroup CaptionOptions.Visible = False ButtonOptions.Buttons = <> Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Group6: TdxLayoutGroup AlignHorz = ahClient CaptionOptions.Visible = False ButtonOptions.Buttons = <> Hidden = True ShowBorder = False object dxLayoutControl1Group1: TdxLayoutGroup AlignHorz = ahClient AlignVert = avTop CaptionOptions.Text = 'Datos del pedido' ButtonOptions.Buttons = <> object dxLayoutControl1Item3: TdxLayoutItem CaptionOptions.Text = 'Referencia:' Enabled = False Control = eReferencia ControlOptions.ShowBorder = False end object dxLayoutControl1Item15: TdxLayoutItem CaptionOptions.Text = 'Ref. cliente:' Enabled = False Visible = False Control = eRefCliente ControlOptions.ShowBorder = False end object dxLayoutControl1Item2: TdxLayoutItem CaptionOptions.Text = 'Fecha del pedido:' Control = edtFechaPedido ControlOptions.ShowBorder = False end object dxLayoutControl1Item7: TdxLayoutItem CaptionOptions.Text = 'Entrega prevista:' Enabled = False Visible = False Control = edtFechaPrevistaEnvio ControlOptions.ShowBorder = False end object dxLayoutControl1Group3: TdxLayoutGroup ButtonOptions.Buttons = <> Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item4: TdxLayoutItem AlignHorz = ahClient CaptionOptions.Text = 'Forma de pago:' Control = cbFormaPago ControlOptions.ShowBorder = False end object dxLayoutControl1Group5: TdxLayoutGroup CaptionOptions.Text = 'New Group' CaptionOptions.Visible = False ButtonOptions.Buttons = <> LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item5: TdxLayoutItem AlignHorz = ahRight CaptionOptions.Visible = False Control = bFormasPago ControlOptions.ShowBorder = False end end end object dxLayoutControl1Item16: TdxLayoutItem CaptionOptions.Text = 'Cuenta bancaria:' Control = cbCuentaBancaria ControlOptions.ShowBorder = False end end object dxLayoutControl1Group8: TdxLayoutGroup AlignHorz = ahClient AlignVert = avTop CaptionOptions.Text = 'Direcci'#243'n de entrega' Enabled = False Visible = False ButtonOptions.Buttons = <> object dxLayoutControl1Item8: TdxLayoutItem CaptionOptions.Text = 'Calle:' Enabled = False Control = eCalle ControlOptions.ShowBorder = False end object dxLayoutControl1Group4: TdxLayoutGroup CaptionOptions.Visible = False Enabled = False ButtonOptions.Buttons = <> Hidden = True ShowBorder = False object dxLayoutControl1Group9: TdxLayoutGroup CaptionOptions.Visible = False Enabled = False ButtonOptions.Buttons = <> Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item9: TdxLayoutItem AlignHorz = ahClient CaptionOptions.Text = 'Poblaci'#243'n:' Enabled = False Control = ePoblacion ControlOptions.ShowBorder = False end object dxLayoutControl1Item10: TdxLayoutItem AlignHorz = ahRight CaptionOptions.Text = 'C.P.:' Enabled = False Control = eCodigoPostal ControlOptions.ShowBorder = False end end object dxLayoutControl1Item11: TdxLayoutItem CaptionOptions.Text = 'Provincia:' Enabled = False Control = eProvincia ControlOptions.ShowBorder = False end object dxLayoutControl1Item12: TdxLayoutItem CaptionOptions.Text = 'Pers. de contacto:' Enabled = False Control = ePersonaContacto ControlOptions.ShowBorder = False end object dxLayoutControl1Item13: TdxLayoutItem CaptionOptions.Text = 'Tel'#233'fono:' Enabled = False Control = eTlfTrabajo ControlOptions.ShowBorder = False end object dxLayoutControl1Item14: TdxLayoutItem AlignHorz = ahRight CaptionOptions.Visible = False Enabled = False Control = bElegirDireccion ControlOptions.ShowBorder = False end end end end object dxLayoutControl1Group2: TdxLayoutGroup AlignHorz = ahClient CaptionOptions.Text = 'Datos del cliente' ButtonOptions.Buttons = <> object dxLayoutControl1Item1: TdxLayoutItem Control = frViewClientePedido ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end end object dxLayoutControl1Group7: TdxLayoutGroup AlignVert = avClient CaptionOptions.Text = 'Observaciones' ButtonOptions.Buttons = <> object dxLayoutControl1Item6: TdxLayoutItem AlignVert = avClient Control = memObservaciones ControlOptions.ShowBorder = False end end end end object DADataSource: TDADataSource Left = 8 Top = 8 end object ActionList1: TActionList Left = 8 Top = 40 object actElegirDireccion: TAction Caption = 'Elegir una direcci'#243'n de env'#237'o...' OnExecute = actElegirDireccionExecute OnUpdate = actElegirDireccionUpdate end end object dsFormaPago: TDADataSource Left = 40 Top = 8 end end