Tecsitel_FactuGES2/Source/Modulos/Formas de pago/Views/uEditorFormasPago.dfm

object fEditorFormasPago: TfEditorFormasPago
  Left = 453
  Top = 234
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Lista de formas de pago'
  ClientHeight = 406
  ClientWidth = 404
  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 bAceptar: TButton
    Left = 236
    Top = 373
    Width = 75
    Height = 23
    Action = actAceptar
    Default = True
    TabOrder = 1
  end
  object bCancelar: TButton
    Left = 321
    Top = 373
    Width = 75
    Height = 23
    Action = actCancelar
    Cancel = True
    TabOrder = 2
  end
  object PageControl1: TPageControl
    Left = 6
    Top = 8
    Width = 390
    Height = 356
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Formas de pago'
      object Label1: TLabel
        Left = 6
        Top = 12
        Width = 168
        Height = 13
        Caption = 'Lista de formas de pago disponibles'
      end
      object bEliminar: TButton
        Left = 284
        Top = 90
        Width = 95
        Height = 23
        Action = actEliminar
        TabOrder = 0
      end
      object bAnadir: TButton
        Left = 284
        Top = 31
        Width = 95
        Height = 23
        Action = actAnadir
        TabOrder = 1
      end
      object Button1: TButton
        Left = 284
        Top = 61
        Width = 95
        Height = 23
        Action = actModificar
        TabOrder = 2
      end
      object ListaFormasPago: TDBGrid
        Left = 6
        Top = 31
        Width = 272
        Height = 289
        DataSource = dsFormasPago
        Options = [dgTitles, dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDblClick = ListaFormasPagoDblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'REFERENCIA'
            Title.Caption = 'Referencia'
            Width = 110
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DESCRIPCION'
            Title.Caption = 'Descripci'#243'n'
            Width = 154
            Visible = True
          end>
      end
    end
  end
  object ActionList1: TActionList
    Left = 144
    Top = 16
    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 = 'A&ceptar'
      OnExecute = actAceptarExecute
    end
    object actCancelar: TAction
      Caption = '&Cancelar'
      OnExecute = actCancelarExecute
    end
    object actCerrar: TAction
      Caption = 'actCerrar'
      OnExecute = actCerrarExecute
    end
    object actModificar: TAction
      Caption = '&Modificar...'
      OnExecute = actModificarExecute
      OnUpdate = actModificarUpdate
    end
  end
  object dsFormasPago: TDADataSource
    Left = 168
    Top = 16
  end
end