programa_cobranca/ufrmAgendamento.dfm

inherited frmAgendamento: TfrmAgendamento
  Caption = 'Agendamento'
  ClientHeight = 253
  ClientWidth = 779
  ExplicitWidth = 785
  ExplicitHeight = 281
  PixelsPerInch = 96
  TextHeight = 13
  inherited stbStatus: TStatusBar
    Top = 234
    Width = 779
    ExplicitTop = 234
    ExplicitWidth = 779
  end
  object GroupBox1: TGroupBox
    Left = 332
    Top = 8
    Width = 273
    Height = 218
    Color = clWhite
    ParentBackground = False
    ParentColor = False
    TabOrder = 1
    object lbl_dtcobranca: TLabel
      Left = 11
      Top = 10
      Width = 109
      Height = 13
      Caption = 'Data do agendamento:'
    end
    object lbl_horacobranca: TLabel
      Left = 11
      Top = 56
      Width = 109
      Height = 13
      Caption = 'Hora do agendamento:'
    end
    object lbl_cobradoragendado: TLabel
      Left = 147
      Top = 10
      Width = 113
      Height = 13
      Caption = 'Agendar para Cobrador:'
    end
    object Label1: TLabel
      Left = 11
      Top = 102
      Width = 56
      Height = 13
      Caption = 'Provid'#234'ncia'
    end
    object dtp_diaagendamento: TDateTimePicker
      Left = 11
      Top = 29
      Width = 115
      Height = 21
      Date = 43082.430191782410000000
      Time = 43082.430191782410000000
      TabOrder = 0
    end
    object dtp_horaagendamento: TDateTimePicker
      Left = 11
      Top = 75
      Width = 115
      Height = 21
      Date = 43082.430419745370000000
      Time = 43082.430419745370000000
      DateMode = dmUpDown
      Kind = dtkTime
      TabOrder = 1
    end
    object dblucb_cobradoragendar: TDBLookupComboBox
      Left = 147
      Top = 29
      Width = 115
      Height = 21
      KeyField = 'ID_USUARIO'
      ListField = 'TX_NOME'
      ListSource = dtsCobrador
      TabOrder = 2
    end
    object Button1: TButton
      Left = 11
      Top = 176
      Width = 75
      Height = 25
      Caption = 'Agendar'
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 187
      Top = 176
      Width = 75
      Height = 25
      Caption = 'Cancelar'
      TabOrder = 4
      OnClick = Button2Click
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 11
      Top = 121
      Width = 249
      Height = 21
      KeyField = 'ID_PROVIDENCIA'
      ListField = 'TX_NOME'
      ListFieldIndex = 1
      ListSource = dtmSystem.dtsProvidencias
      TabOrder = 5
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 8
    Width = 318
    Height = 218
    TabOrder = 2
    object lbl_nomedevedor: TLabel
      Left = 16
      Top = 10
      Width = 88
      Height = 13
      Caption = 'Nome do devedor:'
    end
    object edt_nomefiltro: TEdit
      Left = 16
      Top = 29
      Width = 281
      Height = 21
      TabOrder = 0
      OnChange = edt_nomefiltroChange
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 56
      Width = 281
      Height = 145
      DataSource = dtsDevedores
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnTitleClick = DBGrid1TitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'TX_NOME'
          Title.Caption = 'Nome'
          Visible = True
        end>
    end
  end
  object mem_hist: TMemo
    Left = 611
    Top = 8
    Width = 164
    Height = 218
    ScrollBars = ssVertical
    TabOrder = 3
    WantTabs = True
  end
  object queryCobradores: TZQuery
    Connection = dtmSystem.ZConnection
    SQL.Strings = (
      'select * from sys_usuarios')
    Params = <>
    Left = 190
    Top = 159
    object queryCobradoresID_USUARIO: TIntegerField
      FieldName = 'ID_USUARIO'
      Required = True
    end
    object queryCobradoresTX_NOME: TWideStringField
      FieldName = 'TX_NOME'
      Size = 60
    end
  end
  object dtsCobrador: TDataSource
    DataSet = queryCobradores
    Left = 110
    Top = 159
  end
  object dtsDevedores: TDataSource
    DataSet = dtmSystem.tblDevedores
    Left = 40
    Top = 160
  end
  object dtsHist: TDataSource
    DataSet = ROqryhist
    Left = 40
    Top = 112
  end
  object ROqryhist: TZReadOnlyQuery
    Connection = dtmSystem.ZConnection
    SQL.Strings = (
      
        'SELECT chg_historico.id_devedor, MAX(ID_HISTORICO) AS MAX_HIST F' +
        'ROM CHG_HISTORICO'
      'group by id_devedor')
    Params = <>
    Left = 112
    Top = 112
    object ROqryhistID_DEVEDOR: TIntegerField
      FieldName = 'ID_DEVEDOR'
    end
    object ROqryhistMAX_HIST: TIntegerField
      FieldName = 'MAX_HIST'
      ReadOnly = True
    end
  end
end