inherited frmMandaMensagem: TfrmMandaMensagem
  Caption = 'Central de Envio de Mensagens'
  ClientHeight = 670
  ClientWidth = 1014
  ExplicitWidth = 1020
  ExplicitHeight = 698
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 432
    Top = 386
    Width = 41
    Height = 13
    Caption = 'Assunto:'
  end
  object lbl_prov: TLabel [1]
    Left = 432
    Top = 330
    Width = 59
    Height = 13
    Caption = 'Provid'#234'ncia:'
  end
  object Label2: TLabel [2]
    Left = 861
    Top = 8
    Width = 21
    Height = 13
    Caption = 'Log:'
  end
  object lbl_resultado: TLabel [3]
    Left = 263
    Top = 386
    Width = 51
    Height = 13
    Caption = 'Resultado:'
  end
  inherited stbStatus: TStatusBar
    Top = 651
    Width = 1014
    ExplicitTop = 651
    ExplicitWidth = 1014
  end
  object dbg_textoemail: TDBGrid
    Left = 432
    Top = 8
    Width = 423
    Height = 120
    DataSource = dtsTextoEmail
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'TX_DESCRICAO'
        Title.Caption = 'Descri'#231#227'o'
        Visible = True
      end>
  end
  object btn_pesquisa: TButton
    Left = 8
    Top = 381
    Width = 75
    Height = 25
    Caption = 'Pesquisar'
    TabOrder = 2
    OnClick = btn_pesquisaClick
  end
  object pb_pesquisa: TProgressBar
    Left = 8
    Top = 412
    Width = 845
    Height = 17
    Step = 1
    TabOrder = 3
  end
  object dbre_textomensagem: TDBRichEdit
    Left = 432
    Top = 134
    Width = 423
    Height = 190
    DataField = 'TL_TEXTO'
    DataSource = dtsTextoEmail
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ReadOnly = True
    TabOrder = 4
    Zoom = 100
  end
  object dbg_pesquisa: TDBGrid
    Left = 8
    Top = 432
    Width = 845
    Height = 215
    DataSource = dtsQPesquisa
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'TX_NOME'
        Title.Caption = 'Nome'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TX_DOCUMENTO'
        Title.Caption = 'Documento'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TX_EMAIL'
        Title.Caption = 'Email'
        Visible = True
      end>
  end
  object rg_email: TRadioGroup
    Left = 94
    Top = 374
    Width = 163
    Height = 33
    Caption = 'Email'
    Columns = 2
    Items.Strings = (
      'Empresa'
      'Usu'#225'rio')
    TabOrder = 6
  end
  object btn_mandaemail: TButton
    Left = 778
    Top = 381
    Width = 75
    Height = 25
    Caption = 'Enviar Email'
    TabOrder = 7
    WordWrap = True
    OnClick = btn_mandaemailClick
  end
  object edt_assunto: TEdit
    Left = 479
    Top = 383
    Width = 293
    Height = 21
    TabOrder = 8
  end
  object sbx_filtro: TScrollBox
    Left = 8
    Top = 8
    Width = 418
    Height = 362
    HorzScrollBar.Range = 326
    VertScrollBar.Range = 1345
    AutoScroll = False
    BevelInner = bvNone
    BevelOuter = bvNone
    ParentBackground = True
    TabOrder = 9
    object pnl_providências: TPanel
      Left = 0
      Top = 324
      Width = 394
      Height = 499
      TabOrder = 0
      object Label5: TLabel
        Left = 9
        Top = 277
        Width = 17
        Height = 13
        Caption = 'De:'
      end
      object Label6: TLabel
        Left = 121
        Top = 277
        Width = 19
        Height = 13
        Caption = 'At'#233':'
      end
      object cb_providencias: TCheckBox
        Left = 8
        Top = 4
        Width = 97
        Height = 17
        Caption = 'Provid'#234'ncia:'
        TabOrder = 0
        OnClick = cb_providenciasClick
      end
      object clb_providencias: TCheckListBox
        Left = 8
        Top = 27
        Width = 377
        Height = 142
        OnClickCheck = clb_providenciasClickCheck
        Enabled = False
        ItemHeight = 13
        TabOrder = 1
      end
      object pnl_filtroprov: TPanel
        Left = 8
        Top = 175
        Width = 378
        Height = 68
        BevelKind = bkTile
        BevelOuter = bvNone
        Color = clWhite
        ParentBackground = False
        TabOrder = 2
        object rg_filtroprov: TRadioGroup
          Left = -4
          Top = -15
          Width = 407
          Height = 82
          Color = clWhite
          Columns = 2
          Enabled = False
          Items.Strings = (
            'Contenha'
            'N'#227'o contenha'
            'Seja a '#218'ltima'
            'Positivas'
            'Negativas')
          ParentBackground = False
          ParentColor = False
          TabOrder = 0
        end
      end
      object dtp_provin: TDateTimePicker
        Left = 32
        Top = 273
        Width = 81
        Height = 21
        Date = 43042.451453472230000000
        Time = 43042.451453472230000000
        Enabled = False
        TabOrder = 3
      end
      object dtp_provfim: TDateTimePicker
        Left = 144
        Top = 273
        Width = 81
        Height = 21
        Date = 43042.451453472230000000
        Time = 43042.451453472230000000
        Enabled = False
        TabOrder = 4
      end
      object cb_periodoprov: TCheckBox
        Left = 7
        Top = 250
        Width = 97
        Height = 17
        Caption = 'Per'#237'odo'
        Enabled = False
        TabOrder = 5
        OnClick = cb_periodoprovClick
      end
      object cb_bacalhau: TCheckBox
        Left = 215
        Top = 4
        Width = 97
        Height = 17
        Caption = 'Bacalhau'
        Enabled = False
        TabOrder = 6
        Visible = False
      end
      object edt_pprov: TEdit
        Left = 111
        Top = 2
        Width = 274
        Height = 21
        Enabled = False
        TabOrder = 7
        OnChange = edt_pprovChange
      end
      object cb_cobradoresprov: TCheckBox
        Left = 7
        Top = 308
        Width = 97
        Height = 17
        Caption = 'Feito por:'
        Enabled = False
        TabOrder = 8
        OnClick = cb_cobradoresprovClick
      end
      object edt_puserprov: TEdit
        Left = 111
        Top = 306
        Width = 274
        Height = 21
        Enabled = False
        TabOrder = 9
        OnClick = edt_puserprovClick
      end
      object clb_usuariosprov: TCheckListBox
        Left = 8
        Top = 331
        Width = 377
        Height = 160
        OnClickCheck = clb_usuariosprovClickCheck
        Enabled = False
        ItemHeight = 13
        TabOrder = 10
      end
    end
    object pnl_beneficiarios: TPanel
      Left = 0
      Top = 0
      Width = 394
      Height = 318
      TabOrder = 1
      object Label11: TLabel
        Left = 8
        Top = 198
        Width = 17
        Height = 13
        Caption = 'De:'
      end
      object Label12: TLabel
        Left = 8
        Top = 226
        Width = 19
        Height = 13
        Caption = 'At'#233':'
      end
      object Label13: TLabel
        Left = 135
        Top = 198
        Width = 17
        Height = 13
        Caption = 'De:'
      end
      object Label14: TLabel
        Left = 135
        Top = 226
        Width = 19
        Height = 13
        Caption = 'At'#233':'
      end
      object cb_beneficiarios: TCheckBox
        Left = 8
        Top = 4
        Width = 97
        Height = 17
        Caption = 'Credor:'
        TabOrder = 0
        OnClick = cb_beneficiariosClick
      end
      object clb_beneficiarios: TCheckListBox
        Left = 8
        Top = 27
        Width = 377
        Height = 142
        OnClickCheck = clb_beneficiariosClickCheck
        Enabled = False
        ItemHeight = 13
        TabOrder = 1
      end
      object edt_pcredor: TEdit
        Left = 111
        Top = 2
        Width = 274
        Height = 21
        Enabled = False
        TabOrder = 2
        OnChange = edt_pcredorChange
      end
      object cb_credorentrada: TCheckBox
        Left = 9
        Top = 175
        Width = 118
        Height = 17
        Caption = 'Entrada do Credor:'
        Enabled = False
        TabOrder = 3
        OnClick = cb_credorentradaClick
      end
      object dtp_credorentrada1: TDateTimePicker
        Left = 31
        Top = 194
        Width = 81
        Height = 21
        Date = 43042.451453472230000000
        Time = 43042.451453472230000000
        Enabled = False
        TabOrder = 4
      end
      object dtp_credorentrada2: TDateTimePicker
        Left = 31
        Top = 222
        Width = 81
        Height = 21
        Date = 43042.451453472230000000
        Time = 43042.451453472230000000
        Enabled = False
        TabOrder = 5
      end
      object cb_credorvencimento: TCheckBox
        Left = 136
        Top = 175
        Width = 131
        Height = 17
        Caption = 'Vencimento do Credor:'
        Enabled = False
        TabOrder = 6
        OnClick = cb_credorvencimentoClick
      end
      object dtp_credorvenc1: TDateTimePicker
        Left = 158
        Top = 194
        Width = 81
        Height = 21
        Date = 43042.451453472230000000
        Time = 43042.451453472230000000
        Enabled = False
        TabOrder = 7
      end
      object dtp_credorvenc2: TDateTimePicker
        Left = 158
        Top = 222
        Width = 81
        Height = 21
        Date = 43042.451453472230000000
        Time = 43042.451453472230000000
        Enabled = False
        TabOrder = 8
      end
      object cb_credortptitulo: TCheckBox
        Left = 7
        Top = 255
        Width = 97
        Height = 17
        Caption = 'Tipo de t'#237'tulo:'
        Enabled = False
        TabOrder = 9
        OnClick = cb_credortptituloClick
      end
      object Panel3: TPanel
        Left = 8
        Top = 276
        Width = 377
        Height = 28
        BevelKind = bkTile
        BevelOuter = bvNone
        Color = clWhite
        ParentBackground = False
        TabOrder = 10
        object rg_credortptitulo: TRadioGroup
          Left = -3
          Top = -15
          Width = 391
          Height = 43
          Color = clWhite
          Columns = 3
          Enabled = False
          Items.Strings = (
            'Todos'
            'Abertos'
            'Baixados')
          ParentBackground = False
          ParentColor = False
          TabOrder = 0
        end
      end
    end
    object pnl_agendamento: TPanel
      Left = -1
      Top = 829
      Width = 395
      Height = 330
      TabOrder = 2
      object lbl_agendcomeco: TLabel
        Left = 8
        Top = 107
        Width = 17
        Height = 13
        Caption = 'De:'
      end
      object lbl_agendfim: TLabel
        Left = 134
        Top = 106
        Width = 19
        Height = 13
        Caption = 'At'#233':'
      end
      object cb_agendamento: TCheckBox
        Left = 8
        Top = 4
        Width = 97
        Height = 17
        Caption = 'Agendamento:'
        TabOrder = 0
        OnClick = cb_agendamentoClick
      end
      object dtp_agendcomeco: TDateTimePicker
        Left = 31
        Top = 103
        Width = 81
        Height = 21
        Date = 43042.451453472230000000
        Time = 43042.451453472230000000
        Enabled = False
        TabOrder = 1
      end
      object dtp_agendfim: TDateTimePicker
        Left = 159
        Top = 102
        Width = 81
        Height = 21
        Date = 43042.451453472230000000
        Time = 43042.451453472230000000
        Enabled = False
        TabOrder = 2
      end
      object clb_usuariosagenda: TCheckListBox
        Left = 9
        Top = 161
        Width = 377
        Height = 160
        OnClickCheck = clb_usuariosagendaClickCheck
        Enabled = False
        ItemHeight = 13
        TabOrder = 3
      end
      object cb_cobradoresagenda: TCheckBox
        Left = 8
        Top = 136
        Width = 97
        Height = 17
        Caption = 'Feito por:'
        Enabled = False
        TabOrder = 4
        OnClick = cb_cobradoresagendaClick
      end
      object edt_puseragenda: TEdit
        Left = 112
        Top = 134
        Width = 274
        Height = 21
        Enabled = False
        TabOrder = 5
        OnChange = edt_puseragendaChange
      end
      object Panel2: TPanel
        Left = 8
        Top = 27
        Width = 378
        Height = 68
        BevelKind = bkTile
        BevelOuter = bvNone
        Color = clWhite
        ParentBackground = False
        TabOrder = 6
        object rg_agendamento: TRadioGroup
          Left = -4
          Top = -15
          Width = 407
          Height = 82
          Color = clWhite
          Columns = 2
          Enabled = False
          Items.Strings = (
            'Todos'
            'Somente Agendados'
            'Agendados no Per'#237'odo'
            'Agendamento Vencido'
            'N'#227'o incluir Agendados')
          ParentBackground = False
          ParentColor = False
          TabOrder = 0
          OnClick = rg_agendamentoClick
        end
      end
    end
    object pnl_alfabeto: TPanel
      Left = 0
      Top = 1165
      Width = 394
      Height = 55
      TabOrder = 3
      object Label7: TLabel
        Left = 7
        Top = 29
        Width = 17
        Height = 13
        Caption = 'De:'
      end
      object Label8: TLabel
        Left = 156
        Top = 28
        Width = 19
        Height = 13
        Caption = 'At'#233':'
      end
      object cb_faixanome: TCheckBox
        Left = 8
        Top = 4
        Width = 97
        Height = 17
        Caption = 'Faixa de nomes:'
        TabOrder = 0
        OnClick = cb_faixanomeClick
      end
      object edt_nomein: TEdit
        Left = 28
        Top = 27
        Width = 66
        Height = 21
        CharCase = ecUpperCase
        Enabled = False
        MaxLength = 1
        TabOrder = 1
        Text = 'A'
      end
      object edt_nomefim: TEdit
        Left = 181
        Top = 26
        Width = 66
        Height = 21
        CharCase = ecUpperCase
        Enabled = False
        MaxLength = 1
        TabOrder = 2
        Text = 'Z'
      end
    end
    object pnl_atraso: TPanel
      Left = -2
      Top = 1226
      Width = 396
      Height = 55
      TabOrder = 4
      object Label9: TLabel
        Left = 7
        Top = 29
        Width = 17
        Height = 13
        Caption = 'De:'
      end
      object Label10: TLabel
        Left = 158
        Top = 28
        Width = 19
        Height = 13
        Caption = 'At'#233':'
      end
      object cb_atraso: TCheckBox
        Left = 8
        Top = 4
        Width = 97
        Height = 17
        Caption = 'Faixa de atraso:'
        TabOrder = 0
        OnClick = cb_atrasoClick
      end
      object edt_atrasoin: TEdit
        Left = 30
        Top = 27
        Width = 66
        Height = 21
        CharCase = ecUpperCase
        Enabled = False
        MaxLength = 1
        NumbersOnly = True
        TabOrder = 1
        Text = '0'
      end
      object edt_atrasofim: TEdit
        Left = 183
        Top = 26
        Width = 66
        Height = 21
        CharCase = ecUpperCase
        Enabled = False
        MaxLength = 1
        NumbersOnly = True
        TabOrder = 2
        Text = '999999'
      end
    end
    object pnl_tipopessoa: TPanel
      Left = -2
      Top = 1287
      Width = 396
      Height = 61
      TabOrder = 5
      object cb_tipopessoa: TCheckBox
        Left = 8
        Top = 4
        Width = 97
        Height = 17
        Caption = 'Tipo de pessoa:'
        TabOrder = 0
        OnClick = cb_tipopessoaClick
      end
      object Panel1: TPanel
        Left = 8
        Top = 25
        Width = 380
        Height = 28
        BevelKind = bkTile
        BevelOuter = bvNone
        Color = clWhite
        ParentBackground = False
        TabOrder = 1
        object rg_tipopessoa: TRadioGroup
          Left = -3
          Top = -15
          Width = 396
          Height = 43
          Color = clWhite
          Columns = 2
          Enabled = False
          Items.Strings = (
            'F'#237'sica'
            'Jur'#237'dica')
          ParentBackground = False
          ParentColor = False
          TabOrder = 0
        end
      end
    end
  end
  object dblulb_provs: TDBLookupComboBox
    Left = 432
    Top = 349
    Width = 257
    Height = 21
    KeyField = 'ID_PROVIDENCIA'
    ListField = 'TX_NOME'
    ListSource = dtmSystem.dtsProvidencias
    TabOrder = 10
  end
  object cb_retornaprov: TCheckBox
    Left = 695
    Top = 351
    Width = 158
    Height = 17
    Alignment = taLeftJustify
    Caption = 'Retornar provid'#234'ncia anterior'
    TabOrder = 11
  end
  object mb_log: TMemo
    Left = 861
    Top = 27
    Width = 145
    Height = 618
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 12
  end
  object dtsTextoEmail: TDataSource
    DataSet = dtmSystem.tblTextoEmail
    Left = 720
    Top = 40
  end
  object dtsQPesquisa: TDataSource
    DataSet = QPesquisa
    Left = 312
    Top = 481
  end
  object QPesquisa: TZQuery
    Connection = dtmSystem.ZConnection
    SQL.Strings = (
      'select first 0'
      'd.tx_nome, d.id_devedor,'
      'case when d.tp_cliente = '#39'F'#39' then d.cd_cpf'
      'when d.tp_cliente = '#39'J'#39' then d.cd_cnpj'
      'end as tx_documento'
      ',e.tx_email'
      'from chg_titulos t'
      'left join chg_devedores d on d.id_devedor = t.id_devedor'
      'left join chg_emails e on t.id_devedor = e.id_devedor')
    Params = <>
    Left = 408
    Top = 481
    object QPesquisaTX_NOME: TWideStringField
      FieldName = 'TX_NOME'
      Size = 60
    end
    object QPesquisaTX_DOCUMENTO: TWideStringField
      FieldName = 'TX_DOCUMENTO'
      ReadOnly = True
      Size = 18
    end
    object QPesquisaTX_EMAIL: TWideStringField
      FieldName = 'TX_EMAIL'
      Size = 40
    end
    object QPesquisaID_DEVEDOR: TIntegerField
      FieldName = 'ID_DEVEDOR'
      Required = True
    end
  end
  object ACBrMail: TACBrMail
    Host = '127.0.0.1'
    Port = '25'
    SetSSL = False
    SetTLS = False
    Attempts = 3
    DefaultCharset = UTF_8
    IDECharset = CP1252
    Left = 568
    Top = 232
  end
end