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