Ir para conteúdo
Fórum Script Brasil
  • 0

Calculo de CEP


Cleyton Silva

Pergunta

7 respostass a esta questão

Posts Recomendados

  • 0

ola... então a linha 503 é essa

<%if session("sn") <> 0 and sedex_normal="s" and session("sotransportadora") <> "Sim" then

o lance é que os correios trocou seu sistema de calculo de frete e assim estamos enfrentando um grande problema... e eu não consigo achar uma solução para o problema ser solucionado, o link na qual esta dando erro é o www.voiptovoip.com.br basta selecionar algum produto digitar o cep e ver o erro... antes funcionava legal

Link para o comentário
Compartilhar em outros sites

  • 0

cara esta dando outro erro agora...

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'formatnumber'

/oct_atu_cesta.asp, line 507

o problema é o seguinte os correios trocou seu sistema de calculo de CEP, e desde então esta dando erro na loja, precisa atualizar, e todos os esquemas de atualização estão nesse código que passei... já tentei fazer de tudo e mesmo assim não consigo fazer funcionar o calculo do CEP... você pode entrar nesse link www.voiptovoip.com.br tentar calcular o CEP e ver que ele acha o endereço mais não faz o calculo, da esses erros...

se puder me ajudar ficarei agradecido...

abraços

Link para o comentário
Compartilhar em outros sites

  • 0

Olá não olhei seu código mas tive o mesmo problema a um tempoa atras quando foi trocado o webserver dois correios, segue meu código para tentar te ajudar e spero que entenda.

'NO CdServico usar 41106 para pac ou 40010 para sedex
' é obrigado agora passar as dimenssões dos produtos altura x largura x comprimento

url_correios = "http://ws.correios.com.br/calculador/CalcPrecoPrazo.aspx?nCdEmpresa=&sDsSenha=&sCepOrigem=92120030&sCepDestino="&request.form("cepdestino")&"&nVlPeso=1&nCdFormato=1&nVlComprimento=25&nVlAltura=5&nVlLargura=20&sCdMaoPropria=n&nVlValorDeclarado=0&sCdAvisoRecebimento=S&nCdServico="&request.form("frete_tipo")&"&nVlDiametro=5&StrRetorno=xml"
          
                  
     Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
     objXMLHTTP.open "GET", url_correios,false
     objXMLHTTP.send ""
     ValorBox = objXMLHTTP.responseText
     set objXMLHTTP = nothing
     set objXMLHTTP = nothing
     Valor = InStr(ValorBox,"Valor")
     ValorF = MID(ValorBox,Valor+6,6)
     ValorF = Replace(ValorF,"<","")
     ValorF = Replace(ValorF,",",".")
     frete_total = ValorF


     frete_total = replace(frete_total,".",",")
     frete_total = replace(frete_total,"/","")
     session("frete") = frete_total 
     'response.write frete_total

     session("valor")= formatnumber((frete_total + session("valor_total")),2)

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...