Ajuda Com Numeros.

LucasForever · Março 22, 2007

Boa noite novamente, estou montando um sistema de calculo de frete para uma loja virtual, está tudo funcionando perfeitamente exceto pelos valores inteiros, e fracionários, por exemplo:

Eu digito o numero do cep do destinatário e do remetente e ele me retorna o valor do frete R$ 34,00 (que esta correto).

Mas por exemplo se eu digitar 2 números de ceps próximos que era para ele me retornar por exemplo o valor R$ 9,50 (este seria o correto) mas ele me retorna o valor R$ 95,00 que está errado. o certo seria R$ 9,50.

ou seja os números inteiros ele retorna normal, mas os fracionários ele está me passando como se fossem inteiros também.

alguém já teve um problema parecido, pode me ajudar com isto por favor??

obrigado.

.Andreia. · Março 22, 2007

Isso está vindo do BD direto ou você está usando alguma mascara ou funcao ?

poste o codigo

LucasForever · Março 23, 2007

<link href="genesis.css" rel="stylesheet" type="text/css"> <table width=98% border=0 cellpadding="0" cellspacing="0">
<tr width=100%>
<td width=100% valign=top><table width="800" height="60" border="0" align="left" cellpadding="0" cellspacing="0" background="img/barra2.jpg">
<tr>
<td width="48%" class="menucategorias">  MINHAS COMPRAS</td>
<td width="52%" align="center" valign="middle">            
               
      
<a href="#" onClick="window.location='./listaprod.asp?'+unescape('<%=Request.QueryString("url_comp")%>')"><img src="img/continuarcomprando.gif" width="150" height="30" border="0"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td align=right> </td>
</tr>
<%
Dim acao,data_ped,prod_id,prod_quant,car_prod_id,car_prod_quant,temp,arrTemp,iten_id,loop1,car_iten_id,car_iten_quant,car_iten_prod,car_total,car_subtotal
acao = Request.querystring("acao")
prod_id = Request.querystring("prod_id")
prod_quant = Request.querystring("prod_quant")
car_iten_id = Request.querystring("car_iten_id")
Car_frete = Request.QueryString("Tarifa")
'Verifica se a quantidade é um número válido
If acao = "incluir" AND prod_quant = "0" OR Not IsNumeric(Request.QueryString("prod_quant")) Then
acao = ""
%>
<tr width=100%>
<td width=100%>Quantidade
de produtos inválida 
Clique <a href="java script:history.back()">aqui</a>
para voltar.</td>
</tr>
<%
End If
Select Case acao
Case "incluir"
Dim car_prod_inc,prod_nome,prod_preco,prod_imagem
temp = ""
set car_prod_inc = lojaDB.Execute("SELECT * FROM produtos WHERE id="& prod_id &" AND disp='S'")
prod_nome = car_prod_inc("nome")
prod_preco = car_prod_inc("preço")
prod_imagem = car_prod_inc("imagem")

If IsEmpty(Session("iten_id")) Then
Session("iten_id") = 1
Else
Session("iten_id") = Session("iten_id") + 1
End If
iten_id = Session("iten_id")
temp = iten_id & "&" & prod_id & "&" & prod_quant
If Not IsEmpty(Session("car_prod_id")) AND IsArray(Session("car_prod_id")) Then
For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))
temp = temp & "/" & session("car_prod_id")(loop1)
Next
End If
arrTemp = Split(temp,"/")
Session("car_prod_id") = arrTemp
%>
<tr width=100%>
<td width=100%> </td>
</tr>
<tr width=100%>
<td width=100% valign="top"> <table width=100% border=0 cellpadding="4" cellspacing="0" background="img/fcomprar.jpg">
<tr align="left" width=100%>
<th colspan="6" valign="middle">  PRODUTO
INCLUIDO </th>
</tr>
<tr width=100%>
<th valign="middle">Cod.</th>
<th width="32%" valign="middle">Produto</th>
<th width="9%" valign="middle">Quant.</th>
<th width="14%" valign="middle">Valor/Unid</th>
<th width="14%" valign="middle">ValorTotal</th>
<th width="20%" valign="middle">Pedido</th>
</tr>
<tr width=100%>
<th width="11%" valign="middle" bgcolor="#FFFFFF"> </th>
<th width="32%" valign="middle" bgcolor="#FFFFFF"> </th>
<th width="9%" valign="middle" bgcolor="#FFFFFF"> </th>
<th width="14%" valign="middle" bgcolor="#FFFFFF"> </th>
<th width="14%" valign="middle" bgcolor="#FFFFFF"> </th>
<th width="20%" valign="middle" bgcolor="#FFFFFF"> </th>
</tr>
<tr align=center valign=top width=100%>
<td width="11%" valign="middle" bgcolor="#FFFFFF" class="tabela1pxCopy2">Cod.: <%=iten_id%>
<td width="32%" align=left valign="middle" bgcolor="#FFFFFF" class="tabela1pxCopy2"><img src=./images_p/<%=prod_imagem%>.jpg width="60" border="0" align="absmiddle">   <%=prod_nome%></td>
<td width="9%" valign="middle" bgcolor="#FFFFFF" class="tabela1pxCopy2"><%=prod_quant%></td>
<td width="14%" valign="middle" bgcolor="#FFFFFF" class="tabela1pxCopy2">R$<%=FormatNumber(prod_preco,2,-1,0,-1)%></td>
<td width="14%" valign="middle" bgcolor="#FFFFFF" class="tabela1pxCopy2">R$<%=FormatNumber(prod_preco*prod_quant,2,-1,0,-1)%></td>
<td width="20%" valign="middle" bgcolor="#FFFFFF"><a href="./carrocompras.asp?acao=excluir&car_iten_id=<%=iten_id%>&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>">Retirar
do Carrinho 
 
<img src="img/retirardocarro.gif" width="30" height="19" border="0" align="absmiddle"></a></td>
</tr>
</table>
<%
Case "excluir"
'Exclui o Id do produto no carrinho
temp = ""
If Not (IsEmpty(Session("car_prod_id"))) Then
For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))
arrTemp = Split(Session("car_prod_id")(loop1),"&")
iten_id = arrTemp(0)
car_iten_prod = arrTemp(1)
car_iten_quant = arrTemp(2)
If Not (iten_id = car_iten_id) Then
If temp = "" Then
temp = session("car_prod_id")(loop1)
Else
temp = temp & "/" & session("car_prod_id")(loop1)
End If
End If
Next
If temp = "" Then
Session("car_prod_id") = ""
Else
arrTemp = Split(temp,"/")
Session("car_prod_id") = arrTemp
End IF
End If
Case "zerar"
Session("car_prod_id") = ""
End Select
'Exibe Pedido Atual
temp = ""
%>
<tr width=100%>
<td width=100%><h3> </h3></td>
</tr>
<tr width=100%>
<td width=100% align="center" valign="middle">
<%
If IsEmpty(Session("car_prod_id")) or Not IsArray(Session("car_prod_id")) Then
%>
<img src="img/carrinhovazio.gif" border="0">
<%
Else
Dim car_prod_nome,car_prod_preco,car_prod_imagem,malha1,car_prod_atual,car_frete,car_totalv
malha1 = "sim"
%>
<table width=100% border=0 cellpadding="4" cellspacing="0" background="img/fcomprar.jpg">
<tr align="left" valign="middle" width=100%>
<th colspan="6">  PEDIDO ATUAL</th>
</tr>
<tr width=100%>
<th align="center">Cod.</th>
<th width="32%" align="center">Produto</th>
<th width="9%" align="center">Quant.</th>
<th width="14%" align="center">Valor/Unid</th>
<th width="14%" align="center">Valor
Total</th>
<th width="20%" align="center">Pedido</th>
</tr>
<tr width=100%>
<th colspan="6" align="center" bgcolor="#c8c8c8"> </th>
</tr>

<%

For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))
arrTemp = Split(Session("car_prod_id")(loop1),"&")
car_iten_prod = arrTemp(1)
set car_prod_atual = lojaDB.Execute("SELECT * FROM produtos WHERE id="& car_iten_prod &" AND disp='S'")
car_prod_nome = car_prod_atual("nome")
car_prod_preco = car_prod_atual("preço")
car_prod_imagem = car_prod_atual("imagem")
arrTemp = Split(Session("car_prod_id")(loop1),"&")
car_iten_id = arrTemp(0)
car_iten_quant = arrTemp(2)
car_frete = Car_frete
car_subtotal = car_iten_quant * car_prod_preco
car_total = car_total + car_subtotal
car_totalv = car_total + car_frete
%>
<tr class=<%=malha1%>>
<td width="11%" align="center" valign="middle" class="tabela1pxCopy2">Cod.: <%=car_iten_id%></td>
<td align=center valign="middle" class="tabela1pxCopy2"> <table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="35%" align="left" valign="middle"><img src=./images_p/<%=car_prod_imagem%>.jpg width="60" border="0" align="middle"></td>
<td width="65%" align="left" valign="middle" class="titulodoproduto"><%=car_prod_nome%></td>
</tr>
</table></td>
<td width="9%" align="center" valign="middle" class="tabela1pxCopy2"><%=car_iten_quant%></td>
<td width="14%" align="center" valign="middle" class="tabela1pxCopy2">R$ <%=FormatNumber(car_prod_preco,2,-1,0,-1)%></td>
<td width="14%" align="center" valign="middle" class="tabela1pxCopy2">R$ <%=FormatNumber(car_subtotal,2,-1,0,-1)%></td>
<td width="20%" align="center" valign="middle" ><a href="./carrocompras.asp?acao=excluir&car_iten_id=<%=car_iten_id%>&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>">Retirar
do carrinho 
 
<img src="img/retirardocarro.gif" width="30" height="19" border="0" align="absmiddle"></a></td>
</tr>
<%
If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If
car_prod_atual.Close
set car_prod_atual = Nothing
Next
%>
<tr class=<%=malha1%>>
<td width="11%" bgcolor="#c8c8c8" class="tabela1pxCopy2"> </td>
<td width="32%" bgcolor="#c8c8c8" class="tabela1pxCopy2"> </td>
<td width="9%" bgcolor="#c8c8c8" class="tabela1pxCopy2"> </td>
<td width="14%" bgcolor="#c8c8c8" class="tabela1pxCopy2"> </td>
<td width="14%" bgcolor="#c8c8c8" class="tabela1pxCopy2"> </td>
<td width="20%" bgcolor="#c8c8c8"> </td>
</tr>
<tr class=<%=malha1%>>
<td align="center" bgcolor="#FFFFFF"> </td>
<td width="32%" align="center" bgcolor="#FFFFFF"></td>
<td width="9%" align="center" bgcolor="#FFFFFF"> </td>
<td width="14%" height="15" align="right" valign="middle" bgcolor="#FFFFFF">Sub
Total :</td>
<td width="14%" height="15" align="center" valign="middle" bgcolor="#FFFFFF">R$ <%=FormatNumber(car_total,2,-1,0,-1)%></td>
<td width="20%" height="15" align="center" valign="middle" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td colspan="3" align="center"><form action="<%Request.ServerVariables("SCRIPT_NAME")%>" method="get" name="form1" ID="Form1">
<table width="100%" border="0" cellpadding="0" cellspacing="0" ID="Table1">
<tr align="left" valign="middle">
<td colspan="3">Calcule
aqui o seu frete</td>
</tr>
<tr align="left">
<td colspan="2">Ponha
o Cep de destino:</td>
<td width="52%" valign="middle"> 
<input name="cepDestino" type="text" id="Text1" value="" size="8" maxlength="8">
<input type="submit" name="Submit" value="Calcular" id="Submit2">
<input type="hidden" name="cepOrigem" value="59628080" id="Hidden1">
<input type="hidden" name="buscafrete" value="1" id="buscafrete">
<input type="hidden" name="peso" value="1" id="peso">
</td>
</tr>
<tr align="left">
<td width="24%"> 
<%
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1990 00:00:01#
Response.Expires=Now()-1
Response.AddHeader "Cache-Control", "must-revalidate"
Response.AddHeader "Cache-Control", "no-cache"
%>
Destino:</td>
<td><%=Request.QueryString("UFdestino")%></td>
<td rowspan="2" align="center" valign="middle">Clique
<a href="#">AQUI</a> para tirar dúvidas sobre o frete</td>
</tr>
<tr align="left">
<td>Local:</td>
<td><%=Request.QueryString("LocalDestino")%></td>
</tr>
</table>
</form></td>
<td width="14%" align="right" valign="middle" bgcolor="#FFFFFF"> Frete
:</td>
<td width="14%" align="center" valign="middle" bgcolor="#FFFFFF" >R$ <%=FormatNumber(car_frete,2,-1,0,-1)%></td>
<td width="20%" align="center" valign="middle" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td height="60" colspan="2" align="left" bgcolor="#FFFFFF"><a href="#" onClick="window.location='./listaprod.asp?'+unescape('<%=Request.QueryString("url_comp")%>')"><img src="img/continuarcomprando2.gif" width="180" height="30" border="0"></a></td>
<td width="9%" align="center" bgcolor="#FFFFFF"> </td>
<td width="14%" height="60" align="right" valign="middle">TOTAL
:</td>
<td width="14%" height="60" align="center" valign="middle"><%=FormatNumber(car_totalv,2,-1,0,-1)%></td>
<td height="60" align="center" valign="middle" bgcolor="#FFFFFF"><a href="./fecharpedido.asp"><img src="img/concluircompra.gif" border="0"></a></td>
</tr>
<tr class=<%=malha1%>>
<td align="center" bgcolor="#FFFFFF"> </td>
<td width="32%" align="center" bgcolor="#FFFFFF"></td>
<td width="9%" align="center" bgcolor="#FFFFFF"> </td>
<td height="4" align="center" valign="middle" bgcolor="#FFFFFF" class="preço"> </td>
<td width="14%" height="4" align="center" valign="middle" bgcolor="#FFFFFF" class="preço"> </td>
<td height="4" align="center" valign="middle" bgcolor="#FFFFFF"> </td>
</tr>
<tr class=<%=malha1%>>
<td align="center" bgcolor="#FFFFFF"> </td>
<td width="32%" align="center" bgcolor="#FFFFFF"></td>
<td width="9%" align="center" bgcolor="#FFFFFF"> </td>
<td height="4" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" class="preço"><a href="./carrocompras.asp?acao=zerar&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>"><img src="img/cancelartudo.gif" width="180" height="30" border="0"></a></td>
<td height="4" align="center" valign="middle" bgcolor="#FFFFFF"> </td>
</tr>
</table>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<% End If %></td></tr>
</table>

obrigado por se importar...está ai o codigo...ele funciona normalmente...so está dando este erro de numeros...obrigado...

Editado Março 23, 2007 por LucasForever

Graymalkin · Março 23, 2007

Experimente usar a função Cdbl() ao pegar o valor deste campo no recordset.

Abraços,

Graymalkin

Marcos-rj · Março 23, 2007

Esse calculo de frete é online pelo site dos correios ou offline?

você esta usando alguma função para formatar valor?

e outra coisa, posta o código que faz o calculo do frete. vai ficar + facil p/ ajudar.

LucasForever · Março 23, 2007

Amigo marcos, acho que a função que faz todo o processo de calculo está no site do correio, já que este codigo puxa os valores on-line de lá.

o codigo de frete, eu peguei em um site que não me lembro qual agora...funcionou legal...so que eu tive que adaptar para que fosse feito o calculo já na página do carrinho de compras, antes de fechar o pedido.

Experimente usar a função Cdbl() ao pegar o valor deste campo no recordset.

amigo, onde eu ponho esta função??

---------------------------------------------------------------

eu descobri uma coisa agora... quando o valor vem do site do correio ele vem como R$ 9.5 .... será que tem alguma coisa a ver com ele aparecer no meu codigo R$ 95,00 ??..... por que os valores inteiros ficam normais...

Editado Março 23, 2007 por LucasForever

Marcos-rj · Março 23, 2007

Eu também estou montando uma loja virtual. esta quase pronta.

loja.guiacopa.com.br

Para formatar valor eu to usando.

FormatCurrency()

Tipo: FormatCurrency("9,5") - Retorna: R$ 9,50

Graymalkin · Março 24, 2007

eu descobri uma coisa agora... quando o valor vem do site do correio ele vem como R$ 9.5 .... será que tem alguma coisa a ver com ele aparecer no meu codigo R$ 95,00 ??..... por que os valores inteiros ficam normais...

Ele vem com o ponto? Então você tem que usar Val(). Se ele viesse com a vírgula você usaria Cdbl().

Abraços,

Graymalkin

LucasForever · Março 26, 2007

certo amigo Graymalkin, obrigado, mas, onde eu uso Val()?? tem como você ver no codigo acima e me mostrar por favor?? :P

Graymalkin · Março 27, 2007

Você tem que usar no valor que vem do site dos Correios. Onde está parte ali no código acima?

Graymalkin

LucasForever · Março 27, 2007

Ai amigo Graymalkin,

o código que pega os valores no site do correios é este aqui:

<%
Response.AddHeader "cache-control", "private" 
Response.AddHeader "pragma", "no-cache" 
Response.ExpiresAbsolute = #January 1, 1990 00:00:01# 
Response.Expires=Now()-1 
Response.AddHeader "Cache-Control", "must-revalidate" 
Response.AddHeader "Cache-Control", "no-cache"

Car_frete = Request.QueryString("Tarifa")


If Request("buscafrete")=1 Then
    Dim UrlResposta
    '---------AQUI A SUA URL DE RESPOSTA-------------------------------
    UrlResposta    =    "http://localhost/livrariagenesis/lojavirtual3/carrocompras.asp"    
    '------------------------------------------------------------------
    
    Response.Redirect("http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=" & Request("cepOrigem") & "&cepDestino=" & Request("cepDestino") & "&valorDeclarado="& Request("valorDeclarado")& "&peso=" & Request("peso") & "&resposta=" & UrlResposta & "")

End if
%>

este é o form que envia os ceps, um cep fica sempre definido.

<form action="<%Request.ServerVariables("SCRIPT_NAME")%>" method="get" name="form1" ID="Form1">
              <table width="100%" border="0" cellpadding="0" cellspacing="0" ID="Table1">
                <tr align="left" valign="middle"> 
                  <td colspan="3"><strong><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Calcule 
                    aqui o seu frete</font></strong></td>
                </tr>
                <tr align="left"> 
                  <td colspan="2"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Ponha 
                    o Cep de destino:</font></td>
                  <td width="52%" valign="middle"> <font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif"> 
                    <input name="cepDestino" type="text" id="Text1" value="" size="8" maxlength="8">
                    <input type="submit" name="Submit" value="Calcular" id="Submit2">
                    <input type="hidden" name="cepOrigem" value="59628080" id="Hidden1">
                    <input type="hidden" name="buscafrete" value="1" id="buscafrete">
                    <input type="hidden" name="peso" value="1" id="peso">
                    </font></td>
                </tr>
                <tr align="left"> 
                  <td width="24%"> <font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif">&nbsp; 
                
                    </font><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Destino:</font></td>
                  <td><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Request.QueryString("UFdestino")%></font></td>
                  <td rowspan="2" align="center" valign="middle"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Clique 
                    <a href="#">AQUI</a> para tirar d&uacute;vidas sobre o frete</font></td>
                </tr>
                <tr align="left"> 
                  <td><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Local:</font></td>
                  <td><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Request.QueryString("LocalDestino")%></font></td>
                </tr>
              </table>
            </form>

o codigo que faz a conta dos valores que tem no carrinho é este aqui

<%
        
        For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id")) 
        arrTemp = Split(Session("car_prod_id")(loop1),"&")
        car_iten_prod = arrTemp(1)
        set car_prod_atual = lojaDB.Execute("SELECT * FROM produtos WHERE id="& car_iten_prod &" AND disp='S'")
        car_prod_nome = car_prod_atual("nome")
        car_prod_preco = car_prod_atual("preço")
        car_prod_imagem = car_prod_atual("imagem")
        arrTemp = Split(Session("car_prod_id")(loop1),"&")
        car_iten_id = arrTemp(0)
        car_iten_quant = arrTemp(2)
        car_subtotal = car_iten_quant * car_prod_preco
        car_total = car_total + car_subtotal
        car_totalv = car_total + car_frete 
        %>

o que mostra o valor do frete na tela é este:

<%=FormatNumber(car_frete,2,-1,0,-1)%>

ok, espero que agora dê para você entender melhor...muito obrigado e aguardo sua resposta.

:rolleyes: :rolleyes:

Graymalkin · Março 28, 2007

Ainda não deu pra me localizar bem (mas ASP é meio bagunçado mesmo), mas seria algo assim:

Car_frete = Val(Request.QueryString("Tarifa"))

Isso supondo que a linha acima seria a que obtém o valor do frete.

Abraços,

Graymalkin

LucasForever · Março 28, 2007

Realmente este código é o que pega o valor retornado do site do correio, depois ele vai para o codigo responsavel pela soma do frete com os valores do carrinho.

mas este que você me passou não está funcionando não, está dando um erro:

Erro de tempo de execução do Microsoft VBScript erro '800a000d' 
Tipos incompatíveis

acho que tem de ser alguma função que faça com que o valor retornado do site do correio não fique com "." e sim com ",".

ou algo do tipo, fico no aguardo novamente e obrigado.

Graymalkin · Março 28, 2007

Afinal de contas... ele vem com vírgula ou com ponto? Você já tentou a função Cdbl()?

Graymalkin

LucasForever · Março 29, 2007

e eu já tentei usar este Cdbl() que você falou, mas deu erro... não sei porque. ou usei no lugar errado.

os dados do correios vem vem com ponto, tipo :

10.5

10

9.5

5.5

20

ai depois vai para o codigo faz a soma que é este:

-------------------------------------

<%

For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))

arrTemp = Split(Session("car_prod_id")(loop1),"&")

car_iten_prod = arrTemp(1)

set car_prod_atual = lojaDB.Execute("SELECT * FROM produtos WHERE id="& car_iten_prod &" AND disp='S'")

car_prod_nome = car_prod_atual("nome")

car_prod_preco = car_prod_atual("preço")

car_prod_imagem = car_prod_atual("imagem")

arrTemp = Split(Session("car_prod_id")(loop1),"&")

car_iten_id = arrTemp(0)

car_iten_quant = arrTemp(2)

car_subtotal = car_iten_quant * car_prod_preco

car_total = car_total + car_subtotal

car_totalv = car_total + car_frete

%>

-------------------------------------------------

dai tem 2 valores para aparecer: o frete e o total, que seriam:

--------------------------------------------------

'valor do frete

<%=FormatNumber(car_frete,2,-1,0,-1)%>

'total em R$ dos pedidos no carrinho

<%=FormatNumber(car_totalv,2,-1,0,-1)%>

eu acho que ou se coloca uma função la no script que vem do correio, tipo no: Car_frete = Request.QueryString("Tarifa")

ou em algum trecho que faz a soma dos valores, onde o valor do frete vai aparecer, tipo:

--------------------------------------------------

<%

For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))

arrTemp = Split(Session("car_prod_id")(loop1),"&")

car_iten_prod = arrTemp(1)

set car_prod_atual = lojaDB.Execute("SELECT * FROM produtos WHERE id="& car_iten_prod &" AND disp='S'")

car_prod_nome = car_prod_atual("nome")

car_prod_preco = car_prod_atual("preço")

car_prod_imagem = car_prod_atual("imagem")

arrTemp = Split(Session("car_prod_id")(loop1),"&")

car_iten_id = arrTemp(0)

car_iten_quant = arrTemp(2)

car_frete = função ou escript aqui....

car_subtotal = car_iten_quant * car_prod_preco

car_total = car_total + car_subtotal

car_totalv = car_total + car_frete

%>

------------------------------------------------------------------

eu so não sei montar esta função ou script...será que você sabe??

obrigado. :blink: :blink:

Editado Março 29, 2007 por LucasForever

Graymalkin · Março 29, 2007

Faz um teste colocando o seguinte:

car_frete = val("9.5")

Veja se funciona e depois me fala.

Abraços,

Graymalkin

LucasForever · Março 29, 2007

eu coloquei

deu isto:

Erro de tempo de execução do Microsoft VBScript erro '800a01f4' 
Variável não definida: 'Val'

epois defini a variavel Val ai deu este erro:

Erro de tempo de execução do Microsoft VBScript erro '800a000d' 
Tipos incompatíveis

no aguardo...

Graymalkin · Março 29, 2007

Realmente, não tem Val() no VBScript (mas tem no VB). De qualquer maneira, acho que Cdbl() em conjunto com Replace() pode dar certo:

v = cdbl(replace("9.5", ".", ","))
Response.Write(v)

Veja se funciona aí. Se funcionar, é só você colocar o valor do frete que vem do site dos Correios no lugar daquele "9.5".

Abraços,

Graymalkin

LucasForever · Março 30, 2007

amigo, está dando o seguinte erro quando uso o cdbl:

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

Tipos incompatíveis: 'cdbl'

dai eu tirei o Cdbl do codigo e ficou assim:

car_frete = replace("9.5", ".", ","), então acho que funcionou, ele me retornou o valor que você colocaou 9.5 com a virgula, dai apareceu assim 9,5. Bom, so preciso saber agora como substituo o valor que tem ai 9.5 pela que vem do correio??

o que vem do correio é a tarfia que eu pego assim: Car_frete = Request.QueryString("Tarifa").

obrigado novamente.

Editado Março 30, 2007 por LucasForever

Abril 2, 2007

Boa tarde galera... vim agradecer a todos que colaboraram com o meu codigo do correio, . aviso que agora esta tudo ok...obrigado Graymalkim...

não sei porque no meu pc não tava funcionando...mas quando transferi para o servidor, funcionou legal os códigos... obrigado novamente.

Entrar

Ajuda Com Numeros.

Pergunta

Link para o comentário

Compartilhar em outros sites

19 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest --lucasForever --

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns