Substituir Valores

[ratocuiara]

Olá pessoal, gostaria de saber se exite uma forma para substituir um valor retornado de um site de terceiros.

Vejam ó código a seguir me retorna os valores de frete dos correios.

<%

  Dim Tarifa

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

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

next

%>

Digamos que em uma determinada pesquisa o valor for de R$8,00 e em outra R$ 9,50

O que eu quero é que quando o valor for de R$8,00 me reportasse R$8,50

E que quando fosse R$ 9,50 me reportasse R$ 10,50

e assim por diante em vários outros valores.

A minha intensão com isso é poder informar na pesquisa o valor de 2 serviços dos correios, o sedex e a "Encomenda Normal" esse ultimo seria configurado por mim de acordo com o valor pesquisado no SEDEX e substituido pelo valor de Encomenda Normal.

Vamos lá pessoal, prometo que ao final vou postar os os códigos para todos usarem.

[fercosmig]

cara.. uma funçãozinha que arrendonda valor, pelo jeito não é isso que você quer mas talvez te ajude

[ratocuiara]

cara.. uma funçãozinha que arrendonda valor, pelo jeito não é isso que você quer mas talvez te ajude

<%

Function arredonda(numero)

dim numero1, numero2

arredonda = numero

numero1= numero

numero2 = Fix(numero)

If numero1 <> numero2 Then

arredonda = numero2 + 1

End If

end function

%>

abraços

Não amigo não é isso que quero.

veja isso:

<&

<%

Dim Tarifa

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

Response.Write(Tarifa ":" & Replace(Request.QueryString("Tarifa"),"8","8.75") & "<BR>")

next

%>

O código acima faz exatamente o que eu quero ele substitui "8" por "8.75"

O problema é que quando o resultado retorna o valor "18.5" ele troca por "18.75.5

Gostaria de saber se tem alguma formula de dibrar isso o uma função adquada a isso?

E lá vamo nois de novo, a cabeça ta quente soltando fumaça, to loco e não consigu nem drumi direito me ajudem socorro....

[fercosmig]

alterei a função ae

se o valor for de 8,00 até 8,74 ele coloca 8,75

se for de 8,75 até 8,99 ele coloca 9,50

é isso?

[ratocuiara]

infelizmente não é isso, tentei usar a função que você fez, e altera-la mode retornar o valor que desejo, sem chance. mais achei super interessante e vou usa-la.

Vou tentar lhe explicar de novo o que eu quero.

Veja isso:

SEDEX =1kg R$8,00 ==> 2kg R$ 18,50

Enc. Normal =1kg R$5,70 ==> 2kg R$ 8,30

O que eu quero é aproveitar o valor retornado dos correios, no caso o do SEDEX e com base nele configurar manualmente o valor da "Encomenda Normal"

Assim sendo R$8,00 do sedex eu diria a uma expresão que quando o valor for 8 retornar 5,70 e que quando o valor for 18.5 retornar 8,30

espero que tenha entendido.

É isso ai, vocês me ajudam e eu tento aki sem nenhum conhecimento de asp.

[bareta]

o que você quer é somar valores a tarifa né???

porque você não pega ela e soma a certa porcentagem?

[ratocuiara]

o que você quer é somar valores a tarifa né???

porque você não pega ela e soma a certa porcentagem?

ASP

tarifa=tarifa+(tarifa*10%)

Pensei nisto mais não dá pois a diferença de preço do sedex para a encomenda normal é muito alta em determinados estados e quase irrisórias em outros.

A questão ainda está aberta...

[ratocuiara]

Salve galera, bem como ninguém respondeu minha mensagem resolvi botar aki os códigos para pesquisar preço de frete através do site dos correios.

Ve ai se vocês conseguem melhorar, fiz até aonde meu conhecimento me permitia.

Abraços e Bom Proveito.

<%

If Request("busca")=1 Then

Dim UrlResposta

'----------------------RATO CUIARA BALLA-------------------------

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

UrlResposta = "http://localhost/frete/resposta.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">

<table width="400" ID="Table1">

<tr bgcolor="#FFFF00">

<td>Cep Origem:</td>

<td><strong>18300-430</strong>  <input type="hidden" name="cepOrigem" value="18300430" ID="Hidden1"></td>

</tr>

<tr bgcolor="#FFFF00">

<td>Cep Destino:</td>

<td><input type="text" name="cepDestino" value="" ID="Text1"></td>

</tr>

<tr bgcolor="#FFFF00">

<td>Peso:</td>

<td><input type="text" name="peso" value="" ID="Text2"></td>

</tr>

<tr bgcolor="#FFFF00">

<td>

<input type="hidden" name="busca" value="1" ID="Hidden3"></td>

<td><input type="submit" name="Submit" value="Enviar" ID="Submit1"></td>

</tr>

</table>

</form>

</body>

</html>

O código acima é a página de pesquisa.

<table width="232" border="0">

  <tr>

    <td width="111" bgcolor="#CC0000">CEP Origem:</td>

    <td width="111" bgcolor="#FFFF00"><div align="right">

        <%

Dim CEPo

For each CEPo in Request.QueryString("cepOrigem")

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

next

%>

    </div></td>

  </tr>

  <tr>

    <td bgcolor="#CC0066">CEP Destino:</td>

    <td bgcolor="#FFFF00"><div align="right">

      <%

Dim CEP

For each CEP in Request.QueryString("cepDestino")

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

next

%>

</div>

    </td>

  </tr>

  <tr>

    <td bgcolor="#CC0099">UF Origem:</td>

    <td bgcolor="#FFFF33"><div align="right">

        <%

Dim UFO

For each UFO in Request.QueryString("UForigem")

Response.Write(Request.QueryString("UForigem")& " - " & Request.QueryString("LocalOrigem")& "<BR>" )

next

%>

</div></td>

  </tr>

  <tr>

    <td bgcolor="#CC0099">UF Destino:</td>

    <td bgcolor="#FFFF33"><div align="right">

        <%

Dim UF

For each UF in Request.QueryString("UFdestino")

Response.Write(Request.QueryString("UFdestino") & " - " & Request.QueryString("LocalDestino") & "<BR>" )

next

%>

      </div>

    </td>

  </tr>

  <tr>

    <td bgcolor="#CC00CC">Peso:</td>

    <td bgcolor="#FFFF66"><div align="right">

        <%

Dim peso

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

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

next

%>

      </div>

    </td>

  </tr>

  <tr>

    <td bgcolor="#CC00FF">Valor:</td>

    <td bgcolor="#FFFFCC"><div align="right">

        <%

Dim Tarifa

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

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

next

%>

    </div></td>

  </tr>

</table>

<%

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"

%>

Esse é o código da página de resposta.

É isso ai galera se vocês conseguir melhorar por favor me comunique.

Abraços e bom proveito.

Ai que droga meu time empatou, salve o corinthians...............

[ratocuiara]

Hei vc....Acabou...

porque vocês não fecharam o tópico ainda.

bay bay

[bareta]

caso alguém queira adicionar ou perguntar mais alguma coisa... o tópico ta berto....