Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
17 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 17 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

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: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

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

Os nossos membros postaram um total de 49 mensagens em 26 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
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

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