Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Ted k'

Cálculo de FRETE

Recommended Posts

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!!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Join the conversation

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

Visitante
Responder

×   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.

Processando...
Entre para seguir isso  

×
×
  • Criar Novo...