[Resolvido] ASP - Cálculo..

[Aryane 0]

Olá pessoal, joia?

 

Bom estou com um site de um cliente aqui e esse foi feito TODO em ASP.. E para minha sorte eu não sei NADA de ASP..

 

Bem, o cliente tem um área de administrador no qual ele cadastra produtos, nesse cadastro, tem uma opção para que ele possa inserir preço do mesmo.

Segundo o cliente, o site realiza o cálculo para converter o preço de distribuição ( valor que ele insere ) para valor de revenda e de consumidor final, o site soma 2% para revenda e 9% para CF.

 

Porém, o cliente gostaria de mudasse de 9 para 13, mas, eu que entendo TUDO de ASP, não consegui achar..

Imaginei que, quando esses valores fossem inseridos no banco, ja havia o cálculo.. já olhei a página que faz isso e nada.. somente insere o valor..

 

Na página que exibe os preços para consumidor final e revendedor tem um cálculo doidão lá.. vou exibir para vocês:

 

<%
Dim sSql, rsList, rsInserir, cont, coluna, conteudo,rsnovo
cont = 1
coluna = 1
sSql= "SELECT * FROM TBL_CATEGORIA WHERE NUM_TAG_ATIVO = 1"
Set rsdados = Server.CreateObject("ADODB.Recordset")
rsdados.open sSql, conexao
%>
   
<%
if(fatorcf=0)then
	response.write("TABELA DE PREÇOS | DISTRIBUIDOR")
	elseif(fatorcf=0.02)then
		response.write("TABELA DE PREÇOS | REVENDEDOR")
	elseif(fatorcf=0.075)then
		response.Write("TABELA DE PREÇOS | CONSUMIDOR FINAL")
end if
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">  
  <% while not rsdados.eof %>
   <tr>
	<td colspan="2"><img src="images/spacer.jpg" width="1" height="3" /></td>
  </tr>
  <tr>
	<td height="22" colspan="2" bgcolor="#B72400" class="menuprincipal"> <%=rsdados("DSC_CATEGORIA")%> </td>
  </tr>
	  <%
		sSql= "SELECT * FROM TBL_PRODUTOS WHERE COD_CATEGORIA = "&rsdados("NUM_CODIGO")&" order by DSC_PRODUTO ASC"
		Set rsnovo = Server.CreateObject("ADODB.Recordset")
		rsnovo.open sSql, conexao,3,1
		 while not rsnovo.eof
	%>
	  <tr bgcolor="#E8E8E8" onmouseover="this.style.backgroundColor='#AEEECB';" onmouseout="this.style.backgroundColor='#E8E8E8';">
		<td width="88%" height="22" > <%=rsnovo("DSC_PRODUTO")%></td>
		<td width="12%">R[b]<%=formatcurrency(rsnovo("NUM_VALOR")+(rsnovo("NUM_VALOR")*fatorcf))%>[/b]</td>
	  </tr>
  
  <% 
	   rsnovo.movenext
 	 Wend
  rsdados.movenext
  Wend
  %>
  
</table>
<form method="post" action="default.asp">
<input name="Submit1" type="submit" class="btn" id="Submit1" value="Voltar"/>
</form>
<%
set rsdados = nothing
%>

 

Já entendi que onde está negrito é onde se faz o cálculo para inserir as porcentagens de acordo com o usuário.. ver la em cima uma condição para saber qual usuário..

 

mas de onde vem esse fatorcf????

Já olhei em todas as tabelas e não achei nada!! se ele faz uma comparação, é comparação baseado em que??

 

bom, se alguem for mágico e entender isso, porfavor, me ajude.. preciso disso para ontem!!!

 

bjaoo para todos

[Arrivabene 0]

Olá Aryane.

 

fatorcf pode ser uma variável que a página pode estar recebendo através do código abaixo:

 

fatorcf = Request.Querystring["valordofatorcfpassadoporalguém"]

ou

fatorcf = Session["valordofatorcfpassadoporalguém"]

 

Procure por fatorcf e veja se encontrará algo parecido com a linha de código acima.

 

Veja se isso resolve. E poste aqui o código que você encontrou.

 

No aguardo.

[Ted k' 126]

não tem muito o que ver mesmo não, ela tem que está vindo de algum lugar, veja no global.asa tbm, se existir

 

mais ao meu ver é isso aqui:

 

tente colocar a variável fatorcf dentro das condições do IF, assim

 

<%

if(fatorcf=0)then

response.write("TABELA DE PREÇOS | DISTRIBUIDOR")

fatorcf=0

elseif(fatorcf=0.02)then

response.write("TABELA DE PREÇOS | REVENDEDOR")

fatorcf=0.02

elseif(fatorcf=0.075)then

response.Write("TABELA DE PREÇOS | CONSUMIDOR FINAL")

fatorcf=0.075

end if

%>

teste isso....

[Aryane 0]

Olá pessoal!!

 

achei finalmente..

 

muitooo obrigada pela atenção e de vocês e por ter respondido rápidamente!!

Gostaria de compartilhar o códiigo para que, caso alguém precise um dia, poder ajudar alguém tbm!!

 

essa essa uma função global:

dim fatorcf
if(request.cookies("loginUsuario")("log") = "True")then
	fatorcf = request.cookies("indice")("idc")
	else
	fatorcf = 0.12
end if
function dropProdCategoria(campo)
dim rs
	SQL = "Select * from TBL_PRODUTOS where COD_CATEGORIA = " & campo & " order by DSC_PRODUTO"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open SQL, conexao
		dropProdCategoria = "<option value='' selected></option>" & dropProdCategoria
	while(not rs.eof)
		if(rs("NUM_CODIGO")<>campo) then
			'dropmodelo = "<option value='"&rs("codigo_veiculo")&"'>" & buscamodelo(rs("codigo_veiculo"))& "</option>" & dropmodelo
			dropProdCategoria = "<option value='"&rs("NUM_CODIGO")&"'>" & rs("DSC_PRODUTO")& "</option>" & dropProdCategoria
			else
			dropProdCategoria = "<option selected value='"&rs("NUM_CODIGO")&"'>" & rs("DSC_PRODUTO")& "</option>" & dropProdCategoria
		end if			 
			 
		rs.movenext
	Wend
		rs.close()
		Set rs = nothing
end function

 

 

 

foi só mudar esse valor: fatorcf = 0.12

estava 0.85

 

 

:D

Fico muito feliz quando o cliente fica feliz.. não é bom pessoal?

Muito obrigada a todos pela atenção!!

[Ted k' 126]

simples simples...

 

parabéns!