sábado, 15 de junho de 2019

DICAS 2157 WINDEV WEBDEV MOBILE COMANDOS 66 CEP
















ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

https://www.byjg.com.br/


BOM DIA,SEJA BEM VINDOS A MAIS UMA VIDEO AULA. ESSA AULA ESTA SENDO GRAVADA NO DIA 15 06 2019.
DICA 2157. VOU MOSTRAR COMO BUSCAR CEP

DICAS 2157 - WINDEV WEBDEV MOBILE - COMANDOS 66 - CEP



// btn_busca_cep
// http://www.byjg.com.br/site/webservice.php/ws/cep?httpmethod=obterlogradouroauth&cep=

SCEP is string=EDT_CEP
SURL is string=[
http://www.byjg.com.br/site/webservice.php/ws/cep?httpmethod=obterlogradouroauth&cep=#CEP#&usuario=usuario&senha=senha
]
SURL=Replace(SURL,"#CEP#",EDT_CEP)
IF HTTPRequest(SURL) THEN
sRETORNO is string=Upper(NoAccent(UTF8ToString(HTTPGetResult(httpResult))))
// UPPER MAISCULO
EDT_RETORNO=sRETORNO
IF sRETORNO<>"" THEN
sRETORNO=Replace(sRETORNO,"OK|","")
arrARRRETORNO is array of strings=StringSplit(sRETORNO,",")
// OK|RUA TAL,100,CIDADE X,
EDT_RUA=NoSpace(arrARRRETORNO[1])
EDT_BAIRRO=NoSpace(arrARRRETORNO[2])
EDT_CIDADE=NoSpace(arrARRRETORNO[3])
EDT_ESTADO=NoSpace(arrARRRETORNO[4])
EDT_Cod_Cid=NoSpace(arrARRRETORNO[5])
END
END
Info("OK FINALIZADO")






DICAS 1979 - WINDEV - COMANDOS 29 sidebar control Barra Lateral





Postado por às
Marcadores: ,

Nenhum comentário:

Postar um comentário

Assinar: Postar comentários (Atom)

Teste

Teste
teste