inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 693 Height = 293 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 693 ExplicitHeight = 293 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 693 Height = 293 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 693 293) inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor Left = 325 Top = 28 Width = 357 Height = 215 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 11 ReadOnly = False ExplicitLeft = 325 ExplicitTop = 28 ExplicitWidth = 357 ExplicitHeight = 215 inherited dxLayoutControl1: TdxLayoutControl Width = 357 Height = 215 Align = alClient ExplicitWidth = 357 ExplicitHeight = 215 inherited edtlNombre: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtNIFCIF: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtCalle: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtPoblacion: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 176 Width = 176 end inherited edtProvincia: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtCodigoPostal: TcxDBTextEdit Left = 248 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 248 ExplicitWidth = 71 Width = 71 end inherited Button3: TBitBtn Left = 121 ExplicitLeft = 121 end end end 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.LookAndFeel.SkinName = '' Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 1 Width = 158 end object edtFechaConfirmacion: TcxDBDateEdit Left = 137 Top = 249 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_CONFIRMACION' DataBinding.DataSource = DADataSource Enabled = False Properties.ImmediatePost = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 9 Width = 158 end object edtFechaEntrega: TcxDBDateEdit Left = 137 Top = 82 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.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 2 Width = 158 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 Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 0 Width = 158 end inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv Left = 22 Top = 306 Width = 273 Height = 166 Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 10 ReadOnly = False ExplicitLeft = 22 ExplicitTop = 306 ExplicitWidth = 273 ExplicitHeight = 166 inherited dxLayoutControl1: TdxLayoutControl Width = 273 Height = 166 ExplicitWidth = 273 ExplicitHeight = 166 inherited rdxDestino1: TRadioButton Width = 253 ExplicitWidth = 253 end inherited rdxDestino2: TRadioButton Width = 253 ExplicitWidth = 253 end inherited cbLista: TcxDBLookupComboBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 238 Width = 238 end inherited bModificar: TBitBtn Left = 118 Top = 109 ExplicitLeft = 118 ExplicitTop = 109 end inherited txtDireccion: TStaticText Width = 238 Height = 42 ExplicitWidth = 238 ExplicitHeight = 42 end end inherited ActionList1: TActionList Left = 32 Top = 0 end inherited dsPedido: TDADataSource Left = 0 Top = 0 end end object cbFormaPago: TcxDBLookupComboBox Left = 137 Top = 136 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Enabled = False 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 = 20 end object bFormasPago: TButton Left = 163 Top = 136 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' Enabled = False TabOrder = 5 OnClick = bFormasPagoClick end object edtFechaEnvio: TcxDBDateEdit Left = 137 Top = 222 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataSource = DADataSource Enabled = False Properties.ImmediatePost = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 8 Width = 158 end object eReferenciaContratoCli: TcxTextEdit Left = 137 Top = 163 Anchors = [akLeft, akTop, akRight] 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 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 6 Width = 20 end object Button1: TButton Left = 163 Top = 163 Width = 132 Height = 23 Action = actVerContratoCli TabOrder = 7 end inline frViewTienda1: TfrViewTienda Left = 325 Top = 279 Width = 357 Height = 46 Align = alBottom Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 12 ReadOnly = False ExplicitLeft = 325 ExplicitTop = 279 ExplicitWidth = 357 ExplicitHeight = 46 inherited dxLayoutControl1: TdxLayoutControl Width = 357 ExplicitWidth = 357 inherited cbTienda: TcxComboBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' end end end inline frViewObservaciones1: TfrViewObservaciones Left = 325 Top = 361 Width = 521 Height = 150 Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 13 ReadOnly = False ExplicitLeft = 325 ExplicitTop = 361 inherited memObservaciones: TcxDBMemo DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource end end object edtlDescripcion: TcxDBTextEdit Left = 137 Top = 109 Anchors = [akLeft, akTop, akRight] AutoSize = False DataBinding.DataField = 'DESCRIPCION_GENERAL' DataBinding.DataSource = DADataSource ParentFont = False Properties.ReadOnly = False Properties.UseLeftAlignmentOnEditing = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 3 Height = 21 Width = 283 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 dxLayoutControl1Item5: TdxLayoutItem Caption = 'Entrega recepci'#243'n:' Control = edtFechaEntrega ControlOptions.ShowBorder = False end object dxLayoutControl1Item14: TdxLayoutItem Caption = 'Descripci'#243'n:' Control = edtlDescripcion ControlOptions.ShowBorder = False end object dxLayoutControl1Group4: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group9: TdxLayoutGroup Enabled = False 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 Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item11: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Ref. contrato cliente:' Control = eReferenciaContratoCli ControlOptions.ShowBorder = False end object dxLayoutControl1Item12: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight ShowCaption = False Control = Button1 ControlOptions.ShowBorder = False end end end end object dxLayoutControl1Group5: TdxLayoutGroup AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'Situaci'#243'n del pedido' Enabled = False Visible = False object dxLayoutControl1Item7: TdxLayoutItem Caption = 'Enviado al prov. el d'#237'a:' Control = edtFechaEnvio ControlOptions.ShowBorder = False end object dxLayoutControl1Item4: TdxLayoutItem Caption = 'Fecha recepci'#243'n:' Control = edtFechaConfirmacion ControlOptions.ShowBorder = False end end object dxLayoutControl1Group8: TdxLayoutGroup AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Caption = 'Direcci'#243'n de entrega' Enabled = False Visible = False object dxLayoutControl1Item8: TdxLayoutItem AutoAligns = [aaHorizontal] AlignVert = avClient Control = frViewDireccionEntregaPedidoProv1 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 AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'frViewDatosYSeleccionProveedor1' ShowCaption = False Control = frViewProveedorPedido ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end object dxLayoutControl1Group11: TdxLayoutGroup Caption = 'El pedido pertenece a la tienda' Enabled = False Visible = False object dxLayoutControl1Item13: TdxLayoutItem Control = frViewTienda1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end object dxLayoutControl1Group7: TdxLayoutGroup AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'Observaciones' Enabled = False Visible = False object dxLayoutControl1Item6: TdxLayoutItem AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Caption = 'New Item' ShowCaption = False Control = frViewObservaciones1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end end end end object DADataSource: TDADataSource Left = 24 Top = 40 end object dsFormaPago: TDADataSource Left = 56 Top = 8 end object ActionList1: TActionList Left = 24 Top = 72 object actVerContratoCli: TAction Caption = 'Ver contrato de cliente...' OnExecute = actVerContratoCliExecute OnUpdate = actVerContratoCliUpdate end end end