inherited FFinParcelaPagamento: TFFinParcelaPagamento
  Tag = 1
  Left = 324
  Top = 157
  Caption = 'Pagamento'
  ClientHeight = 498
  ClientWidth = 958
  ExplicitWidth = 974
  ExplicitHeight = 537
  PixelsPerInch = 96
  TextHeight = 13
  inherited PageControl: TPageControl
    Width = 958
    Height = 467
    ActivePage = PaginaEdits
    ExplicitWidth = 958
    ExplicitHeight = 467
    inherited PaginaGrid: TTabSheet
      ExplicitWidth = 950
      ExplicitHeight = 439
      inherited PanelGrid: TPanel
        Width = 950
        Height = 439
        ExplicitWidth = 950
        ExplicitHeight = 439
        inherited Grid: TJvDBUltimGrid
          Width = 950
          Height = 387
          OnCellClick = GridCellClick
          OnDrawColumnCell = GridDrawColumnCell
        end
        inherited PanelFiltroRapido: TPanel
          Top = 387
          Width = 950
          ExplicitTop = 387
          ExplicitWidth = 950
          inherited BotaoConsultar: TSpeedButton
            Left = 818
            ExplicitLeft = 825
          end
          inherited EditCriterioRapido: TLabeledMaskEdit
            Width = 438
            ExplicitWidth = 438
          end
          object GroupBox1: TGroupBox
            Left = 602
            Top = 8
            Width = 210
            Height = 40
            Anchors = [akTop, akRight]
            Caption = 'Vencimento entre:'
            TabOrder = 2
            object Label1: TLabel
              Left = 104
              Top = 20
              Width = 6
              Height = 13
              Caption = 'e'
            end
            object EditDataInicio: TLabeledDateEdit
              Left = 8
              Top = 15
              Width = 90
              Height = 21
              ShowNullDate = False
              TabOrder = 0
              DateEditLabel.Width = 3
              DateEditLabel.Height = 13
              DateEditLabel.Caption = ' '
            end
            object EditDataFim: TLabeledDateEdit
              Left = 115
              Top = 15
              Width = 90
              Height = 21
              ShowNullDate = False
              TabOrder = 1
              DateEditLabel.Width = 3
              DateEditLabel.Height = 13
              DateEditLabel.Caption = ' '
            end
          end
        end
      end
    end
    inherited PaginaEdits: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 24
      ExplicitWidth = 950
      ExplicitHeight = 439
      inherited PanelEdits: TPanel
        Width = 950
        Height = 439
        ExplicitWidth = 950
        ExplicitHeight = 439
        object BevelEdits: TBevel
          Left = 9
          Top = 12
          Width = 926
          Height = 418
          Anchors = [akLeft, akTop, akRight, akBottom]
          Constraints.MinWidth = 753
          ExplicitHeight = 386
        end
        object PanelEditsInterno: TPanel
          Left = 18
          Top = 21
          Width = 907
          Height = 180
          Anchors = [akLeft, akTop, akRight]
          BevelOuter = bvLowered
          TabOrder = 0
          DesignSize = (
            907
            180)
          object EditDataPagamento: TLabeledDateEdit
            Left = 119
            Top = 70
            Width = 100
            Height = 21
            ShowNullDate = False
            TabOrder = 7
            DateEditLabel.Width = 58
            DateEditLabel.Height = 13
            DateEditLabel.Caption = 'Pagamento:'
          end
          object EditTaxaJuro: TLabeledCalcEdit
            Left = 331
            Top = 70
            Width = 50
            Height = 21
            DisplayFormat = ',0.00'
            ShowButton = False
            TabOrder = 9
            DecimalPlacesAlwaysShown = True
            OnExit = CalcularTotalPago
            CalcEditLabel.Width = 30
            CalcEditLabel.Height = 13
            CalcEditLabel.Caption = 'Juros:'
          end
          object EditValorJuro: TLabeledCalcEdit
            Left = 381
            Top = 70
            Width = 100
            Height = 21
            DisplayFormat = ',0.00'
            ShowButton = False
            TabOrder = 10
            DecimalPlacesAlwaysShown = True
            OnExit = CalcularTotalPago
            CalcEditLabel.Width = 3
            CalcEditLabel.Height = 13
            CalcEditLabel.Caption = ' '
          end
          object EditValorMulta: TLabeledCalcEdit
            Left = 537
            Top = 70
            Width = 100
            Height = 21
            DisplayFormat = '0.00'
            ShowButton = False
            TabOrder = 12
            DecimalPlacesAlwaysShown = False
            OnExit = CalcularTotalPago
            CalcEditLabel.Width = 3
            CalcEditLabel.Height = 13
            CalcEditLabel.Caption = ' '
          end
          object EditValorDesconto: TLabeledCalcEdit
            Left = 693
            Top = 70
            Width = 100
            Height = 21
            DisplayFormat = '0.00'
            ShowButton = False
            TabOrder = 14
            DecimalPlacesAlwaysShown = False
            OnExit = CalcularTotalPago
            CalcEditLabel.Width = 3
            CalcEditLabel.Height = 13
            CalcEditLabel.Caption = ' '
          end
          object EditTaxaDesconto: TLabeledCalcEdit
            Left = 643
            Top = 70
            Width = 50
            Height = 21
            DisplayFormat = '0.00'
            ShowButton = False
            TabOrder = 13
            DecimalPlacesAlwaysShown = False
            OnExit = CalcularTotalPago
            CalcEditLabel.Width = 49
            CalcEditLabel.Height = 13
            CalcEditLabel.Caption = 'Desconto:'
          end
          object EditTaxaMulta: TLabeledCalcEdit
            Left = 487
            Top = 70
            Width = 50
            Height = 21
            DisplayFormat = '0.00'
            ShowButton = False
            TabOrder = 11
            DecimalPlacesAlwaysShown = False
            OnExit = CalcularTotalPago
            CalcEditLabel.Width = 30
            CalcEditLabel.Height = 13
            CalcEditLabel.Caption = 'Multa:'
          end
          object MemoHistorico: TLabeledMemo
            Left = 9
            Top = 115
            Width = 890
            Height = 54
            Anchors = [akLeft, akTop, akRight]
            ScrollBars = ssVertical
            TabOrder = 16
            MemoLabel.Width = 45
            MemoLabel.Height = 13
            MemoLabel.Caption = 'Hist'#243'rico:'
          end
          object EditIdTipoPagamento: TLabeledCalcEdit
            Left = 86
            Top = 24
            Width = 61
            Height = 21
            DisplayFormat = '#'
            ShowButton = False
            TabOrder = 1
            DecimalPlacesAlwaysShown = False
            OnKeyUp = EditIdTipoPagamentoKeyUp
            CalcEditLabel.Width = 104
            CalcEditLabel.Height = 13
            CalcEditLabel.Caption = 'Tipo Pagamento [F1]:'
          end
          object EditCodigoTipoPagamento: TLabeledEdit
            Left = 147
            Top = 24
            Width = 60
            Height = 21
            TabStop = False
            Color = clInfoBk
            EditLabel.Width = 6
            EditLabel.Height = 13
            EditLabel.Caption = '  '
            ReadOnly = True
            TabOrder = 2
          end
          object EditTipoPagamento: TLabeledEdit
            Left = 207
            Top = 24
            Width = 270
            Height = 21
            TabStop = False
            Color = clInfoBk
            EditLabel.Width = 6
            EditLabel.Height = 13
            EditLabel.Caption = '  '
            ReadOnly = True
            TabOrder = 3
          end
          object EditIdContaCaixa: TLabeledCalcEdit
            Left = 483
            Top = 24
            Width = 61
            Height = 21
            DisplayFormat = '#'
            ShowButton = False
            TabOrder = 4
            DecimalPlacesAlwaysShown = False
            OnKeyUp = EditIdContaCaixaKeyUp
            CalcEditLabel.Width = 86
            CalcEditLabel.Height = 13
            CalcEditLabel.Caption = 'Conta Caixa [F1]:'
          end
          object EditContaCaixa: TLabeledEdit
            Left = 544
            Top = 24
            Width = 355
            Height = 21
            TabStop = False
            Anchors = [akLeft, akTop, akRight]
            Color = clInfoBk
            EditLabel.Width = 6
            EditLabel.Height = 13
            EditLabel.Caption = '  '
            ReadOnly = True
            TabOrder = 5
          end
          object EditValorPago: TLabeledCalcEdit
            Left = 799
            Top = 70
            Width = 100
            Height = 21
            DisplayFormat = '0.00'
            ShowButton = False
            TabOrder = 15
            DecimalPlacesAlwaysShown = False
            CalcEditLabel.Width = 55
            CalcEditLabel.Height = 13
            CalcEditLabel.Caption = 'Valor Pago:'
          end
          object EditValorAPagar: TLabeledCalcEdit
            Left = 225
            Top = 70
            Width = 100
            Height = 21
            DisplayFormat = '0.00'
            ReadOnly = True
            ShowButton = False
            TabOrder = 8
            DecimalPlacesAlwaysShown = False
            OnExit = CalcularTotalPago
            CalcEditLabel.Width = 68
            CalcEditLabel.Height = 13
            CalcEditLabel.Caption = 'Valor a Pagar:'
          end
          object EditDataVencimento: TLabeledDateEdit
            Left = 9
            Top = 70
            Width = 104
            Height = 21
            ShowNullDate = False
            TabOrder = 6
            DateEditLabel.Width = 59
            DateEditLabel.Height = 13
            DateEditLabel.Caption = 'Vencimento:'
          end
          object ComboBoxTipoBaixa: TLabeledComboBox
            Left = 9
            Top = 24
            Width = 71
            Height = 21
            Style = csDropDownList
            ItemIndex = 0
            TabOrder = 0
            Text = 'Total'
            Items.Strings = (
              'Total'
              'Parcial')
            ComboBoxLabel.Width = 53
            ComboBoxLabel.Height = 13
            ComboBoxLabel.Caption = 'Tipo Baixa:'
          end
        end
        object PanelParcelaPaga: TPanel
          Left = 18
          Top = 211
          Width = 907
          Height = 210
          Anchors = [akLeft, akTop, akRight, akBottom]
          BevelOuter = bvLowered
          TabOrder = 1
          object GridPagamentos: TJvDBUltimGrid
            Left = 1
            Top = 25
            Width = 905
            Height = 158
            Align = alClient
            DataSource = DSParcelaPagamento
            PopupMenu = PopupMenuExluiParcela
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            TitleButtons = True
            AlternateRowColor = 15593713
            TitleArrow = True
            SelectColumnsDialogStrings.Caption = 'Select columns'
            SelectColumnsDialogStrings.OK = '&OK'
            SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
            CanDelete = False
            EditControls = <>
            RowsHeight = 17
            TitleRowHeight = 17
            SortWith = swFields
            Columns = <
              item
                Expanded = False
                FieldName = 'CHEQUE.NUMERO'
                Title.Caption = 'N'#250'mero do Cheque'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'CONTA_CAIXA.NOME'
                Title.Caption = 'Conta Caixa'
                Width = 300
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'TIPO_PAGAMENTO.DESCRICAO'
                Title.Caption = 'Tipo Pagamento'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'DATA_PAGAMENTO'
                Title.Caption = 'Data Pagamento'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'TAXA_JURO'
                Title.Caption = 'Taxa Juros'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'VALOR_JURO'
                Title.Caption = 'Valor Juros'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'TAXA_MULTA'
                Title.Caption = 'Taxa Multa'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'VALOR_MULTA'
                Title.Caption = 'Valor Multa'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'TAXA_DESCONTO'
                Title.Caption = 'Taxa Desconto'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'VALOR_DESCONTO'
                Title.Caption = 'Valor Desconto'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'VALOR_PAGO'
                Title.Caption = 'Valor Pago'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'HISTORICO'
                Title.Caption = 'Hist'#243'rico'
                Width = 300
                Visible = True
              end>
          end
          object ActionToolBar1: TActionToolBar
            Left = 1
            Top = 1
            Width = 905
            Height = 24
            ActionManager = ActionManager
            Caption = 'ActionToolBar1'
            ColorMap.MenuColor = clMenu
            ColorMap.BtnSelectedColor = clBtnFace
            ColorMap.UnusedColor = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            Orientation = boRightToLeft
            ParentFont = False
            Spacing = 0
          end
          object PanelTotaisPagos: TPanel
            Left = 1
            Top = 183
            Width = 905
            Height = 26
            Align = alBottom
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 2
          end
        end
      end
    end
  end
  inherited PanelToolBar: TPanel
    Width = 958
    ExplicitWidth = 958
    inherited BotaoSair: TSpeedButton
      Left = 854
      ExplicitLeft = 889
    end
    inherited BotaoExportar: TSpeedButton
      Left = 754
      ExplicitLeft = 799
    end
    inherited BotaoImprimir: TSpeedButton
      Left = 644
      ExplicitLeft = 719
    end
    inherited BotaoSeparador1: TSpeedButton
      Left = 744
      ExplicitLeft = 895
      ExplicitTop = -4
    end
    inherited BotaoInserir: TSpeedButton
      ExplicitLeft = 337
    end
    inherited BotaoAlterar: TSpeedButton
      ExplicitLeft = 437
    end
    inherited BotaoExcluir: TSpeedButton
      ExplicitLeft = 537
    end
    inherited BotaoCancelar: TSpeedButton
      ExplicitLeft = 637
    end
    inherited BotaoSalvar: TSpeedButton
      ExplicitLeft = 737
    end
    inherited BotaoFiltrar: TSpeedButton
      Left = 544
      ExplicitLeft = 639
    end
  end
  inherited PopupMenuExportar: TPopupMenu
    Left = 424
  end
  inherited PopupMenuAtalhosBotoesTela: TPopupMenu
    Left = 556
  end
  inherited PopupMenuAtalhosBotoesTelaCadastro: TPopupMenu
    Left = 272
  end
  object ActionManager: TActionManager
    ActionBars.ShowHints = False
    ActionBars = <
      item
      end
      item
        Items = <
          item
            Caption = '-'
          end
          item
            Caption = '-'
          end
          item
            Caption = '-'
          end>
      end
      item
      end
      item
      end
      item
        Items = <
          item
            Action = ActionBaixarParcela
            Caption = '&Baixar Parcela'
            ImageIndex = 30
          end>
        ActionBar = ActionToolBar1
      end>
    DisabledImages = FDataModule.ImagensCadastrosD
    Images = FDataModule.ImagensCadastros
    Left = 728
    Top = 328
    StyleName = 'Ribbon - Silver'
    object ActionBaixarParcela: TAction
      Category = 'Pagamentos'
      Caption = 'Baixar Parcela'
      ImageIndex = 30
      OnExecute = ActionBaixarParcelaExecute
    end
  end
  object DSParcelaPagamento: TDataSource
    DataSet = CDSParcelaPagamento
    Left = 304
    Top = 312
  end
  object CDSParcelaPagamento: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ID_FIN_PARCELA_PAGAR'
        DataType = ftInteger
      end
      item
        Name = 'ID_FIN_CHEQUE_EMITIDO'
        DataType = ftInteger
      end
      item
        Name = 'ID_FIN_TIPO_PAGAMENTO'
        DataType = ftInteger
      end
      item
        Name = 'ID_CONTA_CAIXA'
        DataType = ftInteger
      end
      item
        Name = 'DATA_PAGAMENTO'
        DataType = ftDate
      end
      item
        Name = 'TAXA_JURO'
        DataType = ftFMTBcd
        Precision = 15
        Size = 6
      end
      item
        Name = 'TAXA_MULTA'
        DataType = ftFMTBcd
        Precision = 15
        Size = 6
      end
      item
        Name = 'TAXA_DESCONTO'
        DataType = ftFMTBcd
        Precision = 15
        Size = 6
      end
      item
        Name = 'VALOR_JURO'
        DataType = ftFMTBcd
        Precision = 15
        Size = 6
      end
      item
        Name = 'VALOR_MULTA'
        DataType = ftFMTBcd
        Precision = 15
        Size = 6
      end
      item
        Name = 'VALOR_DESCONTO'
        DataType = ftFMTBcd
        Precision = 15
        Size = 6
      end
      item
        Name = 'VALOR_PAGO'
        DataType = ftFMTBcd
        Precision = 15
        Size = 6
      end
      item
        Name = 'CONTA_CAIXA.NOME'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'TIPO_PAGAMENTO.DESCRICAO'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'CHEQUE.NUMERO'
        DataType = ftInteger
      end
      item
        Name = 'HISTORICO'
        DataType = ftString
        Size = 250
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 304
    Top = 360
    Data = {
      7B0200009619E0BD0200000018000000110000000000030000007B0202494404
      000100000000001449445F46494E5F50415243454C415F504147415204000100
      000000001549445F46494E5F4348455155455F454D495449444F040001000000
      00001549445F46494E5F5449504F5F504147414D454E544F0400010000000000
      0E49445F434F4E54415F434149584104000100000000000E444154415F504147
      414D454E544F040006000000000009544158415F4A55524F0A00120000000200
      08444543494D414C53020002000600055749445448020002000F000A54415841
      5F4D554C54410A0012000000020008444543494D414C53020002000600055749
      445448020002000F000D544158415F444553434F4E544F0A0012000000020008
      444543494D414C53020002000600055749445448020002000F000A56414C4F52
      5F4A55524F0A0012000000020008444543494D414C5302000200060005574944
      5448020002000F000B56414C4F525F4D554C54410A0012000000020008444543
      494D414C53020002000600055749445448020002000F000E56414C4F525F4445
      53434F4E544F0A0012000000020008444543494D414C53020002000600055749
      445448020002000F000A56414C4F525F5041474F0A0012000000020008444543
      494D414C53020002000600055749445448020002000F0010434F4E54415F4341
      4958412E4E4F4D45010049000000010005574944544802000200640018544950
      4F5F504147414D454E544F2E44455343524943414F0100490000000100055749
      445448020002001E000D4348455155452E4E554D45524F040001000000000009
      484953544F5249434F010049000000010005574944544802000200FA000000}
    object CDSParcelaPagamentoID: TIntegerField
      FieldName = 'ID'
    end
    object CDSParcelaPagamentoID_FIN_PARCELA_PAGAR: TIntegerField
      FieldName = 'ID_FIN_PARCELA_PAGAR'
    end
    object CDSParcelaPagamentoID_FIN_CHEQUE_EMITIDO: TIntegerField
      FieldName = 'ID_FIN_CHEQUE_EMITIDO'
    end
    object CDSParcelaPagamentoID_FIN_TIPO_PAGAMENTO: TIntegerField
      FieldName = 'ID_FIN_TIPO_PAGAMENTO'
    end
    object CDSParcelaPagamentoID_CONTA_CAIXA: TIntegerField
      FieldName = 'ID_CONTA_CAIXA'
    end
    object CDSParcelaPagamentoDATA_PAGAMENTO: TDateField
      FieldName = 'DATA_PAGAMENTO'
    end
    object CDSParcelaPagamentoTAXA_JURO: TFMTBCDField
      FieldName = 'TAXA_JURO'
      DisplayFormat = '###,###,##0.00'
      Precision = 15
      Size = 6
    end
    object CDSParcelaPagamentoTAXA_MULTA: TFMTBCDField
      FieldName = 'TAXA_MULTA'
      DisplayFormat = '###,###,##0.00'
      Precision = 15
      Size = 6
    end
    object CDSParcelaPagamentoTAXA_DESCONTO: TFMTBCDField
      FieldName = 'TAXA_DESCONTO'
      DisplayFormat = '###,###,##0.00'
      Precision = 15
      Size = 6
    end
    object CDSParcelaPagamentoVALOR_JURO: TFMTBCDField
      FieldName = 'VALOR_JURO'
      DisplayFormat = '###,###,##0.00'
      Precision = 15
      Size = 6
    end
    object CDSParcelaPagamentoVALOR_MULTA: TFMTBCDField
      FieldName = 'VALOR_MULTA'
      DisplayFormat = '###,###,##0.00'
      Precision = 15
      Size = 6
    end
    object CDSParcelaPagamentoVALOR_DESCONTO: TFMTBCDField
      FieldName = 'VALOR_DESCONTO'
      DisplayFormat = '###,###,##0.00'
      Precision = 15
      Size = 6
    end
    object CDSParcelaPagamentoVALOR_PAGO: TFMTBCDField
      FieldName = 'VALOR_PAGO'
      DisplayFormat = '###,###,##0.00'
      Precision = 15
      Size = 6
    end
    object CDSParcelaPagamentoCONTA_CAIXANOME: TStringField
      FieldName = 'CONTA_CAIXA.NOME'
      Size = 100
    end
    object CDSParcelaPagamentoTIPO_PAGAMENTODESCRICAO: TStringField
      FieldName = 'TIPO_PAGAMENTO.DESCRICAO'
      Size = 30
    end
    object CDSParcelaPagamentoCHEQUENUMERO: TIntegerField
      FieldName = 'CHEQUE.NUMERO'
    end
    object CDSParcelaPagamentoHISTORICO: TStringField
      FieldName = 'HISTORICO'
      Size = 250
    end
  end
  object PopupMenuExluiParcela: TPopupMenu
    Images = FDataModule.ImagensCadastros
    Left = 838
    Top = 346
    object ExcluirParcelaPaga1: TMenuItem
      Caption = 'Excluir Parcela Paga'
      ImageIndex = 10
      OnClick = ExcluirParcelaPaga1Click
    end
  end
end
