Ir para conteúdo

POWERED BY:

Arquivado

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

Erivelton

Calcular Frete direto dos correios

Por , em ASP Clássico

Recommended Posts

Erivelton    0

Erivelton
Postado

Olá, estou tentando clacular o frete pegando os valores direto dos correios, só que não sei nem começar a fazer isso, tô fazendo uns testes aqui mas não sei se vai dar certo não.Tô tentando pegar os valor assimSet HttpObj = Server.CreateObject("AspHTTP.Conn") HttpObj.URL = "http://www.correios.com.br/encomendas/precos/resposta.cfm?Servico="&servico&"&UForigem=MG&LocalOrigem=Interior+do+Estado&CepOrigem=35501000&UFdestino="&ufdestino&"&LocalDestino="&local&"&CepDestino="&cepdestino&"&Peso="&peso&"&MaoPropria=&AvisoRecebimento=&ValorDeclarado="&valor&"&Tarifa=8%2C80"Frete = HttpObj.GetUrlaí vem o problema qual variavel pegar para exibir o valor?Estou no caminho certo?Tem outros meios????? ;) Peguei um exemplo no site phpbrasil ele pega os valores direto. Só que não consegui interpretar o script e passar ele para asp.Alguem pode me ajudar, para dar uma luz no caminho :lol: Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Erivelton    0

Erivelton
Postado

Tô mexendo aqui e parece que tô chegando perto alguem tem uma sugestão?CódigoPágina "calcular.asp"=============================================== Inicio<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><script Language="JavaScript"> function GPBE() { DocRemote = window.open ('GPBE.htm','','scrollbars,resizable,width=650,height=500'); } function Mostra(p) { if (typeof(você) != 'undefined') if (você != '') MM_showHideLayers(você,'','hide'); MM_showHideLayers(p,'','show'); você = p } function Apaga() { if (typeof(você) != 'undefined') if (você != '') MM_showHideLayers(você,'','hide'); você = ''; } function bloqueia(msg) { if(event.button != 1) alert(msg); }</script><script language="JavaScript" src="http://www.correios.com.br/encomendas/enc_script.js"></script><script language="JavaScript"><!--function validarPeso(){ if(document.form1.Servico.value == "40215"){ if(trim(document.form1.CepOrigem.value) == "" || trim(document.form1.CepDestino.value) == ""){ alert("O cálculo de preços do SEDEX 10 é feito utilizando os CEPs"); document.form1.CepOrigem.focus(); return false; } } if(document.form1.Peso.value==""){ alert("Informe o peso!") return false; } }//--></script><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form method="post" action="resposta.asp" name="form1" onsubmit="return validarPeso();"> <input type="hidden" name="Resposta" value="resposta.cfm"> <input type="hidden" name="parametro" value="tarifa"> <input type="hidden" name="parametro" value="resultado"> <table width="100%" border="0" cellspacing="2" cellpadding="0"> <tr valign="center"> <td colspan="2"> <b><A href="encomendas/servicos/default.cfm">Serviço</A>:</b> <select name="Servico" style="HEIGHT: 22px; WIDTH: 260px" size="1" > <option value="40215" >SEDEX 10</option> <option value="40010" >SEDEX<! Documento></option> <option value="40045">SEDEX a Cobrar</option> </select> <br><br> <b>Origem:</b> </td> </tr> <tr valign="center"> <td width="21%" nowrap> <b>UF:</b> <select name="UForigem" size="1"> <option selected value="AC">AC</option> <option value="AL">AL</option> <option value="AM">AM</option> <option value="AP">AP</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO">GO</option> <option value="MA">MA</option> <option value="MG">MG</option> <option value="MS">MS</option> <option value="MT">MT</option> <option value="PA">PA</option> <option value="PB">PB</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="PR">PR</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="RO">RO</option> <option value="RR">RR</option> <option value="RS">RS</option> <option value="SC">SC</option> <option value="SE">SE</option> <option value="SP">SP</option> <option value="TO">TO</option> </select> <select name="LocalOrigem" size="1"> <option selected value="S">Capital/Área Metropolitana</option> <option value="N">Interior do Estado</option> </select> </td> <td width="79%" valign="top"> ou <b>Cep:</b> <input type=text name="CepOrigem" maxlength=8 size="8"> <i>(99999111)</i> </td> </tr> <tr> <td colspan="2"> <br> <b>Destino:</b> </td> </tr> <tr> <td width="21%" nowrap> <b>UF:</b> <select name="UFdestino" size="1"> <option selected value="AC">AC</option> <option value="AL">AL</option> <option value="AM">AM</option> <option value="AP">AP</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO">GO</option> <option value="MA">MA</option> <option value="MG">MG</option> <option value="MS">MS</option> <option value="MT">MT</option> <option value="PA">PA</option> <option value="PB">PB</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="PR">PR</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="RO">RO</option> <option value="RR">RR</option> <option value="RS">RS</option> <option value="SC">SC</option> <option value="SE">SE</option> <option value="SP">SP</option> <option value="TO">TO</option> </select> <select name="LocalDestino" size="1"> <option selected value="S">Capital/Área Metropolitana</option> <option value="N">Interior do Estado</option> </select> </td> <td width="79%"> ou <b>Cep:</b> <input type=text name="CepDestino" maxlength=8 size="8"><i>(99999111)</i> </td> </tr> <tr> <td colspan="2"> <br> <b>Peso:</b> até <select name="Peso" size="1"> <option selected value=""></option> <option value="1">1</option> <option value="2">2</option> <option value="3">3</option> <option value="4">4</option> <option value="5">5</option> <option value="6">6</option> <option value="7">7</option> <option value="8">8</option> <option value="9">9</option> <option value="10">10</option> <option value="11">11</option> <option value="12">12</option> <option value="13">13</option> <option value="14">14</option> <option value="15">15</option> <option value="16">16</option> <option value="17">17</option> <option value="18">18</option> <option value="19">19</option> <option value="20">20</option> <option value="21">21</option> <option value="22">22</option> <option value="23">23</option> <option value="24">24</option> <option value="25">25</option> <option value="26">26</option> <option value="27">27</option> <option value="28">28</option> <option value="29">29</option> <option value="30">30</option> </select> Kg </td> </tr> <tr > <td colspan="2"> </td> </tr> <tr> <td colspan="2"> <b>Serviços adicionais ao SEDEX:</b> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr valign="center" align="middle"> <td> Mão Própria </td> <td>     Valor Declarado </td> <td> Aviso Recebimento </td> </tr> <tr valign="center" align="middle"> <td> <select name="MaoPropria" style="HEIGHT: 22px; WIDTH: 49px" size="1"> <option value="S">Sim</option> <option selected value="N">Não</option> </select> </td> <td> R$ <input maxlength="8" name="ValorDeclarado" style="HEIGHT: 22px; WIDTH: 72px"> </td> <td> <select name="AvisoRecebimento" style="HEIGHT: 22px; WIDTH: 52px" size="1"> <option value="S">Sim</option> <option selected value="N">Não</option> </select> </td> </tr> <tr valign="center" align="middle"> <td colspan="3"> <input type="submit" value="Calcular" class="cssBotao"> </td> </tr> </table> </td> </tr> </table> </form></body></html>=============================================== Fim Página "resposta.asp"=============================================== inicio<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><% dim Servico,UForigem, LocalOrigem, CepOrigem, UFdestino, LocalDestino, CepDestino, Peso, MaoPropria, ValorDeclarado, AvisoRecebimentoServico = request.form ("Servico")UForigem = request.form ("UForigem")LocalOrigem = request.form ("LocalOrigem")CepOrigem = request.form ("CepOrigem")UFdestino = request.form ("UFdestino")LocalDestino = request.form ("LocalDestino")CepDestino = request.form ("CepDestino")Peso = request.form ("Peso")MaoPropria = request.form ("MaoPropria")ValorDeclarado = request.form ("ValorDeclarado")AvisoRecebimento = request.form ("AvisoRecebimento")Set HttpObj = Server.CreateObject("AspHTTP.Conn") HttpObj.URL = "http://www.correios.com.br/encomendas/precos/resposta.cfm?Servico="&Servico&"&UForigem=MG&LocalOrigem=Interior+do+Estado&CepOrigem=35501000&UFdestino="&ufdestino&"&LocalDestino="&local&"&CepDestino="&cepdestino&"&Peso="&peso&"&MaoPropria=&AvisoRecebimento=&ValorDeclarado="&valor&"&Tarifa=8%2C80"Frete = HttpObj.GetUrl%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><% =Frete %></body></html>========================================== fim :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

gastao    0

gastao
Postado

é complicado cara...... o componente tem q estra instalado...eu fiz usando xml.httpwww.livrodevisitas.com/xml/form2.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

gastao    0

gastao
Postado

Eu ví, você tinha postado em um tópico anterior. Ficou fino d+, mas você não tem um que paga o valor do frete não?Já tô desistindo é f***!

valor de frete??como assim ??carta comum ????me manda o url dos correios q calcula isso...

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