Filtro com data

Alberto Mota · Maio 24, 2012

Prezados colegas, estou usando um form para filtrar as vendas e não vai de jeito nenhum,

mostram registros a mais.

Ao digitar de 01/05/2011 até 01/05/2011 vem registros de 05/01/2011

e as vezes vem todos os registros.

Acredito que é a função que não estou acertando.

Abaixo coloquei o script completo. Desde já, obrigado.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

Function FormataData(Data)

If Data<>"" Then FormataData=Right("0"&DatePart("d",Data),2)&"/"&Right("0"&DatePart("m",Data),2)&"/"&DatePart("yyyy",Data)

End Function

vardataI = formatadata(request.Form("txtinicio"))

Response.write vardataI

%>

<br>

<%

Function FormataData2(DataF)

If DataF<>"" Then FormataData2=Right("0"&DatePart("d",DataF),2)&"/"&Right("0"&DatePart("m",DataF),2)&"/"&DatePart("yyyy",DataF)

End Function

vardataF = formatadata(request.Form("txtfim"))

Response.write vardataF

%>

<%

if session("nivelacesso") ="" then

response.write "Você não está logado"

Response.end

end if

%>

<%

if session("nivelacesso") < 2 then

response.write "Você não possui permissão de acesso!"

Response.end

end if

%>

<%

Dim fornecedor

Set fornecedor = Server.CreateObject("ADODB.Recordset")

fornecedor.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

Server.MapPath("dados/februmar.mdb")

vardataI = formatadata(request.Form("txtinicio"))

vardataF = formatadata(Request.Form("txtfim"))

fornecedor.Source = "SELECT * FROM Consulta54Base Where DataEmissao between #" + vardataI + "# " + " and #" + vardataF + "# order by DataEmissao, NumeroPedidoNovo"

fornecedor.CursorType = 0

fornecedor.CursorLocation = 2

fornecedor.LockType = 1

fornecedor.Open()

fornecedor_numRows = 0

%>

Alberto Mota · Maio 24, 2012

Consegui resolver. Tinha dado uma pausa no asp e remexi nos scripts antigos.

Eis a solução completa para quem precisar.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

pesquisa = cdate(request.Form("txtinicio"))

pesquisa1 = day(pesquisa)

Dia = month(pesquisa)

Mes = day(pesquisa)

Ano = year(pesquisa)

pesquisa2 = len(trim(pesquisa1))

Select Case pesquisa2

Case 1

VarData = Dia & "/" & Mes & "/" & Ano

Case 2

VarData = Mes & "/" & Dia & "/" & Ano

end select

response.write(request.Form("txtinicio"))

%>

<br>

<%

pesquisab = cdate(request.Form("txtfim"))

pesquisa1b = day(pesquisab)

Dia = month(pesquisab)

Mes = day(pesquisab)

Ano = year(pesquisab)

pesquisa2b = len(trim(pesquisa1b))

Select Case pesquisa2b

Case 1

VarDatab = Dia & "/" & Mes & "/" & Ano

Case 2

VarDatab = Mes & "/" & Dia & "/" & Ano

end select

response.write(request.Form("txtfim"))

%>

<%

if session("nivelacesso") ="" then

response.write "Você não está logado"

Response.end

end if

%>

<%

if session("nivelacesso") < 2 then

response.write "Você não possui permissão de acesso!"

Response.end

end if

%>

<%

Dim fornecedor

Set fornecedor = Server.CreateObject("ADODB.Recordset")

fornecedor.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

Server.MapPath("dados/februmar.mdb")

dt1 = Vardata

vardataI = VarData

vardataF = VarDatab

fornecedor.Source = "SELECT * FROM Consulta54Base Where DataEmissao between #"+ VarDataI +"# " + " and #"+ VarDataF +"# order by DataEmissao, NumeroPedidoNovo"

fornecedor.CursorType = 0

fornecedor.CursorLocation = 2

fornecedor.LockType = 1

fornecedor.Open()

fornecedor_numRows = 0

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<head>

<title>Vendas</title>

<!--

.style2 {color: #000000}

.style5 {color: #000000; font-weight: bold; }

.style6 {

font-size: 10px;

font-weight: bold;

}

.style7 {color: #000000; font-weight: bold; font-size: 10px; }

-->

</style>

</head>

<body>

<h1><a href="#">Aplicativo WEB</a></h1>

</div>

<ul>

<li><a href="#" title="">A Empresa</a></li>

<li><a href="#" title="">Serviços</a></li>

<li><a href="#" title="">Clientes</a></li>

<li><a href="#" title="">Contato</a></li>

</ul>

</div>

<tr>

<td width="393" valign="top" bgcolor="#999999" class="style2 coluna1"><span class="style5">Cliente:</span></td>

<td height="16" valign="top" bgcolor="#999999" class="coluna1 style2"><div align="right"><span class="style2"><strong>Total</strong></span></div></td>

<td height="16" valign="top" bgcolor="#999999" class="style2 coluna1"><div align="right"><span class="style2"><strong>Liquido</strong></span></div></td>

</tr>

<tr>

<%

do while not fornecedor.eof

%>

<% = fornecedor("DataEmissao") %>

</span></div></td>

</div></td>

<% = fornecedor("nome") %>

</span></div></td>

<%=FormatNumber(fornecedor("total"),2)%> </div></td>

<%=FormatNumber(fornecedor("Desc"),2)%>

 </div></td>

<%=FormatNumber(fornecedor("Liquido"),2)%>

</div></td>

</tr>

<% totalgeral = totalgeral + fornecedor("Total")

desconto = desconto + fornecedor("Desc")

liquido = liquido + fornecedor("Liquido")

fornecedor.MoveNext

Loop

%>

<tr>

<td height="15" valign="middle" bgcolor="#FFFFFF" class="coluna style2"><strong>Total:</strong></td>

</tr>

</table>

</form>

</div>

</body>

</html>

bareta · Junho 7, 2012

as datas sempre são um problema...

algumas soluções:

1- usar formato americano mm/dd/aaaa e o mesmo charset sendo definido no insert e na listagem

2- separar a data em 3 campos dia mes e ano.

Entrar

Filtro com data

Pergunta

Alberto Mota

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Alberto Mota

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades