Novo PAC - Tutorial

[DSerma 19]

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;

[Patrique 0]

Excelente darkdemo, valew pela contribuição!

[Mário Monteiro 179]

Está certinho com as novas bases de calculo?

 

Muito bom compartilhar

 

Abraços

[DSerma 19]

Boa noite pessoas...

 

Apenas para informar que novamente a ul de calculo do PAC foi alterada pelos correios..

 

A nova url é: http://ws.correios.com.br/calculador/CalcPrecoPrazo.aspx

 

Os parametros continuam o mesmos informados no inicio do tópico.

 

Att;

[hargon 64]

Ótima contribuição. O código acima funciona para calcular o SEDEX também. Basta alterar o código em ncdservico

 

40010 para SEDEX

40290 para SEDEX Hoje

40215 para SEDEX 10

40045 para SEDEX a Cobrar

41106 para PAC

Uma dúvida, esse calculo é gratuito? Não era só para quem contrata o serviço?

 

Sobre essa URL, como descobrir a nova URL quando alterada?