Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
22 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 21 Visitantes :: 1 Motor de busca

ACSR

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Estatísticas
Temos 7021 usuários registrados
O último usuário registrado atende pelo nome de diegopeixoto

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

Calcular Frete via Webservice pelo VFP

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Anexo Calcular Frete via Webservice pelo VFP

Mensagem por Nelson Arcas em 24/2/2010, 16:06

Pessoal estava verificando alguma coisas sobre XML e encontrei um webservice que calcula frete gratuito. Peguei o endereço do serviço e converti para VFP, estou disponibilizando caso alguem tenha interesse. Coloquei as informações sobre as fontes e os parametros que são utilizados para o processo.

Código:

****** Desenvolvido por Nelson Arcas 24/02/2010*****

*!* Fonte de informações de parametros: http://www.comocriarsites.com.br/Calculo-de-frete-dos-correios-webservice-independente_b_2.html
*!*   ENTENDA OS PARAMENTROS ACIMA
*!*   CEP: cep do seu cliente com 8 dígitos - somente números
*!*   COD: código de usuário, você receberá este código ao se cadastrar. Esse código estará vinculado ao CEP de origem - somente números
*!*   PESO: é o peso do volume. Pode ser passado número quebrados com três casas decimais - Use o '.' ponto para separar as casas decimais, exemplo: 2.300
*!*   COMPRIMENTO: comprimento do volume em centímetros - somente número de 16 a 60
*!*   LARGURA: largura do volume em centimetros - somente número de 5 a 60
*!*   ALTURA: altura do volume em centímetros - somente número de 2 a 60
*!*   SERVICO: código do serviço desejado, use 1 para SEDEX, 2 para PAC e 3 para ambos.
*!*   IMPORTANTE: O resultado de comprimento + largura + altura NÃO pode ser superior a 150.
*!*   Os dados referentes ao tamanho são usados para calcular o peso cúbico. Para calcular a encomenda PAC os correios usa o peso cúbico se este for maior que o peso real.
*!*   Os correios não usa as dimensões do volume para calcular o sedex, porém, mesmo se você não desejar calcular o valor do PAC será necessário informar as dimensões do volume.

*** Exemplo da Url para retorno ***
* http://frete.w21studio.com/calFrete.xml?cep=cepDestino&cod=codigoDoUsuario&peso=Peso&comprimento=comprimento&largura=largura&altura=altura&servico=servico


** Processo adaptado para VFP acessar o webservice **

*** Variaveis para leitura e envio do arquivo XML ***
LOCAL lcep AS STRING, lcod AS STRING, lpeso AS STRING, lcomprimento AS STRING,;
   llargura AS STRING, laltura AS STRING, lservico AS STRING,linstrucao AS STRING,;
   lsedex AS STRING,lpac AS STRING

*** Variaveis para armazenar o valor de retorno
LOCAL lvalor_sedex AS DECIMAL, lvalor_pac AS DECIMAL

** Variáveis para consulta xml no site **
lcep='06455000' && CEP DESTINO
lcod='1056' && Código de usuario para cadastrar é de graça no site http://frete.w21studio.com
lpeso='10' && Kilos
lcomprimento='60' && Comprimento
llargura='60' && Largura
laltura='5' && Altura
lservico='3' && Serviço

*** Instrução para monta a URL ***
linstrucao="http://frete.w21studio.com/calFrete.xml?cep="+lcep+"&"+"cod="+lcod+"&"+;
   "peso="+lpeso+"&"+"comprimento="+lcomprimento+"&"+;
   "largura="+llargura+"&"+"altura="+laltura+"&"+"servico="+lservico

*** Cria o Objeto para consulta e retormo em xml ***
objsrvxml = CREATEOBJECT("MSXML2.ServerXMLHTTP.4.0")
objsrvxml.OPEN("GET",linstrucao,.F.)
objsrvxml.SEND()

*Pego retorno do objeto Objsrvxml
objresulxml  = CREATEOBJECT("MSXML2.DomDocument")
objresulxml.LOADXML(objsrvxml.responsetext)

*** Variavel com o resultado da entrega sedex ***
lsedex= objresulxml.selectnodes("//valor_sedex").ITEM(0).TEXT
lvalor_sedex= VAL(lsedex)

*** Variavel com o resultado da entrega pack ***
lpac=objresulxml.selectnodes("//valor_pac").ITEM(0).TEXT
lvalor_pac= VAL(lpac)

*** Validações ***
** Sedex **
IF lvalor_sedex>0
   WAIT WINDOW 'Valor para entrega via sedex: R$' + ALLTRIM(STR(lvalor_sedex,10,2)) TIMEOUT 4
ENDIF

** Pac **
IF lvalor_pac>0
   WAIT WINDOW 'Valor para entrega via pac: R$' + ALLTRIM(STR(lvalor_pac,10,2)) TIMEOUT 4
ENDIF

Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Anexo Re: Calcular Frete via Webservice pelo VFP

Mensagem por Marcos Guedes em 24/2/2010, 16:09

Obrigado por compartilhar Nelson!
Com certeza este código será de grande utilidade.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
http://portal.programacaobrasil.com

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum