Relatório

shumi · Abril 6, 2006

Galera,

Tenho esse script abaixo, e em uma pagina anterior tem um combo que o user escolhe a UF e o estabelecimento ai quando ele escolhe cai nesse script que faz o filtro e exibe as informações conforme o estabelecimento como vcs podem ver no select, o que quero fazer agora é um link fora desse select, ai quero montar um outro script que exiba o relatorio de todas as lojas.

Veja meu script que filtra, como posso altera-lo para exibir um relatorio geral, separado por lojas, sendo uma embaixo da outra???

<%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))If NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifcod = Request.Form("cod")estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")sql3 = "Select acao from dados where campanha='"&cod&"'"Set rs3 = Conexcao.Execute(sql3)sql = "SELECT produto,data,preco FROM preco_nosso WHERE campanha='" & cod & "' AND estabelecimento='" & estabelecimento & "' ORDER By produto, data;"Set rs = Conexcao.execute(Sql)prod_atual = ""sql2 = "Select produto,data,inicial from dados_vendas where acao='"&rs3("acao")&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs2 = Conexcao.Execute(sql2)sql4 = "Select produto,encarte,data from ponto_extra where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs4 = Conexcao.Execute(sql4)sql5 = "Select produto,data,abordagens,quantidade from degustado where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs5 = Conexcao.Execute(sql5)sql6 = "Select * from observacao where campanha='"&campanha&"' and estabelecimento='"&estabelecimento&"'"Set rs6 = Conexcao.Execute(sql6)%><html><head><title>Sistema NewStyle</title>  <style type="text/css"><!-- CSSbody {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;}	.texto11 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color: #464646;		}	.texto12 {	font-family:Arial, Helvetica, sans-serif;	font-size:10px;	color:#FFFFFF;	}	.texto13 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color:#FFFFFF;	}	.texto15{	font-family:Arial, Helvetica, sans-serif;	font-size:12px;	color:#FF0000;	}--></style></head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><img src="topo.jpg"></p><center><table border="1" bordercolor="#00CCFF"><tr><td width="269"><table border="1" bordercolor="#00CCFF"><tr>  <td width="188"><span class="texto11">Produtos</span></td>  <%'Inicio dos Produtos que tem na LojaIf not RS2.EOF Then	Prod_loja = RS2("Produto")	Prod_Atual = Prod_loja	While Prod_loja = Prod_Atual		'If RS("Preco") <> "0" Then%><td width="95"><span class="texto11"><%=rs2("data")%></span></td><%	   ' End If		RS2.MoveNext		If Not RS2.EOF Then			Prod_Atual = RS2("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS2.MoveFirstEnd If%></tr><tr><td><center><span class="texto15">Tem na loja</span></center></td></tr><tr><%While not rs2.EOFif rs2("produto")<>prod_atual thenprod_atual = rs2("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs2("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>"end ifrs2.MoveNextWend%></tr><tr><td><center><span class="texto15">Preços</span></center></td>  <%'Inicio dos preços dos ProdutosIf not RS.EOF Then	Prod_Inicio = RS("Produto")	Prod_Atual = Prod_Inicio	While Prod_Inicio = Prod_Atual		If RS("Preco") = " 0" or "0" Then%>		<%Response.write("")%>		<%else%>		<%		End If		RS.MoveNext		If Not RS.EOF Then			Prod_Atual = RS("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS.MoveFirstEnd If%></tr><tr><%While not rs.EOFif rs("produto")<>prod_atual thenprod_atual = rs("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>" 'exibindo o preco deste produto  'else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>"end ifrs.MoveNextWend%></tr><tr><td><center><span class="texto15">Encartes</span></center></td>  <%'Inicio dos encartesIf not RS4.EOF Then	Prod_encarte = RS4("Produto")	Prod_Atual = Prod_encarte	While Prod_encarte = Prod_Atual		If RS4("encarte") <> "0" Then%><%		End If		RS4.MoveNext		If Not RS4.EOF Then			Prod_Atual = RS4("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS4.MoveFirstEnd If%></tr><tr><%While not rs4.EOFif rs4("produto")<>prod_atual thenprod_atual = rs4("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs4("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>"end ifrs4.MoveNextWend%></tr><tr><td><center><span class="texto15">Degustações</span></center></td> <%'Inicio dos encartesIf not RS5.EOF Then	Prod_degustado = RS5("Produto")	Prod_Atual = Prod_degustado	While Prod_degustado = Prod_Atual		If RS5("quantidade") <> "0" Then%><%		End If		RS5.MoveNext		If Not RS5.EOF Then			Prod_Atual = RS5("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS5.MoveFirstEnd If%></tr><tr><%While not rs5.EOFif rs5("produto")<>prod_atual thenprod_atual = rs5("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs5("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</span></center></td>"end ifrs5.MoveNextWend%></tr></table></td></tr></table></center><%Set rs=NothingConexcao.Close%><center><p> </p>  <p>	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="50" height="50">	  <param name="movie" value="voltar4.swf">	  <param name="quality" value="high">	  <embed src="voltar4.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="50" height="50"></embed>	</object>  </p></center><p><img src="imagens/rodape.gif" width="779" height="44"></p></body></html>

Valeu

shumi · Abril 6, 2006

o cod na sql seria a campanha que eu preciso que filtre, pois terá mais campanha rolando ao mesmo tempo no sistema ai preciso desse where nas sqls para pegar só o da campanha que o user quer.

shumi · Abril 6, 2006

não precisa, pois eu gravo a campanha em uma variavel e jogo para a url assim:<a href="relatorio_acoes_lojas_total.asp?id=<%=cod%>">Relatorio Geral</a>Assim vai para a URL ai na pagina que exibe as informações gerais eu resgato assim:campanha = Request("cod")

shumi · Abril 6, 2006

Putz cara acho que funfou!!!Só estorou o tempo do IIS, Mas amanhã eu vejo como que eu faço, pra não estourar mais o tempo e colocar o nome da loja em cima, agora não consigo nem ver o monitor mais! to 2 dias praticamente varado!Até amanha Lucas e valeu por tudo hoje!Abraços muito obrigado mesmo

shumi · Abril 7, 2006

Lucas bom dia tudo bem?Cara como que posso usar esse relatorio para puxar somente uma UF escolhida na pagina anterior, sendo que a UF esta em outra tabela no meu banco???

shumi · Abril 7, 2006

eu tenho varias tabelas onde cai os dados que o pessoal ta cadastrando e tenho uma outra tabela que estão os cadastros dos estabelecimentos, nessas tabelas a unica coisa que tem em comum em todas é o nome dos estabelecimentos

shumi · Abril 7, 2006

Na tabela que tem somente os estabelecimentos cadastrados tem as colunas estabelecimento, uf, razao e em todas as tabelas que eu puxo os relatorios tem a coluna estabelecimento.

shumi · Abril 7, 2006

Tentei fazer assim:

uf = Request.Form("uf")SQLx = "Select * from dados_vendas,local where uf='"&uf&"'"set rsx = conexcao.execute(sqlx)If Request.Form("estabelecimento") ="" thenwhile not rsx.eofestabelecimento = rsx("estabelecimento")sql3 = "Select acao from dados where campanha='"&cod&"'"Set rs3 = Conexcao.Execute(sql3)sql = "SELECT produto,data,preco FROM preco_nosso WHERE campanha='" & cod & "' ORDER By produto, data;"Set rs = Conexcao.execute(Sql)prod_atual = ""sql2 = "Select produto,data,inicial from dados_vendas where acao='"&rs3("acao")&"' order by produto, data;"Set rs2 = Conexcao.Execute(sql2)sql4 = "Select produto,encarte,data from ponto_extra where campanha='"&cod&"' order by produto, data;"Set rs4 = Conexcao.Execute(sql4)sql5 = "Select produto,data,abordagens,quantidade from degustado where campanha='"&cod&"' order by produto, data;"Set rs5 = Conexcao.Execute(sql5)sql6 = "Select * from observacao where campanha='"&campanha&"'"Set rs6 = Conexcao.Execute(sql6)

e deu erro

erro '80020009' Exceção. /sis/filtrar_uf.asp, line 69

mas eu queria a condição da UF em todas as SQL... :blink:

shumi · Abril 7, 2006

Galera da um help aqui!Valeu!

shumi · Abril 7, 2006

Galera,

sei que vcs não tem obrigação em me ajudar, mas não tem como vcs me ajudarem a resolver meu script?

tem milhoes de pessoas me cobrando isso e não sei fazer mesmo!

vejam como esta

<html><head><title>Sistema NewStyle</title>  <style type="text/css"><!-- CSSbody {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;}	.texto11 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color: #464646;		}	.texto12 {	font-family:Arial, Helvetica, sans-serif;	font-size:10px;	color:#FFFFFF;	}	.texto13 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color:#FFFFFF;	}	.texto15{	font-family:Arial, Helvetica, sans-serif;	font-size:12px;	color:#FF0000;	}--></style></head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><img src="topo.jpg"></p><%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))cod = Request("id")'estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")SQLx = "Select * from dados_vendas,local where uf='"&uf&"'"set rsx = conexcao.execute(sqlx)If Request.Form("estabelecimento") ="" thenwhile not rsx.eofestabelecimento = rsx("estabelecimento")sql3 = "Select acao from dados where campanha='"&cod&"'"Set rs3 = Conexcao.Execute(sql3)sql = "SELECT produto,data,preco FROM preco_nosso WHERE campanha='" & cod & "' ORDER By produto, data;"Set rs = Conexcao.execute(Sql)prod_atual = ""sql2 = "Select produto,data,inicial from dados_vendas where acao='"&rs3("acao")&"' order by produto, data;"Set rs2 = Conexcao.Execute(sql2)sql4 = "Select produto,encarte,data from ponto_extra where campanha='"&cod&"' order by produto, data;"Set rs4 = Conexcao.Execute(sql4)sql5 = "Select produto,data,abordagens,quantidade from degustado where campanha='"&cod&"' order by produto, data;"Set rs5 = Conexcao.Execute(sql5)sql6 = "Select * from observacao where campanha='"&campanha&"'"Set rs6 = Conexcao.Execute(sql6)%><center><span class="texto11"><%=rsx("estabelecimento")%><table border="1" bordercolor="#00CCFF"><tr><td width="269"><table border="1" bordercolor="#00CCFF"><tr>  <td width="188"><span class="texto11">Produtos</span></td>  <%'Inicio dos Produtos que tem na LojaIf not RS2.EOF Then	Prod_loja = RS2("Produto")	Prod_Atual = Prod_loja	While Prod_loja = Prod_Atual		'If RS("Preco") <> "0" Then%><td width="95"><span class="texto11"><%=rs2("data")%></span></td><%	   ' End If		RS2.MoveNext		If Not RS2.EOF Then			Prod_Atual = RS2("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS2.MoveFirstEnd If%></tr><tr><td><center><span class="texto15">Tem na loja</span></center></td></tr><tr><%While not rs2.EOFif rs2("produto")<>prod_atual thenprod_atual = rs2("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs2("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>"end ifrs2.MoveNextWend%></tr><tr><td><center><span class="texto15">Preços</span></center></td>  <%'Inicio dos preços dos ProdutosIf not RS.EOF Then	Prod_Inicio = RS("Produto")	Prod_Atual = Prod_Inicio	While Prod_Inicio = Prod_Atual		If RS("Preco") = " 0" or "0" Then%>		<%Response.write("")%>		<%else%>		<%		End If		RS.MoveNext		If Not RS.EOF Then			Prod_Atual = RS("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS.MoveFirstEnd If%></tr><tr><%While not rs.EOFif rs("produto")<>prod_atual thenprod_atual = rs("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>" 'exibindo o preco deste produto  'else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>"end ifrs.MoveNextWend%></tr><tr><td><center><span class="texto15">Encartes</span></center></td>  <%'Inicio dos encartesIf not RS4.EOF Then	Prod_encarte = RS4("Produto")	Prod_Atual = Prod_encarte	While Prod_encarte = Prod_Atual		If RS4("encarte") <> "0" Then%><%		End If		RS4.MoveNext		If Not RS4.EOF Then			Prod_Atual = RS4("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS4.MoveFirstEnd If%></tr><tr><%While not rs4.EOFif rs4("produto")<>prod_atual thenprod_atual = rs4("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs4("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>"end ifrs4.MoveNextWend%></tr><tr><td><center><span class="texto15">Degustações</span></center></td><%'Inicio dos encartesIf not RS5.EOF Then	Prod_degustado = RS5("Produto")	Prod_Atual = Prod_degustado	While Prod_degustado = Prod_Atual		If RS5("quantidade") <> "0" Then%><%		End If		RS5.MoveNext		If Not RS5.EOF Then			Prod_Atual = RS5("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS5.MoveFirstEnd If%></tr><tr><%While not rs5.EOFif rs5("produto")<>prod_atual thenprod_atual = rs5("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs5("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</span></center></td>"end ifrs5.MoveNextWend%></tr></table></td></tr></table></center><%rsx.movenextwendelsesql3 = "Select acao from dados where campanha='"&cod&"'"Set rs3 = Conexcao.Execute(sql3)sql = "SELECT produto,data,preco FROM preco_nosso WHERE campanha='" & cod & "' AND estabelecimento='" & estabelecimento & "' ORDER By produto, data;"Set rs = Conexcao.execute(Sql)prod_atual = ""sql2 = "Select produto,data,inicial from dados_vendas where acao='"&rs3("acao")&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs2 = Conexcao.Execute(sql2)sql4 = "Select produto,encarte,data from ponto_extra where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs4 = Conexcao.Execute(sql4)sql5 = "Select produto,data,abordagens,quantidade from degustado where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs5 = Conexcao.Execute(sql5)sql6 = "Select * from observacao where campanha='"&campanha&"' and estabelecimento='"&estabelecimento&"'"Set rs6 = Conexcao.Execute(sql6)%><center><table border="1" bordercolor="#00CCFF"><tr><td width="269"><table border="1" bordercolor="#00CCFF"><tr>  <td width="188"><span class="texto11">Produtos</span></td>  <%'Inicio dos Produtos que tem na LojaIf not RS2.EOF Then	Prod_loja = RS2("Produto")	Prod_Atual = Prod_loja	While Prod_loja = Prod_Atual		'If RS("Preco") <> "0" Then%><td width="95"><span class="texto11"><%=rs2("data")%></span></td><%	   ' End If		RS2.MoveNext		If Not RS2.EOF Then			Prod_Atual = RS2("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS2.MoveFirstEnd If%></tr><tr><td><center><span class="texto15">Tem na loja</span></center></td></tr><tr><%While not rs2.EOFif rs2("produto")<>prod_atual thenprod_atual = rs2("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs2("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>"end ifrs2.MoveNextWend%></tr><tr><td><center><span class="texto15">Preços</span></center></td>  <%'Inicio dos preços dos ProdutosIf not RS.EOF Then	Prod_Inicio = RS("Produto")	Prod_Atual = Prod_Inicio	While Prod_Inicio = Prod_Atual		If RS("Preco") = " 0" or "0" Then%>		<%Response.write("")%>		<%else%>		<%		End If		RS.MoveNext		If Not RS.EOF Then			Prod_Atual = RS("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS.MoveFirstEnd If%></tr><tr><%While not rs.EOFif rs("produto")<>prod_atual thenprod_atual = rs("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>" 'exibindo o preco deste produto  'else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>"end ifrs.MoveNextWend%></tr><tr><td><center><span class="texto15">Encartes</span></center></td>  <%'Inicio dos encartesIf not RS4.EOF Then	Prod_encarte = RS4("Produto")	Prod_Atual = Prod_encarte	While Prod_encarte = Prod_Atual		If RS4("encarte") <> "0" Then%><%		End If		RS4.MoveNext		If Not RS4.EOF Then			Prod_Atual = RS4("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS4.MoveFirstEnd If%></tr><tr><%While not rs4.EOFif rs4("produto")<>prod_atual thenprod_atual = rs4("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs4("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>"end ifrs4.MoveNextWend%></tr><tr><td><center><span class="texto15">Degustações</span></center></td><%'Inicio dos encartesIf not RS5.EOF Then	Prod_degustado = RS5("Produto")	Prod_Atual = Prod_degustado	While Prod_degustado = Prod_Atual		If RS5("quantidade") <> "0" Then%><%		End If		RS5.MoveNext		If Not RS5.EOF Then			Prod_Atual = RS5("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS5.MoveFirstEnd If%></tr><tr><%While not rs5.EOFif rs5("produto")<>prod_atual thenprod_atual = rs5("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs5("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</span></center></td>"end ifrs5.MoveNextWend%></tr></table></td></tr></table></center><%end ifSet rs=NothingConexcao.Close%><center><p> </p>  <p>	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="50" height="50">	  <param name="movie" value="voltar4.swf">	  <param name="quality" value="high">	  <embed src="voltar4.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="50" height="50"></embed>	</object>  </p></center><p><img src="imagens/rodape.gif" width="779" height="44"></p></body></html>

Ficaria grato qualquer ajuda!

Abraço a todos

shumi · Abril 9, 2006

Galera,Tava tentando resolver esse problema e pensei em uma soluçao que seria fazer uma SQL onde resgato o estabelecimento de acordo com a UF e em todas SQL coloco o atributo where e puxo os estabelecimento ligados a SQL que separa a UFmas deu erro...veja como esta meu script

<html><head><title>Sistema NewStyle</title>  <style type="text/css"><!-- CSSbody {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;}	.texto11 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color: #464646;		}	.texto12 {	font-family:Arial, Helvetica, sans-serif;	font-size:10px;	color:#FFFFFF;	}	.texto13 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color:#FFFFFF;	}	.texto15{	font-family:Arial, Helvetica, sans-serif;	font-size:12px;	color:#FF0000;	}--></style></head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><img src="topo.jpg"></p><%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))cod = Request("id")'estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")Sql99 = "Select fantasia from local where uf='"&uf&"'"Set rs99 = Conexcao.Execute(sql99)SQLx = "Select * from dados_vendas where estabelecimento='"&rs99("fantasia")&"'"set rsx = conexcao.execute(sqlx)If Request.Form("estabelecimento") ="" thenwhile not rsx.eofestabelecimento = rsx("estabelecimento")sql3 = "Select acao from dados where campanha='"&cod&"'"Set rs3 = Conexcao.Execute(sql3)sql = "SELECT produto,data,preco FROM preco_nosso WHERE campanha='" & cod & "' and estabelecimento='"&rs99("fantasia")&"' ORDER By produto, data;"Set rs = Conexcao.execute(Sql)prod_atual = ""sql2 = "Select produto,data,inicial from dados_vendas where acao='"&rs3("acao")&" and estabelecimento='"&rs99("fantasia")&"' order by produto, data;"Set rs2 = Conexcao.Execute(sql2)sql4 = "Select produto,encarte,data from ponto_extra where campanha='"&cod&"' and estabelecimento='"&rs99("fantasia")&"' order by produto, data;"Set rs4 = Conexcao.Execute(sql4)sql5 = "Select produto,data,abordagens,quantidade from degustado where campanha='"&cod&"' and estabelecimento='"&rs99("fantasia")&"' order by produto, data;"Set rs5 = Conexcao.Execute(sql5)sql6 = "Select * from observacao where campanha='"&campanha&"' and estabelecimento='"&rs99("fantasia")&"'"Set rs6 = Conexcao.Execute(sql6)%><center><span class="texto11"><%=rsx("estabelecimento")%><table border="1" bordercolor="#00CCFF"><tr><td width="269"><table border="1" bordercolor="#00CCFF"><tr>  <td width="188"><span class="texto11">Produtos</span></td>  <%'Inicio dos Produtos que tem na LojaIf not RS2.EOF Then	Prod_loja = RS2("Produto")	Prod_Atual = Prod_loja	While Prod_loja = Prod_Atual		'If RS("Preco") <> "0" Then%><td width="95"><span class="texto11"><%=rs2("data")%></span></td><%	   ' End If		RS2.MoveNext		If Not RS2.EOF Then			Prod_Atual = RS2("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS2.MoveFirstEnd If%></tr><tr><td><center><span class="texto15">Tem na loja</span></center></td></tr><tr><%While not rs2.EOFif rs2("produto")<>prod_atual thenprod_atual = rs2("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs2("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>"end ifrs2.MoveNextWend%></tr><tr><td><center><span class="texto15">Preços</span></center></td>  <%'Inicio dos preços dos ProdutosIf not RS.EOF Then	Prod_Inicio = RS("Produto")	Prod_Atual = Prod_Inicio	While Prod_Inicio = Prod_Atual		If RS("Preco") = " 0" or "0" Then%>		<%Response.write("")%>		<%else%>		<%		End If		RS.MoveNext		If Not RS.EOF Then			Prod_Atual = RS("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS.MoveFirstEnd If%></tr><tr><%While not rs.EOFif rs("produto")<>prod_atual thenprod_atual = rs("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>" 'exibindo o preco deste produto  'else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>"end ifrs.MoveNextWend%></tr><tr><td><center><span class="texto15">Encartes</span></center></td>  <%'Inicio dos encartesIf not RS4.EOF Then	Prod_encarte = RS4("Produto")	Prod_Atual = Prod_encarte	While Prod_encarte = Prod_Atual		If RS4("encarte") <> "0" Then%><%		End If		RS4.MoveNext		If Not RS4.EOF Then			Prod_Atual = RS4("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS4.MoveFirstEnd If%></tr><tr><%While not rs4.EOFif rs4("produto")<>prod_atual thenprod_atual = rs4("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs4("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>"end ifrs4.MoveNextWend%></tr><tr><td><center><span class="texto15">Degustações</span></center></td><%'Inicio dos encartesIf not RS5.EOF Then	Prod_degustado = RS5("Produto")	Prod_Atual = Prod_degustado	While Prod_degustado = Prod_Atual		If RS5("quantidade") <> "0" Then%><%		End If		RS5.MoveNext		If Not RS5.EOF Then			Prod_Atual = RS5("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS5.MoveFirstEnd If%></tr><tr><%While not rs5.EOFif rs5("produto")<>prod_atual thenprod_atual = rs5("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs5("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</span></center></td>"end ifrs5.MoveNextWend%></tr></table></td></tr></table></center><%rsx.movenextwendelsesql3 = "Select acao from dados where campanha='"&cod&"'"Set rs3 = Conexcao.Execute(sql3)sql = "SELECT produto,data,preco FROM preco_nosso WHERE campanha='" & cod & "' AND estabelecimento='" & estabelecimento & "' ORDER By produto, data;"Set rs = Conexcao.execute(Sql)prod_atual = ""sql2 = "Select produto,data,inicial from dados_vendas where acao='"&rs3("acao")&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs2 = Conexcao.Execute(sql2)sql4 = "Select produto,encarte,data from ponto_extra where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs4 = Conexcao.Execute(sql4)sql5 = "Select produto,data,abordagens,quantidade from degustado where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs5 = Conexcao.Execute(sql5)sql6 = "Select * from observacao where campanha='"&campanha&"' and estabelecimento='"&estabelecimento&"'"Set rs6 = Conexcao.Execute(sql6)%><center><table border="1" bordercolor="#00CCFF"><tr><td width="269"><table border="1" bordercolor="#00CCFF"><tr>  <td width="188"><span class="texto11">Produtos</span></td>  <%'Inicio dos Produtos que tem na LojaIf not RS2.EOF Then	Prod_loja = RS2("Produto")	Prod_Atual = Prod_loja	While Prod_loja = Prod_Atual		'If RS("Preco") <> "0" Then%><td width="95"><span class="texto11"><%=rs2("data")%></span></td><%	   ' End If		RS2.MoveNext		If Not RS2.EOF Then			Prod_Atual = RS2("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS2.MoveFirstEnd If%></tr><tr><td><center><span class="texto15">Tem na loja</span></center></td></tr><tr><%While not rs2.EOFif rs2("produto")<>prod_atual thenprod_atual = rs2("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs2("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>"end ifrs2.MoveNextWend%></tr><tr><td><center><span class="texto15">Preços</span></center></td>  <%'Inicio dos preços dos ProdutosIf not RS.EOF Then	Prod_Inicio = RS("Produto")	Prod_Atual = Prod_Inicio	While Prod_Inicio = Prod_Atual		If RS("Preco") = " 0" or "0" Then%>		<%Response.write("")%>		<%else%>		<%		End If		RS.MoveNext		If Not RS.EOF Then			Prod_Atual = RS("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS.MoveFirstEnd If%></tr><tr><%While not rs.EOFif rs("produto")<>prod_atual thenprod_atual = rs("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>" 'exibindo o preco deste produto  'else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>"end ifrs.MoveNextWend%></tr><tr><td><center><span class="texto15">Encartes</span></center></td>  <%'Inicio dos encartesIf not RS4.EOF Then	Prod_encarte = RS4("Produto")	Prod_Atual = Prod_encarte	While Prod_encarte = Prod_Atual		If RS4("encarte") <> "0" Then%><%		End If		RS4.MoveNext		If Not RS4.EOF Then			Prod_Atual = RS4("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS4.MoveFirstEnd If%></tr><tr><%While not rs4.EOFif rs4("produto")<>prod_atual thenprod_atual = rs4("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs4("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>"end ifrs4.MoveNextWend%></tr><tr><td><center><span class="texto15">Degustações</span></center></td><%'Inicio dos encartesIf not RS5.EOF Then	Prod_degustado = RS5("Produto")	Prod_Atual = Prod_degustado	While Prod_degustado = Prod_Atual		If RS5("quantidade") <> "0" Then%><%		End If		RS5.MoveNext		If Not RS5.EOF Then			Prod_Atual = RS5("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS5.MoveFirstEnd If%></tr><tr><%While not rs5.EOFif rs5("produto")<>prod_atual thenprod_atual = rs5("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs5("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</span></center></td>"end ifrs5.MoveNextWend%></tr></table></td></tr></table></center><%end ifSet rs=NothingConexcao.Close%><center><p> </p>  <p>	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="50" height="50">	  <param name="movie" value="voltar4.swf">	  <param name="quality" value="high">	  <embed src="voltar4.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="50" height="50"></embed>	</object>  </p></center><p><img src="imagens/rodape.gif" width="779" height="44"></p></body></html>

e deu erro

erro '80020009' Exceção. /sis/filtrar_uf.asp, line 74

Valeu!

shumi · Abril 9, 2006

Galera alguem pode dar um empurranzinho aqui! acredito que estou errando em alguma coisinha besta, mas sei que estou indo pelo caminho certo!

Só não consigo ver o que esta errado... http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Arquivado

Relatório

Recommended Posts

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante