inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 451 Height = 304 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 451 ExplicitHeight = 304 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 451 Height = 304 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 DesignSize = ( 451 304) object eReferencia: TcxDBTextEdit Left = 135 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 StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 Width = 159 end object edtFecha: TcxDBDateEdit Left = 135 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.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 Width = 159 end object cbFormaPago: TcxDBLookupComboBox Left = 135 Top = 162 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Properties.DropDownListStyle = lsFixedList 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 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 = 4 Width = 78 end object bFormasPago: TButton Left = 161 Top = 162 Width = 132 Height = 23 Caption = 'Ver las formas de pago...' TabOrder = 5 OnClick = bFormasPagoClick end inline frViewTienda1: TfrViewTienda Left = 22 Top = 381 Width = 351 Height = 48 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 8 ReadOnly = False ExplicitLeft = 22 ExplicitTop = 381 ExplicitWidth = 351 ExplicitHeight = 48 inherited dxLayoutControl1: TdxLayoutControl Width = 351 Height = 63 ExplicitWidth = 351 ExplicitHeight = 63 inherited cbTienda: TcxComboBox ExplicitWidth = 399 Width = 399 end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Item1: TdxLayoutItem Visible = False end end end end inline frViewClienteFactura1: TfrViewClienteFactura Left = 321 Top = 30 Width = 338 Height = 295 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 11 ReadOnly = False ExplicitLeft = 321 ExplicitTop = 30 ExplicitWidth = 338 ExplicitHeight = 295 inherited dxLayoutControl1: TdxLayoutControl Width = 338 Height = 295 ExplicitWidth = 338 ExplicitHeight = 295 inherited Bevel1: TBevel Width = 266 ExplicitWidth = 266 end inherited edtlNombre: TcxDBTextEdit ExplicitWidth = 276 Width = 276 end inherited edtNIFCIF: TcxDBTextEdit ExplicitWidth = 276 Width = 276 end inherited edtCalle: TcxDBTextEdit ExplicitWidth = 276 Width = 276 end inherited edtPoblacion: TcxDBTextEdit ExplicitWidth = 158 Width = 158 end inherited edtProvincia: TcxDBTextEdit ExplicitWidth = 276 Width = 276 end inherited edtCodigoPostal: TcxDBTextEdit Left = 192 ExplicitLeft = 192 end inherited Button3: TBitBtn Left = 82 ExplicitLeft = 82 end inherited edtIdioma: TcxDBTextEdit ExplicitWidth = 371 Width = 371 end inherited edtPais: TcxDBTextEdit ExplicitWidth = 291 Width = 291 end end end object edtFechaVencimiento: TcxDBDateEdit Left = 135 Top = 191 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataSource = DADataSource Properties.DateButtons = [btnClear, btnToday] Properties.DateOnError = deNull Properties.ImmediatePost = True Properties.OnEditValueChanged = edtFechaVencimientoPropertiesEditValueChanged 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 = 6 Width = 310 end inline frViewObservaciones1: TfrViewObservaciones Left = 22 Top = 675 Width = 521 Height = 20 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 12 ReadOnly = False ExplicitLeft = 22 ExplicitTop = 675 ExplicitHeight = 20 inherited memObservaciones: TcxDBMemo DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource ExplicitHeight = 20 Height = 20 end end object cbRecargoEquivalencia: TcxDBCheckBox Left = 22 Top = 624 Caption = ' No acogida a comisiones' DataBinding.DataField = 'SIN_COMISION' DataBinding.DataSource = DADataSource Enabled = False Properties.DisplayChecked = '1' Properties.DisplayUnchecked = '0' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D 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 = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 10 Width = 158 end object edtSituacion: TcxDBComboBox Left = 135 Top = 111 DataBinding.DataField = 'SITUACION' DataBinding.DataSource = DADataSource Properties.DropDownListStyle = lsFixedList Properties.ImmediatePost = True Properties.Items.Strings = ( 'PENDIENTE' 'PARCIALMENTE PAGADA' 'PAGADA') TabOrder = 3 Width = 121 end object cbTipoFactura: TcxDBLookupComboBox Left = 135 Top = 84 DataBinding.DataField = 'ID_TIPO_FACTURA' DataBinding.DataSource = DADataSource Properties.DropDownListStyle = lsFixedList Properties.ImmediatePost = True Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item FieldName = 'DESCRIPCION' end> Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListOptions.SyncMode = True Properties.ListSource = dsTiposFactura 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 = 2 Width = 158 end inline frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial Left = 22 Top = 459 Width = 425 Height = 135 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 9 ReadOnly = False ExplicitLeft = 22 ExplicitTop = 459 inherited dxLayoutControl1: TdxLayoutControl inherited edtlNombreAgente: TcxDBTextEdit DataBinding.DataSource = DADataSource ExplicitWidth = 224 Width = 224 end inherited edtDelegacion: TcxDBTextEdit DataBinding.DataSource = DADataSource ExplicitWidth = 562 Width = 562 end inherited Button3: TBitBtn Left = 99 ExplicitLeft = 99 end end end inline frViewDatosYSeleccionContrato1: TfrViewDatosYSeleccionContrato Left = 22 Top = 242 Width = 425 Height = 133 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 7 ReadOnly = False ExplicitLeft = 22 ExplicitTop = 242 inherited dxLayoutControl1: TdxLayoutControl inherited Button3: TBitBtn Left = 99 ExplicitLeft = 99 end inherited edtRefContrato: TcxDBTextEdit ExplicitWidth = 459 Width = 459 end inherited edtRefClienteContrato: TcxDBTextEdit ExplicitWidth = 459 Width = 459 end end end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group7: 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 = [aaVertical] AlignHorz = ahClient Caption = 'Datos de la factura' object dxLayoutControl1Item1: TdxLayoutItem Caption = 'Referencia:' Control = eReferencia ControlOptions.ShowBorder = False end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'Fecha de la factura:' Control = edtFecha ControlOptions.ShowBorder = False end object dxLayoutControl1Item11: TdxLayoutItem Caption = 'Tipo operaci'#243'n:' Control = cbTipoFactura ControlOptions.ShowBorder = False end object ledtSituacion: TdxLayoutItem Caption = 'Situaci'#243'n:' Control = edtSituacion ControlOptions.ShowBorder = False end end object dxLayoutControl1Group8: TdxLayoutGroup Caption = 'Forma de pago' 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 = edtFechaVencimiento ControlOptions.ShowBorder = False end end object dxLayoutControl1Group4: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Contrato asociado' object dxLayoutControl1Item13: TdxLayoutItem Control = frViewDatosYSeleccionContrato1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Item3: TdxLayoutItem Caption = 'New Item' ShowCaption = False Control = frViewTienda1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end object dxLayoutControl1Group10: TdxLayoutGroup Caption = 'Datos comerciales' object dxLayoutControl1Item12: TdxLayoutItem Control = frViewDatosYSeleccionComercial1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end object dxLayoutControl1Group9: TdxLayoutGroup Caption = 'Comisiones' Enabled = False Visible = False object dxLayoutControl1Item7: TdxLayoutItem ShowCaption = False Control = cbRecargoEquivalencia ControlOptions.ShowBorder = False end end end object dxLayoutControl1Group2: TdxLayoutGroup AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Caption = 'Datos del cliente' object dxLayoutControl1Item6: TdxLayoutItem Control = frViewClienteFactura1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end end object dxLayoutControl1Group5: TdxLayoutGroup AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'Observaciones' LayoutDirection = ldHorizontal object dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Caption = 'New Item' ShowCaption = False Control = frViewObservaciones1 ControlOptions.AutoColor = True 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 = 64 Top = 24 end object dsTiposFactura: TDADataSource Left = 48 Top = 104 end end