Tem Como?

ratocuiara · Setembro 19, 2005

Olá oi eu aki traveis.

Pessol estou sugando as informações sobre frete do site dos correios essa expresão abaixo mostra o valor do frete.

<%

Dim Tarifa

For each Tarifa in Request.QueryString ("Tarifa")

Response.Write("Tarifa" & " : R$ " & Request.QueryString("Tarifa") & "<BR>")

gostaria de saber como faço para somar o valor da tarifa a mais um valor fixo.

EX: Tarifa + 1,50

Há ia me esquecendo vê ai se tem como o resultado ser decimal.

Abraços

ratocuiara · Setembro 19, 2005

Desculpe por ter duplicado os posts a página de confimação estava dando erro

ratocuiara · Setembro 19, 2005

Olá oi eu aki traveis.
Pessol estou sugando as informações sobre frete do site dos correios essa expresão abaixo mostra o valor do frete.
<%
Dim Tarifa
For each Tarifa in Request.QueryString ("Tarifa")
Response.Write("Tarifa" & " : R$ " & Request.QueryString("Tarifa") & "<BR>")
next
%>
gostaria de saber como faço para somar o valor da tarifa a mais um valor fixo.
EX: Tarifa + 1,50
Há ia me esquecendo vê ai se tem como o resultado ser decimal.
Abraços

Pessoal consegui somar vejam como ficou.

<%

Dim Tarifa

For each Tarifa in Request.QueryString ("Tarifa")

Response.Write("Tarifa" & " : R$ " & Request.QueryString("Tarifa")+1.50 & "<BR>")

Agora só preciso saber como exibir o resultado em formato decimal ou moeda

vamo que vamo

Abraços

.Andreia. · Setembro 20, 2005

Use FormatCurrency, exemplo:

<%= FormatCurrency(valor) %>

ratocuiara · Setembro 20, 2005

Use FormatCurrency, exemplo:
<%= FormatCurrency(valor) %>

beleza cara mais onde devo encaixar isso na expressão, tentei de tudo e nada.

fercosmig · Setembro 20, 2005

ratocuiara · Setembro 20, 2005

ASP
<%
Dim Tarifa
For each Tarifa in Request.QueryString ("Tarifa")
With Response
.Write "Tarifa: R$ "
.Write FormatCurrency(Request.QueryString("Tarifa")+1.50)
.Write "<BR>"
End With
next
%>

Não deu certo o codigo que você me enviou, mais fuçando aqui eu consegui veja como ficou.

<%

Dim Tarifa

For each Tarifa in Request.QueryString("Tarifa")

Response.Write(FormatCurrency(Valor & Request.QueryString("Tarifa")+1.50) & "<BR>")

Agora amigos estou com um grande problema.

O site dos correios onde sugo as informações me repassa o valor acompanhado de ponto e não de vigula, sendo assim o código interpleta ele sendo um numero inteiro e não decimal. até ai sem problemas é só dividir o valor inteiro por dez e estária tudo resolvido certo? errado.

Vejam esses exemplos:

Frete de 1Kg para um determinado cep: Tarifa: 31.20\10=R$31,20 "tudo OK"

Frete de 17k para um determinado cep: Tarifa: 231.1999\10=R$231199,90 "Ferrou Tudo"

Notem que o segundo calculo deveria me passar o valor de R$ 231,19 arredondando R$ 231,20.

Não sei se tem aguma formula para diblar isso, caso tenha potem ai.

Abraços.

fercosmig · Setembro 20, 2005

troca o ponto por virgula

ViniciusJau · Setembro 20, 2005

você pode usa ro round então !!

dá um olhada no forum sobre ROUND

ratocuiara · Setembro 20, 2005

troca o ponto por virgula
ASP
replace(variavel,".",",")
abraços

Legal amigo funcionou parcialmente.

Veja o valor seria: R$ 231,19 ou arredondando R$ 231,20

O objeto no formato moeda reportou o seguinte valor: R$ 2,311,999,00

O objeto sem estar no formato moeda 17 kg reportou: 231,1999

O objeto sem estar no formato moeda 1 kg reportou: 18,9

O objeto sem estar no formato moeda 1 kg mesmo cep reportou: 8

Note que no formato moeda todos os pontos tornaram-se virgulas e o valor ficou ilegivel, no segundo exemplo as casas decimais ultrapassam de 2 unidades, no exempo 3 não atinge as duas casas decimais e no exemplo 4 o numero se apresenta inteiro

Será que você ou outros ai tem aguma carta escondida na manga para resolver isso.

Espero que sim abraços.

fercosmig · Setembro 20, 2005

amigo, tenta usar esta funcão:

ratocuiara · Setembro 20, 2005

Não resolveu amigo ele reporta o numero interiro seguido de ,00 veja exemplos.

Valor =8.5

Reportou= 85,00

por um acaso existe posibilidade de alterar o caminho na barra de endereço? veja o caminho completo:

"http://localhost/frete/respostacorreios.asp?Servico=SEDEX&cepOrigem=18300430&cepDestino=06210430&UFOrigem=SP&LocalOrigem=Interior&UFdestino=SP&LocalDestino=Capital&Peso=1&MaoPropria=0&AvisoRecebimento=0&valorDeclarado=0&Tarifa=8.5&erro="

Observa o campo Tarifa. Teria com substituir o ponto por virgula.

veja os códigos:

Página default.asp

<%

If Request("busca")=1 Then

Dim UrlResposta

'---------AQUI A SUA URL DE RESPOSTA-------------------------------

UrlResposta = "http://localhost/frete/respostacorreios.asp"

'------------------------------------------------------------------

Response.Redirect("http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=" & Request("cepOrigem") & "&cepDestino=" & Request("cepDestino") & "&peso=" & Request("peso") & "&resposta=" & UrlResposta & "")

End if

%>

<html>

<head>

</head>

<body>

<form action="<%Request.ServerVariables("SCRIPT_NAME")%>" method="get" name="form1" ID="Form1">

<tr>

<td>Cep Origem:</td>

<td>18300430

</tr>

<tr>

<td>Cep Destino:</td>

</tr>

<tr>

</tr>

<tr>

<td>

</tr>

</table>

</form>

</body>

</html>

_____________________________________________________________________

página respostacorreios.asp

</table>

<tr>

<td bgcolor="#00FF00"><%

Response.Buffer= True

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"

%>

<%

Response.Write "<center><div id='Carregando' style='display:block;'><br><br>"

Response.Write "<font face='Arial, Tahoma' size='2' color='#330099'><b>Aguarde carregando...</b></font><br><br>"

Response.Write "<img src='progressbar.gif' alt='Carregando...' border='0' height='17' width='94'>"

Response.Write "</div></center>"

'Response.Buffer = True

Response.Flush()

Response.Write "<script language='javascript'>document.All.Carregando.style.display = 'none';</script>"

%>

</td>

</tr>

<tr>

<%

Function FormataMoeda(Tarifa)

dim sp, sv, v

sp = Mid(FormatNumber(1000, 0, -1, 0, -1),2,1)

sv = Mid(FormatNumber(0.1, 1, -1, 0, -1),2,1)

If isNumeric(Tarifa) Then

v = FormatNumber (Tarifa, 2, -1, 0, -1)

Else

v = FormatNumber (0, 2, -1, 0, -1)

End If

v = Replace(v, sp, "p")

v = Replace(v, sv, "v")

v = Replace(v, "p", ".")

v = Replace(v, "v", ",")

FormataMoeda = v

End Function

%>

<%

Dim Tarifa

For each Tarifa in Request.QueryString("Tarifa")

Response.Write(FormataMoeda(Request.QueryString("Tarifa")) & "<BR>")

</div></td>

</tr>

<tr>

<td bgcolor="#9900FF"><%

Dim Tarifa2

For each Tarifa2 in Request.QueryString("Tarifa")

Response.Write("Tarifa2" & " : " & FormatCurrency(valor & Request.QueryString("Tarifa")) & "<BR>")

</td>

</tr>

<tr>

<%

Dim Peso

For each Peso in Request.QueryString ("Peso")

Response.Write("Peso" & " : " & Request.QueryString("Peso") & " Kg" & "<BR>")

</td>

</tr>

</table>

ratocuiara · Setembro 20, 2005

E ai alguém se candidata a resolver.

vocês saberiam me dizer se tem como eu substituir um valor. Calma eu explico

vejam o site me reporta o valor de: 231.1999

Oque eu quero é uma expressão que diga que quando o valor for:231.1999 mostrar 24,50 entenderam?

É a mesma coisa de 1+1=3

Espero que possam me ajudar

Estamos chegando perto

Abraços

cyberalexxx · Setembro 21, 2005

E ai alguém se candidata a resolver.
vocês saberiam me dizer se tem como eu substituir um valor. Calma eu explico
vejam o site me reporta o valor de: 231.1999
Oque eu quero é uma expressão que diga que quando o valor for:231.1999 mostrar 24,50 entenderam?
É a mesma coisa de 1+1=3
Espero que possam me ajudar
Estamos chegando perto
Abraços

não da pra simplesmente comparar?

if valorretornado = "231.1999" then
   valor = 24,50 
end if

ratocuiara · Setembro 21, 2005

não da pra simplesmente comparar?
if valorretornado = "231.1999" then
   valor = 24,50 
end if

Veja se o código se propor a isso da sim mais vale lembrar que terá vários valores a substituir.

O código abaixo me retorna os valores vindos dos correios

<%
Dim Tarifa
For each Tarifa in Request.QueryString("Tarifa")
Response.Write(Request.QueryString("Tarifa") & "<BR>")
next
%>

Aonde eu encaixaria essa função

Abraços

ratocuiara · Setembro 22, 2005

Pessoal podem fechar esse tópico, já abri outro com outra duvida abraços

bareta · Setembro 22, 2005

beleza

Entrar

Tem Como?

Pergunta

Link para o comentário

Compartilhar em outros sites

16 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

Estatísticas dos Fóruns