inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 616 Height = 474 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 451 ExplicitHeight = 304 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 616 Height = 474 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 ExplicitWidth = 451 ExplicitHeight = 304 DesignSize = ( 616 474) object Label1: TLabel Left = 354 Top = 193 Width = 311 Height = 26 Caption = 'Opcionalmente, puede escribir el nombre del cliente final de est' + 'e presupuesto o elegirlo de la lista de clientes.' WordWrap = True end object eReferencia: TcxDBTextEdit Left = 124 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA' DataBinding.DataSource = DADataSource Enabled = False Properties.ReadOnly = False 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 = 165 end object edtFecha: TcxDBDateEdit Left = 124 Top = 57 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataSource = DADataSource 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 = 293 end object memObservaciones: TcxDBMemo Left = 22 Top = 285 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 = 10 Height = 345 Width = 355 end object cbFormaPago: TcxDBLookupComboBox Left = 146 Top = 130 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.PostPopupValueOnTab = True Properties.OnEditValueChanged = edtFechaVemcimientoPropertiesEditValueChanged 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 = 3 Width = 269 end object bFormasPago: TButton Left = 172 Top = 130 Width = 132 Height = 23 Caption = 'Ver las formas de pago...' TabOrder = 4 OnClick = bFormasPagoClick end object cbCuentaBancaria: TcxDBComboBox Left = 146 Top = 186 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 = 165 end object cbClienteFinal: TcxDBTextEdit Left = 354 Top = 227 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'CLIENTE_FINAL' 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.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 = 8 Width = 339 end object bElegirClienteFinal: TButton Left = 560 Top = 225 Width = 23 Height = 25 Action = actElegirClienteFinal TabOrder = 9 end inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente Left = 343 Top = 30 Width = 505 Height = 138 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 7 ReadOnly = False ExplicitLeft = 343 ExplicitTop = 30 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 = 171 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 171 end inherited Button3: TBitBtn Left = 82 ExplicitLeft = 82 end inherited edtDireccion: TcxTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 121 Width = 121 end inherited Button4: TButton Left = 251 ExplicitLeft = 251 end end inherited ActionList1: TActionList Left = 120 Top = 48 end inherited PngImageList: TPngImageList Left = 48 Top = 48 end inherited dsFactura: TDADataSource Left = 80 Top = 48 end end object edtFechaVemcimiento: TcxDBDateEdit Left = 146 Top = 159 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataSource = DADataSource Properties.OnEditValueChanged = edtFechaVemcimientoPropertiesEditValueChanged 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 = 5 Width = 275 end object eCertificadoISO: TcxDBCheckBox Left = 22 Top = 84 Caption = 'Certificaci'#243'n ISO' DataBinding.DataField = 'CERTIFICADO_ISO' DataBinding.DataSource = DADataSource Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 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 = 2 Transparent = True Width = 428 end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group9: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Group1: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Datos de la factura' object dxLayoutControl1Item1: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Referencia:' Control = eReferencia ControlOptions.ShowBorder = False end object dxLayoutControl1Item2: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Fecha de la factura:' Control = edtFecha ControlOptions.ShowBorder = False end object dxLayoutControl1Item11: TdxLayoutItem ShowCaption = False Control = eCertificadoISO ControlOptions.ShowBorder = False end object dxLayoutControl1Group6: TdxLayoutGroup Caption = 'Forma de pago' object dxLayoutControl1Group4: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group3: 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 dxLayoutControl1Item10: TdxLayoutItem ShowCaption = False Control = bFormasPago ControlOptions.ShowBorder = False end end object ledtFechaVencimiento: TdxLayoutItem Caption = 'Fecha de vencimiento:' Control = edtFechaVemcimiento ControlOptions.ShowBorder = False end end object dxLayoutControl1Item3: TdxLayoutItem Caption = 'Cuenta bancaria:' Control = cbCuentaBancaria ControlOptions.ShowBorder = False end end end object dxLayoutControl1Group2: TdxLayoutGroup AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Caption = 'Datos del cliente' object dxLayoutControl1Item6: TdxLayoutItem Caption = 'frViewDatosYSeleccionClienteFacturaCliente1' ShowCaption = False Control = frViewDatosYSeleccionClienteFacturaCliente1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Group7: TdxLayoutGroup Caption = 'Cliente final' object dxLayoutControl1Item7: TdxLayoutItem ShowCaption = False Control = Label1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Group8: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item8: TdxLayoutItem AutoAligns = [] AlignHorz = ahClient AlignVert = avCenter Control = cbClienteFinal ControlOptions.ShowBorder = False end object dxLayoutControl1Item9: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight ShowCaption = False Control = bElegirClienteFinal ControlOptions.ShowBorder = False end end end end end object dxLayoutControl1Group5: TdxLayoutGroup AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Caption = 'Descripci'#243'n' LayoutDirection = ldHorizontal object dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Control = memObservaciones ControlOptions.ShowBorder = False end end end end object DADataSource: TDADataSource Left = 16 Top = 56 end object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList Left = 120 Top = 24 object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET GroupOptions.CaptionOptions.Font.Color = clWindowText GroupOptions.CaptionOptions.Font.Height = -11 GroupOptions.CaptionOptions.Font.Name = 'Tahoma' GroupOptions.CaptionOptions.Font.Style = [fsBold] GroupOptions.CaptionOptions.TextColor = clHighlight GroupOptions.CaptionOptions.UseDefaultFont = False end end object dsFormaPago: TDADataSource Left = 16 Top = 24 end object ActionList1: TActionList Left = 16 Top = 96 object actElegirClienteFinal: TAction Caption = '...' OnExecute = actElegirClienteFinalExecute OnUpdate = actElegirClienteFinalUpdate end end end