Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Ted k'

Cálculo de FRETE

Question

Olá galera, por ver muito os usuários pedirem cálculos de CEP, está æ o script pronto e bem arrumado!

Em primeira mão criei o arquivo Default.asp onde temos os campos de CEP de Destino, CEP de Origem e Peso (que será calculado com base nesse campo).

Criei uma condição de Request só para chamar o Cálculo, (Busca = 1)

Default.asp

<html>
<head>
</head>
<body>
<form method="get" name="form1" id="Form1" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME")) %>">
<input type="hidden" name="cepOrigem" value="40335620" id="Hidden1">
<input type="hidden" name="busca" value="1" id="Hidden3">
<table width="400" id="Table1">
<tr>
<td width="131">Cep de Origem:</td>
<td width="257">40335620</td>
</tr><tr>
<td>Cep de Destino:</td>
<td><input type="text" name="cepDestino" value="" id="Text1"></td>
</tr><tr>
<td>Peso:</td>
<td><input type="text" name="peso" value="1" id="Text2"></td>
</tr><tr>
<td>&nbsp;</td>
<td><input type="submit" name="Submit" value="Calcular" id="Submit1"></td>
</tr>
</table>
</form>
</body>
</html>
<%
If Request("busca") = 1 Then
        Dim UrlResposta
       
        '---------------- AQUI A SUA URL DE RESPOSTA ----------------------
                UrlResposta     =       "http://localhost/respostacorreios.asp" 
        '------------------------------------------------------------------
       
        '---------------- URL DOS CORREIOS, enviando as querys para o site do correios ----------------------
        Response.Redirect("http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=" & Request("cepOrigem") & "&cepDestino=" & Request("cepDestino") & "&peso=" & Request("peso") & "&resposta=" & UrlResposta & "")

End If
%>
Nessa outra página criei o recebimento das variáveis da query. Pequei campos báscios como - CEP de Origem - CEP de Destino - Peso - Serviço - Tarifa - UF de Origem - UF de Destino Segue o código abaixo bem simples! RespostaCorreios.asp
<style type="text/css">
<!--
.style1 {
        font-family: Verdana, Arial, Helvetica, sans-serif;
        font-size: 12px;
        color: #000000;
}
-->
</style>
<span class="style1">
<%
'---------------- AQUI, recebe o resultado da URL, tem mais dados só coloquei o báscio ----------------------
Response.Write("<strong>CEP de Origem :</strong> "&Request.QueryString("cepOrigem")&"<br>")
Response.Write("<strong>CEP de Destino :</strong> "&Request.QueryString("cepDestino")&"<br><br>")

        Response.Write("<strong>Peso :</strong> "&Request.QueryString("Peso")&"<br>")
        Response.Write("<strong>Serviço :</strong> "&Request.QueryString("Servico")&"<br>")
        Response.Write("<strong>Tarifa :</strong> "&Request.QueryString("Tarifa")&"<br><br>")
       
Response.Write("<strong>UF de Origem :</strong> "&Request.QueryString("UFOrigem")&"<br>")
Response.Write("<strong>UF de Destino :</strong> "&Request.QueryString("UFdestino")&"/"&Request.QueryString("LocalDestino")&"<br>")
%>
</span>

Qualquer crítica, sugestão de código será sempre bem vinda! Abraços a Todos!!!!!

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Cara, esse código acima só diz respeito a sedex... Gostaria de fazer algo parecido, mas podendo alterar o tipo de postagem (sedex, sedex10 e pac)

Como poderia fazer?

Edited by quintelab
Removido quote, removido caixa alta do texto

Share this post


Link to post
Share on other sites
  • 0

tem outro código nessa seção da uma olhada nele.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148575
    • Total Posts
      644272
×
×
  • Create New...