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.
1118 lines
25 KiB
1118 lines
25 KiB
inherited cadCampanha: TcadCampanha
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'Cadastro de Campanhas'
|
|
ClientHeight = 673
|
|
ClientWidth = 860
|
|
Menu = mnuFiltro
|
|
OnMouseWheel = FormMouseWheel
|
|
OnShow = FormShow
|
|
ExplicitWidth = 866
|
|
ExplicitHeight = 722
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel [0]
|
|
Left = 155
|
|
Top = 389
|
|
Width = 100
|
|
Height = 13
|
|
Caption = 'Nome da Campanha:'
|
|
end
|
|
object sbx_filtro: TScrollBox [1]
|
|
Left = 3
|
|
Top = 19
|
|
Width = 350
|
|
Height = 358
|
|
HorzScrollBar.Range = 326
|
|
VertScrollBar.Position = 223
|
|
VertScrollBar.Range = 1080
|
|
AutoScroll = False
|
|
BevelInner = bvNone
|
|
BevelOuter = bvNone
|
|
ParentBackground = True
|
|
TabOrder = 10
|
|
OnMouseWheelDown = sbx_filtroMouseWheelDown
|
|
OnMouseWheelUp = sbx_filtroMouseWheelUp
|
|
object pnl_providências: TPanel
|
|
Left = 0
|
|
Top = 99
|
|
Width = 326
|
|
Height = 306
|
|
TabOrder = 0
|
|
object Label5: TLabel
|
|
Left = 9
|
|
Top = 277
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 151
|
|
Top = 277
|
|
Width = 19
|
|
Height = 13
|
|
Caption = 'At'#233':'
|
|
end
|
|
object cb_providencias: TCheckBox
|
|
Left = 8
|
|
Top = 4
|
|
Width = 105
|
|
Height = 17
|
|
Caption = 'Provid'#234'ncia:'
|
|
TabOrder = 0
|
|
OnClick = cb_providenciasClick
|
|
end
|
|
object clb_providencias: TCheckListBox
|
|
Left = 8
|
|
Top = 27
|
|
Width = 313
|
|
Height = 142
|
|
OnClickCheck = clb_providenciasClickCheck
|
|
Enabled = False
|
|
ItemHeight = 13
|
|
PopupMenu = ppm_marcar
|
|
TabOrder = 1
|
|
end
|
|
object pnl_filtroprov: TPanel
|
|
Left = 7
|
|
Top = 175
|
|
Width = 315
|
|
Height = 68
|
|
BevelKind = bkTile
|
|
BevelOuter = bvNone
|
|
Color = clWhite
|
|
ParentBackground = False
|
|
TabOrder = 2
|
|
object rg_filtroprov: TRadioGroup
|
|
Left = -3
|
|
Top = -15
|
|
Width = 321
|
|
Height = 82
|
|
Color = clWhite
|
|
Columns = 2
|
|
Items.Strings = (
|
|
'Contenha'
|
|
'N'#227'o contenha'
|
|
'Seja a '#218'ltima'
|
|
'Positivas'
|
|
'Negativas')
|
|
ParentBackground = False
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
OnClick = rg_filtroprovClick
|
|
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 = 174
|
|
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'
|
|
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 = 198
|
|
Top = 3
|
|
Width = 121
|
|
Height = 21
|
|
Enabled = False
|
|
TabOrder = 7
|
|
OnChange = edt_pprovChange
|
|
end
|
|
end
|
|
object pnl_beneficiarios: TPanel
|
|
Left = 0
|
|
Top = -223
|
|
Width = 326
|
|
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 = 180
|
|
Top = 198
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object Label14: TLabel
|
|
Left = 180
|
|
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 = 313
|
|
Height = 142
|
|
OnClickCheck = clb_beneficiariosClickCheck
|
|
Enabled = False
|
|
ItemHeight = 13
|
|
PopupMenu = ppm_marcar
|
|
TabOrder = 1
|
|
end
|
|
object edt_pcredor: TEdit
|
|
Left = 198
|
|
Top = 3
|
|
Width = 121
|
|
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 = 181
|
|
Top = 175
|
|
Width = 131
|
|
Height = 17
|
|
Caption = 'Vencimento do Credor:'
|
|
Enabled = False
|
|
TabOrder = 6
|
|
OnClick = cb_credorvencimentoClick
|
|
end
|
|
object dtp_credorvenc1: TDateTimePicker
|
|
Left = 203
|
|
Top = 194
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 7
|
|
end
|
|
object dtp_credorvenc2: TDateTimePicker
|
|
Left = 203
|
|
Top = 222
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 8
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 4
|
|
Top = 276
|
|
Width = 313
|
|
Height = 28
|
|
BevelKind = bkTile
|
|
BevelOuter = bvNone
|
|
Color = clWhite
|
|
ParentBackground = False
|
|
TabOrder = 9
|
|
object rg_credortptitulo: TRadioGroup
|
|
Left = -3
|
|
Top = -15
|
|
Width = 321
|
|
Height = 43
|
|
Color = clWhite
|
|
Columns = 3
|
|
Enabled = False
|
|
Items.Strings = (
|
|
'Todos'
|
|
'Abertos'
|
|
'Baixados')
|
|
ParentBackground = False
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object pnl_vencimento: TPanel
|
|
Left = -2
|
|
Top = 864
|
|
Width = 328
|
|
Height = 91
|
|
TabOrder = 2
|
|
Visible = False
|
|
object lbl_vencicomeco: TLabel
|
|
Left = 12
|
|
Top = 36
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object lbl_vencifim: TLabel
|
|
Left = 12
|
|
Top = 64
|
|
Width = 19
|
|
Height = 13
|
|
Caption = 'At'#233':'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 194
|
|
Top = 38
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 194
|
|
Top = 66
|
|
Width = 19
|
|
Height = 13
|
|
Caption = 'At'#233':'
|
|
end
|
|
object cb_vencimento: TCheckBox
|
|
Left = 12
|
|
Top = 6
|
|
Width = 121
|
|
Height = 17
|
|
Caption = 'Vencimento do T'#237'tulo:'
|
|
TabOrder = 0
|
|
OnClick = cb_vencimentoClick
|
|
end
|
|
object dtp_vencicomeco: TDateTimePicker
|
|
Left = 35
|
|
Top = 32
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 1
|
|
end
|
|
object dtp_vencifim: TDateTimePicker
|
|
Left = 35
|
|
Top = 60
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 2
|
|
end
|
|
object dtp_entradacomeco: TDateTimePicker
|
|
Left = 217
|
|
Top = 34
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 3
|
|
end
|
|
object dtp_entradafim: TDateTimePicker
|
|
Left = 217
|
|
Top = 62
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 4
|
|
end
|
|
object cb_entrada: TCheckBox
|
|
Left = 194
|
|
Top = 6
|
|
Width = 110
|
|
Height = 17
|
|
Caption = 'Entrada do T'#237'tulo:'
|
|
TabOrder = 5
|
|
OnClick = cb_entradaClick
|
|
end
|
|
end
|
|
object pnl_agendamento: TPanel
|
|
Left = -1
|
|
Top = 411
|
|
Width = 327
|
|
Height = 130
|
|
TabOrder = 3
|
|
object lbl_agendcomeco: TLabel
|
|
Left = 8
|
|
Top = 107
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object lbl_agendfim: TLabel
|
|
Left = 137
|
|
Top = 107
|
|
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
|
|
TabOrder = 1
|
|
end
|
|
object dtp_agendfim: TDateTimePicker
|
|
Left = 162
|
|
Top = 103
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
TabOrder = 2
|
|
end
|
|
object pnl_buttons: TPanel
|
|
Left = 8
|
|
Top = 27
|
|
Width = 312
|
|
Height = 70
|
|
BevelKind = bkTile
|
|
BevelOuter = bvNone
|
|
BiDiMode = bdLeftToRight
|
|
Color = clWhite
|
|
Enabled = False
|
|
ParentBiDiMode = False
|
|
ParentBackground = False
|
|
TabOrder = 3
|
|
object rb_todos: TRadioButton
|
|
Left = 5
|
|
Top = 4
|
|
Width = 60
|
|
Height = 17
|
|
Caption = 'Todos'
|
|
TabOrder = 0
|
|
OnClick = rb_todosClick
|
|
end
|
|
object rb_somente: TRadioButton
|
|
Left = 5
|
|
Top = 24
|
|
Width = 116
|
|
Height = 17
|
|
Caption = 'Somente Agendados'
|
|
TabOrder = 1
|
|
OnClick = rb_somenteClick
|
|
end
|
|
object rb_periodo: TRadioButton
|
|
Left = 5
|
|
Top = 44
|
|
Width = 138
|
|
Height = 17
|
|
Caption = 'Agendados no Per'#237'odo'
|
|
TabOrder = 2
|
|
OnClick = rb_periodoClick
|
|
end
|
|
object rb_vencido: TRadioButton
|
|
Left = 139
|
|
Top = 4
|
|
Width = 126
|
|
Height = 17
|
|
Caption = 'Agendamento Vencido'
|
|
TabOrder = 3
|
|
OnClick = rb_vencidoClick
|
|
end
|
|
object rb_naoincluir: TRadioButton
|
|
Left = 139
|
|
Top = 24
|
|
Width = 126
|
|
Height = 17
|
|
Caption = 'N'#227'o incluir Agendados'
|
|
TabOrder = 4
|
|
OnClick = rb_naoincluirClick
|
|
end
|
|
end
|
|
end
|
|
object pnl_ordem: TPanel
|
|
Left = 0
|
|
Top = 804
|
|
Width = 328
|
|
Height = 54
|
|
TabOrder = 4
|
|
object cb_saldocresc: TCheckBox
|
|
Left = 8
|
|
Top = 26
|
|
Width = 193
|
|
Height = 21
|
|
Caption = 'Ordem Crescente de saldo devedor'
|
|
TabOrder = 0
|
|
WordWrap = True
|
|
OnClick = cb_saldocrescClick
|
|
end
|
|
object cb_saldodesc: TCheckBox
|
|
Left = 8
|
|
Top = 8
|
|
Width = 205
|
|
Height = 17
|
|
Caption = 'Ordem Decrescente de saldo devedor'
|
|
TabOrder = 1
|
|
WordWrap = True
|
|
OnClick = cb_saldodescClick
|
|
end
|
|
end
|
|
object pnl_faixavalor: TPanel
|
|
Left = 1
|
|
Top = 547
|
|
Width = 326
|
|
Height = 62
|
|
TabOrder = 5
|
|
object lbl_faixain: TLabel
|
|
Left = 8
|
|
Top = 30
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object lbl_faixafim: TLabel
|
|
Left = 136
|
|
Top = 30
|
|
Width = 19
|
|
Height = 13
|
|
Caption = 'At'#233':'
|
|
end
|
|
object cb_faixavalor: TCheckBox
|
|
Left = 8
|
|
Top = 4
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Valor devido:'
|
|
TabOrder = 0
|
|
OnClick = cb_faixavalorClick
|
|
end
|
|
object edt_faixain: TEdit
|
|
Left = 31
|
|
Top = 27
|
|
Width = 99
|
|
Height = 21
|
|
Alignment = taRightJustify
|
|
Enabled = False
|
|
TabOrder = 1
|
|
Text = '0,00'
|
|
OnKeyPress = edt_faixainKeyPress
|
|
end
|
|
object edt_faixafim: TEdit
|
|
Left = 161
|
|
Top = 27
|
|
Width = 99
|
|
Height = 21
|
|
Alignment = taRightJustify
|
|
Enabled = False
|
|
TabOrder = 2
|
|
Text = '0,00'
|
|
OnKeyPress = edt_faixafimKeyPress
|
|
end
|
|
end
|
|
object pnl_alfabeto: TPanel
|
|
Left = 0
|
|
Top = 615
|
|
Width = 328
|
|
Height = 55
|
|
TabOrder = 6
|
|
object Label7: TLabel
|
|
Left = 7
|
|
Top = 29
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object Label8: TLabel
|
|
Left = 136
|
|
Top = 29
|
|
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 = 30
|
|
Top = 27
|
|
Width = 66
|
|
Height = 21
|
|
CharCase = ecUpperCase
|
|
MaxLength = 1
|
|
TabOrder = 1
|
|
Text = 'A'
|
|
OnKeyPress = edt_nomeinKeyPress
|
|
end
|
|
object edt_nomefim: TEdit
|
|
Left = 161
|
|
Top = 27
|
|
Width = 66
|
|
Height = 21
|
|
CharCase = ecUpperCase
|
|
MaxLength = 1
|
|
TabOrder = 2
|
|
Text = 'Z'
|
|
OnKeyPress = edt_nomefimKeyPress
|
|
end
|
|
end
|
|
object pnl_atraso: TPanel
|
|
Left = 0
|
|
Top = 676
|
|
Width = 328
|
|
Height = 55
|
|
TabOrder = 7
|
|
object Label9: TLabel
|
|
Left = 7
|
|
Top = 29
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 136
|
|
Top = 29
|
|
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
|
|
MaxLength = 1
|
|
NumbersOnly = True
|
|
TabOrder = 1
|
|
Text = '0'
|
|
OnChange = edt_atrasoinChange
|
|
end
|
|
object edt_atrasofim: TEdit
|
|
Left = 161
|
|
Top = 27
|
|
Width = 66
|
|
Height = 21
|
|
CharCase = ecUpperCase
|
|
MaxLength = 1
|
|
NumbersOnly = True
|
|
TabOrder = 2
|
|
Text = '999999'
|
|
OnChange = edt_atrasofimChange
|
|
end
|
|
end
|
|
object pnl_tipopessoa: TPanel
|
|
Left = 0
|
|
Top = 737
|
|
Width = 328
|
|
Height = 61
|
|
TabOrder = 8
|
|
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 = 313
|
|
Height = 28
|
|
BevelKind = bkTile
|
|
BevelOuter = bvNone
|
|
Color = clWhite
|
|
ParentBackground = False
|
|
TabOrder = 1
|
|
object rg_tipopessoa: TRadioGroup
|
|
Left = -3
|
|
Top = -15
|
|
Width = 321
|
|
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
|
|
object pnl_titulo: TPanel
|
|
Left = 0
|
|
Top = 1163
|
|
Width = 328
|
|
Height = 61
|
|
TabOrder = 9
|
|
Visible = False
|
|
object cb_titulo: TCheckBox
|
|
Left = 8
|
|
Top = 4
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Tipo de t'#237'tulo:'
|
|
TabOrder = 0
|
|
OnClick = cb_tituloClick
|
|
end
|
|
object Panel5: TPanel
|
|
Left = 8
|
|
Top = 25
|
|
Width = 313
|
|
Height = 28
|
|
BevelKind = bkTile
|
|
BevelOuter = bvNone
|
|
Color = clWhite
|
|
ParentBackground = False
|
|
TabOrder = 1
|
|
object rg_titulo: TRadioGroup
|
|
Left = -3
|
|
Top = -15
|
|
Width = 321
|
|
Height = 43
|
|
Color = clWhite
|
|
Columns = 3
|
|
Enabled = False
|
|
Items.Strings = (
|
|
'Todos'
|
|
'Abertos'
|
|
'Baixados')
|
|
ParentBackground = False
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object pnl_cobradores: TPanel
|
|
Left = -2
|
|
Top = 961
|
|
Width = 328
|
|
Height = 196
|
|
TabOrder = 10
|
|
Visible = False
|
|
object clb_usuarios: TCheckListBox
|
|
Left = 8
|
|
Top = 27
|
|
Width = 315
|
|
Height = 160
|
|
OnClickCheck = clb_usuariosClickCheck
|
|
Enabled = False
|
|
ItemHeight = 13
|
|
TabOrder = 0
|
|
end
|
|
object cb_cobradores: TCheckBox
|
|
Left = 8
|
|
Top = 4
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Usu'#225'rios:'
|
|
Enabled = False
|
|
TabOrder = 1
|
|
OnClick = cb_cobradoresClick
|
|
end
|
|
object edt_puser: TEdit
|
|
Left = 200
|
|
Top = 3
|
|
Width = 121
|
|
Height = 21
|
|
Enabled = False
|
|
TabOrder = 2
|
|
OnChange = edt_puserChange
|
|
end
|
|
end
|
|
end
|
|
inherited stbStatus: TStatusBar
|
|
Top = 654
|
|
Width = 860
|
|
ExplicitTop = 654
|
|
ExplicitWidth = 860
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 359
|
|
Top = 18
|
|
Width = 288
|
|
Height = 190
|
|
TabOrder = 1
|
|
object Label2: TLabel
|
|
Left = 8
|
|
Top = 8
|
|
Width = 126
|
|
Height = 13
|
|
Caption = 'Cobradores da Campanha:'
|
|
end
|
|
object clb_cobradores: TCheckListBox
|
|
Left = 8
|
|
Top = 27
|
|
Width = 273
|
|
Height = 152
|
|
OnClickCheck = clb_cobradoresClickCheck
|
|
ItemHeight = 13
|
|
PopupMenu = ppm_marcar
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object btn_cancel: TButton
|
|
Left = 573
|
|
Top = 384
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 3
|
|
OnClick = btn_cancelClick
|
|
end
|
|
object btn_ok: TButton
|
|
Left = 492
|
|
Top = 384
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Ok'
|
|
Enabled = False
|
|
ModalResult = 1
|
|
TabOrder = 4
|
|
OnClick = btn_okClick
|
|
end
|
|
object edt_nomecamp: TEdit
|
|
Left = 259
|
|
Top = 386
|
|
Width = 230
|
|
Height = 21
|
|
TabOrder = 5
|
|
end
|
|
object pnl_qntdevedores: TPanel
|
|
Left = 359
|
|
Top = 254
|
|
Width = 288
|
|
Height = 36
|
|
TabOrder = 6
|
|
object lbl_qntdevedores: TLabel
|
|
Left = 8
|
|
Top = 12
|
|
Width = 82
|
|
Height = 16
|
|
Caption = 'Devedores:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
end
|
|
object pnl_qnttitulos: TPanel
|
|
Left = 359
|
|
Top = 298
|
|
Width = 288
|
|
Height = 36
|
|
TabOrder = 7
|
|
object lbl_qnttitulos: TLabel
|
|
Left = 8
|
|
Top = 12
|
|
Width = 52
|
|
Height = 16
|
|
Caption = 'T'#237'tulos:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
end
|
|
object pnl_valorestitulos: TPanel
|
|
Left = 359
|
|
Top = 341
|
|
Width = 288
|
|
Height = 36
|
|
TabOrder = 8
|
|
object lbl_valorestitulos: TLabel
|
|
Left = 8
|
|
Top = 12
|
|
Width = 41
|
|
Height = 16
|
|
Caption = 'Total:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
end
|
|
object Panel4: TPanel
|
|
Left = 359
|
|
Top = 214
|
|
Width = 288
|
|
Height = 34
|
|
TabOrder = 9
|
|
object cb_campativa: TCheckBox
|
|
Left = 8
|
|
Top = 9
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Campanha ativa'
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object pnl_escolhefiltro: TPanel
|
|
Left = 653
|
|
Top = 18
|
|
Width = 199
|
|
Height = 633
|
|
TabOrder = 11
|
|
object dbgrd_filtro: TDBGrid
|
|
Left = 3
|
|
Top = 5
|
|
Width = 192
|
|
Height = 625
|
|
DataSource = dtsFiltros
|
|
Options = [dgTitles, dgColLines, dgTabs, dgConfirmDelete]
|
|
PopupMenu = ppmnuDeletar
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
OnCellClick = dbgrd_filtroCellClick
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_NOME_FILTRO'
|
|
Title.Caption = 'Nome'
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|
|
object pnl_txt: TPanel
|
|
Left = 8
|
|
Top = 411
|
|
Width = 640
|
|
Height = 22
|
|
BevelKind = bkSoft
|
|
TabOrder = 12
|
|
end
|
|
object mem_desc: TMemo
|
|
Left = 653
|
|
Top = 0
|
|
Width = 199
|
|
Height = 17
|
|
Enabled = False
|
|
Lines.Strings = (
|
|
'mem_desc')
|
|
TabOrder = 13
|
|
Visible = False
|
|
end
|
|
object dbgrd_camp: TDBGrid
|
|
Left = 8
|
|
Top = 439
|
|
Width = 639
|
|
Height = 209
|
|
DataSource = dtsCadCampanha
|
|
PopupMenu = ppmnuAcoesExtras
|
|
TabOrder = 14
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
OnTitleClick = dbgrd_campTitleClick
|
|
end
|
|
object btn_pesquisa: TButton
|
|
Left = 8
|
|
Top = 383
|
|
Width = 93
|
|
Height = 25
|
|
Caption = 'Pesquisar'
|
|
TabOrder = 2
|
|
OnClick = btn_pesquisaClick
|
|
end
|
|
object ppm_marcar: TPopupMenu
|
|
OnPopup = ppm_marcarPopup
|
|
Left = 256
|
|
Top = 80
|
|
object MarcarTodos1: TMenuItem
|
|
Caption = 'Marcar Todos'
|
|
OnClick = MarcarTodos1Click
|
|
end
|
|
object DesmarcarTodos1: TMenuItem
|
|
Caption = 'Desmarcar Todos'
|
|
OnClick = DesmarcarTodos1Click
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
end
|
|
object dtsCadCampanha: TDataSource
|
|
DataSet = queryCampanha
|
|
Left = 312
|
|
Top = 481
|
|
end
|
|
object queryCampanha: TZQuery
|
|
Connection = dtmSystem.ZConnection
|
|
Params = <>
|
|
Left = 408
|
|
Top = 481
|
|
end
|
|
object dtsQueryRel: TDataSource
|
|
DataSet = queryRel
|
|
Left = 312
|
|
Top = 529
|
|
end
|
|
object queryRel: TZQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select first 0 * from chg_historico;')
|
|
Params = <>
|
|
Left = 408
|
|
Top = 529
|
|
end
|
|
object mnuFiltro: TMainMenu
|
|
OwnerDraw = True
|
|
Left = 175
|
|
Top = 3
|
|
object Filtrodepesquisa1: TMenuItem
|
|
Caption = 'Filtro de pesquisa'
|
|
object Novofiltro1: TMenuItem
|
|
Caption = 'Novo filtro'
|
|
OnClick = Novofiltro1Click
|
|
end
|
|
object Salvarfiltro1: TMenuItem
|
|
Caption = 'Salvar filtro'
|
|
OnClick = Salvarfiltro1Click
|
|
end
|
|
end
|
|
object Relatrio1: TMenuItem
|
|
Caption = 'Relat'#243'rio'
|
|
object Gerarplanilha1: TMenuItem
|
|
Caption = 'Exportar campanha para planilha'
|
|
OnClick = Gerarplanilha1Click
|
|
end
|
|
end
|
|
end
|
|
object dtsFiltros: TDataSource
|
|
DataSet = dtmSystem.tblFiltros
|
|
Left = 701
|
|
Top = 32
|
|
end
|
|
object ppmnuDeletar: TPopupMenu
|
|
Left = 709
|
|
Top = 114
|
|
object ApagarFiltro1: TMenuItem
|
|
Caption = 'Apagar Filtro'
|
|
OnClick = ApagarFiltro1Click
|
|
end
|
|
end
|
|
object ppmnuAcoesExtras: TPopupMenu
|
|
Left = 196
|
|
Top = 525
|
|
object mnuMassprov: TMenuItem
|
|
Caption = 'Lan'#231'ar Provid'#234'ncia em Massa'
|
|
Visible = False
|
|
OnClick = mnuMassprovClick
|
|
end
|
|
object mnuFichaDev: TMenuItem
|
|
Caption = 'Ficha do Devedor'
|
|
OnClick = mnuFichaDevClick
|
|
end
|
|
end
|
|
object ZSQLProcessor: TZSQLProcessor
|
|
Params = <>
|
|
Connection = dtmSystem.ZConnection
|
|
Delimiter = ';'
|
|
Left = 500
|
|
Top = 477
|
|
end
|
|
end
|