Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

PRSolucaoWeb

Calculo Frete site correios

Por , em ASP Clássico

Recommended Posts

PRSolucaoWeb    0

PRSolucaoWeb
Postado

Boa tarde

Eu peguei um script onde posso fazer um calculo de frete pelo site do correios.

Só que não consigo fazer funcionar.

Quando mando calcular, ele entra no webservice do correrios e não na pagina respostacorrerios.asp.

 

Segue o arquivo

 

calculo.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<html>
<head>
</head>

<%
If Request("busca") = 1 Then
Dim UrlResposta

'---------------- AQUI A SUA URL DE RESPOSTA ----------------------
UrlResposta = "http://www.portalogika.com.br/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
%>

<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"> </td>
<td width="257"> </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="0.300" id="Text2"></td>
</tr><tr>
<td> </td>
<td><input type="submit" name="Submit" value="Calcular" id="Submit1"></td>
</tr>
</table>
</form>
</body>
</html>

 

 

respostacorreios.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sem título</title>
</head>

<body>
<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>
</body>
</html>

 

POR FAVOR SE PUDEREM ME AJUDAR FICAREI MUITO AGRADECIDO!!!!

 

Muito obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum erro?

 

olha este outro exemplo, testa ai...

 

Tabela de Serviço dos correios.
41106 - PAC
40010 – SEDEX
40215 - SEDEX 10
40290 - SEDEX HOJE
81019 - e-SEDEX
44105 - MALOTE



Default.asp.

 



<%
If Request("busca")=1 Then
Dim UrlResposta


'URL De resposta, coloque o caminho onde está o seu arequivo de resposta.
UrlResposta = "http://seusite.com.br/correios/respostacorreios.asp"
'------------------------------------------------------------------

ssql = empty
ssql = ssql & "http://www.correios.com.br/encomendas/precos/calculo.cfm"
ssql = ssql & "?cepOrigem=" & Request("cepOrigem") & ""
ssql = ssql & "&cepDestino=" & Request("cepDestino") & ""
ssql = ssql & "&peso=" & Request("peso") & ""
ssql = ssql & "&servico=" & Mid(Request("servico"),1,5) & ""
ssql = ssql & "&valorDeclarado=" & Request("valor") & ""
ssql = ssql & "&MaoPropria=n"
ssql = ssql & "&avisoRecebimento=n"
ssql = ssql & "&resposta=" & UrlResposta  & ""

Response.Redirect(ssql)

End if
%>

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

Cep Origem:<br>
<input type="text" name="cepOrigem" value="" ID="Text1"><br>

Cep Destino:<br>
<input type="text" name="cepDestino" value="" ID="Text2"><br>

Peso:<br>
<input type="text" name="peso" value="" ID="Text3"><br>

Serviço:<br>
<select name="servico" class="frmtextcmb">
    <option Selected> -- ESCOLHA O SERVIÇO -- </option>
    <option> 41106 - PAC</option>
    <option> 40010 - SEDEX</option>
    <option> 40215 - SEDEX 10 </option>
    <option> 40290 - SEDEX HOJE </option>
    <option> 81019 - e-SEDEX </option>
    <option> 44105 - MALOTE </option>

</select><br />

Valor:<br>
<input type="text" name="valor" value="" ID="Text4"><br>

<input type="hidden" name="busca" value="1" ID="Hidden1"><br>

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

</form>
</body>
</html>

Respostacorreios.asp

<html>
<head>
<title>Cálculo de Preços</title>

<%
iF Request.QueryString("erro") = empty then

    Response.Write("Serviço: " & Request.QueryString("Servico") & "<br>")
    
    Response.Write("Cep de Origem: " &Request.QueryString("cepOrigem") & "<br>")
    
    Response.Write(Request.QueryString("UFOrigem") & "-")
    
    Response.Write(Request.QueryString("LocalOrigem")& "<br>")
    
    Response.Write("Cep de Destino: " &Request.QueryString("cepDestino") & "<br>")
    
    Response.Write(Request.QueryString("UFDestino") & "-")
    
    Response.Write(Request.QueryString("LocalDestino")& "<br>")
    
    Response.Write("Peso: " &FormatNumber(Replace(Request.QueryString("peso"),".",",")) & " Kg<br>")
    
    Response.Write("Mão Propria: " &FormatCurrency(Replace(Request.QueryString("MaoPropria"),".",",")) & "<br>")
    
    Response.Write("Aviso de Recebimento: " &FormatCurrency(Replace(Request.QueryString("avisoRecebimento"),".",",")) & "<br>")
    
    Response.Write("Valor Total: " &FormatCurrency(Replace(Request.QueryString("tarifa"),".",","))& "<br>")

else

    response.Write(request.QueryString("erro"))

end if

%>
</head>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRSolucaoWeb    0

PRSolucaoWeb
Postado

Boa noite xanburzum, tudo bem?

 

Eu precisava colocar esse script para colocar no botão pagseguro.

Tipo eu tenho um produto clico nele, abre a pagina para ver o valor do frete, e ai tem um botão de comprar do pagseguro, onde ele já envia o valor do frete + o valor do produto.

Você sabe me dizer se tem como?

 

Obrigado



Fiz o teste com o codigo que você me passou, e ele vai para esse site quando clica em calcular:

 

http://www.correios.com.br/webservices/default.cfm?CFID=67387426&CFTOKEN=29670510&jsessionid=a430ca60cb6edf03cbb2e74d5831553d1742

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você terá que integrar com o pagseguro, ou seja, recuperar o valor do frete exibir e depois somar + o valor do produto

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRSolucaoWeb    0

PRSolucaoWeb
Postado

Bom dia xanburzum tudo bem?

Só que não consigo fazer essa integração com o pagseguro.

No meu site já tenho o botão que chama a página para pagamento do pagseguro.

Conforme o link abaixo:

http://www.portalogika.com.br/txt/loja_produtos.asp

 

Só que antes eu preciso calcular o frete e depois mostrar o valor para o cliente do frete + o produto conforme você explicou.

 

Será q você poderia me auxiliar, por favor?

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Humberto Oliveira Pinto    8

Humberto Oliveira Pinto
Postado

Pra fazer isso seria bom o carrinho de compras ser do seu site e não do pagseguro, mesmo assim o pagseguro oferece opção de frete:
https://pagseguro.uol.com.br/v2/guia-de-integracao/frete.html#v2-frete-calculo

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRSolucaoWeb    0

PRSolucaoWeb
Postado

Então Humberto a minha duvida é como colocar isso, integrar com o botão de pagamento do pagseguro.

Poderia me auxiliar por favor?

Estou desesperado, pois preciso hoje entregar isso ao meu cliente e não estou conseguindo.

Por favor.

 

Obrigado

 

 

Por favor pessoal, eu estou precisando muito da ajuda de vocês.

 

 

Por favor, por favor.

 

:cry:

 

Obrigado

 

 

Bom dia

 

 

 

Gostaria de saber como que implanto esse codigo no pagseguro:


  2. <input type="hidden" name="shippingType" value="1">
  3. <input type="hidden" name="shippingAddressPostalCode" value="01452002">
  4. <input type="hidden" name="shippingAddressStreet" value="Av. Brig. Faria Lima">
  5. <input type="hidden" name="shippingAddressNumber" value="1384">
  6. <input type="hidden" name="shippingAddressComplement" value="5o andar">
  7. <input type="hidden" name="shippingAddressDistrict" value="Jardim Paulistano">
  8. <input type="hidden" name="shippingAddressCity" value="Sao Paulo">
  9. <input type="hidden" name="shippingAddressState" value="SP">
  10. <input type="hidden" name="shippingAddressCountry" value="BRA">

Pois nunca mexi com o pagseguro e agora me apareceu esse problema para resolver.

 

Por favor, agradeceria a ajuda.

 

Obrigado

 

 

Gostaria de saber como que faço para integrar esse codigo abaixo do pagseguro nos meus produtos do site:

 

 


  2. <!-- Declaração do formulário -->
  3. <form target="pagseguro" method="post"
  4. action="https://pagseguro.uol.com.br/v2/checkout/payment.html">

  6. <!-- Campos obrigatórios -->
  7. <input type="hidden" name="receiverEmail" value="suporte@lojamodelo.com.br">
  8. <input type="hidden" name="currency" value="BRL">

  10. <!-- Itens do pagamento (ao menos um item é obrigatório) -->
  11. <input type="hidden" name="itemId1" value="0001">
  12. <input type="hidden" name="itemDescription1" value="Notebook Prata">
  13. <input type="hidden" name="itemAmount1" value="24300.00">
  14. <input type="hidden" name="itemQuantity1" value="1">
  15. <input type="hidden" name="itemWeight1" value="1000">

  17. <input type="hidden" name="itemId2" value="0002">
  18. <input type="hidden" name="itemDescription2" value="Notebook Rosa">
  19. <input type="hidden" name="itemAmount2" value="25600.00">
  20. <input type="hidden" name="itemQuantity2" value="2">
  21. <input type="hidden" name="itemWeight2" value="750">

  23. <!-- Código de referência do pagamento no seu sistema (opcional) -->
  24. <input type="hidden" name="reference" value="REF1234">

  26. <!-- Informações de frete (opcionais) -->
  27. <input type="hidden" name="shippingType" value="1">
  28. <input type="hidden" name="shippingAddressPostalCode" value="01452002">
  29. <input type="hidden" name="shippingAddressStreet" value="Av. Brig. Faria Lima">
  30. <input type="hidden" name="shippingAddressNumber" value="1384">
  31. <input type="hidden" name="shippingAddressComplement" value="5o andar">
  32. <input type="hidden" name="shippingAddressDistrict" value="Jardim Paulistano">
  33. <input type="hidden" name="shippingAddressCity" value="Sao Paulo">
  34. <input type="hidden" name="shippingAddressState" value="SP">
  35. <input type="hidden" name="shippingAddressCountry" value="BRA">

  37. <!-- Dados do comprador (opcionais) -->
  38. <input type="hidden" name="senderName" value="José Comprador">
  39. <input type="hidden" name="senderAreaCode" value="11">
  40. <input type="hidden" name="senderPhone" value="56273440">
  41. <input type="hidden" name="senderEmail" value="comprador@uol.com.br">

  43. <!-- submit do form (obrigatório) -->
  44. <input type="image" name="submit"
  45. src="https://p.simg.uol.com.br/out/pagseguro/i/botoes/pagamentos/120x53-pagar.gif"
  46. alt="Pague com PagSeguro">

  48. </form>

 

Boa tarde

 

 

 

Por favor pessoal, preciso muito da ajuda de vocês.

Por favor!!!!

 

Muito obrigado

 

 

Bom dia pessoal tudo bem?

 

 

 

Estou com dificuldades em integrar esse codigo na minha página.

Nunca integrei o codigo do pagseguro em sites, então gostaria só uma explicação sobre como que integro, para que eu calcule o frete + o valor do produto.

Tipo primeiro mostra o valor do frete para o cliente e depois em outra tela mostra o valor do frete + produto.

 

Por favor me ajudem!!!!!

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

alcaidedigital    57

alcaidedigital
Postado

Se você estiver trabalhando com PHP, pode seguir esse post e você cosneguirá calcular o valor do frete:

http://sounoob.com.br/consultar-frete-utilizando-webservice-dos-correios-php/

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá uma olhada aqui

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito