Pesquisa Paginação Diferente!

renan mariano costa · Maio 17, 2010

Estou tentando ajudar um amigo com a paginação e com a pesquiza feita por ele, so que infelizm,ente não encontro solução

vamos lah deixa eu explicar

a pagina da pesquiza esta desta maneira

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
    <form id="frm_clientes" name="frm_clientes" method="post" action="?Action={{acao_formulario}}&time={{time}}">
   				<input type="hidden" name="filtro" value="ativar">
				<input type="hidden" name="filtro_ordenar" value="{{Ordenar}}" >
				<input type="hidden" name="filtro_ordenar_sentido" value="{{OrdenarSentido}}">
				<input type="hidden" name="filtro_pgn" value="{{Pgn}}">        
             	<input type="hidden" name="e" value="">            
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="12"><img src="img/caixas/canto_esq_cima.gif" width="12" height="12" /></td>
          <td background="img/caixas/topo_meio.gif"></td>          
          <td width="12"><img src="img/caixas/canto_direito_cima.gif" width="12" height="12" /></td>
        </tr>
        <tr>
          <td width="12" valign="top" class="fundo_linha_esq"> </td>
          <td valign="top" class="fundo_miolo"><br>
          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
                  <td class="titulo_h4"><table width="100%" border="0" cellspacing="1" cellpadding="1">
                      <tr>
                        <td width="70%"><img src="img/botoes/cliente_pesquisar.gif" width="35" height="35" /> <span class="style1">Pesquisa de Clientes</span></td>
                        <td width="30%" align="right" valign="middle"s="s"><img src="img/botoes/Shutdown.gif" border="0" width="20" height="20"/> <a href="gt_Logout.asp" target="_parent" class="titulo_h1">Sair</a></td>
                      </tr>
                    </table></td>
                </tr>       
 		 <tr>
                  <td height="20" align="left">
                    <table width="100%" border="0" cellspacing="1" cellpadding="0">
                      <tr>
                        <td colspan="7"> </td>
                      </tr>
                      <tr>
                        <td colspan="7" align="center">{{str_Mensagem}}</td>
                      </tr>
                      <tr>
                        <td colspan="7"> </td>
                      </tr>
                      <tr>
                        <td class="td">Nº Contrato </td>
                        <td> </td>
                        <td align="left"><input name="txt_filtro_contrato" type="text" class="input_cad_usuarios_b" id="txt_filtro_contrato" value="{{txt_filtro_contrato}}" /></td>
                        <td> </td>
                        <td class="td">Data da Venda </td>
                        <td> </td>
                        <td><input name="txt_filtro_contrato_dataA" type="text" class="input_cad_usuarios_b" id="txt_filtro_contrato_dataA" value="{{txt_filtro_contrato_dataA}}" /> <strong> até</strong> 
                        <input name="txt_filtro_contrato_dataB" type="text" class="input_cad_usuarios_b" id="txt_filtro_contrato_dataB" value="{{txt_filtro_contrato_dataB}}" /></td>
                      </tr>
                      <tr>
                        <td class="td">Razão Social </td>
                        <td> </td>
                        <td align="left"><input name="txt_filtro_razao" type="text" class="input_cad_usuarios_a" id="txt_filtro_razao" value="{{txt_filtro_razao}}" /></td>
                        <td> </td>
                        <td class="td">Autorizante </td>
                        <td> </td>
                        <td><input name="txt_filtro_autorizante" type="text" class="input_cad_usuarios_a" id="txt_filtro_autorizante" value="{{txt_filtro_autorizante}}"/></td>
                      </tr>
                      <tr>
                        <td class="td">Nome Fantasia </td>
                        <td> </td>
                        <td align="left"><input name="txt_filtro_fantasia" type="text" class="input_cad_usuarios_a" id="txt_filtro_fantasia" value="{{txt_filtro_fantasia}}" /></td>
                        <td> </td>
                        <td class="td">Estado </td>
                        <td> </td>
                        <td><input name="txt_filtro_estado" type="text" class="input_cad_usuarios_b" id="txt_filtro_estado" value="{{txt_filtro_estado}}"/></td>
                      </tr>
                      <tr>
                        <td class="td">CNPJ / CPF </td>
                        <td> </td>
                        <td align="left"><input name="txt_filtro_cnpj" type="text" class="input_cad_usuarios_b" id="txt_filtro_cnpj" value="{{txt_filtro_cnpj}}" /></td>
                        <td> </td>
                        <td class="td">Cidade </td>
                        <td> </td>
                        <td><input name="txt_filtro_cidade" type="text" class="input_cad_usuarios_a" id="txt_filtro_cidade" value="{{txt_filtro_cidade}}"/></td>
                      </tr>
                      <tr>
                        <td class="td">Operador de Cobrança </td>
                        <td> </td>
                        <td align="left">
			<select name="slc_operador_cobranca" class="input_cad_usuarios_a" id="slc_operador_cobranca" tabindex="50">
                           <option value="">Selecione...</option>
                          <!-- BEGIN lista_operador_cobranca -->
                         <option value="{{opt_operador_cobranca_value}}" {{opt_operador_cobranca_default}}>{{opt_operador_cobranca_text}}</option>
                          <!-- END lista_operador_cobranca -->
                        </select></td>
                        <td> </td>
                        <td class="td">CEP </td>
                        <td> </td>
                        <td><input name="txt_filtro_cep" type="text" class="input_cad_usuarios_b" id="txt_filtro_cep" value="{{txt_filtro_cep}}"/></td>
                      </tr>
                      <tr>
                        <td class="td">Operador de Vendas </td>
                        <td> </td>
                        <td align="left"><select name="slc_operador_vendas" class="input_cad_usuarios_a" id="slc_operador_vendas" tabindex="50">
                          <option value="">Selecione...</option>
                          <!-- BEGIN lista_operador_vendas -->
                          <option value="{{opt_operador_vendas_value}}" {{opt_operador_vendas_default}}>{{opt_operador_vendas_text}}</option>
                          <!-- END lista_operador_vendas -->
                        </select></td>
                        <td> </td>
                        <td class="td">Status </td>
                        <td> </td>
                        <td>
                     
                        <select name="slc_filtro_status" class="input_cad_usuarios_b" id="slc_filtro_status">
                          <option value="" {{opt_filtro_t}}>Todos</option>
                          <option value="A" {{opt_filtro_a}}>Ativado</option>
                          <option value="D" {{opt_filtro_d}}>Desativado</option>
                        </select></td>
                      </tr>
                      <tr>
                        <td height="20" colspan="7"> </td>
                      </tr>
                      <tr>
                        <td width="15%" class="td2">Ordernar por </td>
                        <td width="1%"> </td>
                        <td width="32%" align="left"><select name="slc_ordenacao" class="input_cad_usuarios_b" id="slc_ordenacao">
                          <option value="RAZAOSOCIAL" {{opt_ordernar_RAZAOSOCIAL}}>Razão Social</option>
                          <option value="CODIGO" {{opt_ordernar_CODIGO}}>Codigo</option>                          
                          <option value="NOME" {{opt_ordernar_NOME}}>Nome Fantasia</option>
                          <option value="CNPJ" {{opt_ordernar_CNPJ}}>Cnpj</option>
                          <option value="CONTRATO" {{opt_ordernar_CONTRATO}}>Contrato</option>
                          <option value="DATACONTRATO" {{opt_ordernar_DATACONTRATO}}>Data Venda</option>
                          <option value="DATA" {{opt_ordernar_DATA}}>Data de Cadastro</option>
                          <option value="CIDADE" {{opt_ordernar_CIDADE}}>Cidade</option>
                        </select></td>
                        <td width="5%"> </td>
                        <td width="15%" class="td2">Ordem </td>
                        <td width="1%"> </td>
                        <td width="32%">
                        <select name="slc_ordem" class="input_cad_usuarios_b" id="slc_ordem">
                          <option value="ASC" {{opt_ordem_CODIGO}}>Crescente</option>
                          <option value="DESC" {{opt_ordem_DATA}}>Decrescente</option>
                        </select>                        </td>
                      </tr>
                      <tr>
                        <td> </td>
                        <td> </td>
                        <td align="left"> </td>
                        <td> </td>
                        <td> </td>
                        <td> </td>
                        <td><table width="35" border="0" align="right" cellpadding="0" cellspacing="0">
                          <tr>
                            <td width="701" valign="top"><div align="center">
                              <input type="image" src="img/botoes/bot_pesquisar3.gif" width="35" height="35" border="0" />
                            </div></td>
                          </tr>
                        </table></td>
                      </tr>
                      <tr>
                        <td  colspan="7"><table width="100%" border="0" align="right" cellpadding="0" cellspacing="1">
                          <tr>
                            <td width="701" valign="top" class="titulo_h1">Total de Clientes Cadastrados: <span class="style1">{{total_clientes}}</span></td>
                            </tr>
                        </table></td>
                      </tr>
                      <tr>
                        <td colspan="7"> </td>
                      </tr>
                      <tr>
                        <td colspan="8"><table width="100%" border="0" cellspacing="2" cellpadding="0" id="grid">
                          <tr align="center">
                            <td width="52" align="left" class="tabela_titulo">Cód</td>
                            <td width="92" align="left" class="tabela_titulo">Dt da Venda </td>
                            <td width="92" align="left" class="tabela_titulo">Nº Contrato</td>
                            <td width="296" align="left" class="tabela_titulo">Razão Social</td>
                            <td width="297" align="left" class="tabela_titulo">Fantasia</td>                            
                            <td width="129" class="tabela_titulo" align="left">Cnpj</td>
                            <td width="52" class="tabela_titulo" align="left">Status</td>
                            <td width="134" class="tabela_titulo" align="center">Comandos</td>
                          </tr>
						  <!-- BEGIN listagem_dados -->
                          <tr>
                            <td class="{{estilo_dados}}" align="center">{{codigo}}</td>
                            <td class="{{estilo_dados}}" align="center">{{data_cadastro}}</td>
                            <td width="92" align="center" class="{{estilo_dados}}">{{contrato}}</td>
                            <td width="296" align="left" class="{{estilo_dados}}"> {{razao_social}}</td>
                            <td width="297" align="left" class="{{estilo_dados}}"> {{nome_fantasia}}</td>                            
                            <td width="129" class="{{estilo_dados}}" align="left"> {{cnpj}}</td>
                            <td width="52" class="{{estilo_dados}}" align="center">{{status}}</td>
                            <td width="134" class="{{estilo_dados}}" align="center"><a href="gt_clientes.asp?Action=Editar&id={{codigo}}"><img src="img/icones/ico_editar2.gif" width="20" height="20" border="0" alt="Editar Contrato" title="Editar Contrato"/></a> <a href="gt_clientes.asp?Action=FotosListar&id={{codigo}}"><img src="img/icones/ico_foto.gif" width="20" height="20" border="0" alt="Album de Fotos" title="Album de Fotos"/></a> <!--<a href="gt_clientes.asp?Action=AlbumVideo&id={{codigo}}"><img src="img/icones/ico_video.gif" width="20" height="20" border="0"/></a>--> <a href="#"><img src="img/icones/log_user.gif" alt="Log de Usuário" width="20" height="20" border="0" title="Log de Usuário"/></a> <a href="gt_clientes.asp?Action=Excluir&id={{codigo}}"><img src="img/icones/ico_excluir.gif" width="20" height="20" border="0" alt="Excluir Anunciante" title="Excluir Anunciante"/></a></td>
                          </tr>
						  <!-- END listagem_dados -->                         
                        </table></td>
                      </tr>
                      <tr>
                        <td height="20" colspan="7"> </td>
                      </tr>
                      <tr>
                      </form>
                        <td colspan="7" align="center">{{pags}}</td>

a listagem chamada pela action esta em um documento chamdo gt_cliente.asp

e esta assim

Sub Listagem(str_msg)

	Set tpl_Pagina = New clsASPTemplate
	tpl_Pagina.SetTemplateFile "\Cliente_listagem.htm"
	
	cfgPgnQtdReg = 30
	NView = "gt_clientes.asp"
	FormFiltro = "frm_clientes"
 	
  
 	Set Clientes = new cls_Anunciantes
	ListaRegQtd = Clientes.ListarDadosADM("iOffice",0,0,"",Request.Form,"QTD",0,0,0,Request("slc_ordenacao"),Request("slc_ordem"))	
	tpl_Pagina.SetVariable "total_clientes", ListaRegQtd
	
	'Calculo de Paginacao
	If Request.Form("filtro_pgn") <> "" Then
		Pgn = CInt(Request.Form("filtro_pgn"))
	Else
		Pgn = CInt(Request.QueryString("pgn"))
	End If
						
	If IsNull(Pgn) Or Pgn = 0 Then
		Pgn = 1
	End If
		
	PgnQtdReg = CInt(0)
	
	If IsNull(PgnQtdReg) Or PgnQtdReg = 0 Then
		PgnQtdReg = cfgPgnQtdReg
	End If

	
	If (ListaRegQtd Mod PgnQtdReg) > 0 Then
		PgnQtd = Int((ListaRegQtd / PgnQtdReg) + 1)
	Else
		PgnQtd = Int((ListaRegQtd / PgnQtdReg))
	End if
	
	''status
	If Len(Request("slc_filtro_status")) = 0 OR isnull(Request("slc_filtro_status")) = true Then
		slc_filtro_status = 0 
	else
		slc_filtro_status = Request ("slc_filtro_status")
	End If
		 
	Set StatusTeste = new cls_Anunciantes
	ListaRegQtd = Clientes.ListarDadosADM("",0,0,"",Request.Form,"QTD",0,0,0,Request("slc_ordenacao"),Request("slc_ordem"))	
	
	tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"),"Selected"	
	tpl_Pagina.SetVariable "slc_filtro_status",""
	tpl_Pagina.ParseBlock "lista_status"
	
		IF ListaStatus > 0 then
			ListaStatus = Clientes.ListarDadosADM("",0,0,"",Request.Form,"QTD",0,0,0,Request("slc_ordenacao"),Request("slc_ordem"))	
			
			tpl_Pagina.UpdateBlock "lista_status"
			
			For i=Lbound(ListaStatus) to Ubound (ListaStatus)
			
				If int(ListaStatus(i).CodStatus) = int(slc_filtro_status) Then
				tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"),"Selected"
				else
				tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"),""
				End if
			
				tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"), ListaStatus(i).CodStatus
				tpl_Pagina.SetVariable "slc_filtro_status", ListaStatus(i).NomeStatus					
				tpl_Pagina.ParseBlock "lista_status"
			Next
			
		else
			tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"),""
			tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"), "Sem itens cadastrados"			
		End If
	
	'operador de cobrança
	If Len(Request("slc_operador_cobranca")) = 0 OR isnull(Request("slc_operador_cobranca")) = true Then
		slc_operador_cobranca = 0
	else
		slc_operador_cobranca = Request("slc_operador_cobranca")
	End If
	

	'//Combo de Operadores Cobrança
		'Combo	Operador de Cobrança
	Set Usuarios = new cls_Usuarios
		ListaRegQtdUser = Usuarios.ListarDados(14,"Site",Request.Form,"QTD",0,0,0,"Nome","ASC")
		
		tpl_Pagina.SetVariable "opt_operador_cobranca_value", ""
		tpl_Pagina.SetVariable "opt_operador_cobranca_text", "Selecione Um"
		tpl_Pagina.ParseBlock "lista_operador_cobranca"
				
		If ListaRegQtdUser > 0 Then
			ListaRegUser = Usuarios.ListarDados(14,"Site",Request.Form,"REG",0,0,0,"Nome","ASC")
			
			tpl_Pagina.UpdateBlock "lista_operador_cobranca"
			
			For i=Lbound(ListaRegUser) to Ubound(ListaRegUser)
				
				If int(ListaRegUser(i).CodUsuario) = int(slc_operador_cobranca) Then
					tpl_Pagina.SetVariable "opt_operador_cobranca_default", "selected"
				else
					tpl_Pagina.SetVariable "opt_operador_cobranca_default", ""
				End if
			
				tpl_Pagina.SetVariable "opt_operador_cobranca_value", ListaRegUser(i).CodUsuario
				tpl_Pagina.SetVariable "opt_operador_cobranca_text", ListaRegUser(i).NomeUsuario					
				tpl_Pagina.ParseBlock "lista_operador_cobranca"
			Next
			
		else
			tpl_Pagina.SetVariable "opt_operador_cobranca_value",""
			tpl_Pagina.SetVariable "opt_operador_cobranca_text", "Sem itens cadastrados"			
		End If
		
	'operador de vendas
	If Len(Request("slc_operador_vendas")) = 0 OR isnull(Request("slc_operador_vendas")) = true Then
		slc_operador_vendas = 0
	else
		slc_operador_vendas = Request("slc_operador_vendas")
	End If			
		
	'//Combo de Operadores Vendas
		'Combo	Operador de Vendas
	Set Usuarios_Vendas = new cls_Usuarios
		ListaRegQtdUser = Usuarios_Vendas.ListarDados(15,"Site",Request.Form,"QTD",0,0,0,"Nome","ASC")
		
		tpl_Pagina.SetVariable "opt_operador_vendas_value", ""
		tpl_Pagina.SetVariable "opt_operador_vendas_text", "Selecione Um"
		tpl_Pagina.ParseBlock "lista_operador_vendas"
				
		If ListaRegQtdUser > 0 Then
			ListaRegUser = Usuarios_Vendas.ListarDados(15,"Site",Request.Form,"REG",0,0,0,"Nome","ASC")
			
			tpl_Pagina.UpdateBlock "lista_operador_vendas"
			
			For i=Lbound(ListaRegUser) to Ubound(ListaRegUser)
				
				If int(ListaRegUser(i).CodUsuario) = int(slc_operador_vendas) Then
					tpl_Pagina.SetVariable "opt_operador_vendas_default", "selected"
				else
					tpl_Pagina.SetVariable "opt_operador_vendas_default", ""
				End if
			
				tpl_Pagina.SetVariable "opt_operador_vendas_value", ListaRegUser(i).CodUsuario
				tpl_Pagina.SetVariable "opt_operador_vendas_text", ListaRegUser(i).NomeUsuario					
				tpl_Pagina.ParseBlock "lista_operador_vendas"
			Next
			
		else
			tpl_Pagina.SetVariable "opt_operador_vendas_value",""
			tpl_Pagina.SetVariable "opt_operador_vendas_text", "Sem itens cadastrados"			
		End If		
	
	
	'Fazendo a Listagem de Clientes
	
	If ListaRegQtd > 0 Then
	
		ListaReg = Clientes.ListarDadosADM("iOffice",0,0,"",Request.Form,"REG",1,Pgn,PgnQtdReg,Request("slc_ordenacao"),Request("slc_ordem"))
		
			tpl_Pagina.UpdateBlock "listagem_dados"
		
		For i=0 to Ubound(ListaReg)

			If Zebra = true Then
				css_linha = "tabela_linha_1"
				Zebra=false
			Else
				css_linha = "tabela_linha_2"
				Zebra = True
			End if
	
			' impreção na tela
			tpl_Pagina.SetVariable "codigo", ListaReg(i).CodAnunciante
			tpl_Pagina.SetVariable "data_cadastro", ListaReg(i).ContratoData
			tpl_Pagina.SetVariable "contrato", ListaReg(i).Contrato
			tpl_Pagina.SetVariable "razao_social", ListaReg(i).RazaoSocial
			tpl_Pagina.SetVariable "nome_fantasia", ListaReg(i).NomeFantasia
			
			'=resumindo(ListaDormir(xi).Informacao,145)
			
			If ListaReg(i).Pessoa = "J" Then 
				documento = FCnpj2Vis(ListaReg(i).Cnpj)
			ElseIf ListaReg(i).Pessoa = "F" Then 
				documento = FCpf2Vis(ListaReg(i).Cnpj)
			Else
				documento = ListaReg(i).Cnpj
			End if				
			
		
			
			
			If ListaReg(i).Status = "A" Then
				documento2 = "<img src=""http://www.turismolocal.com.br/site/gt.system/asp/img/botoes/b_Good.gif"" Alt=""Esta no Site - Ativado"" Title=""Esta no Site - Ativado"" />"
		ElseIf ListaReg(i).Status = "D" Then 
				documento2 = "<img src=""http://www.turismolocal.com.br/site/gt.system/asp/img/botoes/b_Error.gif"" Alt=""Não Esta no Site - Desativado"" Title=""Não Esta no Site - Desativado""/>"
			Else
				documento2 = ListaReg(i).Status
			End If
						
			tpl_Pagina.SetVariable "cnpj", documento
			tpl_Pagina.SetVariable "status", documento2			
			'tpl_Pagina.SetVariable "status", ListaReg(i).Status			
			tpl_Pagina.ParseBlock "listagem_dados"
			' fim da impressão na tela
					
		Next
		' Ordenação
		tpl_Pagina.SetVariable "Ordenar", "Codigo"
		tpl_Pagina.SetVariable "OrdenarSentido", "DESC"
		tpl_Pagina.SetVariable "Pgn", Pgn
		tpl_Pagina.SetVariable "pags", ""& Paginacao(FormFiltro, Ordenar, OrdenarSentido, Pgn, PgnQtd)
			
	
	Else
	
			tpl_Pagina.SetVariable "codigo", ""
			tpl_Pagina.SetVariable "data_cadastro", ""
			tpl_Pagina.SetVariable "razao_social", ""
			tpl_Pagina.SetVariable "nome_fantasia", ""			
			tpl_Pagina.SetVariable "cnpj", ""
			tpl_Pagina.SetVariable "status",""
			tpl_Pagina.SetVariable "Ordenar", Ordenar
			tpl_Pagina.SetVariable "OrdenarSentido", OrdenarSentido
			tpl_Pagina.SetVariable "Pgn", "1"		
			tpl_Pagina.SetVariable "pags", "-"
			tpl_Pagina.ParseBlock "listagem_dados"			
					
	End If
	'fim da ordenação
	
	'Busca valores
	tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"),"Selected"		
	tpl_Pagina.SetVariable "opt_ordernar_"& Request("slc_ordenacao"),"Selected"	
	tpl_Pagina.SetVariable "opt_ordem_"& Request("slc_ordem"),"Selected"	
	tpl_Pagina.SetVariable "txt_filtro_cnpj",""& Request("txt_filtro_cnpj")
	tpl_Pagina.SetVariable "txt_filtro_razao",""& Request("txt_filtro_razao")
	tpl_Pagina.SetVariable "txt_filtro_fantasia",""& Request("txt_filtro_fantasia")
	tpl_Pagina.SetVariable "txt_filtro_contrato",""& Request("txt_filtro_contrato")
	tpl_Pagina.SetVariable "txt_filtro_contrato_data",""& Request("txt_filtro_contrato_data")
	tpl_Pagina.SetVariable "txt_filtro_cep",""& Request("txt_filtro_cep")
	tpl_Pagina.SetVariable "txt_filtro_autorizante",""& Request("txt_filtro_autorizante")		
	tpl_Pagina.SetVariable "acao_formulario","Listagem"
	tpl_Pagina.SetVariable "time",time()
	tpl_Pagina.SetVariable "str_Mensagem", ""& str_msg	
	strParse = tpl_Pagina.GetOutput()
	'fim da busca de valores
End Sub

e tem a calsse onde estão os paramentros de busca clsAnuncientes.class.asp


Public Function ListarDadosADM(pOrigem, pCategoria, pDestino, pDestaque, pFiltro, pRetorno, pLimitar, pPgn, pPgnQtdReg, pOrdenar, pOrdenarSentido)
				
				'// Declaração das Variaveis
				Dim Sql, i, Param, Ordenar, OrdenarSentido, Rs, ListaRegQtd, ListaReg()
																
				'// Sql de Busca
				Sql = " SELECT A.*,c.dteVigencia_Inicio, c.strNumero_Contrato "
				Sql = Sql & " FROM " & BDPrfx & "_TB_ANUNCIANTES A Left Outer Join " & BDPrfx & "_TB_CONTRATOS C "
				Sql = Sql & " ON A.intCodigo_Anunciante=C.intCodigo_Anunciante "
								
				'// Parâmetros de busca.				
				Param = " A.intCodigo_Anunciante > 0 "
				
				If pCategoria > 0 Then
					Param = Param & " AND A.intCodigo_Categoria='" & pCategoria & "' "
				End if
				
				If pDestino > 0 Then
					Param = Param & " AND A.intCodigo_Destino='" & pDestino & "' "
				End if
				
				If len(pDestaque) > 0 Then
					 Param = Param & " AND A.flgStatus = '" & pFiltro("slc_filtro_status") & "' "
				'	Param = Param & " AND A.flghome='" & pDestaque & "' "
				End if
				
				If Ucase(pOrigem) = Ucase("Site") Then
					Param = Param & " AND A.flgStatus='A' "
				End if
				
				'// Nome Fantasia 
				If Not IsNull(pFiltro("txt_pesq_nome")) And pFiltro("txt_pesq_nome") <> "" Then
					Param = Param & " AND ((A.strNome like '%" & PesquisaPalavra(replace(pFiltro("txt_pesq_nome"),"'","´")) & "%') OR  (A.strRazao_Social like '%" &  PesquisaPalavra(replace(pFiltro("txt_pesq_nome"),"'","´")) & "%')) "
				End If
												
				'// Parâmetro Categoria
				If Not IsNull(pFiltro("txt_filtro_categoria")) And pFiltro("txt_filtro_categoria") <> "" Then
					Param = Param & " AND A.intCodigo_Categoria='" & pFiltro("txt_filtro_categoria") & "' "
				End If
								
				'// Parâmetro Destino
				If Not IsNull(pFiltro("txt_filtro_destino")) And pFiltro("txt_filtro_destino") <> "" Then
					Param = Param & " AND A.intCodigo_Destino='" & pFiltro("txt_filtro_destino") & "' "
				End If
								
				'// Parâmetro Cidade
				If Not IsNull(pFiltro("txt_filtro_cidade")) And pFiltro("txt_filtro_cidade") <> "" Then
					Param = Param & " AND A.intCodigo_Cidade='" & pFiltro("txt_filtro_cidade") & "' "
				End If
								
				'// Nome Fantasia 
				If Not IsNull(pFiltro("txt_filtro_fantasia")) And pFiltro("txt_filtro_fantasia") <> "" Then
					Param = Param & " AND A.strNome like '%" & PesquisaPalavra(replace(pFiltro("txt_filtro_fantasia"),"'","´")) & "%' "
				End If
								
				'// Razao Social 
				If Not IsNull(pFiltro("txt_filtro_razao")) And pFiltro("txt_filtro_razao") <> "" Then
					Param = Param & " AND A.strRazao_Social like '%" & PesquisaPalavra(replace(pFiltro("txt_filtro_razao"),"'","´")) & "%' "
				End If
								
				'// Cnpj
				If Not IsNull(pFiltro("txt_filtro_cnpj")) And pFiltro("txt_filtro_cnpj") <> "" Then
					Param = Param & " AND A.strCnpj like '%" & FCpf2BD(pFiltro("txt_filtro_cnpj")) & "%' "
				End If
				
				
				'// Rg
				If Not IsNull(pFiltro("txt_filtro_rg")) And pFiltro("txt_filtro_rg") <> "" Then
					Param = Param & " AND A.strRg_Contato like '%" & pFiltro("txt_filtro_rg") & "%' "
				End If			
				
				'// Cpf
				If Not IsNull(pFiltro("txt_filtro_Cpf")) And pFiltro("txt_filtro_Cpf") <> "" Then
					Param = Param & " AND A.strCpf_Contato like '%" & pFiltro("txt_filtro_Cpf") & "%' "
				End If		
								
				'// Contrato - OP cOBRANÇA
				If Not IsNull(pFiltro("slc_operador_cobranca")) And pFiltro("slc_operador_cobranca") <> "" Then
					Param = Param & " AND C.intCodigo_OpCobranca = '" & pFiltro("slc_operador_cobranca") & "' "
				End If
				
				'// Contrato - OP VENDA
				If Not IsNull(pFiltro("slc_operador_venda")) And pFiltro("slc_operador_venda") <> "" Then
					Param = Param & " AND C.intCodigo_OpVendas = '" & pFiltro("slc_operador_venda") & "' "
				End If					
				
				'// Contrato - CDROM
				If Not IsNull(pFiltro("slc_filro_cdrom")) And pFiltro("slc_filro_cdrom") <> "" Then
					Param = Param & " AND C.strCDROM ='" & pFiltro("slc_filro_cdrom") & "' "
				End If
				
				'// Contrato - NUMERO CONTRATO
				If Not IsNull(pFiltro("txt_filtro_Contrato")) And pFiltro("txt_filtro_Contrato") <> "" Then
					Param = Param & " AND C.strNumero_Contrato like '%" & pFiltro("txt_filtro_Contrato") & "%' "
				End If		
					
				
				'// Parâmetro Home
				If Not IsNull(pFiltro("txt_filtro_home")) And pFiltro("txt_filtro_home") <> "" Then
					Param = Param & " AND A.flgHome = '" & pFiltro("txt_filtro_home") & "' "
				End If
								
				'// Parâmetro Status
				If Not IsNull(pFiltro("slc_filtro_status")) And pFiltro("slc_filtro_status") <> "" Then
					Param = Param & " AND A.flgStatus = '" & pFiltro("slc_filtro_status") & "' "
				End If					
				
												
				'// Junção dos Parametros
				If Not IsNull(Param) And Param <> "" Then
					Sql = Sql & " WHERE " & Param
				End If
				
				'// Parâmetros de ordenação.
				Ordenar = " A.intCodigo_Categoria  "
				OrdenarSentido = " DESC " 
				
				Select Case Ucase(pOrdenar)
					Case "CODIGO" Ordenar = " A.intCodigo_Anunciante "
					Case "DATA" Ordenar = " A.dteData_Cadastro "
					Case "CATEGORIA" Ordenar = " A.intCodigo_Categoria "
					Case "CIDADE" Ordenar = " A.intCodigo_Cidade "
					Case "NOME" Ordenar = " A.strNome "
					Case "RAZAOSOCIAL" Ordenar = " A.strRazao_Social "
					Case "CNPJ" Ordenar = " A.strCnpj "
					Case "CDROM" Ordenar = " C.strCDROM "
					Case "DATACONTRATO" Ordenar = " C.dteVigencia_Inicio "
					Case "CONTRATO" Ordenar = " C.strNumero_Contrato "
					Case "OPVENDA" Ordenar = " C.intCodigo_OpVendas "
					Case "OPCOBRANCA" Ordenar = " C.intCodigo_OpCobranca "								
					Case "STATUS" Ordenar = " A.flgStatus"
					Case "Acessos" Ordenar = " A.intAcessos "
				End Select


				
				If pOrdenarSentido <> "" Then
					OrdenarSentido = pOrdenarSentido
				End If
				
				Sql = Sql & " ORDER BY " & Ordenar & " " & OrdenarSentido
				
				
				'response.Write Sql
				
				'// Verifica retorno de quantidade				
				cApp.cBD.SQL = Sql
				
				cApp.cBD.AbrirRS
				ListaRegQtd = cApp.cBD.ObterRC()
				cApp.cBD.FecharRS
						
				If pRetorno = "QTD" Then
					ListarDadosADM = ListaRegQtd
					Exit Function
				End If
				
				
				'// Limite para paginação.				
				If IsNull(pPgn) Or pPgn = 0 Then
					pPgn = 1
				End if
							
				If CInt(pLimitar) = 1 Then
					cApp.cBD.QtdReg = pPgnQtdReg
					cApp.cBD.Pgn = pPgn
				Else 
					cApp.cBD.QtdReg = 999999
					cApp.cBD.Pgn = 1
				End If
				
				
				'// Abre o RS e faz o looping dos registros.				
				cApp.cBD.AbrirRS
				
				If Not cApp.cBD.ObterEOF  then
					ReDim ListaReg(cApp.cBD.QtdReg-1)
					i = 0
					
					Do While Not cApp.cBD.ObterEOF And i < cApp.cBD.QtdReg
						Set Rs = cApp.cBD.Rs
								
						Set ListaReg(i) = new cls_Anunciantes					
							ListaReg(i).CodAnunciante = Rs("intCodigo_Anunciante").Value
							ListaReg(i).CodCategoria = Rs("intCodigo_Categoria").Value
							ListaReg(i).CodDestino = Rs("intCodigo_Destino").Value
							ListaReg(i).CodCidade = Rs("intCodigo_Cidade").Value
							ListaReg(i).CodCidadeCobranca = Rs("intCodigo_Cidade").Value
							ListaReg(i).DataCadastro = Rs("dteData_Cadastro").Value
							ListaReg(i).NomeFantasia = Rs("strNome").Value
							ListaReg(i).Descricao = Rs("strDescricao").Value
							ListaReg(i).DescricaoLocal = Rs("strDescricao_Local").Value
							ListaReg(i).DescricaoTarifas = Rs("strDescricao_Tarifas").Value
							ListaReg(i).DescricaoFuncionamento = Rs("strDescricao_Funcionamento").Value
							ListaReg(i).Informacao = Rs("strInformacao").Value
							ListaReg(i).Endereco = Rs("strEndereco").Value
							ListaReg(i).Estado = Rs("strEstado").Value
							ListaReg(i).EstadoCobranca = Rs("strEstado_Cobranca").Value
							ListaReg(i).Bairro = Rs("strBairro").Value
							ListaReg(i).Cep = Rs("strCep").Value
							ListaReg(i).Complemento = Rs("strComplemento").Value
							ListaReg(i).Email = Rs("strEmail").Value
							ListaReg(i).DDD = Rs("strDDD").Value
							ListaReg(i).Fone01 = Rs("strFone01").Value
							ListaReg(i).Fone02 = Rs("strFone02").Value
							ListaReg(i).Fax = Rs("strFax").Value
							ListaReg(i).RazaoSocial = Rs("strRazao_Social").Value
							ListaReg(i).Cnpj = Rs("strCnpj").Value
							ListaReg(i).EnderecoCobranca = Rs("strEndereco_Cobranca").Value
							ListaReg(i).BairroCobranca = Rs("strBairro_Cobranca").Value
							ListaReg(i).CepCobranca = Rs("strCep_Cobranca").Value
							ListaReg(i).ComplementoCobranca = Rs("strComplemento_Cobranca").Value
							ListaReg(i).DDDCobranca = Rs("strDDD_Cobranca").Value
							ListaReg(i).Fone01Cobranca = Rs("strFone01_Cobranca").Value
							ListaReg(i).Fone02Cobranca = Rs("strFone02_Cobranca").Value
							ListaReg(i).FaxCobranca = Rs("strFax_Cobranca").Value
							ListaReg(i).Contato = Rs("strContato").Value
							ListaReg(i).DDDContato = Rs("strDDD_Contato").Value
							ListaReg(i).Fone01Contato = Rs("strFone01_Contato").Value
							ListaReg(i).RgContato = Rs("strRg_Contato").Value
							ListaReg(i).CpfContato = Rs("strCpf_Contato").Value
							ListaReg(i).Status = Rs("flgStatus").Value
							ListaReg(i).Acessos = Rs("intAcessos").Value
							ListaReg(i).Home = Rs("flgHome").Value
							ListaReg(i).Site = Rs("strSite").Value
							ListaReg(i).Figuracao = Rs("strFiguracao").Value
							ListaReg(i).Edicao = Rs("strEdicao").Value
							ListaReg(i).Ano = Rs("strAno").Value
							ListaReg(i).Pessoa = Rs("flgPessoa").Value							
							ListaReg(i).Contrato = Rs("strNumero_Contrato").Value
							ListaReg(i).ContratoData = Rs("dteVigencia_Inicio").Value

						Set Rs = Nothing
						cApp.cBD.MNext
						
						If cApp.cBD.ObterEOF Then
							ReDim Preserve ListaReg(i)
						End If
						
						i = i + 1
					Loop
				End If
				
				cApp.cBD.FecharRS
				
				ListarDadosADM = ListaReg
			End Function

Quando faço a pesquisa da tudo certo ela busca os valores me mostra a quantidade certa de itens existentes naquela expecificação, so que quando eu mudo de pagina ele reseta tudo, ou seja a pesquisa não funciona, estou alguns dias quebrando a cabeça mas não acho a solução, se possivel me ajudem.

vlw

xanburzum · Maio 17, 2010

ela gera algum erro ???

renan mariano costa · Maio 17, 2010

não, quando você clica na pagina 2 lah em baixo ele retorna com todos os registros.

aqui no forum eu jah vi uns 3 topicos relacionados masi nenhum deles me ajudou,

xanburzum · Maio 17, 2010

pega algum código no fórum , que seja uma referencia em paginação e compara a lógica...

renan mariano costa · Maio 17, 2010

pega algum código no fórum , que seja uma referencia em paginação e compara a lógica...

Eu reparei uma coisa na programação quando eu faço uma consulta por exepmlo po status, ele pega a acation que

esta no fomulario e retorna todos os valores porem quando eu vou clicar na pagina 3 ou ate no botão de proxima pagina

ele realiza a action outra vez, ou seja ele perde os valores de pesquiza toda vez que eu clicar em algun botão.

so tem um que não muda em ipotese nenhuma ( isso eh o que me deixa masi louco) a caixa de listagem que tem o nome de ordenar

permanece com seus valores e as todas as outros perdem seus valores ou seja, toda vez que eu clico em qualquer botão ele

executam o action que esta no meu form retorna os valores porem apagas os itens de pesquisa menos a ordem.

Desculpa aew num sei c sou burro mas eu num to conseguindo resolve mesmo, jah comparei com tudo jah mudei um monte de coisa

como disse estou a dias tentando, mas não acho solução.

xanburzum · Maio 17, 2010

ele perde os valores de pesquiza toda vez que eu clicar em algun botão.

pra ele nao perder você deve passar esse valor na querystring da url ou armazenar em uma variavel session

renan mariano costa · Maio 20, 2010

ele perde os valores de pesquiza toda vez que eu clicar em algun botão.
pra ele nao perder você deve passar esse valor na querystring da url ou armazenar em uma variavel session

Para fazer uma QueryString eu teria que mudar meu post para GET certo????

e no caso da session, eu poderia colocar ela aonde???

como disse esse sistema abre a pagina html, chama os dados em outra pagina, e tens os parametros de busca e classes em outra pagina.

Eu acho que achei o problema mas porem não consegui solucionar

eh o seguinte

olha esse codigo

Sub Listagem(str_msg)

        Set tpl_Pagina = New clsASPTemplate
        tpl_Pagina.SetTemplateFile "\Cliente_listagem.htm"
        
        cfgPgnQtdReg = 30
        NView = "gt_clientes.asp"
        FormFiltro = "frm_clientes"
        
  
        Set Clientes = new cls_Anunciantes
        ListaRegQtd = Clientes.ListarDadosADM("iOffice",0,0,"",Request.Form,"QTD",0,0,0,Request("slc_ordenacao"),Request("slc_ordem"))  
        tpl_Pagina.SetVariable "total_clientes", ListaRegQtd
        
        'Calculo de Paginacao
        If Request.Form("filtro_pgn") <> "" Then
                Pgn = CInt(Request.Form("filtro_pgn"))
        Else
                Pgn = CInt(Request.QueryString("pgn"))
        End If
                                                
        If IsNull(Pgn) Or Pgn = 0 Then
                Pgn = 1
        End If
                
        PgnQtdReg = CInt(0)
        
        If IsNull(PgnQtdReg) Or PgnQtdReg = 0 Then
                PgnQtdReg = cfgPgnQtdReg
        End If

        
        If (ListaRegQtd Mod PgnQtdReg) > 0 Then
                PgnQtd = Int((ListaRegQtd / PgnQtdReg) + 1)
        Else
                PgnQtd = Int((ListaRegQtd / PgnQtdReg))
        End if
        
        ''status
        If Len(Request("slc_filtro_status")) = 0 OR isnull(Request("slc_filtro_status")) = true Then
                slc_filtro_status = 0 
        else
                slc_filtro_status = Request ("slc_filtro_status")
        End If
                 
        Set StatusTeste = new cls_Anunciantes
        ListaRegQtd = Clientes.ListarDadosADM("",0,0,"",Request.Form,"QTD",0,0,0,Request("slc_ordenacao"),Request("slc_ordem")) 
        
        tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"),"Selected"   
        tpl_Pagina.SetVariable "slc_filtro_status",""
        tpl_Pagina.ParseBlock "lista_status"
        
                IF ListaStatus > 0 then
                        ListaStatus = Clientes.ListarDadosADM("",0,0,"",Request.Form,"QTD",0,0,0,Request("slc_ordenacao"),Request("slc_ordem")) 
                        
                        tpl_Pagina.UpdateBlock "lista_status"
                        
                        For i=Lbound(ListaStatus) to Ubound (ListaStatus)
                        
                                If int(ListaStatus(i).CodStatus) = int(slc_filtro_status) Then
                                tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"),"Selected"
                                else
                                tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"),""
                                End if
                        
                                tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"), ListaStatus(i).CodStatus
                                tpl_Pagina.SetVariable "slc_filtro_status", ListaStatus(i).NomeStatus                                   
                                tpl_Pagina.ParseBlock "lista_status"
                        Next
                        
                else
                        tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"),""
                        tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"), "Sem itens cadastrados"                     
                End If
        
        'operador de cobrança
        If Len(Request("slc_operador_cobranca")) = 0 OR isnull(Request("slc_operador_cobranca")) = true Then
                slc_operador_cobranca = 0
        else
                slc_operador_cobranca = Request("slc_operador_cobranca")
        End If
        

        '//Combo de Operadores Cobrança
                'Combo  Operador de Cobrança
        Set Usuarios = new cls_Usuarios
                ListaRegQtdUser = Usuarios.ListarDados(14,"Site",Request.Form,"QTD",0,0,0,"Nome","ASC")
                
                tpl_Pagina.SetVariable "opt_operador_cobranca_value", ""
                tpl_Pagina.SetVariable "opt_operador_cobranca_text", "Selecione Um"
                tpl_Pagina.ParseBlock "lista_operador_cobranca"
                                
                If ListaRegQtdUser > 0 Then
                        ListaRegUser = Usuarios.ListarDados(14,"Site",Request.Form,"REG",0,0,0,"Nome","ASC")
                        
                        tpl_Pagina.UpdateBlock "lista_operador_cobranca"
                        
                        For i=Lbound(ListaRegUser) to Ubound(ListaRegUser)
                                
                                If int(ListaRegUser(i).CodUsuario) = int(slc_operador_cobranca) Then
                                        tpl_Pagina.SetVariable "opt_operador_cobranca_default", "selected"
                                else
                                        tpl_Pagina.SetVariable "opt_operador_cobranca_default", ""
                                End if
                        
                                tpl_Pagina.SetVariable "opt_operador_cobranca_value", ListaRegUser(i).CodUsuario
                                tpl_Pagina.SetVariable "opt_operador_cobranca_text", ListaRegUser(i).NomeUsuario                                        
                                tpl_Pagina.ParseBlock "lista_operador_cobranca"
                        Next
                        
                else
                        tpl_Pagina.SetVariable "opt_operador_cobranca_value",""
                        tpl_Pagina.SetVariable "opt_operador_cobranca_text", "Sem itens cadastrados"                    
                End If
                
        'operador de vendas
        If Len(Request("slc_operador_vendas")) = 0 OR isnull(Request("slc_operador_vendas")) = true Then
                slc_operador_vendas = 0
        else
                slc_operador_vendas = Request("slc_operador_vendas")
        End If                  
                
        '//Combo de Operadores Vendas
                'Combo  Operador de Vendas
        Set Usuarios_Vendas = new cls_Usuarios
                ListaRegQtdUser = Usuarios_Vendas.ListarDados(15,"Site",Request.Form,"QTD",0,0,0,"Nome","ASC")
                
                tpl_Pagina.SetVariable "opt_operador_vendas_value", ""
                tpl_Pagina.SetVariable "opt_operador_vendas_text", "Selecione Um"
                tpl_Pagina.ParseBlock "lista_operador_vendas"
                                
                If ListaRegQtdUser > 0 Then
                        ListaRegUser = Usuarios_Vendas.ListarDados(15,"Site",Request.Form,"REG",0,0,0,"Nome","ASC")
                        
                        tpl_Pagina.UpdateBlock "lista_operador_vendas"
                        
                        For i=Lbound(ListaRegUser) to Ubound(ListaRegUser)
                                
                                If int(ListaRegUser(i).CodUsuario) = int(slc_operador_vendas) Then
                                        tpl_Pagina.SetVariable "opt_operador_vendas_default", "selected"
                                else
                                        tpl_Pagina.SetVariable "opt_operador_vendas_default", ""
                                End if
                        
                                tpl_Pagina.SetVariable "opt_operador_vendas_value", ListaRegUser(i).CodUsuario
                                tpl_Pagina.SetVariable "opt_operador_vendas_text", ListaRegUser(i).NomeUsuario                                  
                                tpl_Pagina.ParseBlock "lista_operador_vendas"
                        Next
                        
                else
                        tpl_Pagina.SetVariable "opt_operador_vendas_value",""
                        tpl_Pagina.SetVariable "opt_operador_vendas_text", "Sem itens cadastrados"                      
                End If          
        
        
        'Fazendo a Listagem de Clientes
        
        If ListaRegQtd > 0 Then
        
                ListaReg = Clientes.ListarDadosADM("iOffice",0,0,"",Request.Form,"REG",1,Pgn,PgnQtdReg,Request("slc_ordenacao"),Request("slc_ordem"))
                
                        tpl_Pagina.UpdateBlock "listagem_dados"
                
                For i=0 to Ubound(ListaReg)

                        If Zebra = true Then
                                css_linha = "tabela_linha_1"
                                Zebra=false
                        Else
                                css_linha = "tabela_linha_2"
                                Zebra = True
                        End if
        
                        ' impreção na tela
                        tpl_Pagina.SetVariable "codigo", ListaReg(i).CodAnunciante
                        tpl_Pagina.SetVariable "data_cadastro", ListaReg(i).ContratoData
                        tpl_Pagina.SetVariable "contrato", ListaReg(i).Contrato
                        tpl_Pagina.SetVariable "razao_social", ListaReg(i).RazaoSocial
                        tpl_Pagina.SetVariable "nome_fantasia", ListaReg(i).NomeFantasia
                        
                        '=resumindo(ListaDormir(xi).Informacao,145)
                        
                        If ListaReg(i).Pessoa = "J" Then 
                                documento = FCnpj2Vis(ListaReg(i).Cnpj)
                        ElseIf ListaReg(i).Pessoa = "F" Then 
                                documento = FCpf2Vis(ListaReg(i).Cnpj)
                        Else
                                documento = ListaReg(i).Cnpj
                        End if                          
                        
                
                        
                        
                        If ListaReg(i).Status = "A" Then
                                documento2 = "<img src=""http://www.turismolocal.com.br/site/gt.system/asp/img/botoes/b_Good.gif"" Alt=""Esta no Site - Ativado"" Title=""Esta no Site - Ativado"" />"
                ElseIf ListaReg(i).Status = "D" Then 
                                documento2 = "<img src=""http://www.turismolocal.com.br/site/gt.system/asp/img/botoes/b_Error.gif"" Alt=""Não Esta no Site - Desativado"" Title=""Não Esta no Site - Desativado""/>"
                        Else
                                documento2 = ListaReg(i).Status
                        End If
                                                
                        tpl_Pagina.SetVariable "cnpj", documento
                        tpl_Pagina.SetVariable "status", documento2                     
                        'tpl_Pagina.SetVariable "status", ListaReg(i).Status                    
                        tpl_Pagina.ParseBlock "listagem_dados"
                        ' fim da impressão na tela
                                        
                Next
                ' Ordenação
                tpl_Pagina.SetVariable "Ordenar", "Codigo"
                tpl_Pagina.SetVariable "OrdenarSentido", "DESC"
                tpl_Pagina.SetVariable "Pgn", Pgn
                tpl_Pagina.SetVariable "pags", ""& Paginacao(FormFiltro, Ordenar, OrdenarSentido, Pgn, PgnQtd)
                        
        
        Else
        
                        tpl_Pagina.SetVariable "codigo", ""
                        tpl_Pagina.SetVariable "data_cadastro", ""
                        tpl_Pagina.SetVariable "razao_social", ""
                        tpl_Pagina.SetVariable "nome_fantasia", ""                      
                        tpl_Pagina.SetVariable "cnpj", ""
                        tpl_Pagina.SetVariable "status",""
                        tpl_Pagina.SetVariable "Ordenar", Ordenar
                        tpl_Pagina.SetVariable "OrdenarSentido", OrdenarSentido
                        tpl_Pagina.SetVariable "Pgn", "1"               
                        tpl_Pagina.SetVariable "pags", "-"
                        tpl_Pagina.ParseBlock "listagem_dados"                  
                                        
        End If
        'fim da ordenação
        
        'Busca valores
        tpl_Pagina.SetVariable "opt_filtro_"& Request("slc_filtro_status"),"Selected"           
        tpl_Pagina.SetVariable "opt_ordernar_"& Request("slc_ordenacao"),"Selected"     
        tpl_Pagina.SetVariable "opt_ordem_"& Request("slc_ordem"),"Selected"    
        tpl_Pagina.SetVariable "txt_filtro_cnpj",""& Request("txt_filtro_cnpj")
        tpl_Pagina.SetVariable "txt_filtro_razao",""& Request("txt_filtro_razao")
        tpl_Pagina.SetVariable "txt_filtro_fantasia",""& Request("txt_filtro_fantasia")
        tpl_Pagina.SetVariable "txt_filtro_contrato",""& Request("txt_filtro_contrato")
        tpl_Pagina.SetVariable "txt_filtro_contrato_data",""& Request("txt_filtro_contrato_data")
        tpl_Pagina.SetVariable "txt_filtro_cep",""& Request("txt_filtro_cep")
        tpl_Pagina.SetVariable "txt_filtro_autorizante",""& Request("txt_filtro_autorizante")           
        tpl_Pagina.SetVariable "acao_formulario","Listagem"
        tpl_Pagina.SetVariable "time",time()
        tpl_Pagina.SetVariable "str_Mensagem", ""& str_msg      
        strParse = tpl_Pagina.GetOutput()
        'fim da busca de valores
End Sub

toda vez que meu form eh ativado chama esse codigo ou seja, quando eu clico em pesquisar ele pesquisa e traz tudo bonitinho

porem quando eu clico para ir para a pagina 2 ele meu form chama esse codigo e reseta todos os valores anteriores, jah tentei dar

uma session mas não adiante pq a pagina vem como uma pagina nova e resetada então a session vem da mesma maneira.

eu acho que eh isso, se for eu ainda não consegui resolver,

se não for ainda não consegui resolver da mesma maneira

Eu sei quejah abrirao mão de min

mas eu ainda preciso tentar

eh o seguinte existem varios campos para pesquisa o que me dexa masi intrigado eh que metade dos campos funciona perfeito

e outra metade não funciona, sendo que eles estão com a mesma parametragem, eu num consigo entender, serio mesmo

eu sei que ninguem tem a santa paciencia de ler meu codigo lah em cima ( Eu mesmo não teria) mas eu num sei o que fazer.

Se num for pedir muito me ajudem ai

walterwac · Maio 20, 2010

Olá colega, ontem eu resolvi um problema semelhante ao seu, na verdade eu tinha o memso problema inicial

realizar a busca realizando paginação sem que perdesse o valor da variável, nos resultados da pesquisa.

o meu tópico chama-se "busca paginada".

leia o código!

ok!

renan mariano costa · Maio 21, 2010

Olá colega, ontem eu resolvi um problema semelhante ao seu, na verdade eu tinha o memso problema inicial

realizar a busca realizando paginação sem que perdesse o valor da variável, nos resultados da pesquisa.

o meu tópico chama-se "busca paginada".

leia o código!

ok!

jah li o seu e masi os outros 3 codigos aqui

infelizmente eu não sei o que acontece

pois na minha busca existem varios campos

metade funciona e metade não e eles estão programados iguais e com os mesmo parametros

então eu não sei mesmo, jah mudei tudo que tinha que mudar mas não achei solução

eu pelo menos ainda não achei.

mas beleza brigado pela ajuda

walterwac · Maio 25, 2010

Olá colega, ontem eu resolvi um problema semelhante ao seu, na verdade eu tinha o memso problema inicial

realizar a busca realizando paginação sem que perdesse o valor da variável, nos resultados da pesquisa.

o meu tópico chama-se "busca paginada".

leia o código!

ok!

jah li o seu e masi os outros 3 codigos aqui

infelizmente eu não sei o que acontece

pois na minha busca existem varios campos

metade funciona e metade não e eles estão programados iguais e com os mesmo parametros

então eu não sei mesmo, jah mudei tudo que tinha que mudar mas não achei solução

eu pelo menos ainda não achei.

mas beleza brigado pela ajuda

envia os seus códigos para min se tiver bd tbm!

Vou ver o que posso fazer!

walterwac@hotmail.com

Este código já realiza paginação?

Arquivado

Pesquisa Paginação Diferente!

Recommended Posts

renan mariano costa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

renan mariano costa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

renan mariano costa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

renan mariano costa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

walterwac 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

renan mariano costa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

walterwac 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante