programa_cobranca/ufrmRankings.dfm

inherited frmRanking: TfrmRanking
  Caption = 'Rankings'
  ClientHeight = 408
  ClientWidth = 1033
  ExplicitWidth = 1039
  ExplicitHeight = 436
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 347
    Top = 108
    Width = 80
    Height = 13
    Caption = 'Procurar usu'#225'rio:'
  end
  object lbl_vcorte: TLabel [1]
    Left = 408
    Top = 237
    Width = 69
    Height = 13
    Caption = 'Valor de corte:'
  end
  inherited stbStatus: TStatusBar
    Top = 389
    Width = 1033
    ExplicitTop = 389
    ExplicitWidth = 1033
  end
  object dbgrd_ranking: TDBGrid
    Left = 558
    Top = 8
    Width = 465
    Height = 373
    DataSource = dtsHistorico
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawColumnCell = dbgrd_rankingDrawColumnCell
    OnTitleClick = dbgrd_rankingTitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'NOME'
        Title.Caption = 'Nome'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'QTDE_ACIONAMENTOS'
        Title.Caption = 'Quantidade'
        Visible = True
      end>
  end
  object rg_relacoes: TRadioGroup
    Left = 8
    Top = 8
    Width = 537
    Height = 89
    Caption = 'Tipos de Rankings'
    Columns = 3
    Items.Strings = (
      'Devedores acionados'
      'Total de acionamentos'
      'Acionamentos positivos'
      'Acionamentos negativos'
      'Total de acionamentos positivos'
      'Total de acionamentos negatvios')
    TabOrder = 2
  end
  object cb_filtragrupo: TCheckBox
    Left = 207
    Top = 233
    Width = 193
    Height = 17
    Caption = 'Filtrar grupo espec'#237'fico de usu'#225'rios'
    TabOrder = 3
  end
  object clb_grupousuarios: TCheckListBox
    Left = 207
    Top = 256
    Width = 193
    Height = 127
    TabStop = False
    Flat = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    ParentShowHint = False
    ScrollWidth = 10
    ShowHint = True
    TabOrder = 4
  end
  object btn_gerarank: TButton
    Left = 406
    Top = 356
    Width = 139
    Height = 25
    Caption = 'Visualizar/Atualizar'
    TabOrder = 5
    OnClick = btn_gerarankClick
  end
  object edt_locate: TEdit
    Left = 347
    Top = 129
    Width = 198
    Height = 21
    TabOrder = 6
    OnChange = edt_locateChange
  end
  object rg_filtroqtde: TRadioGroup
    Left = 207
    Top = 182
    Width = 338
    Height = 45
    Columns = 4
    Enabled = False
    Items.Strings = (
      'Maior que'
      'Menor que'
      'Entre')
    TabOrder = 7
    OnClick = rg_filtroqtdeClick
  end
  object cb_filtroqtde: TCheckBox
    Left = 215
    Top = 175
    Width = 119
    Height = 17
    Alignment = taLeftJustify
    Caption = 'Filtrar por quantidade'
    TabOrder = 8
    OnClick = cb_filtroqtdeClick
  end
  object edt_v1: TEdit
    Left = 431
    Top = 200
    Width = 50
    Height = 21
    Enabled = False
    NumbersOnly = True
    TabOrder = 9
    OnChange = edt_v1Change
  end
  object edt_v2: TEdit
    Left = 487
    Top = 200
    Width = 50
    Height = 21
    Enabled = False
    NumbersOnly = True
    TabOrder = 10
    OnChange = edt_v2Change
  end
  object edt_vcorte: TEdit
    Left = 406
    Top = 256
    Width = 139
    Height = 21
    NumbersOnly = True
    TabOrder = 11
    OnChange = edt_vcorteChange
  end
  object gb_data: TGroupBox
    Left = 8
    Top = 103
    Width = 333
    Height = 65
    Enabled = False
    TabOrder = 12
    object Label2: TLabel
      Left = 168
      Top = 31
      Width = 6
      Height = 13
      Caption = 'a'
    end
    object dtp_inicio: TDateTimePicker
      Left = 10
      Top = 26
      Width = 97
      Height = 21
      Date = 43168.429167685190000000
      Time = 43168.429167685190000000
      TabOrder = 0
    end
    object dtp_fim: TDateTimePicker
      Left = 224
      Top = 26
      Width = 97
      Height = 21
      Date = 43168.429167685190000000
      Time = 43168.429167685190000000
      TabOrder = 1
    end
  end
  object cb_periodo: TCheckBox
    Left = 18
    Top = 96
    Width = 102
    Height = 17
    Alignment = taLeftJustify
    Caption = 'Filtrar por per'#237'odo'
    TabOrder = 13
    OnClick = cb_periodoClick
  end
  object clb_providencias: TCheckListBox
    Left = 8
    Top = 192
    Width = 193
    Height = 191
    ItemHeight = 13
    TabOrder = 14
  end
  object cb_prov: TCheckBox
    Left = 8
    Top = 172
    Width = 132
    Height = 17
    Caption = 'Filtrar por provid'#234'ncia'
    TabOrder = 15
  end
  object dtsHistorico: TDataSource
    DataSet = zroqryRanking
    Left = 688
    Top = 32
  end
  object zroqryRanking: TZReadOnlyQuery
    Connection = dtmSystem.ZConnection
    SQL.Strings = (
      'select first 0'
      'h.id_cobrador,'
      
        'case when u.tx_nome is not NULL then u.tx_nome when u.tx_nome is' +
        ' NULL then '#39'Usu'#225'rio Inexistente'#39
      'end as NOME,'
      'COUNT (DISTINCT h.ID_PROVIDENCIA) as qtde_acionamentos'
      'from chg_historico h'
      'left join sys_usuarios u on h.id_cobrador = u.id_usuario'
      
        'where h.id_cobrador in (select id_cobrador from sys_usuarios whe' +
        're tp_ativo = '#39'S'#39')'
      'group by h.id_cobrador, u.tx_nome')
    Params = <>
    Left = 608
    Top = 32
    object zroqryRankingID_COBRADOR: TIntegerField
      FieldName = 'ID_COBRADOR'
    end
    object zroqryRankingQTDE_ACIONAMENTOS: TIntegerField
      FieldName = 'QTDE_ACIONAMENTOS'
      ReadOnly = True
    end
    object zroqryRankingNOME: TWideStringField
      FieldName = 'NOME'
      ReadOnly = True
      Size = 60
    end
  end
end