-
Como criar uma lojaVeja aqui o que você precisa saber para iniciar suas vendas online!Mais
-
PagSeguro UOLVocê já conhece essa ferramenta? Com o PagSeguro você pode vender pela Internet mesmo sem ter uma loja virtual. É tão fácil!Mais
-
Calculo de FreteSeus clientes precisam saber quanto vão pagar de frete? Temos uma solução gratuita!Mais
-
Agenda Campus PartyAgenda otimizada da #CPbr com funcionalidades extras que irão te auxiliar durante a semana do evento.Mais
LojaExemplo: Como mostrar prazo de entrega para seu cliente
-
Olá,
Essa modificação é para mostrar o prazo de entrega do PAC, Sedex e E-sedex consultando direto nos Correios. Estou me baseando no arquivo cep_frete.asp disponibilizado pelo Phil.
O restante das formas de entrega, caso estejam habilitadas, você pode digitar no administrativo que irá aparecer na hora do cliente calcular, assim como é mostrado o Sedex e Pac na imagem acima.
Abra o arquivo “cep_frete.asp” de sua loja (lembrando que precisa estar com as atualizações do Phil) e adicione os trechos em vermelho:
msgErro = oNode.selectSingleNode(“MsgErro”).TextnodeValorAR = oNode.selectSingleNode(“ValorAvisoRecebimento”).Textprazo = oNode.selectSingleNode(“PrazoEntrega”).Text‘O valor do aviso de recebimento já está incluso.. O valor da caixa é adicionado(2.0)Valor = CDbl(nodeValor) + 1.1if cod = “40010″ thenif (nodeValor = 0) thenvalorSedex = “vazio”if msgErro <> “” thensession(“statustemp_Sedex”) = msgErroelsesession(“statustemp_Sedex”) = “erro”end ifelsevalorSedex = CDBl(Valor) + CDBl(ADDSedex)end ifsession(“prazo_sedex”) = prazoelseif cod = “41106″ thenif (nodeValor = 0) thenvalorPac = “vazio”if msgErro <> “” thensession(“statustemp_Pac”) = msgErroelsesession(“statustemp_Pac”) = “erro”end ifelsevalorPac = CDBl(Valor) + CDBl(ADDPAC)end ifsession(“prazo_pac”) = prazoelseif cod = “81019″ thenif (nodeValor = 0) thenvalorESedex = “vazio”if msgErro <> “” thensession(“statustemp_ESedex”) = msgErroelsesession(“statustemp_ESedex”) = “erro”end ifelsevalorESedex = CDBl(Valor) + CDBl(ADDESedex)end ifsession(“prazo_Esedex”) = prazoend ifnextElsevalorSedex = “0″valorPac = “0″valorESedex = “0″session(“statustemp_Sedex”) = “erro”session(“statustemp_Pac”) = “erro”session(“statustemp_ESedex”) = “erro”End Ifset objXmlHttp = nothingset objXmlDom = NothingMais abaixo adicione os trechos em vermelho:
Function Frete_Correios(FctCEP,FctPeso)
(..)
‘Monta string de valores para post
informacoes = informacoes & OpcaoFrete(“SEDEX”,Frete_sedex, Frete_sedex_erro,session(“prazo_sedex”))
End Function
‘############### ESEDEX ###############
Function Frete_CorreiosEsedex(FctCEP,FctPeso)
(..)
‘Monta string de valores para post
informacoes = informacoes & OpcaoFrete(“E-SEDEX”,Frete_Esedex, Frete_Esedex_erro,session(“prazo_Esedex”))
End Function
‘############### PAC ###############
Function Frete_CorreiosPAC(FctCEP,FctPeso)
(..)
informacoes = informacoes & OpcaoFrete(“PAC”,Frete_PAC, Frete_PAC_erro,session(“prazo_pac”))
End Function
‘############### DIRECT EXPRESS ####################
Function Frete_DirecExpress(FctCEP,FctPeso)
(..)
informacoes = informacoes & OpcaoFrete(“DIRECT EXPRESS”, Frete_DirecExpressVlr,Frete_DirecExpress_erro, pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”PrazoEntregaDirectExpress”))
Set HttpObjSend = Nothing
Else
Response.write “Error: (” & HttpObjSend.Status & “) ” & HttpObjSend.statusText
End If
End Function
‘############### FEDEX INTERNACIONAL ###############
Function Frete_FEDEX(FctPAIS,FctZIP,FctPESO)
(..)
informacoes = informacoes & OpcaoFrete(“FEDEX”,Frete_fedex,Frete_fedex_erro, pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”PrazoEntregaFedex”))
End Function
‘############### FRETE RETIRAR NA LOJA ###############
Function Frete_RetirarLoja()
VarFrete_retirarloja = “0″
VarFrete_retirarloja_erro = “ok”
informacoes = informacoes & OpcaoFrete(“RETIRAR NA LOJA”,FormatNumber(VarFrete_retirarloja), VarFrete_retirarloja_erro,pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”PrazoEntregaRetirarNaLoja”))
End Function
‘############### FRETE TRANSPORTADORA A COBRAR ###############
Function Frete_Transportadora()
VarFrete_transportadora = “0″
VarFrete_transportadora_erro = “ok”
informacoes = informacoes & OpcaoFrete(“TRANSPORTADORA A COBRAR”,FormatNumber(VarFrete_transportadora),VarFrete_transportadora_erro, pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”PrazoEntregaTransportadora”))
End Function
‘############### FRETE PERSONALIZADO ###############
Function Frete_Personalizado(Cidade,UF,FctPeso)
(..)
informacoes = informacoes & OpcaoFrete(UCase(pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”NomeFretePersonalizado”)), Frete_Person,Frete_Person_erro,pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”PrazoEntregaFretePersonalizado”))
End Function
‘############### FIM – OPÇÕES DE FRETE ###############
‘Funcao para montar as opções de frete
Function OpcaoFrete(tipo,valor,erro,prazo)
OpcaoFrete = tipo & “:” & valor & “:” & erro & “:” & prazo& “#”
End Function
Agora, no arquivo “funcoes/funcoes_js.js” adicione o trecho e vermelho:
// Insere o option na tabela
var x=document.getElementById(CEP).insertRow(1)
var y=x.insertCell(0)
x.height=”10″
x.bgColor=color
y.innerHTML=”<input type=’radio’ name=’opcao’ value=’”+ array_frete[0] + “#” + vlrFRETE_VIS + “#” + vlrFRETE_REAL + “#” + CEP + “‘ onclick=’send_frete(this.value);’>” + array_frete[0] + ” ( ” + vlrFRETE_VIS + ” ) Prazo de entrega de <font color=’FF0000′><strong>” +array_frete[3]+” dias </strong></font>”
count+=1;
}
Pronto, até a proxima.
Abraço.
Sobre o autor
Em breve.
Comente aqui
2 Comentarios
No segundo e terceiro código não está aparecendo as funções em vermelho. Se puder ajustar ficarei grato.
Olá Felipe,
Desculpe a demora para responder.
Agora esta aparecendo, o estranho é que pelo administrativo estava mostrando.
Abraço