overflow

[caio.hps 0]

galera tah dando erro de overflow

 

 

 

Microsoft VBScript runtime error '800a0006'

 

Overflow

 

/chamado/gerarelatorio.asp, line 329

 

vou mostrar o codigo

strSQL=("Select nomUser from tbUser")
	call Conecta
	call AbreRs(strSQL)
	
	n=cdbl(rs.recordcount)
	
		dim analista(50)
			for i = 1 to n
				analista(i) = rs("nomUser")		
				rs.movenext	
			next
		
	call fechaRs
	call Desconecta



data_com = request.QueryString("data_com")
			data_fim = request.QueryString("data_fin")
			unidade = request.QueryString("unidade")
			para = Request.QueryString("para")		
			
			data_ini = FData(data_com)
			data_fin = FData(data_fim)
			
		
					dim countUSER(150)
					dim countOK(150)
					dim countAndamento(150)
					dim countSE(150)
					dim countFechado(150)
	
	
					for i = cdbl(1) to cdbl(n+1)
				
						strSQL = ("Select * from tbChamado WHERE  uniChamado like '%" & unidade & "%' and dstChamado like '%" & para & "%' and dtChamado BETWEEN '" & data_ini& "' and '" & data_fin & "' and altChamado='"& analista(i) &"'  ORDER BY numChamado DESC")
		
					call Conecta
					call AbreRs(strSQL)
					countUSER(i) = cdbl(Rs.RecordCount)
					countOK(i) = cdbl(0)
					countAndamento(i) = cdbl(0)
					countSE(i) = cdbl(0)
					countFechado(i) = cdbl(0)
					
						do while not rs.EOF
							statos = rs("stsChamado")
							
								if statos = "OK" then
									countOK(i) = cdbl(countOK(i) + 1)
								end if
								if statos = "em andamento" then
									countAndamento(i) = cdbl(countAndamento(i) + 1)
								end if
								if statos = "Serviço Externo" then
									countSE(i) = cdbl(countSE(i) + 1)
								end if																
							rs.movenext
						loop
						
						
					call FechaRs
					call Desconecta					
					'response.write((countOK(i)/countUser(i))*100)
					'response.End()
					next
					
					
		%>






	<table align="center" cellpadding="0" cellspacing="1" border="0">
		<tr >
			<td align="right" class="Verdana_16px" colspan="5">
				<hr color="#084505" size="2" />
				<font size="+2" color="#084505">
					
						Relatório 
</font>
				<hr color="#084505" size="2" />
		  </td>
			<td  align="right" class="Verdana_16px" colspan="2">
				<hr color="#084505" size="2" />
				<font size="+2" color="#084505">
					<strong>
						<a href="sessionend.asp" class="linkVerdana_12px">Sair</a>
						  
					</strong>
				</font>
				<hr color="#084505" size="2"/>			
		  </td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td class="Verdana_14px" colspan="5" align="center" style="border:#003366; border:solid; border-width:3px" >
				Relatório de Estatística de Chamado<b>
				<%if unidade = "" or para = "" then
				 unidade = "Unidades" 
				 para = "Ambas" 
				 response.Write(unidade &"-" & para) 
				 end if%></b>
			</td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td  align="center"  class="Verdana_12px" style="border:#003366; border:solid; border-width:2px;">
				Técnico	
			</td>
			<td  align="center"  class="Verdana_12px" style="border:#003366; border:solid; border-width:2px;">
				Em Andamento
			</td>
			<td  align="center" class="Verdana_12px" style="border:#003366; border:solid; border-width:2px;">
				Serviço Externo
			</td>
			<td  align="center" class="Verdana_12px" style="border:#003366; border:solid; border-width:2px;">
				Fechados
			</td>			
			<td	align="center" class="Verdana_12px" style="border:#003366; border:solid; border-width:2px;">
				Total			</td>					
			
		</tr>
		<%
				
			cor="#CCCCCC"		
			for i= cdbl(1) to cdbl(n)
				
				'do while not rs.eof
				if cor = "#CCCCCC" then
					cor = "#FFFFFF"
				else
					cor = "#CCCCCC"
				end if
		
			
		%>
	
		<tr bgcolor="<%=cor%>" height="30">
			<td class="Verdana_12px" >
				<strong>
				<% 
					response.Write(analista(i))
					
				%>
				</strong>
			</td>
			<td class="Verdana_12px" >
				<strong>
				<% 
					countAndamento(i) = cdbl((countAndamento(i) / countUser(i)) * 100)
					response.Write(cdbl(left(countAndamento(i),4))&"%")
					
				%>
				</strong>
			</td>
			<td class="Verdana_12px" >
				<strong>
				<% 
					countSE(i) = cdbl((countSE(i) / countUser(i)) * 100)
					response.Write(cdbl(left(countSE(i),4))&"%")
					
				%>
				</strong>
			</td>
			<td class="Verdana_12px" >
				<strong>
				<% 
					countOK(i) = cdbl((countOK(i) / countUser(i)) * 100)
					response.Write(cdbl(left(countOK(i),4))&"%")
					
				%>
				</strong>
			</td>
			<td class="Verdana_12px" >
				<strong>
				<%response.Write(cdbl(countUser(i)))%>
				</strong>
			</td>

[hargon 64]

Posta a linha 329.

[xanburzum 169]

porfavor sempre quando tiver um erro especificando um linha, saliente a linha para melhor podermos

auxiliar.geralmente este erro é quando há um estouro(vazamento) do número que passou do limite da variável aceita, verifique também se ela não esta vindo vazia.

[caio.hps 0]

porfavor sempre quando tiver um erro especificando um linha, saliente a linha para melhor podermos

auxiliar.geralmente este erro é quando há um estouro(vazamento) do número que passou do limite da variável aceita, verifique também se ela não esta vindo vazia.

 

entao o erro está na linha da conta

//-----------------------------------------------------------------

329 response.write((countOK(i)/countUser(i))*100)

//-----------------------------------------------------------------

 

 

 

tipo o "n" do for é 9

ai ele mostra 8 usuarios

no nono ele da o erro de overflow

ou seja

ele faz as contas, mas na ultima conta da esse erro

ai tentei converter as variaveis em (cdbl), (cint), (clgn)....mas nada da certo

[xanburzum 169]

tenta inserir um valor manualmente abaixo para ver se passa

[hargon 64]

O que é N? Creio que você está dividindo por 0, por isso está sendo gerado o erro.

 

Verifique isso.

[caio.hps 0]

O que é N? Creio que você está dividindo por 0, por isso está sendo gerado o erro.

 

Verifique isso.

então, não eh a quantidade de registro de outra tabela

que no caso é 9

que são nove usuarios

 

' n= rs.recorcount

[desisto 0]

quando receber o valor da tabela, joga na variavel com cInt antes de dividir

[xanburzum 169]

Dá um response.write nas variáveis, assim você verifica o valor real de cada uma delas, e vê se não esta ocorrendo divisão por zero, como nosso amigo salientou

[caio.hps 0]

Dá um response.write nas variáveis, assim você verifica o valor real de cada uma delas, e vê se não esta ocorrendo divisão por zero, como nosso amigo salientou

ahh nem cheguei a fazer isso

lembrei q o ultimo usuario tinha 0 atendimentos

ai coloquei um if 0 lah ai resolveu

 

 

vlw ae galera