Ir para conteúdo
Fórum Script Brasil
  • 0

Filtro com data


Alberto Mota

Pergunta

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

%>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...