PC Toledo

Código: Selecionar todos

	LOCAL GetList := {}
	LOCAL oHttp, cXML, cCep
	LOCAL cRes, cResTxt, cUf, cCidade, cTipo, cEnde, cBairro

	DO WHILE .T.
		
          	cCep := StrTran(AllTrim(mCep),"-","")
          	cCep := StrTran(AllTrim(cCep),".","")
		IF Len(cCep) != 8
			LOOP
		ENDIF
		
		oHttp:= TIpClientHttp():new( "http://cep.republicavirtual.com.br/web_cep.php?cep="+cCep+"&formato=xml" )
		IF ! oHttp:open()
			MSGSTOP( "Erro na conexÆo: "+ oHttp:lastErrorMessage() )
			RETU .F.
		ENDIF
		
 	cXML := oHttp:readAll()
   	oHttp:close()

   	IF Empty(cXML)
   		MSGSTOP("Ocorreu um erro inesperado. Tente outro CEP...")
   		RETU .F.
   	ENDIF
   		
   	
   	cRes 		:= Substr( cXML, At("<resultado>",cXML)+11, At("</resultado>",cXML)-At("<resultado>",cXML)-11 )
   	cResTxt	:= Substr( cXML, At("<resultado_txt>",cXML)+15, At("</resultado_txt>",cXML)-At("<resultado_txt>",cXML)-15 )
   	cUf 		:= Substr( cXML, At("<uf>",cXML)+4, At("</uf>",cXML)-At("<uf>",cXML)-4 )
   	cCidade	:= Substr( cXML, At("<cidade>",cXML)+8, At("</cidade>",cXML)-At("<cidade>",cXML)-8 )
   	cTipo		:= Substr( cXML, At("<tipo_logradouro>",cXML)+17, At("</tipo_logradouro>",cXML)-At("<tipo_logradouro>",cXML)-17 )
   	cEnde		:= Substr( cXML, At("<logradouro>",cXML)+12, At("</logradouro>",cXML)-At("<logradouro>",cXML)-12 )
   	cBairro	:= Substr( cXML, At("<bairro>",cXML)+8, At("</bairro>",cXML)-At("<bairro>",cXML)-8 )
   	
   	
   	IF cRes == "1"
   		@ 08, 05 SAY "Resposta do servidor.: " ; 	@ Row(), Col() SAY HB_ANSITOOEM( cResTxt ) COLOR "g/w"
   	ELSE
   		@ 08, 05 SAY "Resposta do servidor.: " ; 	@ Row(), Col() SAY HB_ANSITOOEM( cResTxt ) COLOR "r/w"
   	ENDIF