inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente Width = 895 Height = 555 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 895 ExplicitHeight = 555 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 895 Height = 555 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 895 555) object edtFechaPresupuesto: TcxDBDateEdit Left = 117 Top = 82 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PRESUPUESTO' 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 = 187 end object memObservaciones: TcxDBMemo Left = 436 Top = 288 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.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 Height = 245 Width = 793 end object eReferencia: TcxDBTextEdit Left = 117 Top = 28 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA' DataBinding.DataSource = DADataSource Properties.ReadOnly = True 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 = 122 end object cbFormaPago: TcxDBLookupComboBox Left = 117 Top = 220 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Properties.ImmediatePost = True Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item FieldName = 'REFERENCIA' end> Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListOptions.SyncMode = True Properties.ListSource = dsFormaPago Properties.OnValidate = cbFormaPagoPropertiesValidate 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 = 8 Width = 122 end object bFormasPago: TButton Left = 274 Top = 220 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' TabOrder = 9 OnClick = bFormasPagoClick end object edtFechaDecision: TcxDBDateEdit Left = 300 Top = 109 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_DECISION' DataBinding.DataSource = DADataSource 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 = 5 Width = 260 end object edtFechaVigencia: TcxDBDateEdit Left = 117 Top = 109 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_VIGENCIA' DataBinding.DataSource = DADataSource Properties.ReadOnly = False 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.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 = 4 Width = 260 end object cbSituacion: TcxDBImageComboBox Left = 117 Top = 136 DataBinding.DataField = 'SITUACION' DataBinding.DataSource = DADataSource Properties.ImmediatePost = True Properties.Items = < item Description = 'PENDIENTE' ImageIndex = 0 Value = 'PENDIENTE' end item Description = 'ACEPTADO' Value = 'ACEPTADO' end item Description = 'ANULADO' Value = 'ANULADO' end> Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.LookAndFeel.NativeStyle = True Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 6 Width = 260 end inline frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto Left = 436 Top = 28 Width = 320 Height = 224 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 12 ReadOnly = False ExplicitLeft = 436 ExplicitTop = 28 ExplicitWidth = 320 ExplicitHeight = 224 inherited dxLayoutControl1: TdxLayoutControl Width = 320 Height = 224 ExplicitWidth = 320 ExplicitHeight = 224 inherited edtNIFCIF: TcxDBTextEdit Left = 324 ExplicitLeft = 324 end inherited Button3: TBitBtn Left = 235 ExplicitLeft = 235 end inherited edtDireccion: TcxMemo ExplicitWidth = 121 Width = 121 end inherited Button4: TButton Left = 404 ExplicitLeft = 404 end inherited Button5: TButton Left = 404 ExplicitLeft = 404 end end end object memFormaPago: TcxDBMemo Left = 22 Top = 247 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'FORMA_PAGO' DataBinding.DataSource = DADataSource Properties.ScrollBars = ssVertical 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 Height = 44 Width = 475 end object memPlazoEntrega: TcxDBMemo Left = 22 Top = 373 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'PLAZO_ENTREGA' DataBinding.DataSource = DADataSource Properties.ScrollBars = ssVertical 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 Height = 100 Width = 396 end object cbVendedor: TcxDBLookupComboBox Left = 117 Top = 163 DataBinding.DataField = 'ID_VENDEDOR' 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 = dsVendedor 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 = 7 Width = 27 end object cbTipoPresupuesto: TcxDBComboBox Left = 296 Top = 82 DataBinding.DataField = 'TIPO_PRESUPUESTO' DataBinding.DataSource = DADataSource Properties.DropDownListStyle = lsFixedList Properties.ImmediatePost = True Properties.PostPopupValueOnTab = 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 = 3 Width = 186 end object edtlReferenciaCliente: TcxDBTextEdit Left = 117 Top = 55 Anchors = [akLeft, akTop, akRight] AutoSize = False DataBinding.DataField = 'REFERENCIA_CLIENTE' DataBinding.DataSource = DADataSource ParentFont = False Properties.UseLeftAlignmentOnEditing = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 Height = 21 Width = 204 end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Group8: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group1: TdxLayoutGroup AutoAligns = [] AlignHorz = ahClient Caption = 'Datos del presupuesto' object dxLayoutControl1Item3: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Referencia:' Control = eReferencia ControlOptions.ShowBorder = False end object dxLayoutControl1Item13: TdxLayoutItem Caption = 'Referencia cliente:' Control = edtlReferenciaCliente ControlOptions.ShowBorder = False end object dxLayoutControl1Group11: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item2: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Fecha presup.:' Control = edtFechaPresupuesto ControlOptions.ShowBorder = False end object dxLayoutControl1Item12: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Tipo presup.:' Visible = False Control = cbTipoPresupuesto ControlOptions.ShowBorder = False end end object dxLayoutControl1Group10: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item15: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Fecha vigencia:' Control = edtFechaVigencia ControlOptions.ShowBorder = False end object dxLayoutControl1Item7: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Fecha decisi'#243'n:' Control = edtFechaDecision ControlOptions.ShowBorder = False end end object dxLayoutControl1Item10: TdxLayoutItem Caption = 'Situaci'#243'n:' Control = cbSituacion ControlOptions.ShowBorder = False end object dxLayoutControl1Item11: TdxLayoutItem Caption = 'Vendedor:' Control = cbVendedor ControlOptions.ShowBorder = False end end object dxLayoutControl1Group6: TdxLayoutGroup AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'Forma de pago' object dxLayoutControl1Group9: TdxLayoutGroup ShowCaption = 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 dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight ShowCaption = False Control = bFormasPago ControlOptions.ShowBorder = False end end object dxLayoutControl1Item8: TdxLayoutItem AutoAligns = [aaHorizontal] AlignVert = avClient ShowCaption = False Control = memFormaPago ControlOptions.ShowBorder = False end end object dxLayoutControl1Group4: TdxLayoutGroup AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'Plazos de entrega' object dxLayoutControl1Item9: TdxLayoutItem AutoAligns = [aaHorizontal] AlignVert = avClient ShowCaption = False Control = memPlazoEntrega 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 AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'New Item' ShowCaption = False Control = frViewDatosYSeleccionClientePresupuesto1 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 = 8 Top = 16 end object ActionList1: TActionList Left = 8 Top = 24 end object dsFormaPago: TDADataSource Left = 40 Top = 8 end object dsVendedor: TDADataSource Left = 80 Top = 16 end end