You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 

874 lines
19 KiB

inherited frmCentralPlanilhamento: TfrmCentralPlanilhamento
Caption = 'Central de Planilhamento'
ClientHeight = 642
ClientWidth = 816
OnMouseDown = FormMouseDown
OnShow = FormShow
ExplicitWidth = 822
ExplicitHeight = 670
PixelsPerInch = 96
TextHeight = 13
object lbl_nome: TLabel [0]
Left = 432
Top = 326
Width = 86
Height = 13
Caption = 'Nome da Planilha:'
end
object lbl_linhas: TLabel [1]
Left = 432
Top = 307
Width = 106
Height = 13
Caption = 'Quantidade de linhas: '
end
object lbl_prov: TLabel [2]
Left = 432
Top = 261
Width = 59
Height = 13
Caption = 'Provid'#234'ncia:'
end
inherited stbStatus: TStatusBar
Top = 623
Width = 816
ExplicitTop = 623
ExplicitWidth = 816
end
object dbgrd_pesquisa: TDBGrid
Left = 8
Top = 403
Width = 801
Height = 214
DataSource = dtsQuery
PopupMenu = ppmnuFichaDev
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object sbx_filtro: TScrollBox
Left = 8
Top = 8
Width = 418
Height = 389
HorzScrollBar.Range = 326
VertScrollBar.Range = 1345
AutoScroll = False
BevelInner = bvNone
BevelOuter = bvNone
ParentBackground = True
TabOrder = 2
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
OnChange = edt_puserprovChange
end
object clb_usuariosprov: TCheckListBox
Left = 8
Top = 331
Width = 377
Height = 160
OnClickCheck = clb_usuariosprovClickCheck
Enabled = False
ItemHeight = 13
PopupMenu = ppm_marcar
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
PopupMenu = ppm_marcar
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 btn_planilha: TButton
Left = 710
Top = 372
Width = 99
Height = 25
Caption = 'Exportar Planilha'
TabOrder = 3
OnClick = btn_planilhaClick
end
object btn_pesquisa: TButton
Left = 432
Top = 372
Width = 75
Height = 25
Caption = 'Pesquisar'
TabOrder = 4
OnClick = btn_pesquisaClick
end
object gb_telefones: TGroupBox
Left = 432
Top = 8
Width = 377
Height = 132
Enabled = False
TabOrder = 5
object Panel4: TPanel
Left = 16
Top = 21
Width = 345
Height = 28
BevelKind = bkTile
BevelOuter = bvNone
Color = clWhite
ParentBackground = False
TabOrder = 0
object rg_situacaotel: TRadioGroup
Left = -4
Top = -15
Width = 352
Height = 43
Color = clWhite
Columns = 4
Items.Strings = (
'Ativo'
'Inativo'
'Todos'
'N'#227'o Inativos')
ParentBackground = False
ParentColor = False
TabOrder = 0
end
end
object Panel5: TPanel
Left = 16
Top = 57
Width = 345
Height = 28
BevelKind = bkTile
BevelOuter = bvNone
Color = clWhite
ParentBackground = False
TabOrder = 1
object rg_tptel: TRadioGroup
Left = -4
Top = -15
Width = 352
Height = 43
Color = clWhite
Columns = 4
Items.Strings = (
'Fixo'
'M'#243'vel'
'Ambos'
'Todos')
ParentBackground = False
ParentColor = False
TabOrder = 0
OnClick = rg_tptelClick
end
end
object Panel7: TPanel
Left = 16
Top = 92
Width = 345
Height = 28
BevelKind = bkTile
BevelOuter = bvNone
Color = clWhite
ParentBackground = False
TabOrder = 2
object rg_sms: TRadioGroup
Left = -4
Top = -15
Width = 352
Height = 43
Color = clWhite
Columns = 4
Enabled = False
Items.Strings = (
'SMS'
'Sem SMS'
'Ambos'
'Todos')
ParentBackground = False
ParentColor = False
TabOrder = 0
end
end
end
object cb_telefones: TCheckBox
Left = 441
Top = 6
Width = 127
Height = 17
Alignment = taLeftJustify
Caption = 'Rela'#231#227'o de Telefones:'
TabOrder = 6
OnClick = cb_telefonesClick
end
object gb_email: TGroupBox
Left = 432
Top = 145
Width = 377
Height = 61
TabOrder = 8
object Panel6: TPanel
Left = 16
Top = 21
Width = 345
Height = 28
BevelKind = bkTile
BevelOuter = bvNone
Color = clWhite
ParentBackground = False
TabOrder = 0
object rg_email: TRadioGroup
Left = -4
Top = -15
Width = 352
Height = 43
Color = clWhite
Columns = 4
Items.Strings = (
'Possui'
'N'#227'o Possui'
'Todos')
ParentBackground = False
ParentColor = False
TabOrder = 0
end
end
end
object cb_email: TCheckBox
Left = 441
Top = 143
Width = 127
Height = 17
Alignment = taLeftJustify
Caption = 'Rela'#231#227'o de Emails:'
TabOrder = 7
OnClick = cb_emailClick
end
object edt_nomeplanilha: TEdit
Left = 432
Top = 345
Width = 377
Height = 21
TabOrder = 9
end
object cb_reltitulos: TCheckBox
Left = 441
Top = 216
Width = 127
Height = 17
Alignment = taLeftJustify
Caption = 'Rela'#231#227'o de T'#237'tulos:'
TabOrder = 10
OnClick = cb_reltitulosClick
end
object dblulb_provs: TDBLookupComboBox
Left = 432
Top = 280
Width = 257
Height = 21
KeyField = 'ID_PROVIDENCIA'
ListField = 'TX_NOME'
ListSource = dtmSystem.dtsProvidencias
TabOrder = 11
end
object cb_retornaprov: TCheckBox
Left = 531
Top = 260
Width = 158
Height = 17
Alignment = taLeftJustify
Caption = 'Retornar provid'#234'ncia anterior'
TabOrder = 12
end
object btn_provs: TButton
Left = 695
Top = 276
Width = 114
Height = 25
Caption = 'Lan'#231'ar Provid'#234'ncias'
TabOrder = 13
OnClick = btn_provsClick
end
object dtsQuery: TDataSource
DataSet = roqryPesquisa
Left = 712
Top = 520
end
object roqryPesquisa: TZReadOnlyQuery
Connection = dtmSystem.ZConnection
Params = <>
Left = 712
Top = 576
end
object ppm_marcar: TPopupMenu
Left = 304
Top = 80
object MarcarTodos1: TMenuItem
Caption = 'Marcar Todos'
end
object DesmarcarTodos1: TMenuItem
Caption = 'Desmarcar Todos'
end
object N1: TMenuItem
Caption = '-'
end
end
object ppmnuFichaDev: TPopupMenu
Left = 184
Top = 78
object mnuEntrarnaFichadoDevedor: TMenuItem
Caption = 'Entrar na Ficha do Devedor'
OnClick = mnuEntrarnaFichadoDevedorClick
end
end
object ppmnuAcoes: TPopupMenu
Left = 136
Top = 536
end
end