inherited frmCadContasPagar: TfrmCadContasPagar
  Left = 208
  Top = 152
  Caption = 'frmCadContasPagar'
  ClientHeight = 555
  ClientWidth = 1019
  OldCreateOrder = True
  ExplicitTop = -126
  ExplicitWidth = 1025
  ExplicitHeight = 584
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    Width = 1019
    Height = 517
    TabOrder = 1
    ExplicitWidth = 1019
    ExplicitHeight = 517
    inherited Acesso: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 1011
      ExplicitHeight = 507
      inherited Panel2: TPanel
        Left = 920
        Height = 470
        ExplicitLeft = 920
        ExplicitHeight = 470
      end
      inherited Panel3: TPanel
        Top = 470
        Width = 1011
        TabOrder = 2
        ExplicitTop = 470
        ExplicitWidth = 1011
      end
      inherited pnGrade: TPanel
        Width = 920
        Height = 470
        TabOrder = 0
        ExplicitWidth = 920
        ExplicitHeight = 470
        inherited grdPesquisa: TIB_Grid
          Width = 920
          Height = 454
          TabOrder = 1
          ExplicitWidth = 920
          ExplicitHeight = 454
        end
        inherited pnlOpcoesPesquisa: TPanel
          Width = 920
          TabOrder = 0
          ExplicitWidth = 920
          inherited rdbPalavra: TRadioButton
            TabOrder = 2
          end
          inherited rdbPesquisaInicio: TRadioButton
            TabOrder = 0
          end
        end
      end
    end
    inherited Manutencao: TTabSheet
      Font.Style = []
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 1011
      ExplicitHeight = 507
      object imgPago: TImage [0]
        Left = 853
        Top = 336
        Width = 64
        Height = 64
        Cursor = crHandPoint
        Hint = 'Conta Paga'
        DragCursor = crHandPoint
        ParentShowHint = False
        Picture.Data = {
          [encoded data, 29824 characters]
          B366C55D9B366C55D9B366C55D9B366C55FFD9}
        ShowHint = True
      end
      inherited Panel6: TPanel
        Top = 471
        Width = 1011
        TabOrder = 23
        ExplicitTop = 471
        ExplicitWidth = 1011
        inherited Linhabotao: TShape
          Width = 1009
          ExplicitWidth = 719
        end
        object btnRepetir: TBitBtn [1]
          Left = 394
          Top = 3
          Width = 88
          Height = 30
          Cursor = crHandPoint
          Hint = 'Editar'
          BiDiMode = bdLeftToRight
          Caption = 'Repetir'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            76060000424D7606000000000000360400002800000018000000180000000100
            08000000000040020000C40E0000C40E00000001000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
            A6000020400000206000002080000020A0000020C0000020E000004000000040
            20000040400000406000004080000040A0000040C0000040E000006000000060
            20000060400000606000006080000060A0000060C0000060E000008000000080
            20000080400000806000008080000080A0000080C0000080E00000A0000000A0
            200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
            200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
            200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
            20004000400040006000400080004000A0004000C0004000E000402000004020
            20004020400040206000402080004020A0004020C0004020E000404000004040
            20004040400040406000404080004040A0004040C0004040E000406000004060
            20004060400040606000406080004060A0004060C0004060E000408000004080
            20004080400040806000408080004080A0004080C0004080E00040A0000040A0
            200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
            200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
            200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
            20008000400080006000800080008000A0008000C0008000E000802000008020
            20008020400080206000802080008020A0008020C0008020E000804000008040
            20008040400080406000804080008040A0008040C0008040E000806000008060
            20008060400080606000806080008060A0008060C0008060E000808000008080
            20008080400080806000808080008080A0008080C0008080E00080A0000080A0
            200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
            200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
            200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
            2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
            2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
            2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
            2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
            2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
            2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
            2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF6F6F6F6
            F6F6F6080808080808F6F6F6F6F6F6F6FFFFF607070707F7F7F7F7F7F7F7F7F7
            F7F7F7F7F707070707F6FFFFFFFFF6FFFFF6F6F6F5EBA1A1A1E2F5F6FFFFFFFF
            FFFFFFFFFFFFE109FFFF09E1A1A1A1A1A1A1A1E2F4FFFFFFFFFFFFFFFFF6E1A1
            09EBA1A1A1A1A1A1A1ECFFFFFFF6FFFFFFFFFFFFFF09A1A1A1A1A1A1A1A1A1E2
            F6FFFFFFFFFFFFFFFFFFFFFFFF09E1E1E1E1E1E1E1E1ECFFFFFFFFFFFFFFFFFF
            FFFFFFFFFF09E2E2E2E2E2E2E2F5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4E2E2
            E2E2E2E2F5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4EAEAEAEAEAEA09FFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFF4EAEAEAEAEAEAEA09FFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFF090909F4F4F3F3F3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6F509
            09F6F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE2E2E2E2EAEAEAEB09FF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFF6E2E2E2EAEAEAEB09FFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFF09E2EAEAEAEAEB09FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEB
            E2EAEAEAEBEB09FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEBE2E2EAEAEAEBEB09FF
            FFFFFFFFFFFFFFFFFFFFFFFFF6E2E2E2EAEAEAEAEBEBFFFFFFFFFFFFFFFFFFFF
            FFFFFFF4A1E1E2E2EAEAEBF4EBEBFFFFFFFFFFFFFFFFF608F609E2A1E1E1E2E2
            E2EBF6FFF3EBFFFFFFFFFFFFFFFFFF09E2E2A1A1E1E1E2EB09FFFFFFFF09FFFF
            FFFFFFFFFFFFFFFFFFF609F4F40909FFFFFFFFFFFFFFFFFFFFFF}
          ParentBiDiMode = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          Spacing = 2
          TabOrder = 0
          OnClick = btnRepetirClick
        end
        inherited Panel7: TPanel
          Left = 772
          Width = 238
          TabOrder = 1
          ExplicitLeft = 772
          ExplicitWidth = 238
          inherited BtProximo: TBitBtn
            Left = 142
            ExplicitLeft = 142
          end
          inherited BtAnterior: TBitBtn
            Left = 48
            TabOrder = 1
            ExplicitLeft = 48
          end
          inherited BtGravar: TBitBtn
            Left = 47
            ExplicitLeft = 47
          end
          inherited BtCancelar: TBitBtn
            Left = 141
            Top = 2
            TabOrder = 2
            ExplicitLeft = 141
            ExplicitTop = 2
          end
        end
        inherited btnVoltar: TBitBtn
          TabOrder = 2
        end
        inherited BtExcluir: TBitBtn
          TabOrder = 4
        end
        inherited btnEditar2: TBitBtn
          TabOrder = 5
        end
        inherited btnBtInserir2: TBitBtn
          TabOrder = 3
        end
        object btnReabrir: TBitBtn
          Left = 305
          Top = 3
          Width = 89
          Height = 30
          Hint = 'Remove o pagamento da conta'
          Caption = 'Reabrir'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Verdana'
          Font.Style = [fsBold]
          Glyph.Data = {
            76060000424D7606000000000000360400002800000018000000180000000100
            08000000000040020000220B0000220B00000001000000010000009C0000089C
            0800109C0800109C100031A5210039A5210039A5290031AD290039AD290039AD
            3100EFA5390039AD390039B539006BB542006BB54A00EFA55200FFB552008484
            5A0094BD5A0073C66300E7AD6B00F7BD6B0073C66B00AD7B7300AD847300B584
            7300A5C67300AD7B7B009C847B00A5847B00AD847B00B58C7B00C6C67B007BCE
            7B00B5848400BD848400B58C8400BD8C8400BD948400C6948400C69C8400DEA5
            8400E7B58400CE9C8C00CEA58C00D6A58C00DEAD8C00EFC68C00F7C68C00BDCE
            8C00C6CE8C00B5AD9400E7CE9400EFCE9400B5AD9C00EFCE9C00F7CE9C00CED6
            9C00F7D69C009CDE9C00BDB5A500DEC6A500EFCEA500ADD6A500E7D6A500F7D6
            A500CEBDAD00D6C6AD00C6D6AD00E7D6AD00EFD6AD00F7D6AD00F7D6B500CEDE
            B500EFDEB500F7DEB500CEDEBD00EFDEBD00F7DEBD00E7CEC600E7DEC600EFDE
            C600F7DEC600EFE7C600F7E7C600FFE7C600E7D6CE00F7DECE00EFE7CE00F7E7
            CE00FFE7CE00CEEFCE00D6EFCE00E7D6D600F7E7D600FFE7D600EFEFD600FFEF
            D600EFDEDE00F7E7DE00EFEFDE00F7EFDE00FFEFDE00F7EFE700FFEFE700FFF7
            E700F7EFEF00FFF7EF00FFF7F700F7FFF700FFFFF700FF00FF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006F6F6F1B2222
            222222222222222222222222222222226F6F6F6F6F1B51544E4B484641373735
            353535353535351F6F6F6F6F6F1B5154524E3140403E3737353535353535351F
            6F6F6F6F6F1B575952523900400E06060E2034353535351F6F6F6F6F6F1B585E
            59524A0003000000000012343535351F6F6F6F6F6F1B5E655E594D0000000000
            000000203535351F6F6F6F6F6F1E63655E59500000000932320E00063535351F
            6F6F6F6F6F1E6767655E53000000044540401A023735351F6F6F6F6F6F1F676B
            67655800000000004546463E2137351F6F6F6F6F6F246A6B6767585850504D4A
            454846462137351F6F6F6F6F6F256C6E6B2167655E53504D4A454540463E371F
            6F6F6F6F6F266C706C216767655800000000004546463E1F6F6F6F6F6F276C70
            706C033F605858070000004548463E1F6F6F6F6F6F286C7070700B001649490B
            0000004A4E48461F6F6F6F6F6F286C7070705B00000000000000004D4E4D3D1C
            6F6F6F6F6F2B6C7070706D3B00000000000300504D42331C6F6F6F6F6F2C6C70
            7070706D5B160B0B13580044423C361C6F6F6F6F6F2D6C707070707070706C6B
            69501811171717186F6F6F6F6F2E6C707070707070706E6C6B4F192A140F0A22
            6F6F6F6F6F2E6C7070707070707070706E4F192F1510226F6F6F6F6F6F2E6C70
            70707070707070707056192F15226F6F6F6F6F6F6F2E70707070707070707070
            705D192F226F6F6F6F6F6F6F6F2929292929292929292929292919226F6F6F6F
            6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          OnClick = btnReabrirClick
        end
        object btnPagar: TBitBtn
          Left = 305
          Top = 3
          Width = 88
          Height = 30
          Caption = 'Pagar'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            76060000424D7606000000000000360400002800000018000000180000000100
            08000000000040020000330B0000330B00000001000000010000007B00000094
            000000C6000000314A00084263006363630084848400085A940010849C002194
            9C00A5FFA5001873AD002984BD002184C600429CC60042A5C6004AA5C600C6C6
            C600C6FFC6005A5ACE003963CE00107BCE0042A5CE005AA5CE0073B5D6006BBD
            D6007BBDD6006BC6D6004A5ADE0073C6DE007BCEDE0039A5E700299CEF007B9C
            EF008CCEEF0094DEEF0052C6F700FF00FF008C94FF0084A5FF004ABDFF007BE7
            FF0094E7FF009CE7FF008CF7FF00BDFFFF00C6FFFF00D6FFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00252525252525
            2525252525252525252525252525252525252525252525252525252525252525
            2525252525252525252525252525252525252525252525252525252525252525
            2525252525252525252525252506070404040306252525252525252525250607
            0404030625282F2D2C2C201525252525252525252525282F2D2C201525062828
            282828060403252525252525252506282828280625252525272A2D1E100C1325
            2525252525252525252525252525252526222D190E0D1C252525252525252525
            2525252525252525250704040403252525252525252525252525252525252525
            21222D190E0D14252525252500000000000000000000000018232D190E0D0B00
            000025250001010101020A121212121212170404040301010100252500010101
            020A1212120505051A1D2D1B0F0D080101002525000101020A121212052E112E
            222B2D29241F0901010025250001020A121212052E1111111128282828281202
            0100252500010212121212052E2E11112E2E051212121202010025250001020A
            12121212051111111105121212120A0201002525000101020A12121212050505
            05121212120A02010100252500010101020A121212121212121212120A020101
            010025250001010101021212121212121212120A020101010100252500000000
            0000000000000000000000000000000000002525252525252525252525252525
            2525252525252525252525252525252525252525252525252525252525252525
            2525252525252525252525252525252525252525252525252525}
          ParentFont = False
          TabOrder = 7
          OnClick = btnPagarClick
        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_CONTA_PAGAR'
          DataSource = DsPrincipal
          BiDiMode = bdLeftToRight
          ParentBiDiMode = False
        end
      end
      object edtDataCad: TIB_Edit
        Left = 125
        Top = 20
        Width = 117
        Height = 24
        Hint = 'Data de cadastro '
        TabStop = False
        AutoLabel.Caption = 'Data Cadastro'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'DATA_CAD'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        ParentBackground = False
        ReadOnly = True
        TabOrder = 1
      end
      object edtVenc: TIB_Date
        Left = 590
        Top = 62
        Width = 127
        Height = 24
        AutoLabel.Caption = 'Data Vencimento'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'DATA_VENC'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 7
        OnExit = edtVencExit
        IncCellHeight = 1
        IncCellWidth = 2
        DrawYearArrow = False
      end
      object edtValor: TIB_Currency
        Left = 394
        Top = 62
        Width = 178
        Height = 24
        Hint = 'Valor da conta'
        AutoLabel.Caption = 'Valor'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'CONTAS_PAGAR.VALOR'
        DataSource = DsPrincipal
        ParentBackground = False
        TabOrder = 6
        AlwaysShowButton = True
      end
      object edtDescricao: TIB_Edit
        Left = 4
        Top = 62
        Width = 377
        Height = 24
        AutoLabel.Caption = 'Descri'#231#227'o'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'DESCRICAO'
        DataSource = DsPrincipal
        ParentBackground = False
        TabOrder = 5
      end
      object edtUsuario: TIB_Edit
        Left = 251
        Top = 20
        Width = 210
        Height = 24
        TabStop = False
        AutoLabel.Caption = 'Usu'#225'rio Lan'#231'amento'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'NOME'
        DataSource = dsrUsuario
        ParentShowHint = False
        ShowHint = True
        BorderStyle = bsNone
        ParentBackground = False
        ReadOnly = True
        TabOrder = 2
      end
      object edtTipoConta: TIB_LookupCombo
        Tag = 1
        Left = 3
        Top = 112
        Width = 315
        Height = 24
        Hint = 'Tipo da conta'
        AutoLabel.Caption = 'Tipo da conta'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataSource = dsrTipoConta
        ParentShowHint = False
        ShowHint = True
        ParentBackground = False
        TabOrder = 9
        DisplayField = 'DESCRICAO'
        DropDownWidth = 305
        OnChange = edtTipoContaChange
        ShowButton = True
      end
      object pnlPgto: TGroupBox
        Left = 4
        Top = 328
        Width = 837
        Height = 112
        Caption = 'Dados do pagamento'
        Color = 16638679
        ParentColor = False
        TabOrder = 15
        object IB_Text1: TIB_Text
          Left = 10
          Top = 82
          Width = 311
          Height = 17
          DataField = 'DESCRICAO'
          DataSource = dsrFormaPgto
        end
        object Label3: TLabel
          Left = 10
          Top = 64
          Width = 102
          Height = 16
          Caption = 'Forma de Pgto:'
        end
        object Label9: TLabel
          Left = 525
          Top = 37
          Width = 9
          Height = 23
          Caption = '-'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Verdana'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label10: TLabel
          Left = 668
          Top = 37
          Width = 16
          Height = 23
          Caption = '='
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Verdana'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label11: TLabel
          Left = 255
          Top = 37
          Width = 16
          Height = 23
          Caption = '+'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Verdana'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label12: TLabel
          Left = 388
          Top = 37
          Width = 16
          Height = 23
          Caption = '+'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Verdana'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lbl6: TLabel
          Left = 338
          Top = 64
          Width = 64
          Height = 16
          Caption = 'Pago por:'
        end
        object IB_Text9: TIB_Text
          Left = 338
          Top = 81
          Width = 229
          Height = 17
          DataField = 'USUARIO_RECEBIMENTO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
        end
        object IB_Text6: TIB_Text
          Left = 574
          Top = 81
          Width = 241
          Height = 17
          DataField = 'CONTA_RECEBIMENTO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
        end
        object lbl7: TLabel
          Left = 573
          Top = 64
          Width = 131
          Height = 16
          Caption = 'Conta Movimentada'
        end
        object IB_Date1: TIB_Date
          Left = 10
          Top = 36
          Width = 125
          Height = 24
          TabStop = False
          AutoLabel.Caption = 'Pgamento'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'DATA_PAGAMENTO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          ReadOnly = True
          TabOrder = 0
          IncCellHeight = 1
          IncCellWidth = 2
          DrawYearArrow = False
        end
        object IB_Currency1: TIB_Currency
          Left = 691
          Top = 37
          Width = 110
          Height = 24
          Hint = 'Valor Pago'
          TabStop = False
          AutoLabel.Caption = 'Valor Pgto'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'VALOR_PAGAMENTO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          ReadOnly = True
          TabOrder = 5
          AlwaysShowButton = True
        end
        object IB_Currency2: TIB_Currency
          Left = 143
          Top = 37
          Width = 110
          Height = 24
          Hint = 'Multa'
          TabStop = False
          AutoLabel.Caption = 'Multa'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'CONTAS_PAGAR.MULTA'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          ReadOnly = True
          TabOrder = 1
          AlwaysShowButton = True
        end
        object IB_Currency3: TIB_Currency
          Left = 275
          Top = 37
          Width = 110
          Height = 24
          Hint = 'Juros'
          TabStop = False
          AutoLabel.Caption = 'Juros'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'CONTAS_PAGAR.JUROS'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          ReadOnly = True
          TabOrder = 2
          AlwaysShowButton = True
        end
        object IB_Currency4: TIB_Currency
          Left = 409
          Top = 37
          Width = 110
          Height = 24
          Hint = 'Outros'
          TabStop = False
          AutoLabel.Caption = 'Outros'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'CONTAS_PAGAR.OUTROS'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          ReadOnly = True
          TabOrder = 3
          AlwaysShowButton = True
        end
        object IB_Currency5: TIB_Currency
          Left = 543
          Top = 37
          Width = 110
          Height = 24
          Hint = 'Desconto'
          TabStop = False
          AutoLabel.Caption = 'Desconto'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'DESCONTO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          ReadOnly = True
          TabOrder = 4
          AlwaysShowButton = True
        end
      end
      object edtDocumentoNumero: TIB_Edit
        Left = 394
        Top = 160
        Width = 462
        Height = 24
        AutoLabel.Caption = 'N'#186' Documento / C'#243'digo Barras'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'CONTAS_PAGAR.DOCUMENTO_NUMERO'
        DataSource = DsPrincipal
        ParentBackground = False
        TabOrder = 13
      end
      object PageControl1: TPageControl
        Left = 3
        Top = 190
        Width = 837
        Height = 131
        ActivePage = TabSheet2
        TabOrder = 14
        object TabSheet2: TTabSheet
          Caption = 'Fornecedor'
          ImageIndex = 1
          object IB_Text2: TIB_Text
            Left = 381
            Top = 77
            Width = 59
            Height = 13
            AutoSize = True
            DataField = 'TELEFONE1'
            DataSource = dsrFornecedor
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Verdana'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label4: TLabel
            Left = 381
            Top = 58
            Width = 56
            Height = 16
            Caption = 'Telefone'
          end
          object IB_Text3: TIB_Text
            Left = 594
            Top = 77
            Width = 59
            Height = 13
            AutoSize = True
            DataField = 'TELEFONE2'
            DataSource = dsrFornecedor
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Verdana'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label5: TLabel
            Left = 593
            Top = 58
            Width = 56
            Height = 16
            Caption = 'Telefone'
          end
          object IB_Text4: TIB_Text
            Left = 267
            Top = 38
            Width = 378
            Height = 16
            DataField = 'RAZAOSOCIAL'
            DataSource = dsrFornecedor
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Verdana'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label7: TLabel
            Left = 267
            Top = 23
            Width = 83
            Height = 16
            Caption = 'Raz'#227'o Social'
          end
          object IB_Text5: TIB_Text
            Left = 8
            Top = 74
            Width = 335
            Height = 16
            DataField = 'NOMEFANTASIA'
            DataSource = dsrFornecedor
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Verdana'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label8: TLabel
            Left = 8
            Top = 58
            Width = 55
            Height = 16
            Caption = 'Fantasia'
          end
          object edtCNPJ: TLabeledEdit
            Tag = 1
            Left = 8
            Top = 33
            Width = 195
            Height = 24
            EditLabel.Width = 73
            EditLabel.Height = 16
            EditLabel.Caption = 'CNPJ / CPF'
            PopupMenu = popCopiar
            TabOrder = 2
            OnEnter = edtCNPJEnter
            OnExit = edtCNPJExit
            OnKeyDown = edtCNPJKeyDown
          end
          object btnPesquisaFornecedor: TcxButton
            Tag = 2
            Left = 204
            Top = 32
            Width = 27
            Height = 25
            Hint = 'Pesquisa Fornecedor'
            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 = 0
            TabStop = False
            OnClick = btnPesquisaFornecedorClick
          end
          object btnNovoFornecedor: TcxButton
            Tag = 2
            Left = 232
            Top = 32
            Width = 27
            Height = 25
            Hint = 'Cadastrar Novo Fornecedor'
            LookAndFeel.Kind = lfOffice11
            LookAndFeel.NativeStyle = False
            LookAndFeel.SkinName = 'Office2010Blue'
            OptionsImage.Glyph.SourceDPI = 96
            OptionsImage.Glyph.Data = {
              89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
              610000001974455874536F6674776172650041646F626520496D616765526561
              647971C9653C0000001B744558745469746C65004164643B506C75733B426172
              733B526962626F6E3B9506332F0000004749444154785EE592C90900200C046D
              D0A6ACCAEE4604E32B8AB8011F3E0602590672244062DBCCA532E8F5D7024017
              AC98C11B4205C6D10896F50486B744235CA09FF1FD274A34995FABF9E946D7E8
              0000000049454E44AE426082}
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            TabStop = False
            OnClick = btnNovoFornecedorClick
          end
        end
        object TabSheet3: TTabSheet
          Caption = 'Observa'#231#227'o'
          ImageIndex = 2
          object dbObservacao: TIB_Memo
            Left = 0
            Top = 0
            Width = 829
            Height = 100
            Hint = 'Observa'#231#245'es'
            AutoLabel.Margin = 0
            DataField = 'CONTAS_PAGAR.OBS'
            DataSource = DsPrincipal
            Align = alClient
            ParentBackground = False
            TabOrder = 0
            AutoSize = False
            MaxLength = 5000
            ScrollBars = ssVertical
          end
        end
      end
      object dbStatus: TIB_LookupCombo
        Tag = 1
        Left = 467
        Top = 20
        Width = 171
        Height = 24
        Hint = 'Status da conta'
        AutoLabel.Caption = 'Situa'#231#227'o'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataSource = dtStatus
        ParentShowHint = False
        ShowHint = True
        ParentBackground = False
        TabOrder = 3
        DisplayField = 'DESCRICAO'
        DropDownWidth = 305
        FixedColLines = False
        ShowButton = True
      end
      object pnlCancelado: TPanel
        Left = 647
        Top = 213
        Width = 209
        Height = 111
        Color = 4868863
        TabOrder = 22
        Visible = False
        object Label6: TLabel
          Left = 1
          Top = 1
          Width = 207
          Height = 38
          Align = alTop
          Alignment = taCenter
          Caption = 'Cancelada'
          Color = clRed
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -32
          Font.Name = 'Verdana'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
          Transparent = True
          ExplicitWidth = 182
        end
        object IB_Memo5: TIB_Memo
          Left = 4
          Top = 35
          Width = 202
          Height = 72
          DataField = 'MOTIVO_CANCELADO'
          DataSource = DsPrincipal
          BorderStyle = bsNone
          ParentBackground = False
          TabOrder = 0
          AutoSize = False
          ScrollBars = ssVertical
        end
      end
      object edtDocumentoTipo: TIB_LookupCombo
        Tag = 1
        Left = 3
        Top = 160
        Width = 315
        Height = 24
        Hint = 'Tipo da conta'
        AutoLabel.Caption = 'Tipo de Documento'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataSource = dtDocumentoTipo
        ParentShowHint = False
        ShowHint = True
        ParentBackground = False
        TabOrder = 12
        DisplayField = 'DESCRICAO'
        DropDownWidth = 305
        ShowButton = True
      end
      object dbDataPrevisao: TIB_Date
        Left = 733
        Top = 62
        Width = 116
        Height = 24
        AutoLabel.Caption = 'Data Previs'#227'o Pgto'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'CONTAS_PAGAR.DATA_PREVISAO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 8
        IncCellHeight = 1
        IncCellWidth = 2
        DrawYearArrow = False
      end
      object edtGrupo: TIB_LookupCombo
        Tag = -1
        Left = 650
        Top = 20
        Width = 206
        Height = 24
        AutoLabel.Caption = 'Grupo de Contas'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = False
        ParentBackground = False
        TabOrder = 4
        DisplayField = 'DESCRICAO'
        DropDownWidth = 410
        ShowButton = True
      end
      object edtCodPlanoConta: TEdit
        Left = 394
        Top = 112
        Width = 50
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        OnExit = edtCodPlanoContaExit
      end
      object edtPlanoConta: TIB_LookupCombo
        Tag = -1
        Left = 450
        Top = 112
        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 = 11
        DisplayField = 'DESCRICAO'
        DropDownWidth = 410
        OnChange = edtPlanoContaChange
        ShowButton = True
      end
      object cxButton1: TcxButton
        Tag = 2
        Left = 800
        Top = 111
        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 = 18
        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 = 829
        Top = 111
        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 = 19
        TabStop = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        OnClick = cxButton2Click
      end
      object btnPesquisaTipoConta: TcxButton
        Tag = 2
        Left = 322
        Top = 111
        Width = 27
        Height = 25
        Hint = 'Pesquisar Tipo de conta'
        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 = 16
        TabStop = False
        OnClick = btnPesquisaTipoContaClick
      end
      object btnNovoTipoConta: TcxButton
        Tag = 2
        Left = 350
        Top = 111
        Width = 27
        Height = 25
        Hint = 'Cadastrar Novo Tipo de Conta'
        LookAndFeel.Kind = lfOffice11
        LookAndFeel.NativeStyle = False
        LookAndFeel.SkinName = 'Office2010Blue'
        OptionsImage.Glyph.SourceDPI = 96
        OptionsImage.Glyph.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          610000001974455874536F6674776172650041646F626520496D616765526561
          647971C9653C0000001B744558745469746C65004164643B506C75733B426172
          733B526962626F6E3B9506332F0000004749444154785EE592C90900200C046D
          D0A6ACCAEE4604E32B8AB8011F3E0602590672244062DBCCA532E8F5D7024017
          AC98C11B4205C6D10896F50486B744235CA09FF1FD274A34995FABF9E946D7E8
          0000000049454E44AE426082}
        ParentShowHint = False
        ShowHint = True
        TabOrder = 17
        TabStop = False
        OnClick = btnNovoTipoContaClick
      end
      object btnPesquisaTipoDocumento: TcxButton
        Tag = 2
        Left = 322
        Top = 159
        Width = 27
        Height = 25
        Hint = 'Pesquisar Tipo de documento'
        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 = 20
        TabStop = False
        OnClick = btnPesquisaTipoDocumentoClick
      end
      object btnNovoTipoDocumento: TcxButton
        Tag = 2
        Left = 350
        Top = 159
        Width = 27
        Height = 25
        Hint = 'Cadastrar Novo Tipo de Documento'
        LookAndFeel.NativeStyle = False
        LookAndFeel.SkinName = 'Office2010Blue'
        OptionsImage.Glyph.SourceDPI = 96
        OptionsImage.Glyph.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          610000001974455874536F6674776172650041646F626520496D616765526561
          647971C9653C0000001B744558745469746C65004164643B506C75733B426172
          733B526962626F6E3B9506332F0000004749444154785EE592C90900200C046D
          D0A6ACCAEE4604E32B8AB8011F3E0602590672244062DBCCA532E8F5D7024017
          AC98C11B4205C6D10896F50486B744235CA09FF1FD274A34995FABF9E946D7E8
          0000000049454E44AE426082}
        ParentShowHint = False
        ShowHint = True
        TabOrder = 21
        TabStop = False
        OnClick = btnNovoTipoDocumentoClick
      end
    end
  end
  inherited Panel1: TPanel
    Width = 1019
    TabOrder = 0
    ExplicitWidth = 1019
    inherited Label2: TLabel
      Width = 142
      Caption = 'Contas a Pagar'
      ExplicitWidth = 142
    end
    inherited Shape1: TShape
      Width = 1019
      ExplicitWidth = 729
    end
    inherited imgAcao: TImage
      Left = 659
      ExplicitLeft = 369
    end
  end
  inherited TbPrincipal: TIB_Query
    FieldsCharCase.Strings = (
      'COD_CONTA_PAGAR=UPPER'
      'COD_TIPO_CONTA=UPPER'
      'COD_FORMA_PAGAMENTO=UPPER'
      'COD_USUARIO_CAD=UPPER'
      'COD_USUARIO_BAIXA=UPPER'
      'COD_BARRA=UPPER'
      'DESCRICAO=UPPER'
      'DATA_CAD=UPPER'
      'HORA_CAD=UPPER'
      'DATA_VENC=UPPER'
      'VALOR=UPPER'
      'OBS=UPPER'
      'DATA_PAGAMENTO=UPPER'
      'VALOR_PAGAMENTO=UPPER'
      'MULTA=UPPER'
      'JUROS=UPPER'
      'OUTROS=UPPER'
      'DESCONTO=UPPER'
      'CONTA=UPPER')
    FieldsDisplayFormat.Strings = (
      'VALOR=,0.00')
    FieldsDisplayLabel.Strings = (
      'COD_CONTA_PAGAR=C'#243'digo'
      'DESCRICAO=Descri'#231#227'o'
      'CONTA=Tipo Conta'
      'DATA_VENC=Vencimento'
      'VALOR=Valor'
      'DATA_PAGAMENTO=Data Baixa'
      'VALOR_PAGAMENTO=Valor Pago'
      'DOCUMENTO_NUMERO=N'#250'mero'
      'RAZAOSOCIAL=Fornecedor'
      'DOCUMENTO_TIPO=Tipo Documento'
      'COD_STATUS=Status'
      'COD_FORNECEDOR=Fornecedor'
      'STATUS=Status'
      'TIPO=Tipo')
    FieldsDisplayWidth.Strings = (
      'DATA_VENC=86'
      'CONTAS_PAGAR.DOCUMENTO_NUMERO=120'
      'CONTAS_PAGAR.VALOR=80'
      'CONTAS_PAGAR.DESCRICAO=204'
      'CONTAS_PAGAR.COD_CONTA_PAGAR=63'
      'FORNECEDOR.RAZAOSOCIAL=247')
    FieldsIndex.Strings = (
      'CONTAS_PAGAR.COD_CONTA_PAGAR'
      'CONTAS_PAGAR.COD_TIPO_CONTA'
      'CONTAS_PAGAR.COD_FORMA_PAGAMENTO'
      'CONTAS_PAGAR.COD_USUARIO_CAD'
      'CONTAS_PAGAR.COD_USUARIO_BAIXA'
      'CONTAS_PAGAR.COD_BARRA'
      'CONTAS_PAGAR.DOCUMENTO_NUMERO'
      'CONTAS_PAGAR.DESCRICAO'
      'CONTAS_PAGAR.DATA_CAD'
      'CONTAS_PAGAR.HORA_CAD'
      'FORNECEDOR.RAZAOSOCIAL'
      'CONTAS_PAGAR.DATA_VENC'
      'CONTAS_PAGAR.VALOR'
      'CONTAS_PAGAR.OBS'
      'CONTAS_PAGAR.DATA_PAGAMENTO'
      'CONTAS_PAGAR.VALOR_PAGAMENTO'
      'CONTA'
      'CONTAS_PAGAR.MULTA'
      'CONTAS_PAGAR.JUROS'
      'CONTAS_PAGAR.OUTROS'
      'CONTAS_PAGAR.DESCONTO'
      'CONTAS_PAGAR.DOCUMENTO_TIPO'
      'CONTAS_PAGAR.COD_STATUS'
      'CONTAS_PAGAR.COD_FORNECEDOR'
      'STATUS_CONTAS.DESCRICAO')
    FieldsVisible.Strings = (
      'COD_CONTA_PAGAR=TRUE'
      'COD_TIPO_CONTA=FALSE'
      'COD_FORMA_PAGAMENTO=FALSE'
      'COD_USUARIO_CAD=FALSE'
      'COD_USUARIO_BAIXA=FALSE'
      'COD_BARRA=FALSE'
      'DESCRICAO=TRUE'
      'DATA_CAD=FALSE'
      'HORA_CAD=FALSE'
      'DATA_VENC=TRUE'
      'VALOR=TRUE'
      'OBS=FALSE'
      'DATA_PAGAMENTO=TRUE'
      'VALOR_PAGAMENTO=TRUE'
      'MULTA=FALSE'
      'JUROS=FALSE'
      'OUTROS=FALSE'
      'DESCONTO=FALSE'
      'CONTA=TRUE'
      'DOCUMENTO_TIPO=FALSE'
      'DOCUMENTO_NUMERO=TRUE'
      'COD_FORNECEDOR=FALSE'
      'COD_STATUS=FALSE'
      'RAZAOSOCIAL=TRUE'
      'CONTAS_PAGAR.DATA_CREDITO=FALSE'
      'CONTAS_PAGAR.DATA_PREVISAO=FALSE'
      'CONTAS_PAGAR.VALOR_CREDITADO=FALSE'
      'CONTAS_PAGAR.COD_CONTA_BANCARIA=FALSE'
      'CONTAS_PAGAR.DATA_REALIZADO=FALSE'
      'CONTAS_PAGAR.COD_PLANO_CONTA=FALSE'
      'STATUS=TRUE'
      'CONTA_RECEBIMENTO=FALSE'
      'USUARIO_RECEBIMENTO=FALSE')
    SQL.Strings = (
      'SELECT CONTAS_PAGAR.*,'
      '       tipo_conta.descricao as tipo,'
      '       fornecedor.razaosocial,'
      '       status_contas.descricao as Status'
      ''
      '       ,('
      '          select usuario.NOME'
      '          from USUARIO'
      
        '          where USUARIO.COD_USUARIO = CONTAS_PAGAR.COD_USUARIO_B' +
        'AIXA'
      '         ) as usuario_recebimento'
      ''
      '     , CONTA_BANCARIA.DESCRICAO as conta_recebimento'
      'FROM CONTAS_PAGAR'
      
        'LEFT JOIN tipo_conta ON contas_pagar.cod_tipo_conta = tipo_conta' +
        '.cod_tipo_conta'
      
        'LEFT JOIN fornecedor ON contas_pagar.cod_fornecedor = fornecedor' +
        '.cod_fornecedor'
      
        'LEFT JOIN status_contas on contas_pagar.cod_status = status_cont' +
        'as.cod_status_conta'
      
        'left join  CONTA_BANCARIA on CONTA_BANCARIA.COD_CONTA_BANCARIA =' +
        '  CONTAS_PAGAR.COD_CONTA_BANCARIA')
    DeleteSQL.Strings = (
      'DELETE FROM CONTAS_PAGAR CONTAS_PAGAR'
      'WHERE'
      '   COD_CONTA_PAGAR = :OLD_COD_CONTA_PAGAR')
    EditSQL.Strings = (
      'UPDATE CONTAS_PAGAR CONTAS_PAGAR SET'
      '   CONTAS_PAGAR.COD_CONTA_PAGAR = :COD_CONTA_PAGAR, /*PK*/'
      '   CONTAS_PAGAR.COD_TIPO_CONTA = :COD_TIPO_CONTA,'
      '   CONTAS_PAGAR.COD_FORMA_PAGAMENTO = :COD_FORMA_PAGAMENTO,'
      '   CONTAS_PAGAR.COD_USUARIO_CAD = :COD_USUARIO_CAD,'
      '   CONTAS_PAGAR.COD_USUARIO_BAIXA = :COD_USUARIO_BAIXA,'
      '   CONTAS_PAGAR.COD_BARRA = :COD_BARRA,'
      '   CONTAS_PAGAR.DOCUMENTO_NUMERO = :DOCUMENTO_NUMERO,'
      '   CONTAS_PAGAR.DESCRICAO = :DESCRICAO,'
      '   CONTAS_PAGAR.DATA_CAD = :DATA_CAD,'
      '   CONTAS_PAGAR.HORA_CAD = :HORA_CAD,'
      '   CONTAS_PAGAR.DATA_VENC = :DATA_VENC,'
      '   CONTAS_PAGAR.VALOR = :VALOR,'
      '   CONTAS_PAGAR.OBS = :OBS,'
      '   CONTAS_PAGAR.DATA_PAGAMENTO = :DATA_PAGAMENTO,'
      '   CONTAS_PAGAR.VALOR_PAGAMENTO = :VALOR_PAGAMENTO,'
      '   CONTAS_PAGAR.MULTA = :MULTA,'
      '   CONTAS_PAGAR.JUROS = :JUROS,'
      '   CONTAS_PAGAR.OUTROS = :OUTROS,'
      '   CONTAS_PAGAR.DESCONTO = :DESCONTO,'
      '   CONTAS_PAGAR.DOCUMENTO_TIPO = :DOCUMENTO_TIPO,'
      '   CONTAS_PAGAR.COD_STATUS = :COD_STATUS,'
      '   CONTAS_PAGAR.COD_FORNECEDOR = :COD_FORNECEDOR,'
      '   CONTAS_PAGAR.COD_PLANO_CONTA = :COD_PLANO_CONTA,'
      '   CONTAS_PAGAR.DATA_REALIZADO = :DATA_REALIZADO,'
      '   CONTAS_PAGAR.COD_CONTA_BANCARIA = :COD_CONTA_BANCARIA,'
      '   CONTAS_PAGAR.VALOR_CREDITADO = :VALOR_CREDITADO,'
      '   CONTAS_PAGAR.DATA_PREVISAO = :DATA_PREVISAO,'
      '   CONTAS_PAGAR.DATA_CREDITO = :DATA_CREDITO'
      'WHERE'
      '   COD_CONTA_PAGAR = :OLD_COD_CONTA_PAGAR')
    InsertSQL.Strings = (
      'INSERT INTO CONTAS_PAGAR('
      '   COD_CONTA_PAGAR, /*PK*/'
      '   COD_TIPO_CONTA,'
      '   COD_FORMA_PAGAMENTO,'
      '   COD_USUARIO_CAD,'
      '   COD_USUARIO_BAIXA,'
      '   COD_BARRA,'
      '   DOCUMENTO_NUMERO,'
      '   DESCRICAO,'
      '   DATA_CAD,'
      '   HORA_CAD,'
      '   DATA_VENC,'
      '   VALOR,'
      '   OBS,'
      '   DATA_PAGAMENTO,'
      '   VALOR_PAGAMENTO,'
      '   MULTA,'
      '   JUROS,'
      '   OUTROS,'
      '   DESCONTO,'
      '   DOCUMENTO_TIPO,'
      '   COD_STATUS,'
      '   COD_FORNECEDOR,'
      '   COD_PLANO_CONTA,'
      '   DATA_REALIZADO,'
      '   COD_CONTA_BANCARIA,'
      '   VALOR_CREDITADO,'
      '   DATA_PREVISAO,'
      '   DATA_CREDITO)'
      'VALUES ('
      '   :COD_CONTA_PAGAR,'
      '   :COD_TIPO_CONTA,'
      '   :COD_FORMA_PAGAMENTO,'
      '   :COD_USUARIO_CAD,'
      '   :COD_USUARIO_BAIXA,'
      '   :COD_BARRA,'
      '   :DOCUMENTO_NUMERO,'
      '   :DESCRICAO,'
      '   :DATA_CAD,'
      '   :HORA_CAD,'
      '   :DATA_VENC,'
      '   :VALOR,'
      '   :OBS,'
      '   :DATA_PAGAMENTO,'
      '   :VALOR_PAGAMENTO,'
      '   :MULTA,'
      '   :JUROS,'
      '   :OUTROS,'
      '   :DESCONTO,'
      '   :DOCUMENTO_TIPO,'
      '   :COD_STATUS,'
      '   :COD_FORNECEDOR,'
      '   :COD_PLANO_CONTA,'
      '   :DATA_REALIZADO,'
      '   :COD_CONTA_BANCARIA,'
      '   :VALOR_CREDITADO,'
      '   :DATA_PREVISAO,'
      '   :DATA_CREDITO)')
    KeyLinks.Strings = (
      'CONTAS_PAGAR.COD_CONTA_PAGAR')
    OrderingItemNo = -1
    OrderingItems.Strings = (
      
        'COD_CONTA_PAGAR=CONTAS_PAGAR.COD_CONTA_PAGAR;CONTAS_PAGAR.COD_CO' +
        'NTA_PAGAR DESC'
      
        'DOCUMENTO_NUMERO=CONTAS_PAGAR.DOCUMENTO_NUMERO;CONTAS_PAGAR.DOCU' +
        'MENTO_NUMERO DESC'
      'DESCRICAO=CONTAS_PAGAR.DESCRICAO;CONTAS_PAGAR.DESCRICAO DESC'
      'RAZAOSOCIAL=FORNECEDOR.RAZAOSOCIAL;FORNECEDOR.RAZAOSOCIAL DESC'
      'DATA_VENC=CONTAS_PAGAR.DATA_VENC;CONTAS_PAGAR.DATA_VENC DESC'
      'VALOR=CONTAS_PAGAR.VALOR;CONTAS_PAGAR.VALOR DESC'
      
        'DATA_PAGAMENTO=CONTAS_PAGAR.DATA_PAGAMENTO;CONTAS_PAGAR.DATA_PAG' +
        'AMENTO DESC'
      
        'VALOR_PAGAMENTO=CONTAS_PAGAR.VALOR_PAGAMENTO;CONTAS_PAGAR.VALOR_' +
        'PAGAMENTO DESC'
      'DESCRICAO1=STATUS_CONTAS.DESCRICAO;STATUS_CONTAS.DESCRICAO DESC'
      'DESCRICAO2=TIPO_CONTA.DESCRICAO;TIPO_CONTA.DESCRICAO DESC')
    OrderingLinks.Strings = (
      'COD_CONTA_PAGAR=1'
      'DOCUMENTO_NUMERO=2'
      'DESCRICAO=3'
      'RAZAOSOCIAL=4'
      'DATA_VENC=5'
      'VALOR=6'
      'DATA_PAGAMENTO=7'
      'VALOR_PAGAMENTO=8'
      'DESCRICAO1=9'
      'DESCRICAO2=10')
    SearchingLinks.Strings = (
      'COD_CONTA_PAGAR=COD_CONTA_PAGAR'
      'DOCUMENTO_NUMERO=DOCUMENTO_NUMERO'
      'DESCRICAO=DESCRICAO'
      'RAZAOSOCIAL=RAZAOSOCIAL'
      'DATA_VENC=DATA_VENC'
      'VALOR=VALOR'
      'DATA_PAGAMENTO=DATA_PAGAMENTO'
      'VALOR_PAGAMENTO=VALOR_PAGAMENTO'
      'DESCRICAO1=DESCRICAO1'
      'DESCRICAO2=DESCRICAO2')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  inherited uc_Controle_Acesso: TUCControls
    GroupName = 'Contas a Pagar'
  end
  object qrUsuarioCad: TIB_Query
    IB_Connection = Dados.IB_Conexao
    SQL.Strings = (
      'SELECT USUARIO.COD_USUARIO'
      '     , USUARIO.NOME'
      'FROM USUARIO')
    KeyLinks.Strings = (
      'USUARIO.COD_USUARIO')
    Left = 432
  end
  object dsrUsuario: TIB_DataSource
    Dataset = qrUsuarioCad
    Left = 432
    Top = 28
  end
  object qrTipoConta: TIB_Query
    FieldsCharCase.Strings = (
      'COD_TIPO_CONTA=UPPER'
      'DESCRICAO=UPPER')
    FieldsDisplayLabel.Strings = (
      'COD_TIPO_CONTA=C'#243'digo'
      'DESCRICAO=Descri'#231#227'o')
    FieldsVisible.Strings = (
      'COD_TIPO_CONTA=FALSE'
      'DESCRICAO=TRUE'
      'COD_PLANO_CONTA=FALSE')
    IB_Connection = Dados.IB_Conexao
    SQL.Strings = (
      'SELECT TIPO_CONTA.COD_TIPO_CONTA'
      '     , TIPO_CONTA.DESCRICAO'
      '     , TIPO_CONTA.COD_PLANO_CONTA'
      'FROM TIPO_CONTA'
      'where TIPO_CONTA.TIPO = '#39'D'#39)
    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')
    OrderingLinks.Strings = (
      'COD_TIPO_CONTA=1'
      'DESCRICAO=2')
    SearchingLinks.Strings = (
      'COD_TIPO_CONTA=COD_TIPO_CONTA'
      'DESCRICAO=DESCRICAO')
    Left = 464
  end
  object dsrTipoConta: TIB_DataSource
    Dataset = qrTipoConta
    Left = 464
    Top = 28
  end
  object qrFormaPgto: TIB_Query
    FieldsDisplayLabel.Strings = (
      'COD_FORMA_PAGAMENTO=C'#243'digo'
      'DESCRICAO=Descri'#231#227'o')
    IB_Connection = Dados.IB_Conexao
    SQL.Strings = (
      'SELECT *'
      'FROM FORMA_PAGAMENTO')
    OrderingItemNo = 2
    OrderingItems.Strings = (
      'COD_FORMA_PAGAMENTO=COD_FORMA_PAGAMENTO;COD_FORMA_PAGAMENTO DESC'
      'DESCRICAO=DESCRICAO;DESCRICAO DESC')
    OrderingLinks.Strings = (
      'COD_FORMA_PAGAMENTO=1'
      'DESCRICAO=2')
    SearchingLinks.Strings = (
      'COD_FORMA_PAGAMENTO=COD_FORMA_PAGAMENTO'
      'DESCRICAO=DESCRICAO')
    Left = 504
  end
  object dsrFormaPgto: TIB_DataSource
    Dataset = qrFormaPgto
    Left = 504
    Top = 28
  end
  object qryDocumentoTipo: TIB_Query
    FieldsCharCase.Strings = (
      'COD_TIPO_DOCUMENTO=UPPER'
      'DESCRICAO=UPPER'
      'ABREVIATURA=UPPER'
      'MODELO=UPPER')
    FieldsDisplayLabel.Strings = (
      'COD_TIPO_DOCUMENTO=C'#243'digo'
      'DESCRICAO=Tipo Documento'
      'ABREVIATURA=Abrv'
      'MODELO=Modelo')
    FieldsVisible.Strings = (
      'COD_TIPO_DOCUMENTO=FALSE'
      'MODELO=FALSE'
      'ABREVIATURA=FALSE')
    IB_Connection = Dados.IB_Conexao
    SQL.Strings = (
      'SELECT *'
      'FROM TIPO_DE_DOCUMENTOS')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'DESCRICAO=DESCRICAO;DESCRICAO DESC')
    OrderingLinks.Strings = (
      'DESCRICAO=1')
    SearchingLinks.Strings = (
      'DESCRICAO=DESCRICAO')
    Left = 536
  end
  object dtDocumentoTipo: TIB_DataSource
    Dataset = qryDocumentoTipo
    Left = 536
    Top = 28
  end
  object qryStatus: TIB_Query
    FieldsDisplayLabel.Strings = (
      'COD_STATUS_CONTA=C'#243'digo'
      'DESCRICAO=Status'
      'PERMITE_ALTERAR=Altera')
    FieldsVisible.Strings = (
      'COD_STATUS_CONTA=FALSE'
      'PERMITE_ALTERAR=FALSE')
    IB_Connection = Dados.IB_Conexao
    SQL.Strings = (
      'SELECT *'
      'FROM STATUS_CONTAS')
    OrderingItems.Strings = (
      'DESCRICAO=DESCRICAO;DESCRICAO DESC')
    OrderingLinks.Strings = (
      'DESCRICAO=1')
    SearchingLinks.Strings = (
      'DESCRICAO=DESCRICAO')
    Left = 568
  end
  object dtStatus: TIB_DataSource
    Dataset = qryStatus
    Left = 568
    Top = 28
  end
  object popCopiar: TPopupMenu
    Left = 76
    Top = 7
    object CopiarCNPJ1: TMenuItem
      Caption = 'Copiar sem M'#225'scara'
    end
  end
  object qrFornecedor: TIB_Query
    FieldsCharCase.Strings = (
      'COD_FORNECEDOR=UPPER'
      'COD_USUARIO=UPPER'
      'CNPJ=UPPER'
      'SEQUENCIAL=UPPER'
      'TIPO_CADASTRO=UPPER'
      'RAZAOSOCIAL=UPPER'
      'NOMEFANTASIA=UPPER'
      'ENDERECO_ENTREGA_TIPO=UPPER'
      'ENDERECO_ENTREGA_NUMERO=UPPER'
      'ENDERECO_ENTREGA_BAIRRO=UPPER'
      'ENDERECO_ENTREGA_CEP=UPPER'
      'ENDERECO_ENTREGA_CIDADE=UPPER'
      'ENDERECO_ENTREGA_LOGRADOURO=UPPER'
      'ENDERECO_ENTREGA_COMPLEMENTO=UPPER'
      'TELEFONE1=UPPER'
      'TELEFONE2=UPPER'
      'INSCRICAO=UPPER'
      'ABRE=UPPER'
      'FECHA=UPPER'
      'INICIO_ALMOCO=UPPER'
      'FIM_ALMOCO=UPPER'
      'MAPA=UPPER'
      'DATA_CAD=UPPER'
      'VENCIMENTO=UPPER'
      'EMAIL=UPPER'
      'FATURAMENTO=UPPER'
      'ULTIMA_MOVIMENTACAO=UPPER'
      'COD_STATUS=UPPER'
      'COD_CNAE=UPPER'
      'ENDERECO_ENTREGA_COD_UF=UPPER')
    FieldsDisplayLabel.Strings = (
      'COD_FORNECEDOR=C'#243'digo'
      'COD_USUARIO=Usu'#225'rio'
      'CNPJ=CNPJ/CPF'
      'TIPO_CADASTRO=J/F'
      'RAZAOSOCIAL=Raz'#227'o Social'
      'NOMEFANTASIA=Fantasia'
      'ENDERECO_ENTREGA_TIPO=Tipo'
      'ENDERECO_ENTREGA_NUMERO=N'#250'mero'
      'ENDERECO_ENTREGA_BAIRRO=Bairro'
      'ENDERECO_ENTREGA_CEP=CEP'
      'ENDERECO_ENTREGA_CIDADE=Cidade'
      'ENDERECO_ENTREGA_LOGRADOURO=Endere'#231'o'
      'ENDERECO_ENTREGA_COMPLEMENTO=Complemento'
      'TELEFONE1=Telefone'
      'TELEFONE2=Telefone'
      'INSCRICAO=Inscri'#231#227'o'
      'ABRE=Abre'
      'FECHA=Fecha'
      'DATA_CAD=Desde'
      'VENCIMENTO=vencimento'
      'EMAIL=Email'
      'ULTIMA_MOVIMENTACAO='#218'ltimo'
      'COD_STATUS=Status'
      'COD_CNAE=CNAE'
      'ENDERECO_ENTREGA_COD_UF=UF')
    FieldsDisplayWidth.Strings = (
      'COD_FORNECEDOR=81'
      'TIPO_CADASTRO=31')
    FieldsEditMask.Strings = (
      'TELEFONE1=\(99\)9999\-9999;0'
      'TELEFONE2=\(99\)9999\-9999;0')
    FieldsIndex.Strings = (
      'COD_FORNECEDOR'
      'COD_USUARIO'
      'TIPO_CADASTRO'
      'CNPJ'
      'SEQUENCIAL'
      'RAZAOSOCIAL'
      'NOMEFANTASIA'
      'ENDERECO_ENTREGA_TIPO'
      'ENDERECO_ENTREGA_NUMERO'
      'ENDERECO_ENTREGA_BAIRRO'
      'ENDERECO_ENTREGA_CEP'
      'ENDERECO_ENTREGA_CIDADE'
      'ENDERECO_ENTREGA_LOGRADOURO'
      'ENDERECO_ENTREGA_COMPLEMENTO'
      'TELEFONE1'
      'TELEFONE2'
      'INSCRICAO'
      'ABRE'
      'FECHA'
      'INICIO_ALMOCO'
      'FIM_ALMOCO'
      'MAPA'
      'DATA_CAD'
      'VENCIMENTO'
      'EMAIL'
      'FATURAMENTO'
      'ULTIMA_MOVIMENTACAO'
      'COD_STATUS'
      'COD_CNAE'
      'ENDERECO_ENTREGA_COD_UF')
    FieldsVisible.Strings = (
      'COD_FORNECEDOR=TRUE'
      'COD_USUARIO=FALSE'
      'CNPJ=TRUE'
      'SEQUENCIAL=FALSE'
      'TIPO_CADASTRO=TRUE'
      'RAZAOSOCIAL=TRUE'
      'NOMEFANTASIA=TRUE'
      'ENDERECO_ENTREGA_TIPO=FALSE'
      'ENDERECO_ENTREGA_NUMERO=FALSE'
      'ENDERECO_ENTREGA_BAIRRO=FALSE'
      'ENDERECO_ENTREGA_CEP=FALSE'
      'ENDERECO_ENTREGA_CIDADE=TRUE'
      'ENDERECO_ENTREGA_LOGRADOURO=FALSE'
      'ENDERECO_ENTREGA_COMPLEMENTO=FALSE'
      'TELEFONE1=TRUE'
      'TELEFONE2=TRUE'
      'INSCRICAO=FALSE'
      'ABRE=FALSE'
      'FECHA=FALSE'
      'INICIO_ALMOCO=FALSE'
      'FIM_ALMOCO=FALSE'
      'MAPA=FALSE'
      'DATA_CAD=FALSE'
      'VENCIMENTO=FALSE'
      'EMAIL=FALSE'
      'FATURAMENTO=FALSE'
      'ULTIMA_MOVIMENTACAO=TRUE'
      'COD_STATUS=FALSE'
      'COD_CNAE=FALSE'
      'ENDERECO_ENTREGA_COD_UF=FALSE')
    IB_Connection = Dados.IB_Conexao
    SQL.Strings = (
      'SELECT *'
      'FROM FORNECEDOR')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'COD_FORNECEDOR=COD_FORNECEDOR;COD_FORNECEDOR DESC'
      'TIPO_CADASTRO=TIPO_CADASTRO;TIPO_CADASTRO DESC'
      'CNPJ=CNPJ;CNPJ DESC'
      'RAZAOSOCIAL=RAZAOSOCIAL;RAZAOSOCIAL DESC'
      'NOMEFANTASIA=NOMEFANTASIA;NOMEFANTASIA DESC'
      
        'ENDERECO_ENTREGA_CIDADE=ENDERECO_ENTREGA_CIDADE;ENDERECO_ENTREGA' +
        '_CIDADE DESC'
      'TELEFONE1=TELEFONE1;TELEFONE1 DESC'
      'TELEFONE2=TELEFONE2;TELEFONE2 DESC'
      'ULTIMA_MOVIMENTACAO=ULTIMA_MOVIMENTACAO;ULTIMA_MOVIMENTACAO DESC')
    OrderingLinks.Strings = (
      'COD_FORNECEDOR=1'
      'TIPO_CADASTRO=2'
      'CNPJ=3'
      'RAZAOSOCIAL=4'
      'NOMEFANTASIA=5'
      'ENDERECO_ENTREGA_CIDADE=6'
      'TELEFONE1=7'
      'TELEFONE2=8'
      'ULTIMA_MOVIMENTACAO=9')
    SearchingLinks.Strings = (
      'COD_FORNECEDOR=COD_FORNECEDOR'
      'TIPO_CADASTRO=TIPO_CADASTRO'
      'CNPJ=CNPJ'
      'RAZAOSOCIAL=RAZAOSOCIAL'
      'NOMEFANTASIA=NOMEFANTASIA'
      'ENDERECO_ENTREGA_CIDADE=ENDERECO_ENTREGA_CIDADE'
      'TELEFONE1=TELEFONE1'
      'TELEFONE2=TELEFONE2'
      'ULTIMA_MOVIMENTACAO=ULTIMA_MOVIMENTACAO')
    Left = 332
  end
  object dsrFornecedor: TIB_DataSource
    Dataset = qrFornecedor
    Left = 332
    Top = 28
  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 = 624
  end
  object dsrPlanoConta: TIB_DataSource
    Dataset = qrPlanoConta
    Left = 624
    Top = 28
  end
end
