inherited frmCadPlanoConta: TfrmCadPlanoConta
  Left = 223
  Top = 69
  Caption = 'frmCadPlanoConta'
  ClientHeight = 483
  ClientWidth = 665
  ExplicitWidth = 671
  ExplicitHeight = 513
  PixelsPerInch = 96
  TextHeight = 16
  inherited Panel3: TPanel
    Top = 448
    Width = 665
    ExplicitTop = 448
    ExplicitWidth = 665
    inherited Linhabotao: TShape
      Width = 665
      ExplicitWidth = 665
    end
    inherited Panel2: TPanel
      Left = 409
      ExplicitLeft = 409
      inherited BtGravar: TBitBtn
        Visible = False
      end
      inherited BtCancelar: TBitBtn
        Caption = 'Sair'
      end
    end
  end
  inherited Panel1: TPanel
    Width = 665
    ExplicitWidth = 665
    inherited lblTitulo: TLabel
      Width = 272
      Caption = 'Cadastro de Plano de Contas'
      ExplicitWidth = 272
    end
    inherited Shape1: TShape
      Width = 665
      ExplicitWidth = 665
    end
  end
  object cxPlanoConta: TcxDBTreeList [2]
    Left = 0
    Top = 25
    Width = 665
    Height = 423
    Align = alClient
    Bands = <
      item
      end>
    DataController.DataSource = dsPlanoContas
    DataController.ParentField = 'COD_PAI'
    DataController.KeyField = 'COD_PLANO_CONTA'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Verdana'
    Font.Style = []
    LookAndFeel.Kind = lfFlat
    LookAndFeel.NativeStyle = True
    LookAndFeel.SkinName = 'Office2007Silver'
    Navigator.Buttons.CustomButtons = <>
    OptionsBehavior.ExpandOnIncSearch = True
    OptionsBehavior.FocusCellOnCycle = True
    OptionsBehavior.IncSearch = True
    OptionsBehavior.IncSearchItem = cxDBTreeList1DESCRICAO
    OptionsData.Editing = False
    OptionsData.Deleting = False
    OptionsSelection.CellSelect = False
    OptionsSelection.HideFocusRect = False
    OptionsView.CategorizedColumn = cxDBTreeList1DESCRICAO
    OptionsView.ColumnAutoWidth = True
    OptionsView.CheckGroups = True
    OptionsView.Headers = False
    OptionsView.IndicatorWidth = 10
    OptionsView.PaintStyle = tlpsCategorized
    OptionsView.TreeLineColor = clBlack
    ParentFont = False
    PopupMenu = PopupMenu1
    RootValue = -1
    TabOrder = 2
    object cxDBTreeList1DESCRICAO: TcxDBTreeListColumn
      DataBinding.FieldName = 'DESCRICAO'
      Width = 455
      Position.ColIndex = 0
      Position.RowIndex = 0
      Position.BandIndex = 0
      Summary.FooterSummaryItems = <>
      Summary.GroupFooterSummaryItems = <>
    end
  end
  object qrPlanoDeContas: TIBOQuery
    IB_Connection = Dados.IB_Conexao
    KeyLinks.Strings = (
      'PLANO_DE_CONTAS.COD_PLANO_CONTA')
    PreparedEdits = True
    PreparedInserts = True
    RecordCountAccurate = True
    RequestLive = True
    SQL.Strings = (
      'SELECT PLANO_DE_CONTAS.*'
      ' '
      'FROM PLANO_DE_CONTAS'
      ''
      ' order by'
      '   CODIGO_DESCRITIVO'
      ' , PLANO_DE_CONTAS.descricao'
      ' , PLANO_DE_CONTAS.COD_PAI'
      ''
      'for update')
    Left = 264
    Top = 32
    object qrPlanoDeContasCOD_PLANO_CONTA: TIntegerField
      FieldName = 'COD_PLANO_CONTA'
      Origin = 'PLANO_DE_CONTAS.COD_PLANO_CONTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qrPlanoDeContasCOD_PAI: TIntegerField
      FieldName = 'COD_PAI'
      Origin = 'PLANO_DE_CONTAS.COD_PAI'
    end
    object qrPlanoDeContasDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Origin = 'PLANO_DE_CONTAS.DESCRICAO'
      Size = 80
    end
    object qrPlanoDeContasENTRADA_SAIDA: TStringField
      FieldName = 'ENTRADA_SAIDA'
      Origin = 'PLANO_DE_CONTAS.ENTRADA_SAIDA'
      Size = 1
    end
    object qrPlanoDeContasCODIGO_DESCRITIVO: TStringField
      FieldName = 'CODIGO_DESCRITIVO'
      Origin = 'PLANO_DE_CONTAS.CODIGO_DESCRITIVO'
      Size = 80
    end
  end
  object dsPlanoContas: TDataSource
    DataSet = qrPlanoDeContas
    Left = 296
    Top = 32
  end
  object PopupMenu1: TPopupMenu
    Left = 328
    Top = 32
    object NovoItem1: TMenuItem
      Caption = 'Novo'
      OnClick = NovoItem1Click
    end
    object Alterar1: TMenuItem
      Caption = 'Alterar'
      OnClick = Alterar1Click
    end
    object NovoGrupo1: TMenuItem
      Caption = 'Excluir Item'
      OnClick = NovoGrupo1Click
    end
  end
  object qrMontaCodigo: TIB_Query
    IB_Connection = Dados.IB_Conexao
    SQL.Strings = (
      'SELECT max(PLANO_DE_CONTAS.CODIGO_DESCRITIVO)as ultimocodigo'
      'FROM PLANO_DE_CONTAS'
      'where PLANO_DE_CONTAS.cod_pai = :codigo')
    Left = 408
    Top = 32
  end
end
