inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 822 Height = 550 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 822 ExplicitHeight = 550 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 822 Height = 550 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 822 550) object Label1: TLabel Left = 22 Top = 450 Width = 299 Height = 26 Caption = 'Si el proveedor entrega los materiales directamente al cliente, ' + 'no se necesario asociar el albar'#225'n a un almac'#233'n.' WordWrap = True end object edtFechaAlbaran: TcxDBDateEdit Left = 116 Top = 82 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ALBARAN' DataBinding.DataSource = DADataSource Properties.ImmediatePost = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone 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 = 119 end object memObservaciones: TcxDBMemo Left = 440 Top = 387 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 = 21 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 frViewClienteAlbaran: TfrViewDatosYSeleccionCliente Left = 440 Top = 28 Width = 350 Height = 212 Align = alTop AutoSize = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 17 ReadOnly = False ExplicitLeft = 440 ExplicitTop = 28 inherited dxLayoutControl1: TdxLayoutControl Align = alTop inherited edtlNombre: TcxDBTextEdit ExplicitWidth = 224 Width = 224 end inherited edtNIFCIF: TcxDBTextEdit ExplicitWidth = 562 Width = 562 end inherited edtCalle: TcxDBTextEdit ExplicitWidth = 562 Width = 562 end inherited edtPoblacion: TcxDBTextEdit ExplicitWidth = 177 Width = 177 end inherited edtProvincia: TcxDBTextEdit ExplicitWidth = 327 Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit Left = 268 ExplicitLeft = 268 end inherited Button3: TBitBtn Left = 158 ExplicitLeft = 158 end end inherited DADataSource: TDADataSource Left = 0 Top = 65528 end inherited ActionList1: TActionList Top = 65528 inherited actElegirContacto: TAction OnUpdate = frViewClienteAlbaranactElegirContactoUpdate end inherited actAnadirContacto: TAction OnUpdate = frViewClienteAlbaranactAnadirContactoUpdate end end inherited PngImageList: TPngImageList Top = 65528 end end object eCalle: TcxDBTextEdit Left = 116 Top = 224 DataBinding.DataField = 'CALLE' DataBinding.DataSource = DADataSource 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 = 263 end object ePoblacion: TcxDBTextEdit Left = 116 Top = 251 DataBinding.DataField = 'POBLACION' DataBinding.DataSource = DADataSource 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 = 162 end object eCodigoPostal: TcxDBTextEdit Left = 345 Top = 251 DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataSource = DADataSource 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 = 65 end object eProvincia: TcxDBTextEdit Left = 116 Top = 278 DataBinding.DataField = 'PROVINCIA' DataBinding.DataSource = DADataSource 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 = 11 Width = 263 end object ePersonaContacto: TcxDBTextEdit Left = 116 Top = 305 DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataSource = DADataSource 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 = 12 Width = 84 end object eTlfTrabajo: TcxDBTextEdit Left = 116 Top = 332 DataBinding.DataField = 'TELEFONO' DataBinding.DataSource = DADataSource 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 = 13 Width = 122 end object bElegirDireccion: TBitBtn Left = 238 Top = 359 Width = 172 Height = 23 Action = actElegirDireccion Caption = 'Elegir una direcci'#243'n de env'#237'o...' TabOrder = 14 end object Button1: TButton Left = 278 Top = 138 Width = 132 Height = 23 Action = actVerPedidoCli TabOrder = 6 end object eReferenciaPedidoCli: TcxTextEdit Left = 116 Top = 138 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 = 5 Width = 16 end object cbFormaPago: TcxDBLookupComboBox Left = 116 Top = 109 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 = 3 Width = 32 end object bFormasPago: TButton Left = 278 Top = 109 Width = 132 Height = 23 Caption = 'Ver las formas de pago...' TabOrder = 4 OnClick = bFormasPagoClick end object eFechaRecepcion: TcxDBDateEdit Left = 574 Top = 330 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataSource = DADataSource Properties.ImmediatePost = True Properties.OnValidate = eFechaRecepcionPropertiesValidate Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clWindow 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 = 20 Width = 123 end object cbConAlmacen: TCheckBox Left = 32 Top = 418 Width = 179 Height = 21 Caption = 'Asociar este albar'#225'n al almac'#233'n:' TabOrder = 15 OnClick = cbConAlmacenClick end object cbAlmacen: TcxDBLookupComboBox Left = 217 Top = 418 DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item FieldName = 'NOMBRE' end> Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListOptions.SyncMode = True Properties.ListSource = dsAlmacenes 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 = 16 Width = 69 end object eRefFacturaCli: TcxDBTextEdit Left = 116 Top = 167 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REF_FACTURA' DataBinding.DataSource = DADataSource 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.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 = 7 Width = 207 end object eFechaPrevista: TcxDBDateEdit Left = 574 Top = 276 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataSource = DADataSource Properties.ImmediatePost = True Properties.OnValidate = eFechaPrevistaPropertiesValidate Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clWindow Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone 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 = 18 Width = 122 end object eRefCliente: TcxDBTextEdit Left = 116 Top = 55 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_CLIENTE' DataBinding.DataSource = DADataSource 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 = 284 end object eFechaEnvio: TcxDBDateEdit Left = 574 Top = 303 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataSource = DADataSource Properties.ImmediatePost = True Properties.OnValidate = eFechaEnvioPropertiesValidate Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clWindow 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 = 19 Width = 217 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 albar'#225'n' object dxLayoutControl1Item3: TdxLayoutItem Caption = 'Referencia:' Control = eReferencia ControlOptions.ShowBorder = False end object dxLayoutControl1Item23: TdxLayoutItem Caption = 'Ref. cliente:' Control = eRefCliente ControlOptions.ShowBorder = False end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'Fecha del albar'#225'n:' Control = edtFechaAlbaran ControlOptions.ShowBorder = False end object dxLayoutControl1Group5: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group14: TdxLayoutGroup ShowCaption = False Visible = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item4: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Forma de pago' Control = cbFormaPago ControlOptions.ShowBorder = False end object dxLayoutControl1Item15: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight ShowCaption = False Control = bFormasPago ControlOptions.ShowBorder = False end end object dxLayoutControl1Group13: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group15: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item7: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Ref. del pedido:' Control = eReferenciaPedidoCli ControlOptions.ShowBorder = False end object dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight Caption = 'Button1' ShowCaption = False Control = Button1 ControlOptions.ShowBorder = False end end object dxLayoutControl1Item22: TdxLayoutItem Caption = 'Ref. factura:' Control = eRefFacturaCli ControlOptions.ShowBorder = False end end end end object dxLayoutControl1Group8: TdxLayoutGroup AutoAligns = [] AlignHorz = ahClient Caption = 'Direcci'#243'n de entrega' Visible = False object dxLayoutControl1Item8: TdxLayoutItem Caption = 'Calle:' Control = eCalle ControlOptions.ShowBorder = False end object dxLayoutControl1Group4: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group9: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item9: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Poblaci'#243'n:' Control = ePoblacion ControlOptions.ShowBorder = False end object dxLayoutControl1Item10: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight Caption = 'C.P.:' Control = eCodigoPostal ControlOptions.ShowBorder = False end end object dxLayoutControl1Item11: TdxLayoutItem Caption = 'Provincia:' Control = eProvincia ControlOptions.ShowBorder = False end object dxLayoutControl1Item12: TdxLayoutItem Caption = 'Pers. de contacto:' Control = ePersonaContacto ControlOptions.ShowBorder = False end object dxLayoutControl1Item13: TdxLayoutItem Caption = 'Tel'#233'fono:' Control = eTlfTrabajo ControlOptions.ShowBorder = False end object dxLayoutControl1Item14: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight ShowCaption = False Control = bElegirDireccion ControlOptions.ShowBorder = False end end end object dxLayoutControl1Group11: TdxLayoutGroup Caption = 'Almac'#233'n de origen' Visible = False object dxLayoutControl1Group10: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item19: TdxLayoutItem Offsets.Left = 10 ShowCaption = False Control = cbConAlmacen ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Item20: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Control = cbAlmacen ControlOptions.ShowBorder = False end end object dxLayoutControl1Item18: TdxLayoutItem Offsets.Bottom = 5 Offsets.Top = 5 ShowCaption = False Control = Label1 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 Caption = 'Datos del cliente' object dxLayoutControl1Item1: TdxLayoutItem Control = frViewClienteAlbaran ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end object dxLayoutControl1Group12: TdxLayoutGroup Caption = 'Fechas de envio y recepci'#243'n' Visible = False object dxLayoutControl1Item24: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Fecha prevista de envio:' Offsets.Left = 10 Control = eFechaPrevista ControlOptions.ShowBorder = False end object dxLayoutControl1Item21: TdxLayoutItem Caption = 'Fecha de envio:' Offsets.Left = 10 Control = eFechaEnvio ControlOptions.ShowBorder = False end object dxLayoutControl1Item16: TdxLayoutItem AutoAligns = [] AlignHorz = ahClient Caption = 'Fecha de recepci'#243'n:' Offsets.Left = 10 Control = eFechaRecepcion 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 = 48 end object ActionList1: TActionList Left = 24 Top = 48 object actElegirDireccion: TAction Caption = 'Elegir una direcci'#243'n de env'#237'o...' OnExecute = actElegirDireccionExecute OnUpdate = actElegirDireccionUpdate end object actVerPedidoCli: TAction Caption = 'Ver el pedido de cliente...' OnExecute = actVerPedidoCliExecute OnUpdate = actVerPedidoCliUpdate end end object dsFormaPago: TDADataSource Left = 16 end object dsAlmacenes: TDADataSource Left = 64 Top = 192 end end