simplificar opções

shumi · Dezembro 29, 2005

Cara não sei onde esta o erro!!!

tentei de tudo mas da sempre o mesmo erro!

tenta me ajudar mais uma vez!

<%dim Conexcao,sql,sql2,sql3,sql4,sql5,sql6,rs,rs2,rs3,rs4,rs5,rs6,varcodIf NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifset Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("db_lg.mdb")Conexcao.open						Sql = "SELECT First(nome) AS nomeagrupado, SUM(ponto) AS pontos FROM pontuacao_vendedor GROUP BY nome ORDER BY Sum(PONTO) DESC;"			Set rs=Conexcao.Execute(sql)						Lojas_7 = ",004,156,217,319,330,423,408,332,290,401,406,002,200,037,058,066,071,085,125,076,119,128,157,321,"			'Seu Select e o While normal, da forma como estava antes, dento de seu While vamos fazer um IFzinho básico									Sql1 ="SELECT COUNT(pontuacao_vendedor.ponto) as ponto FROM cad_lojas, cad_vendedores, pontuacao_vendedor Where pontuacao_vendedor.nome = cad_vendedores.nome AND cad_vendedores.cod_loja = cad_lojas.cod_loja AND pontuacao_vendedor.ponto = 200;"			Set rs1=Conexcao.Execute(sql1)																										%><html><head><title>LG - Incentivo de Vendas</title>  <style type="text/css"><!--body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;		}		.texto11 {	font-family: Arial, Helvetica, sans-serif;	font-size: 15px;	color: #464646;	font-style:inherit	}.style2 {font-family: Arial, Helvetica, sans-serif; font-size: 15px; color: #464646; font-style: inherit; font-weight: bold; }.style4 {font-family: Arial, Helvetica, sans-serif; font-size: 10px; color: #464646; font-weight: bold; }-->  </style></head><body bgcolor="#FFFFFF"><p align="center"><span class="texto11">Pontuação dos Vendedores </span></p> <center>    <p> </p>   <table width="621" border="0">	 <tr>	   <td width="615"><center>		 </center>		 <center>		   <span class="texto10">		   </span>		 		 </center>	 <center>	<table width="219" border="1">		   <tr>									   <tr><td><span class="style2">Vendedor</span></td>		   <td><span class="style2">Pontos</span></td>		   <td>Participa</td>		   		   </tr>			 <tr>			 <td width="157"><span class="texto10">			   <%				   While not rs.EOF   										%>			   <%=rs("nomeagrupado")%> </span></td>								 <td width="287"> <span class="texto10">			  <%=rs("pontos")%>			  </span></td>			 <td>			 <%			Cor_Fonte = "Black"			If InStr(Lojas_7,","& rs1("cod_loja") &",")<>0 Then			Cor_Fonte = "Red"			End If %>			<font color="<%=Cor_Fonte%>">LOJA</font>			<%rs1.MoveNext%>							 		 </tr><tr>		   <td><span class="texto10">		   <%	 rs.MoveNext	 wend	 set rs=nothing%>			   </span></td>				 </tr>		</table>	   </center>		 </td>	 </tr>   </table></center></body></html>

Obrigado!!!!!!!

Salgado · Dezembro 29, 2005

No RS1 você não tem selecionado o Campo Cod_Loja.

shumi · Dezembro 29, 2005

No RS1 você não tem selecionado o Campo Cod_Loja.

como assim? não entendi! ele esta no select e no RS!Obrigado!

Salgado · Dezembro 29, 2005

Troque sua SQL1 por:

SELECT COUNT(pontuacao_vendedor.ponto) as ponto, cad_lojas.Cod_Loja FROM cad_lojas, cad_vendedores, pontuacao_vendedor Where pontuacao_vendedor.nome = cad_vendedores.nome AND cad_vendedores.cod_loja = cad_lojas.cod_loja AND pontuacao_vendedor.ponto = 200;

Mas acho que vai dar problema isso.

shumi · Dezembro 29, 2005

Troque sua SQL1 por:

SELECT COUNT(pontuacao_vendedor.ponto) as ponto, cad_lojas.Cod_Loja FROM cad_lojas, cad_vendedores, pontuacao_vendedor Where pontuacao_vendedor.nome = cad_vendedores.nome AND cad_vendedores.cod_loja = cad_lojas.cod_loja AND pontuacao_vendedor.ponto = 200;

Mas acho que vai dar problema isso.

Deu erro mesmo!Microsoft OLE DB Provider for ODBC Drivers erro '80040e14' [Microsoft][Driver ODBC para Microsoft Access] Você tentou executar uma consulta que não inclui a expressão 'cod_loja' especificada como parte de uma função agregada. /incentivos_lg/pontos_vendedores.asp, line 21O q seria? o que faço???Obrigado!!!

shumi · Dezembro 29, 2005

Cara eu voltei meu 1º SQL e coloquei assim:

<%			Cor_Fonte = "Black"			If InStr(Lojas_7,","& rs1("ponto") &",")<>0 Then			Cor_Fonte = "Red"			End If %>			<font color="<%=Cor_Fonte%>">LOJA</font>			<%rs1.MoveNext%>

ai parou de dar erro mas ele foge da regra e escreve em preto tanto se não tem 200 como se tem!

Agora esta perto de dar certo hein!!!!

onde ta o erro agora você sabe?

abraços e obrigado!!!!

shumi · Dezembro 29, 2005

eu mudei na linha

If InStr(Lojas_7,","& rs1("ponto") &",")<>0 Then

onde estava o numero 0 eu coloquei 7

assim ficou vermelho, mas quando insiro + de 7 produtos continua vermelho, inseri uns 10 pra testar mas continua vermelho!

Obrigado

Salgado · Dezembro 29, 2005

<%
dim Conexcao,sql,sql2,sql3,sql4,sql5,sql6,rs,rs2,rs3,rs4,rs5,rs6,varcod

If NOT (Session("logado")) Then
Response.Redirect "index.asp"
Response.End
End If

set Conexcao = Server.CreateObject("ADODB.Connection")
Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("db_lg.mdb")
Conexcao.open

		Sql = "SELECT First(nome) AS nomeagrupado, SUM(ponto) AS pontos FROM pontuacao_vendedor GROUP BY nome ORDER BY Sum(PONTO) DESC;"
		Set rs=Conexcao.Execute(sql)

		Lojas_7 = ",004,156,217,319,330,423,408,332,290,401,406,002,200,037,058,066,071,085,125
,076,119,128,157,321,"
%>
<html>
<head>
<title>LG - Incentivo de Vendas</title>
 <style type="text/css">
<!--
body {
background-color: #FFFFFF;
}
.texto10 {
font-family: Arial, Helvetica, sans-serif;
font-size: 10px;
color: #464646;
	}
	.texto11 {
font-family: Arial, Helvetica, sans-serif;
font-size: 15px;
color: #464646;
font-style:inherit
}
.style2 {font-family: Arial, Helvetica, sans-serif; font-size: 15px; color: #464646; font-style: inherit; font-weight: bold; }
.style4 {font-family: Arial, Helvetica, sans-serif; font-size: 10px; color: #464646; font-weight: bold; }

-->
 </style>
</head>
<body bgcolor="#FFFFFF">
<p align="center"><span class="texto11">Pontuação dos Vendedores </span></p>
<center> 
  <p> </p>
  <table width="621" border="0">
 <tr>
   <td width="615"><center>
	 </center>
	 <center>
	   <span class="texto10">		   </span>		 
	 </center>
 <center>	<table width="219" border="1">
	   <tr>



	   <tr><td><span class="style2">Vendedor</span></td>
	   <td><span class="style2">Pontos</span></td>
	   <td>Participa</td>

	   </tr>
		 <tr>
		 <td width="157"><span class="texto10">
		   <%While not rs.EOF%>
		   <%=rs("nomeagrupado")%> </span></td>
		 <td width="287"> <span class="texto10">
		  <%=rs("pontos")%>
		  </span></td>
		 <td>
		 <%
		Sql1 ="SELECT COUNT(pontuacao_vendedor.ponto) as ponto FROM pontuacao_vendedor Where pontuacao_vendedor.ponto = 200 AND pontuacao_vendedor.nome = '"& RS("NomeAgrupado") &"';"
		Set rs1=Conexcao.Execute(sql1)
		SQL2 = "Select Cod_Loja From cad_vendedores Where Nome = '"& RS("NomeAgrupado") &"';"
		Set RS2 = Conexcao.Execute(SQL2)

		Cor_Fonte = "Black"
		If InStr(Lojas_7,","& rs2("cod_loja") &",")<>0 Then
		Cor_Fonte = "Red"
		End If %>
		<font color="<%=Cor_Fonte%>"><%=RS1("Ponto")%></font>
	 </tr><tr>
	   <td><span class="texto10">
	   <%
		RS2.Close
		Set RS2 = Nothing
		RS1.Close
		Set RS1 = Nothing
 rs.MoveNext
 wend
 set rs=nothing
%>

		   </span>
</td>

	 </tr>
	</table>
   </center>		 </td>
 </tr>
  </table>
</center>
</body>
</html>

Testa isso ai.

Se não funcionar +/- eu desisto e só mexo nisso em 2006! :natalw00t:

shumi · Dezembro 29, 2005

Cara agora esta contando cada vez que insiro um produto que vale 200 pontos ate ai beleza ele só conta quando é um produto que vale 200, mas ele não muda de cor se insiro mais que 7 produtos!!!!Mas beleza ano que vem a gente tenta entao!!!!Pode deixar q te lembro hehehheheVALEU PELAS AJUDAS!!!!!FELIZ ANO NOVO TUDO DE BOM PRA você!!!!

Salgado · Dezembro 29, 2005

Isso é rápido então:

			If InStr(Lojas_7,","& rs2("cod_loja") &",")<>0 AND RS1("Ponto") > 6 Then 'Coloquei maior que 6 pois 7 já vale, não é?
		Cor_Fonte = "Red"
		End If %>

Feliz 2006 pra ti também, e vê se descola uns free-la pra nóis, Tiu Mário e Tiu Salgado hehehehehehe

Grande abraço!

shumi · Dezembro 29, 2005

Isso é rápido então:
If InStr(Lojas_7,","& rs2("cod_loja") &",")<>0 AND RS1("Ponto") > 6 Then 'Coloquei maior que 6 pois 7 já vale, não é?			Cor_Fonte = "Red"			End If %>
Feliz 2006 pra ti também, e vê se descola uns free-la pra nóis, Tiu Mário e Tiu Salgado heheheheheheGrande abraço!

CARA DEU CERTO!!!!!!!!VALEU NEM ACREDITO TO COM AS COSTAS DOENTO MUITO!!!!!!!FELIZ ANO NOVO PRA você!!!PRO TIO MARIO E PRA TODO MUNDO!!!!!!MUITO SUCESSO ESTE ANO Q VEM AI PARA TODOS NOS!!!!!E ISSO AQUI NÃO É FREE-LA É PRO TRAMPO MESMO HEHEHEHHEHEABRAÇOS E VALEU MESMOOOOO!!!!!!!!!!

Mário Monteiro · Dezembro 29, 2005

parabens ai shumi e sucesso rapá...

shumi · Janeiro 2, 2006

parabens ai shumi e sucesso rapá...

Valeu Mario!!!!Devo td a vcs que me ajudam e tem moh paciencia comigo!!!!!Valeu mesmo!!!!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

shumi · Janeiro 2, 2006

Ixi!!! to com um pequeno problema!!!

Já tinha entregado a programação e o diretor reprovou por causa de um erro...

O Salgado e o Mario estavam me ajudando com esse programinha a URL é

http://www.newstyle1.com/incentivos_lg/

login : rodrigo

senha : master

No Relatório da Pontuação tem o link vendedores dentro desse link tem a quantidade de Split Vendido que é o produto meta da campanha pros vendedores, gerentes, subgerentes e supervisores entrarem na campanha a LOJA tem que vender 7 desse produto.

No link gerente, subgerente, supervisor esta certinho!

Agora no link VENDEDOR ele esta contando apenas o que o VENDEDOR vendeu e não o que a LOJA vendeu.

Eu precisaria arrumar isso, mas não sei como.

Sei que devo fazer um relacionamento em SQL da tabela pontuacao_vendedor com a tabela cad_lojas e ver todos os vendedores dessa loja e somar quantos todos os vendedores de cada loja JUNTOS venderam!

Como que faço isso? que não entendo muito de SQL!

Obrigado!

Arquivado

simplificar opções

Recommended Posts

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

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

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

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

Consulta SQL dentro de outra consulta

problema em usar json para realizar engenharia de dados

Soma dos dias utilizados

Fóruns

Tempo Real

Informação importante