inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales Width = 732 Height = 253 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 732 ExplicitHeight = 253 object Bevel2: TBevel Left = 22 Top = 136 Width = 385 Height = 5 Shape = bsBottomLine end object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 732 Height = 255 Align = alTop ParentBackground = True TabOrder = 0 TabStop = False LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel object Label1: TLabel Left = 466 Top = 28 Width = 227 Height = 26 Caption = 'Puede indicar el d'#237'a del mes en el cual el cliente realiza los p' + 'agos.' Transparent = True WordWrap = True end object Bevel1: TBevel Left = 22 Top = 136 Width = 263 Height = 5 Shape = bsBottomLine end object Bevel3: TBevel Left = 22 Top = 201 Width = 385 Height = 5 Shape = bsBottomLine end object eDiasVencimiento1: TcxDBSpinEdit Left = 538 Top = 60 DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1' DataBinding.DataSource = dsDatosComerciales Properties.DisplayFormat = '##' Properties.ImmediatePost = True Properties.SpinButtons.Visible = False Properties.UseDisplayFormatWhenEditing = True 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 = 9 Width = 79 end object cbRegimenIVA: TcxDBComboBox Left = 114 Top = 28 DataBinding.DataField = 'REGIMEN_IVA' DataBinding.DataSource = dsDatosComerciales Enabled = False Properties.DropDownListStyle = lsFixedList Properties.ImmediatePost = True Properties.ImmediateUpdateText = True Properties.OnInitPopup = cbRegimenIVAPropertiesInitPopup 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 = 0 Width = 121 end object cbRecargoEquivalencia: TcxDBCheckBox Left = 114 Top = 109 Caption = 'Aplicar recargo de equivalencia' DataBinding.DataField = 'RECARGO_EQUIVALENCIA' DataBinding.DataSource = dsDatosComerciales Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 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 = 5 Width = 121 end object cbFormaPago: TcxDBLookupComboBox Left = 114 Top = 55 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = dsDatosComerciales 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.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 = 1 Width = 121 end object bFormasPago: TButton Left = 304 Top = 55 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' TabOrder = 2 OnClick = bFormasPagoClick end object eIVA: TcxDBLookupComboBox Left = 114 Top = 82 DataBinding.DataField = 'ID_TIPO_IVA' DataBinding.DataSource = dsDatosComerciales 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 = dsTiposIVA 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 = 3 Width = 121 end object bTiposIVA: TButton Left = 304 Top = 82 Width = 132 Height = 21 Caption = 'Ver los tipos de IVA...' TabOrder = 4 OnClick = bTiposIVAClick end object eDescuento: TcxDBSpinEdit Left = 114 Top = 147 DataBinding.DataField = 'DESCUENTO' DataBinding.DataSource = dsDatosComerciales Properties.AssignedValues.MinValue = True Properties.DisplayFormat = ',0.00 %;-,0.00 %' Properties.EditFormat = ',0.00 %;-,0.00 %' Properties.ImmediatePost = True 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 = 6 Width = 190 end object eDiasVencimiento2: TcxDBSpinEdit Left = 538 Top = 87 DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2' DataBinding.DataSource = dsDatosComerciales Properties.DisplayFormat = '##' Properties.ImmediatePost = True Properties.SpinButtons.Visible = False 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 = 79 end object eDiasVencimiento3: TcxDBSpinEdit Left = 538 Top = 114 DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3' DataBinding.DataSource = dsDatosComerciales Properties.DisplayFormat = '##' Properties.ImmediatePost = True Properties.SpinButtons.Visible = False 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 = 11 Width = 79 end object eDescuento2: TcxDBSpinEdit Left = 114 Top = 174 DataBinding.DataField = 'DESCUENTO2' DataBinding.DataSource = dsDatosComerciales Properties.AssignedValues.MinValue = True Properties.DisplayFormat = ',0.00 %;-,0.00 %' Properties.EditFormat = ',0.00 %;-,0.00 %' Properties.ImmediatePost = True 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 = 7 Width = 190 end object eVendedor: TcxDBLookupComboBox Left = 114 Top = 212 DataBinding.DataField = 'ID_AGENTE' DataBinding.DataSource = dsDatosComerciales Properties.ImmediatePost = True Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item FieldName = 'NOMBRE' end> Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListOptions.SyncMode = True Properties.ListSource = dsVendedores 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 = 8 Width = 165 end object dxLayoutGroup1: TdxLayoutGroup AlignHorz = ahParentManaged AlignVert = avTop CaptionOptions.Visible = False ButtonOptions.Buttons = <> Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Group3: TdxLayoutGroup AlignHorz = ahClient CaptionOptions.Text = 'Datos comerciales' ButtonOptions.Buttons = <> object dxLayoutControl1Item3: TdxLayoutItem AlignHorz = ahClient CaptionOptions.Text = 'R'#233'gimen de IVA:' Enabled = False Visible = False Control = cbRegimenIVA ControlOptions.ShowBorder = False end object dxLayoutControl1Group2: TdxLayoutGroup CaptionOptions.Visible = False ButtonOptions.Buttons = <> Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item5: TdxLayoutItem AlignHorz = ahClient CaptionOptions.Text = 'Forma de pago:' Control = cbFormaPago ControlOptions.ShowBorder = False end object dxLayoutControl1Item7: TdxLayoutItem AlignHorz = ahRight CaptionOptions.Text = 'Button1' CaptionOptions.Visible = False Control = bFormasPago ControlOptions.ShowBorder = False end end object dxLayoutControl1Group1: TdxLayoutGroup CaptionOptions.Visible = False ButtonOptions.Buttons = <> Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item8: TdxLayoutItem AlignHorz = ahClient CaptionOptions.Text = 'IVA por defecto' Control = eIVA ControlOptions.ShowBorder = False end object dxLayoutControl1Item9: TdxLayoutItem AlignHorz = ahRight CaptionOptions.Visible = False Control = bTiposIVA ControlOptions.ShowBorder = False end end object dxLayoutControl1Item4: TdxLayoutItem AlignHorz = ahClient CaptionOptions.Text = ' ' Control = cbRecargoEquivalencia ControlOptions.ShowBorder = False end object dxLayoutControl1Item10: TdxLayoutItem CaptionOptions.Text = 'Bevel1' CaptionOptions.Visible = False Control = Bevel1 ControlOptions.ShowBorder = False end object dxLayoutControl1Item1: TdxLayoutItem AlignHorz = ahLeft CaptionOptions.Text = 'Dto. cliente:' Control = eDescuento ControlOptions.ShowBorder = False end object dxLayoutControl1Item13: TdxLayoutItem AlignHorz = ahLeft CaptionOptions.Text = 'Dto. pronto pago:' Control = eDescuento2 ControlOptions.ShowBorder = False end object dxLayoutControl1Item15: TdxLayoutItem Control = Bevel3 ControlOptions.ShowBorder = False end object dxLayoutControl1Item14: TdxLayoutItem CaptionOptions.Text = 'Vendedor:' Control = eVendedor ControlOptions.ShowBorder = False end end object dxLayoutControl1Group5: TdxLayoutGroup AlignHorz = ahClient CaptionOptions.Text = 'Datos para facturaci'#243'n' ButtonOptions.Buttons = <> object dxLayoutControl1Item6: TdxLayoutItem AlignHorz = ahClient CaptionOptions.Text = 'Label1' CaptionOptions.Visible = False Control = Label1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Item2: TdxLayoutItem AlignHorz = ahLeft CaptionOptions.Text = 'D'#237'a del mes 1:' Control = eDiasVencimiento1 ControlOptions.ShowBorder = False end object dxLayoutControl1Item11: TdxLayoutItem AlignHorz = ahLeft CaptionOptions.Text = 'D'#237'a del mes 2:' Control = eDiasVencimiento2 ControlOptions.ShowBorder = False end object dxLayoutControl1Item12: TdxLayoutItem AlignHorz = ahLeft CaptionOptions.Text = 'D'#237'a del mes 3:' Control = eDiasVencimiento3 ControlOptions.ShowBorder = False end end end end object dsVendedores: TDADataSource Left = 40 Top = 8 end object dsDatosComerciales: TDADataSource Left = 8 Top = 8 end object dsFormaPago: TDADataSource Left = 40 Top = 48 end object dsTiposIVA: TDADataSource Left = 8 Top = 48 end end