Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

valdir calixto

Filtragem

Por , em ASP Clássico

Recommended Posts

valdir calixto    0

valdir calixto
Postado

Estou fazendo uma consulta no qual tem um campo para digitar o nome do cobrador, um outra campo que pede a situação do cliente (QUITADO, MANTIDO, PROCON, JURIDICO) e um terceiro campo para fazer uma busca entre duas datas digitadas:

 

Exemplo: Cobrador : Joâozinho

Situação: Quitado

Data: 10/07/2007 até 15/07/2007

 

Ou seja vai me trazer na tela todos os clientes do cobrador joãozinho que estão quitados entre 10/07/2007 até 15/07/2007,

 

Existe uma situação que é o seguinte essas datas estão dentro de vários campos pois cada cliente tem sua compra parcelado em 12x. As formas de pagamento estão assim no banco de dados:

 

Emissão1

Vencimento1

Pagoem1

 

Emissão2

Vencimento2

Pagoem2

 

Emissão3

Vencimento3

Pagoem3

 

Assim por diante, então quando mandar fazer a busca de 10/07/2007 até 15/07/2007 tem que ser procurando essas informações iniciais e finais a partir do campo pagoem1.....pagoem2.....pagoem3...e assim por diante.

Abaixo está o código inicial.

 

 

CODE

<% Option Explicit %>

 

 

<head>

 

<title></title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#F8BF6B" link="#000000" vlink="#000000" alink="#000000">

<form action="consultaporcobrador.asp" method="post" name="form" target="centro">

<table width="387" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="148"><font color="#000099"><strong>Digite o Cobrador</strong></font></td>

<td width="239"><input type="text" name="nome" size="25"></td>

</tr>

<tr>

<td><font color="#000099"><strong>Digite a Situação</strong></font></td>

<td><input type="text" name="nome2" size="25"></td>

</tr>

<tr>

<td height="24">

<div align="left"><font color="#000099"><strong>Digite a Data</strong></font></div></td>

<td><font color="#000099"><strong>DE</strong></font>

<input name="nome3" type="text" id="nome3" size="8">

<font color="#000099"><strong>ATÉ</strong></font>

<input name="nome4" type="text" id="nome4" size="8"></td>

</tr>

<tr>

<td colspan="2"><div align="center">

<input type="submit" name="btBuscar" value="Buscar">

</div></td>

</tr>

</table>

</form>

<hr size="1">

 

<table width="720" border="1" cellpadding="0" cellspacing="0" bordercolor="#333333">

<tr>

<td width="50">

<%

 

Dim strSQL, oConn, rs, varBusca, varBusca2, varBusca3, Varbusca4

 

varBusca = Request.Form("nome")-------CAMPO PARA DIGITAR O NOME DO COBRADOR

varBusca2 = Request.Form("nome2") ------ CAMPO PARA DIGITAR A SITUAÇÃO (MANTIDO, QUITADO....ETC)

varBusca3 = Request.Form("nome3") ----- CAMPO PARA DIGITAR A DATA INICIAL

varBusca4 = Request.Form("nome4") ------ CAMPO PARA DIGITAR A DATA FINAL

 

If varBusca <> "" Then

 

'monta a sql

strSQL = "SELECT * FROM search WHERE Cobrador LIKE '%" & varBusca & "%' AND Situacao LIKE '%" & varBusca2 & "%' OR Pagoem1 In ('%" & varBusca3 & "%') ORDER BY Ncto" -------BEM A PARTIR DAQUIE Q EU PRECISARIA FAZER AS BUSCAS NOS CAMPOS PAGOEM.....

 

'abre a oConn

Call abre_oConn

 

'executa a instrução SQL

Set rs = oConn.Execute(strSQL)

 

If rs.EOF And rs.BOF Then

 

Response.Write "<script>alert('Nenhum cliente encontrado.');</script>"

Response.End

 

Else

 

Response.Write ("<b>CTO</b></td><td width=70><b>Atribuição</b></td><td width=70><b>Valor</b></td><td width=100><b>Vencimento</b></td><td width=50><b>Observação<b></td><br><br>")

While Not rs.EOF

 

%>

</tr>

<tr>

<td>

<%

Response.Write ("<a href='alterar2novo.asp?id_cliente="& rs("ID") & "'"">" & rs("Ncto") & "</a></td><td width=70> " & rs("Atribuicao") & "</td><td width=70>" & rs("Valor") & "</td><td>" & rs("Vencimento") & "</td><td align=center width=50> " & rs("Observacao") & "</td>")

 

rs.MoveNext

Wend

 

End If

 

rs.Close

Call fecha_oConn

Set rs = Nothing

 

End If

 

%>

</tr>

</table>

<p>

<input type="button" name="Submit" value="Imprimir" Onclick="window.print('taglibs.txt')">

</p>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito