object fEditorFormaPago: TfEditorFormaPago Left = 453 Top = 234 ActiveControl = eReferencia BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Forma de pago' ClientHeight = 448 ClientWidth = 408 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 Label1: TLabel Left = 16 Top = 17 Width = 151 Height = 13 Caption = 'Datos de la forma de pago' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Bevel1: TBevel Left = 173 Top = 17 Width = 212 Height = 10 Shape = bsBottomLine end object Label2: TLabel Left = 32 Top = 43 Width = 55 Height = 13 Alignment = taRightJustify Caption = 'Referencia:' end object Label3: TLabel Left = 28 Top = 71 Width = 59 Height = 13 Alignment = taRightJustify Caption = 'Descripci'#243'n:' end object Label11: TLabel Left = 16 Top = 209 Width = 91 Height = 13 Caption = 'Plazos del pago' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Bevel3: TBevel Left = 113 Top = 209 Width = 272 Height = 10 Shape = bsBottomLine end object Bevel4: TBevel Left = 8 Top = 387 Width = 388 Height = 10 Shape = bsBottomLine end object JvEnterAsTab1: TJvEnterAsTab Left = 137 Top = 403 Width = 28 Height = 28 end object eDescripcion: TDBMemo Left = 93 Top = 67 Width = 292 Height = 136 Color = clInfoBk DataField = 'DESCRIPCION' DataSource = dsFormaPago ScrollBars = ssVertical TabOrder = 6 end object bAceptar: TButton Left = 234 Top = 411 Width = 75 Height = 23 Action = actAceptar TabOrder = 4 end object bCancelar: TButton Left = 319 Top = 411 Width = 75 Height = 23 Action = actCancelar Cancel = True TabOrder = 5 end object eReferencia: TDBEdit Left = 93 Top = 40 Width = 148 Height = 21 Color = clInfoBk DataField = 'REFERENCIA' DataSource = dsFormaPago TabOrder = 0 end object bAnadir: TButton Left = 290 Top = 231 Width = 95 Height = 23 Action = actAnadir TabOrder = 2 end object bEliminar: TButton Left = 290 Top = 260 Width = 95 Height = 23 Action = actEliminar TabOrder = 3 end object ListaFormasPago: TcxGrid Left = 32 Top = 231 Width = 252 Height = 150 TabOrder = 1 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 ActionList1: TActionList Left = 88 Top = 397 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 = 397 end object dsPlazos: TDADataSource Left = 8 Top = 397 end end