inherited frmCadTipoConta: TfrmCadTipoConta
  Caption = 'frmCadTipoConta'
  ClientHeight = 362
  ClientWidth = 623
  OldCreateOrder = True
  ExplicitWidth = 629
  ExplicitHeight = 391
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    Width = 623
    Height = 324
    ExplicitWidth = 591
    ExplicitHeight = 324
    inherited Acesso: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 583
      ExplicitHeight = 314
      inherited Panel2: TPanel
        Left = 524
        Height = 277
        ExplicitLeft = 492
        ExplicitHeight = 277
      end
      inherited Panel3: TPanel
        Top = 277
        Width = 615
        ExplicitTop = 277
        ExplicitWidth = 583
      end
      inherited pnGrade: TPanel
        Width = 524
        Height = 277
        ExplicitWidth = 492
        ExplicitHeight = 277
        inherited grdPesquisa: TIB_Grid
          Width = 524
          Height = 261
          ExplicitWidth = 492
          ExplicitHeight = 261
        end
        inherited pnlOpcoesPesquisa: TPanel
          Width = 524
          ExplicitWidth = 492
        end
      end
    end
    inherited Manutencao: TTabSheet
      ExplicitLeft = 8
      ExplicitTop = 6
      ExplicitWidth = 583
      ExplicitHeight = 314
      inherited Panel6: TPanel
        Top = 278
        Width = 615
        TabOrder = 7
        ExplicitTop = 278
        ExplicitWidth = 583
        inherited Linhabotao: TShape
          Width = 613
          ExplicitWidth = 581
        end
        inherited Panel7: TPanel
          Left = 287
          TabOrder = 0
          ExplicitLeft = 255
          inherited BtProximo: TBitBtn
            TabOrder = 2
          end
          inherited BtAnterior: TBitBtn
            TabOrder = 0
          end
          inherited BtGravar: TBitBtn
            TabOrder = 1
          end
          inherited BtCancelar: TBitBtn
            Top = 2
            TabOrder = 3
            ExplicitTop = 2
          end
        end
        inherited btnVoltar: TBitBtn
          TabOrder = 1
        end
        inherited BtExcluir: TBitBtn
          TabOrder = 3
        end
        inherited btnEditar2: TBitBtn
          TabOrder = 4
        end
        inherited btnBtInserir2: TBitBtn
          TabOrder = 2
        end
      end
      object GroupBox2: TGroupBox
        Left = 4
        Top = 3
        Width = 112
        Height = 41
        Caption = 'C'#211'DIGO'
        TabOrder = 0
        object dbCodigo: TIB_Text
          Left = 4
          Top = 16
          Width = 85
          Height = 16
          DataField = 'COD_TIPO_CONTA'
          DataSource = DsPrincipal
          BiDiMode = bdLeftToRight
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentBiDiMode = False
          ParentFont = False
        end
      end
      object edtDescricao: TIB_Edit
        Left = 4
        Top = 72
        Width = 385
        Height = 24
        AutoLabel.Caption = 'Descri'#231#227'o'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'DESCRICAO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 1
      end
      object IB_RadioGroup1: TIB_RadioGroup
        Left = 4
        Top = 175
        Width = 353
        Height = 49
        AutoLabel.Caption = 'Tipo '
        AutoLabel.Kind = albTop
        DataField = 'TIPO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
        BorderStyle = bsNone
        ParentBackground = False
        TabOrder = 6
        Columns = 2
        Items.Strings = (
          'D'#233'bito'
          'Cr'#233'dito')
        Values.Strings = (
          'D'
          'C')
      end
      object edtCodPlanoConta: TEdit
        Left = 4
        Top = 127
        Width = 50
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object edtPlanoConta: TIB_LookupCombo
        Tag = -1
        Left = 64
        Top = 127
        Width = 344
        Height = 24
        AutoLabel.Caption = 'Plano de contas'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = -54
        DataSource = dsrPlanoConta
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = False
        ParentBackground = False
        TabOrder = 3
        DisplayField = 'DESCRICAO'
        DropDownWidth = 410
        ShowButton = True
      end
      object cxButton1: TcxButton
        Tag = 2
        Left = 414
        Top = 127
        Width = 27
        Height = 25
        Hint = 'Pesquisar o plano de contas'
        LookAndFeel.Kind = lfOffice11
        LookAndFeel.NativeStyle = False
        LookAndFeel.SkinName = 'Office2010Blue'
        OptionsImage.Glyph.SourceDPI = 96
        OptionsImage.Glyph.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          610000000B744558745469746C65005A6F6F6D3BCF09FEBC0000035A49444154
          785E7D936B4C1C7514C57F33BBB0BBBC7641046A2AD0D242B616ABB605D41462
          7996F8819268254693A6311AF41BA6180214A4055A959AC6588DB18FB0049342
          237DA821585B405AB1A948080F53A3B5B42C9447175876766699BF5308899F3C
          C9B92737B9E7E4DE0F1721C40A01D3C79F77EC38F54D5FFBD9B6FEFB67DB6F8A
          33E7FA27BF6AE9B950FB514B26100C486BF3D547DB015869720BF759BE7475D7
          B67D37A88EFE392516BD7E616045476E4F0AD7F9FEC0E1A6F39FEEC8C87500B2
          E1E1FDDA16D660FAA2F9DAE1CEEE31A16ACBE287BE7F44F5C95FC581DAABA2CA
          D04BBD7F0BEF922A5ABFFD4594D7B95A011B2095967F0D80FCC9C94BDBA31CF6
          83BBD236D2E41AA4F3C63D0AD2E229CE4B25608DA2A3D7CDF1D62172B2B6E270
          D85F2B39F0E11EC0E4F3F901904342EC155B926383AEDE9A60CAE3A766FF76E2
          9F70101F63E3796734492949B83D1A3FDD9CE099D44482ADF652204851140064
          1D9196B83E8A1F6F8DB3775722F37EC1AC6F9939839884618064E77A6E0C4FB2
          31218E40403C07981545E5C25BE9C89AA6AFB35ACD3C58505892830C73803925
          C0BCA61B5C263C44223A3204AFAA116C09C6AF6A9180E1D3305BACC88AE29F5A
          F269C6908D2BB73D8CCDAA3C547566D4004B0822224CE8928AC36165EEA11763
          F579004D0BA0EB3AF2C282B767E48F09763A63989D79C0A8C7CFC8829F2509C2
          C34D58424CDC754FB32DE9318686FFC2E75B1C00960D1845204FBAC74F5DECFC
          8DF4CD51C44698718FDFC32C544243C1A72A0C8EDE415AD6D8141B46C7C51E3C
          3313CD802684BE1220019637DEFDECF453290925050569FC7EDF38C3ED61DAD8
          22CE6E2525CEC106870D97EB32E18B6344DEF9BEFE83CBC34781C573FB5FD065
          40FDB9ABB9B4EFFAC089A6136D3AD3D3BCEC5CC77BBB9DE427C7B078779C63C7
          CE10ED1DA2B67433D9D9CF561CC9771E04425F39DD27AFFD810C583372DECECB
          2EAAE8CA2D3EA4E4141F12D945556A6661D9B56D19FB4A2AB3363474D7BF2AC4
          40A3B85EBF5754BF94DC08D8FFFB4C1260066C4038605F2561800588284B7FB2
          BEABB25088DE32D1539927EAF2B71E917617D5201020745851C12A044820B1DA
          5FE9689081B0779E8EAB28CCDA549E9F9380CB35E6E5FFD0F2FA4E1A3213A87B
          319E9A8CF8B55323DE4C7EBCEE78EE16AD714F6ACBBF059CA12764F2DBD90000
          000049454E44AE426082}
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        TabStop = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        OnClick = cxButton1Click
      end
      object cxButton2: TcxButton
        Tag = 2
        Left = 443
        Top = 127
        Width = 27
        Height = 25
        Hint = 'Cadastrar um novo plano de contas'
        LookAndFeel.Kind = lfOffice11
        LookAndFeel.NativeStyle = False
        LookAndFeel.SkinName = 'Office2010Blue'
        OptionsImage.Glyph.SourceDPI = 96
        OptionsImage.Glyph.Data = {
          424D360400000000000036000000280000001000000010000000010020000000
          000000000000C40E0000C40E00000000000000000000DCDCDC00CCCCCCFFCCCC
          CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC
          CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFDCDCDC00A4A4A4FF8D8D8DFF8A8A
          8AFF8A8A8AFF8A8A8BFF8B8B8CFF8B8C8DFF8B8C8DFF8B8B8CFF8A8A8BFF8A8A
          8AFF8A8A8AFF8A8A8AFF8A8A8AFF8D8D8DFFA4A4A4FF8D8D8DFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8D8D8DFF8B8B8BFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFC6A584FF9E6932FF9E6932FFC4A482FFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8B8B8BFF8B8B8BFFFFFFFFFFFFFF
          FFFF808182FF83878AFFA16A32FFF0D9BBFFE0BC8FFF9D672FFFFFFFFFFF5C5D
          5DFF9E9E9EFF9C9C9CFF9A9A9AFFFFFFFFFF8B8B8BFF8B8B8BFFFFFFFFFFFEFE
          FEFF838384FFFFFFFFFFCFB08CFFAD7941FFAD7941FFCCAD8AFFFBFEFFFFFBFC
          FCFFFBFBFBFFFAFAFAFFFAFAFAFFFFFFFFFF8B8B8BFF8B8B8BFFFFFFFFFFFAFA
          FAFF838383FFFDFFFFFFFAFFFFFFFCFFFFFFFCFFFFFFF9FEFFFFF4F7F9FFF4F4
          F4FFF3F4F4FFF3F3F3FFF4F4F4FFFFFEFEFF8B8B8BFF8B8B8BFFFFFEFEFFF8F7
          F6FF858585FFFFFFFFFFC2A280FF9F6A34FF9F6A34FFC0A07EFFF5F7F9FFF6F5
          F4FFF5F4F3FFF5F4F2FFF4F3F2FFFFFEFEFF8C8C8CFF8B8C8CFFFEFDFDFFF5F4
          F3FF878788FF878B8FFFA26C34FFF0DABCFFE1BD90FF9E6931FFF5F8FBFF5F60
          61FFA0A0A0FF9E9F9FFF9C9D9DFFFFFEFEFF8C8C8CFF8C8C8CFFFDFCFCFFF1F1
          F0FF868788FFF7FAFCFFCBAB89FFAE7A40FFAD7A40FFC8A885FFEFF1F2FFEFEF
          EEFFEFEEEDFFEFEEECFFEEEDECFFFDFCFCFF8C8C8CFF8C8C8CFFFEFEFFFFEFEF
          F2FF858A8EFFF1F4FAFFEDF1F7FFECEFF4FFEBEDF2FFEAEAEDFFE8E7E8FFE8E6
          E6FFE8E5E6FFE7E5E5FFE7E5E5FFFCFBFBFF8C8C8CFF8C8C8DFFFFFFFFFFBC9C
          7AFFA36E37FFA26D36FFBC9C7BFFE9EAEEFFE9E8E9FFE9E7E7FFE8E6E6FFE6E4
          E4FFE4E2E3FFE3E1E1FFE3E1E1FFFCFBFBFF8C8C8CFF8C8D8DFFFFFFFFFF9F69
          31FFF0DABCFFE2BE91FFA06A33FFE8E9ECFF626364FFA2A3A3FFA1A1A1FF9E9F
          9FFFE2E0DFFFE0DEDDFFE0DDDCFFFCFDFBFF8C8C8CFF8C8D8DFFFFFFFFFFC4A4
          7FFFAE7A41FFAF7B41FFC5A581FFE2E2E3FFE2E0E0FFE2E0DFFFE1DFDEFFE0DE
          DDFFDEDCDBFFDDDBD9FFDCDAD9FFFFFEFEFF8C8C8CFF8E8F8FFFFFFFFFFFF7F7
          FAFFF7F9FDFFF7F9FEFFF7F7FAFFF5F4F5FFF5F3F3FFF5F3F3FFF5F3F3FFF5F3
          F3FFF5F2F2FFF4F2F2FFF4F2F2FFFFFFFFFF8E8E8EFF999999FF8E8F8FFF8D8D
          8EFF8D8D8EFF8D8E8EFF8D8D8EFF8C8D8DFF8C8D8DFF8C8D8DFF8C8D8DFF8C8D
          8DFF8C8D8DFF8C8C8DFF8C8D8DFF8E8E8EFF999999FF}
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        TabStop = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        OnClick = cxButton2Click
      end
    end
  end
  inherited Panel1: TPanel
    Width = 623
    ExplicitWidth = 591
    inherited Label2: TLabel
      Width = 130
      Caption = 'Tipo de conta'
      ExplicitWidth = 130
    end
    inherited Shape1: TShape
      Width = 623
      ExplicitWidth = 591
    end
    inherited imgAcao: TImage
      Left = 263
      ExplicitLeft = 231
    end
  end
  inherited TbPrincipal: TIB_Query
    FieldsCharCase.Strings = (
      'COD_TIPO_CONTA=UPPER'
      'DESCRICAO=UPPER'
      'TIPO=UPPER')
    FieldsDisplayLabel.Strings = (
      'DESCRICAO=Descri'#231#227'o'
      'COD_TIPO_CONTA=C'#243'digo'
      'TIPO=Tipo')
    FieldsDisplayWidth.Strings = (
      'DESCRICAO=341'
      'TIPO=43')
    FieldsVisible.Strings = (
      'COD_TIPO_CONTA=TRUE'
      'DESCRICAO=TRUE'
      'TIPO=TRUE'
      'COD_PLANO_CONTA=FALSE')
    SQL.Strings = (
      'SELECT TIPO_CONTA.*'
      'FROM TIPO_CONTA')
    DeleteSQL.Strings = (
      'DELETE FROM TIPO_CONTA TIPO_CONTA'
      'WHERE'
      '   COD_TIPO_CONTA = :OLD_COD_TIPO_CONTA')
    EditSQL.Strings = (
      'UPDATE TIPO_CONTA TIPO_CONTA SET'
      '   TIPO_CONTA.COD_TIPO_CONTA = :COD_TIPO_CONTA, /*PK*/'
      '   TIPO_CONTA.COD_PLANO_CONTA = :COD_PLANO_CONTA,'
      '   TIPO_CONTA.DESCRICAO = :DESCRICAO,'
      '   TIPO_CONTA.TIPO = :TIPO'
      'WHERE'
      '   COD_TIPO_CONTA = :OLD_COD_TIPO_CONTA')
    InsertSQL.Strings = (
      'INSERT INTO TIPO_CONTA('
      '   COD_TIPO_CONTA, /*PK*/'
      '   COD_PLANO_CONTA,'
      '   DESCRICAO,'
      '   TIPO)'
      'VALUES ('
      '   :COD_TIPO_CONTA,'
      '   :COD_PLANO_CONTA,'
      '   :DESCRICAO,'
      '   :TIPO)')
    KeyLinks.Strings = (
      'TIPO_CONTA.COD_TIPO_CONTA')
    OrderingItemNo = 2
    OrderingItems.Strings = (
      'COD_TIPO_CONTA=COD_TIPO_CONTA;COD_TIPO_CONTA DESC'
      'DESCRICAO=DESCRICAO;DESCRICAO DESC'
      'TIPO=TIPO;TIPO DESC')
    OrderingLinks.Strings = (
      'COD_TIPO_CONTA=1'
      'DESCRICAO=2'
      'TIPO=3')
    SearchingLinks.Strings = (
      'COD_TIPO_CONTA=COD_TIPO_CONTA'
      'DESCRICAO=DESCRICAO'
      'TIPO=TIPO')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  object qrPlanoConta: TIB_Query
    FieldsCharCase.Strings = (
      'COD_TIPO_CONTA=UPPER'
      'DESCRICAO=UPPER')
    FieldsDisplayLabel.Strings = (
      'COD_TIPO_CONTA=C'#243'digo'
      'DESCRICAO=Descri'#231#227'o'
      'COD_PLANO_CONTA=C'#243'd')
    FieldsDisplayWidth.Strings = (
      'DESCRICAO=350'
      'COD_PLANO_CONTA=44')
    FieldsVisible.Strings = (
      'COD_TIPO_CONTA=TRUE'
      'DESCRICAO=TRUE'
      'NAO_DISPONIVEL=FALSE'
      'COD_PLANO_CONTA=TRUE'
      'COD_CENTRO_CUSTO=FALSE')
    IB_Connection = Dados.IB_Conexao
    IB_Transaction = Dados.transacao
    SQL.Strings = (
      'SELECT PLANO_DE_CONTAS.COD_PLANO_CONTA'
      '     , PLANO_DE_CONTAS.DESCRICAO'
      'FROM PLANO_DE_CONTAS'
      'where PLANO_DE_CONTAS.ENTRADA_SAIDA = '#39'S'#39)
    KeyLinks.Strings = (
      'PLANO_DE_CONTAS.COD_PLANO_CONTA')
    OrderingItemNo = 2
    OrderingItems.Strings = (
      'COD_PLANO_CONTA=COD_PLANO_CONTA;COD_PLANO_CONTA DESC'
      'DESCRICAO=DESCRICAO;DESCRICAO DESC')
    OrderingLinks.Strings = (
      'COD_PLANO_CONTA=1'
      'DESCRICAO=2')
    SearchingLinks.Strings = (
      'COD_PLANO_CONTA=COD_PLANO_CONTA'
      'DESCRICAO=DESCRICAO')
    Left = 307
  end
  object dsrPlanoConta: TIB_DataSource
    Dataset = qrPlanoConta
    Left = 307
    Top = 28
  end
end
