ProcedureWS_LeituraXml()

//Consulta Xml

IFGloDebugSN="S"THEN
Info("LeituraXml")
END

Rua,Numero,Bairro01,Bairro02,Cidade,Estado,Pais,CEP,Latitude,Longitude isstring=""

HTTPRequest("http://maps.google.com/maps/api/geocode/xml?address=Rua+Professora+Antonia+Reginato+Vianna,+337+Curitiba,+PR&sensor=true")

XMLResultado isstring=WS_Android_IOS_HTTPGetResult()// HTTPGetResult(httpResult)

XmlDoc isXMLDocument

XmlDoc=XMLOpen(XMLResultado,fromString)


IF(XmlDoc.GeocodeResponse.status) ="OK"THEN

FOR EACH address_component OF XmlDoc.GeocodeResponse.result on address_component

//info(address_component.long_name, address_component.short_name, address_component.type)
IFCEP=""

IF(address_component.long_name<>""ANDaddress_component.short_name<>""ANDaddress_component.type="street_number")
Numero=address_component.long_name
END
IF(address_component.long_name<>""ANDaddress_component.short_name<>""ANDaddress_component.type="route")
Rua=address_component.long_name
END
IF(address_component.long_name<>""ANDaddress_component.short_name<>""ANDaddress_component.type="neighborhood")
Bairro01=address_component.long_name
ELSE IF(address_component.long_name<>""ANDaddress_component.short_name<>""ANDaddress_component.type="sublocality")
Bairro02=address_component.long_name
END
IF(address_component.long_name<>""ANDaddress_component.short_name<>""ANDaddress_component.type="locality")
Cidade=address_component.long_name
ELSE IF(address_component.long_name<>""ANDaddress_component.short_name<>""ANDaddress_component.type="administrative_area_level_2")
Cidade=address_component.long_name
END
IF(address_component.long_name<>""ANDaddress_component.short_name<>""ANDaddress_component.type="administrative_area_level_1")
Estado=address_component.long_name
END
IF(address_component.long_name<>""ANDaddress_component.short_name<>""ANDaddress_component.type="country")
Pais=address_component.long_name
END
IF(address_component.long_name<>""ANDaddress_component.short_name<>""ANDaddress_component.type="postal_code")
CEP=address_component.long_name
END

END

FOR EACH geometry OF XmlDoc.GeocodeResponse.result on geometry
IF(geometry.location.lat<>"")
Latitude=geometry.location.lat
END
END

FOR EACH geometry OF XmlDoc.GeocodeResponse.result on geometry
IF(geometry.location.lng<>"")
Longitude=geometry.location.lng
END
END

END

END

Info(Latitude,Longitude)