[Resolvido] Calculando Frete PAC, SEDEX Etc

[Gilberto Jr 26]

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;

[Gilberto Jr 26]

Galera, consegui aqui.. valeu.

 

Ficou da seguinte forma o Codigo.

 

dim url_correios,objXMLHTTP,ValorBox,Valor,ValorF,frete_total,Prazo,PrazoBox,PrazoF,prazo_total
url_correios = "http://ws.correios.com.br/calculador/CalcPrecoPrazo.asmx/CalcPrecoPrazo?nCdEmpresa=&sDsSenha=&nCdServico=41106&sCepOrigem=29056220&sCepDestino="&request.QueryString("PesquisaCep")&"&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
PrazoBox = 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

'---------------
Prazo = InStr(PrazoBox,"PrazoEntrega")
PrazoF = MID(PrazoBox,Prazo+13,2)
PrazoF = Replace(PrazoF,"<","")
'PrazoF = Replace(PrazoF,",",".")
prazo_total = PrazoF

response.Write(frete_total&"<br>"&prazo_total)

 

Se ajudar alguem, é nozes.