inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Width = 940 Height = 693 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 940 ExplicitHeight = 693 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 940 Height = 693 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 940 693) object edtFechaAlbaran: TcxDBDateEdit Left = 145 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.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 = 2 Width = 325 end object memObservaciones: TcxDBMemo Left = 22 Top = 520 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 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 13 Height = 287 Width = 331 end object eReferencia: TcxDBTextEdit Left = 145 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 = clWindow 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 = 325 end inline frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv Left = 530 Top = 235 Width = 388 Height = 249 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 12 ReadOnly = False ExplicitLeft = 530 ExplicitTop = 235 ExplicitWidth = 388 ExplicitHeight = 249 inherited dxLayoutControl1: TdxLayoutControl Width = 388 Height = 249 ExplicitWidth = 388 ExplicitHeight = 249 inherited rdxDestino1: TRadioButton Width = 402 ExplicitWidth = 402 end inherited rdxDestino2: TRadioButton Width = 402 ExplicitWidth = 402 end inherited cbLista: TcxDBLookupComboBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 402 Width = 402 end inherited bModificar: TBitBtn Left = 250 Top = 214 ExplicitLeft = 250 ExplicitTop = 214 end inherited txtDireccion: TStaticText Width = 374 Height = 100 ExplicitWidth = 374 ExplicitHeight = 100 end inherited cbListaObras: TcxDBLookupComboBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 402 Width = 402 end inherited RadioButton1: TRadioButton Width = 402 ExplicitWidth = 402 end end inherited ActionList1: TActionList Left = 32 Top = 40 end end object cbFormaPago: TcxDBLookupComboBox Left = 145 Top = 219 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 = 8 Width = 187 end object bFormasPago: TButton Left = 368 Top = 219 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' TabOrder = 9 OnClick = bFormasPagoClick end object eReferenciaPedidoCli: TcxTextEdit Left = 145 Top = 136 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 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 = 4 Width = 187 end object Button1: TButton Left = 368 Top = 136 Width = 132 Height = 23 Action = actVerPedido TabOrder = 5 end object eRefFactura: TcxDBTextEdit Left = 145 Top = 165 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 Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar 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 = 325 end object eReferenciaProveedor: TcxDBTextEdit Left = 145 Top = 55 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_PROVEEDOR' DataBinding.DataSource = DADataSource Properties.ReadOnly = False Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clWindow 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 = 1 Width = 325 end object eReferenciaFacturaProveedor: TcxDBTextEdit Left = 145 Top = 192 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REF_FACTURA_PROV' DataBinding.DataSource = DADataSource 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.Color = clMenuBar 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 = 7 Width = 325 end inline frViewDatosYSeleccionProveedorAlbaran1: TfrViewDatosYSeleccionProveedorAlbaran Left = 530 Top = 28 Width = 411 Height = 171 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 11 ReadOnly = False ExplicitLeft = 530 ExplicitTop = 28 ExplicitWidth = 411 ExplicitHeight = 171 inherited dxLayoutControl1: TdxLayoutControl Width = 411 Height = 171 ExplicitWidth = 411 ExplicitHeight = 171 inherited edtlNombre: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 224 Width = 224 end inherited edtNIFCIF: TcxDBTextEdit Left = 275 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 275 end inherited edtPersonaContacto: TcxDBTextEdit Top = 107 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 107 ExplicitWidth = 283 Width = 283 end inherited edtDireccion: TcxTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 121 ExplicitHeight = 50 Height = 50 Width = 121 end inherited Button4: TButton Left = 355 ExplicitLeft = 355 end inherited Button5: TButton Left = 355 Top = 105 ExplicitLeft = 355 ExplicitTop = 105 end inherited Button3: TBitBtn Left = 180 Top = 136 ExplicitLeft = 180 ExplicitTop = 136 end end inherited dsProveedor: TDADataSource Left = 288 Top = 24 end inherited ActionList1: TActionList Left = 312 Top = 65528 end inherited dsAlbaran: TDADataSource Left = 280 Top = 65528 end end inline frViewDatosYSeleccionClienteFinalAlbaran1: TfrViewDatosYSeleccionClienteFinalAlbaran Left = 22 Top = 276 Width = 505 Height = 196 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 10 ReadOnly = False ExplicitLeft = 22 ExplicitTop = 276 inherited dxLayoutControl1: TdxLayoutControl inherited edtlNombre: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 224 Width = 224 end inherited edtNIFCIF: TcxDBTextEdit Left = 365 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 365 end inherited Button3: TBitBtn Left = 276 ExplicitLeft = 276 end inherited edtPersonaContacto: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtDireccion: TcxMemo Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' end inherited Button4: TButton Left = 445 ExplicitLeft = 445 end inherited Button5: TButton Left = 445 ExplicitLeft = 445 end end end object cxDBDateEdit1: TcxDBDateEdit Left = 145 Top = 109 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_SERVICIO' 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 = 3 Width = 381 end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group10: 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 dxLayoutControl1Item11: TdxLayoutItem Caption = 'Ref. proveedor:' Control = eReferenciaProveedor ControlOptions.ShowBorder = False end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'Fecha del albar'#225'n/aviso:' Control = edtFechaAlbaran ControlOptions.ShowBorder = False end object dxLayoutControl1Item14: TdxLayoutItem Caption = 'Fecha servicio:' Control = cxDBDateEdit1 ControlOptions.ShowBorder = False end object dxLayoutControl1Group5: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item8: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Ref. del pedido:' Control = eReferenciaPedidoCli ControlOptions.ShowBorder = False end object dxLayoutControl1Item9: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight ShowCaption = False Control = Button1 ControlOptions.ShowBorder = False end end object dxLayoutControl1Item10: TdxLayoutItem Caption = 'Ref. factura:' Control = eRefFactura ControlOptions.ShowBorder = False end object dxLayoutControl1Item12: TdxLayoutItem Caption = 'Ref. factura prov.:' Control = eReferenciaFacturaProveedor ControlOptions.ShowBorder = False end object dxLayoutControl1Group4: TdxLayoutGroup ShowCaption = False Visible = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Forma pago:' Control = cbFormaPago ControlOptions.ShowBorder = False end object dxLayoutControl1Item7: TdxLayoutItem ShowCaption = False Control = bFormasPago ControlOptions.ShowBorder = False end end end object dxLayoutControl1Group9: TdxLayoutGroup Caption = 'Cliente final' object dxLayoutControl1Item13: TdxLayoutItem Control = frViewDatosYSeleccionClienteFinalAlbaran1 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 proveedor' object dxLayoutControl1Item1: TdxLayoutItem Caption = 'New Item' ShowCaption = False Control = frViewDatosYSeleccionProveedorAlbaran1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end object dxLayoutControl1Group8: TdxLayoutGroup AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Caption = 'Direcci'#243'n de entrega' object dxLayoutControl1Item4: TdxLayoutItem AutoAligns = [aaHorizontal] AlignVert = avClient Control = frViewDireccionEntregaAlbaranProv1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end 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 object DADataSource: TDADataSource Left = 8 Top = 24 end object ActionList1: TActionList Left = 32 Top = 120 object actElegirDireccion: TAction Caption = 'Elegir una direcci'#243'n de env'#237'o...' OnUpdate = actElegirDireccionUpdate end object actVerPedido: TAction Caption = 'Ver el pedido de prov...' OnExecute = actVerPedidoExecute OnUpdate = actVerPedidoUpdate end end object dsFormaPago: TDADataSource Left = 40 Top = 24 end end