object epis: Tepis
  Left = 0
  Top = 0
  Caption = 'EPIS'
  ClientHeight = 375
  ClientWidth = 421
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 40
    Width = 421
    Height = 335
    Align = alClient
    TabOrder = 0
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 419
      Height = 333
      Align = alClient
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 1
        Top = 1
        Width = 417
        Height = 331
        Align = alClient
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'id'
            Title.Caption = 'Id'
            Width = 62
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'descripcion'
            Title.Caption = 'Descripci'#243'n'
            Width = 300
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'activo'
            Title.Caption = 'Activo'
            Width = 44
            Visible = True
          end>
      end
      object Panel3: TPanel
        Left = 1
        Top = 1
        Width = 417
        Height = 331
        Align = alClient
        TabOrder = 1
        object Panel4: TPanel
          Left = 1
          Top = 1
          Width = 415
          Height = 329
          Align = alClient
          TabOrder = 0
          object DBGrid2: TDBGrid
            Left = 1
            Top = 1
            Width = 413
            Height = 327
            Align = alClient
            DataSource = dsqepis
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'id'
                Title.Caption = 'Id'
                Width = 34
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'descripcion'
                Title.Caption = 'Descripci'#243'n'
                Width = 345
                Visible = True
              end>
          end
        end
      end
    end
  end
  object Panel7: TPanel
    Left = 0
    Top = 0
    Width = 421
    Height = 40
    Align = alTop
    TabOrder = 1
    object btAcancelar: TButton
      Left = 221
      Top = 1
      Width = 55
      Height = 38
      Align = alLeft
      Caption = 'Cancelar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ImageAlignment = iaBottom
      ImageIndex = 3
      Images = BASE.listaiconos
      ParentFont = False
      TabOrder = 1
      OnClick = btAcancelarClick
    end
    object btAmodificar: TButton
      Left = 111
      Top = 1
      Width = 55
      Height = 38
      Align = alLeft
      Caption = 'Editar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ImageAlignment = iaBottom
      ImageIndex = 2
      Images = BASE.listaiconos
      ParentFont = False
      TabOrder = 2
      OnClick = btAmodificarClick
    end
    object btAborrar: TButton
      Left = 56
      Top = 1
      Width = 55
      Height = 38
      Align = alLeft
      Caption = 'Borrar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ImageAlignment = iaBottom
      ImageIndex = 1
      Images = BASE.listaiconos
      ParentFont = False
      TabOrder = 3
      OnClick = btAborrarClick
    end
    object btAnuevo: TButton
      Left = 1
      Top = 1
      Width = 55
      Height = 38
      Align = alLeft
      Caption = 'Nuevo'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ImageAlignment = iaBottom
      ImageIndex = 0
      Images = BASE.listaiconos
      ParentFont = False
      TabOrder = 4
      OnClick = btAnuevoClick
    end
    object btAguardar: TButton
      Left = 166
      Top = 1
      Width = 55
      Height = 38
      Align = alLeft
      Caption = 'Guardar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ImageAlignment = iaBottom
      ImageIndex = 140
      Images = BASE.listaiconos
      ParentFont = False
      TabOrder = 0
      OnClick = btAguardarClick
    end
  end
  object dsqepis: TDataSource
    DataSet = qepis
    Left = 24
    Top = 88
  end
  object qidepis: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select ifnull(max(id),0)+1 as id from epis where ide=:empresa')
    Params = <
      item
        DataType = ftUnknown
        Name = 'empresa'
        ParamType = ptUnknown
      end>
    Left = 104
    Top = 72
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'empresa'
        ParamType = ptUnknown
      end>
    object qidepisid: TLargeintField
      FieldName = 'id'
      ReadOnly = True
    end
  end
  object qepis: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from epis order by descripcion')
    Params = <>
    Left = 40
    Top = 144
    object qepisid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qepiside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qepisdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 90
    end
  end
end