• 0
Sign in to follow this  
Alberto Mota

Filtro com data

Question

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

%>

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1" />

<title>Vendas</title>

<meta name="keywords" content="" />

<meta name="description" content="" />

<link href="default3.css" rel="stylesheet" type="text/css" />

<style type="text/css">

<!--

.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>

<div id="header">

<div id="logo">

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

</div>

<div id="menu">

<ul>

<li class="active"><a href="index.html" title="">Home</a></li>

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

<li><a href="#" title="">Servi&ccedil;os</a></li>

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

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

</ul>

</div>

</div>

<div id="content">

<form action="prazook.asp" method="post" onSubmit="return verifica_dados(this);">

<table width="742" height="69" align="left" cellpadding="0" cellspacing="0" class="categorias2">

<tr>

<td width="66" valign="top" bgcolor="#999999" class="coluna1 style2"><strong>Data </strong></td>

<td width="69" valign="top" bgcolor="#999999" class="coluna1 style2"><div align="center"><strong>N&ordm;</strong></div></td>

<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 valign="top" bgcolor="#999999" class="style2 coluna1"><div align="right"><span class="style2"><strong>Desc.:</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

%>

<td height="18" valign="top" bgcolor="#FFFFFF" class="style2 coluna"><div align="center"><span class="style6">

<% = fornecedor("DataEmissao") %>

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

<td height="18" valign="top" bgcolor="#FFFFFF" class="coluna"><div align="center" class="style7"><% = fornecedor("NumeroPedidoNovo") %>

</div></td>

<td height="18" valign="top" bgcolor="#FFFFFF" class="style2 coluna"><div align="left"><span class="style6">

<% = fornecedor("nome") %>

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

<td width="64" height="18" valign="top" bgcolor="#FFFFFF" class="coluna">

<div align="right" class="style7">

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

<td width="72" height="18" valign="top" bgcolor="#FFFFFF" class="coluna"><div align="right" class="style7">

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

&nbsp;</div></td>

<td width="76" height="18" valign="top" bgcolor="#FFFFFF" class="coluna"><div align="right" class="style7">

<%=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>

<td height="15" valign="middle" bgcolor="#FFFFFF" class="coluna">&nbsp;</td>

<td height="15" valign="middle" bgcolor="#FFFFFF" class="style2 coluna">&nbsp;</td>

<td width="64" height="15" valign="middle" bgcolor="#FFFFFF" class="coluna"><div align="right" class="style5"><%=formatNumber(totalgeral,2)%>&nbsp;</div></td>

<td width="72" height="15" valign="middle" bgcolor="#FFFFFF" class="coluna"><div align="right" class="style5"><%=formatNumber(desconto,2)%>&nbsp;</div></td>

<td width="76" height="15" valign="middle" bgcolor="#FFFFFF" class="coluna"><div align="right" class="style5"><%=formatNumber(liquido,2)%>&nbsp;</div></td>

</tr>

</table>

</form>

</div>

</body>

</html>

Share this post


Link to post
Share on other sites
  • 0

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.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this