Novo PAC - Tutorial

Boa noite pessoas.

Acho que muitos aqui, assim como eu, passaram por problemas com o cálculo do PAC, devido a manutenção e mudanças do sistema de cálculo.

Adquiri informações do correios sobre como fazer o novo cálculo, testei, funcionou, está rodando sem problemas nas lojas que dou manutenção, e venho aqui compartilhar com vocês.

Segue o código:

url_correios = "http://shopping.correios.com.br/wbm/shopping/script/CalcPrecoPrazo.aspx?nCdEmpresa=&sDsSenha=&sCepOrigem=09641030&sCepDestino="& Request("Cep") & "&nVlPeso="& Session("peso_produtos") &" &nCdFormato=1&nVlComprimento=25&nVlAltura=5&nVlLargura=5&sCdMaoPropria=n&nVlValorDeclarado=0&sCdAvisoRecebimento=S&nCdServico=41106&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

Neste caso, faço uma requisição XMLHttp para a nova URL passando os parametors... tenho uma resposta XML, e trato essa resposta para pegar apenas o valor calculado...

Bom.. espero ter ajudado alguém..

Att;