Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde;
Alguem já configurou esse script de retorno de calculo de frete para trazer a quantidade de dias?
Segue abaixo:
dim url_correios,objXMLHTTP,ValorBox,Valor,ValorF,frete_total
url_correios = "http://ws.correios.com.br/calculador/CalcPrecoPrazo.asmx/CalcPrecoPrazo?nCdEmpresa=&sDsSenha=&nCdServico=41106&sCepOrigem=29056220&sCepDestino=29730000&nVlPeso=0.50&nCdFormato=1&nVlComprimento=0.40&nVlAltura=0.05&nVlLargura=0.20&nVlDiametro=0.65&sCdMaoPropria=N&nVlValorDeclarado=3.50&sCdAvisoRecebimento=N"
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
response.Write(frete_total)
Este codigo retorna o valor do frete, gostaria de saber se alguem ja fez alguma modificacao nele pra trazer o prazo de entrega tambem.
Att;
Carregando comentários...