Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

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

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Retorno quantidade registros tabela mysql

1/10/2018, 16:07 por rrfsistemas

Pessoal não consigo pegar o retorno da consulta MYSQL com o resultado da contagem do numero de …

Comentários: 0

CONEXÃO MYSQL EM SITES

25/7/2018, 16:28 por AMELIO

BOA TARDES A TODOS
ESTOU TENTO UM PROBLEMINHA QUE QUANDO FAÇO A CONEXÃO MYSQL EM SERVIDOR  


Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 3

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 1

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 1

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

Os nossos membros postaram um total de 12262 mensagens em 1556 assuntos

Calcular Frete via Webservice pelo VFP

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
avatar
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

Voltar ao Topo


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