sábado, 15 de junho de 2019

DICAS 2157 WINDEV WEBDEV MOBILE COMANDOS 66 CEP





















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









Teste

Teste
teste