object fEditorFormaPago: TfEditorFormaPago Left = 453 Top = 234 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Forma de pago' ClientHeight = 435 ClientWidth = 493 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object JvEnterAsTab1: TJvEnterAsTab Left = 137 Top = 306 Width = 28 Height = 28 end object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 493 Height = 435 Align = alClient TabOrder = 0 TabStop = False object Bevel4: TBevel Left = 10 Top = 380 Width = 388 Height = 10 Shape = bsBottomLine end object Bevel2: TBevel Left = 10 Top = 202 Width = 388 Height = 10 Shape = bsBottomLine end object eReferencia: TDBEdit Left = 76 Top = 12 Width = 118 Height = 21 BorderStyle = bsNone Color = clInfoBk DataField = 'REFERENCIA' DataSource = dsFormaPago TabOrder = 0 end object ListaFormasPago: TcxGrid Left = 10 Top = 218 Width = 246 Height = 156 TabOrder = 6 LookAndFeel.Kind = lfStandard LookAndFeel.NativeStyle = True object ListaFormasPagoDBTableView1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsPlazos DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnGrouping = False OptionsCustomize.ColumnMoving = False OptionsCustomize.ColumnSorting = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Inserting = False OptionsView.CellEndEllipsis = True OptionsView.GroupByBox = False object ListaFormasPagoDBTableView1NUM_DIAS: TcxGridDBColumn DataBinding.FieldName = 'NUM_DIAS' PropertiesClassName = 'TcxSpinEditProperties' Properties.AssignedValues.MinValue = True Width = 112 end object ListaFormasPagoDBTableView1PORCENTAJE: TcxGridDBColumn DataBinding.FieldName = 'PORCENTAJE' PropertiesClassName = 'TcxSpinEditProperties' Properties.AssignedValues.MinValue = True Properties.MaxValue = 100.000000000000000000 HeaderAlignmentHorz = taRightJustify Width = 132 end end object ListaFormasPagoLevel1: TcxGridLevel GridView = ListaFormasPagoDBTableView1 end end object bAnadir: TButton Left = 262 Top = 218 Width = 95 Height = 23 Action = actAnadir TabOrder = 7 end object bEliminar: TButton Left = 262 Top = 247 Width = 95 Height = 23 Action = actEliminar TabOrder = 8 end object bAceptar: TButton Left = 314 Top = 396 Width = 75 Height = 23 Action = actAceptar TabOrder = 9 end object bCancelar: TButton Left = 395 Top = 396 Width = 75 Height = 23 Action = actCancelar Cancel = True TabOrder = 10 end object rdPagoPlazos: TcxRadioButton Left = 10 Top = 176 Width = 388 Height = 20 Caption = 'Plazos del pago' TabOrder = 5 OnClick = rdPagoPlazosClick end object rdPagoVencimiento: TcxRadioButton Left = 10 Top = 123 Width = 388 Height = 20 Caption = 'Pago por vencimiento' TabOrder = 2 OnClick = rdPagoPlazosClick end object cbSubcuenta: TcxDBLookupComboBox Left = 74 Top = 149 DataBinding.DataField = 'ID_SUBCUENTA' DataBinding.DataSource = dsFormaPago Enabled = False Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item FieldName = 'DESCRIPCION' end> Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListOptions.SyncMode = True Properties.ListSource = dsSubcuentas 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 = 3 Width = 250 end object cxDBCheckBox1: TcxDBCheckBox Left = 330 Top = 149 Caption = 'Ignorar en contabilidad' DataBinding.DataField = 'IGNORAR_CONTABILIDAD' DataBinding.DataSource = dsFormaPago Enabled = False Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 TabOrder = 4 Width = 140 end object eDescripcion: TDBMemo Left = 76 Top = 43 Width = 392 Height = 72 BorderStyle = bsNone Color = clInfoBk DataField = 'DESCRIPCION' DataSource = dsFormaPago ScrollBars = ssVertical TabOrder = 1 end object dxLayoutControl1Group_Root: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Referencia:' ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group2: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group3: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Item1: TdxLayoutItem Caption = 'Referencia:' Control = eReferencia end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'Descripci'#243'n:' Control = eDescripcion end object dxLayoutControl1Item11: TdxLayoutItem ShowCaption = False Control = rdPagoVencimiento ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object panelVencimiento: TdxLayoutGroup Enabled = False ShowCaption = False Visible = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item12: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Cuenta:' Control = cbSubcuenta ControlOptions.ShowBorder = False end object checkIgnorarContabilidad: TdxLayoutItem AutoAligns = [aaVertical] Caption = 'cxDBCheckBox1' ShowCaption = False Control = cxDBCheckBox1 ControlOptions.ShowBorder = False end end object dxLayoutControl1Item10: TdxLayoutItem Caption = 'cxRadioButton1' ShowCaption = False Control = rdPagoPlazos ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Item9: TdxLayoutItem Control = Bevel2 ControlOptions.ShowBorder = False end end object panelPlazosDePago: TdxLayoutGroup Caption = 'asdadsa' ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item3: TdxLayoutItem Control = ListaFormasPago ControlOptions.ShowBorder = False end object dxLayoutControl1Group1: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Item4: TdxLayoutItem ShowCaption = False Control = bAnadir ControlOptions.ShowBorder = False end object dxLayoutControl1Item5: TdxLayoutItem ShowCaption = False Control = bEliminar ControlOptions.ShowBorder = False end end end end object dxLayoutControl1Item8: TdxLayoutItem Control = Bevel4 ControlOptions.ShowBorder = False end object dxLayoutControl1Group5: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahRight ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item6: TdxLayoutItem ShowCaption = False Control = bAceptar ControlOptions.ShowBorder = False end object dxLayoutControl1Item7: TdxLayoutItem ShowCaption = False Control = bCancelar ControlOptions.ShowBorder = False end end end end object ActionList1: TActionList Left = 88 Top = 300 object actAnadir: TAction Caption = '&A'#241'adir' OnExecute = actAnadirExecute OnUpdate = actAnadirUpdate end object actEliminar: TAction Caption = '&Eliminar' OnExecute = actEliminarExecute OnUpdate = actEliminarUpdate end object actAceptar: TAction Caption = '&Guardar' OnExecute = actAceptarExecute end object actCancelar: TAction Caption = '&Cancelar' OnExecute = actCancelarExecute end object actCerrar: TAction Caption = 'actCerrar' OnExecute = actCerrarExecute end object actModificar: TAction Caption = '&Modificar' end end object dsFormaPago: TDADataSource Left = 48 Top = 300 end object dsPlazos: TDADataSource Left = 8 Top = 300 end object dsSubcuentas: TDADataSource Left = 248 Top = 68 end end