ProcedureGPS_LocalizaEnderecoMonumento(LOCALControleMapa,LOCALEnderecoMonumento,LOCALTipoRetorno,LOCALWindowSN)

ok=False

Retorno isstring=""
MyAddress isAddress
MyAddress=geoGetAddress(EnderecoMonumento)

Pos isgeoPosition
Pos.Latitude=MyAddress..Position.Latitude
Pos.Longitude=MyAddress..Position.Longitude

IFControleMapa=""THEN
ControleMapa=gloControleMapa
END

IFGPSStatus() =gpsEnabledORGPSStatus() =gpsAvailableTHEN

IFErrorOccurred=TrueTHEN

IFTipoRetorno=1THEN
IFWindowSN="S"
Info(MyAddress..AdminArea)
END
Retorno=MyAddress..AdminArea
ELSE IFTipoRetorno=2THEN
IFWindowSN="S"
Info(MyAddress..City)
END
Retorno=MyAddress..City
ELSE IFTipoRetorno=3THEN
IFWindowSN="S"
Info(MyAddress..Country)
END
Retorno=MyAddress..Country
ELSE IFTipoRetorno=4THEN
IFWindowSN="S"
Info(MyAddress..Label)
END
Retorno=MyAddress..Label
ELSE IFTipoRetorno=5THEN
IFWindowSN="S"
Info(MyAddress..Position)
END
Retorno=MyAddress..Position
ELSE IFTipoRetorno=6THEN
IFWindowSN="S"
Info(MyAddress.Position..Altitude)
END
Retorno=MyAddress.Position..Altitude
ELSE IFTipoRetorno=7THEN
IFWindowSN="S"
Info(MyAddress.Position..AltitudeValid)
END
Retorno=MyAddress.Position..AltitudeValid
ELSE IFTipoRetorno=8THEN
IFWindowSN="S"
Info(MyAddress.Position..Direction)
END
Retorno=MyAddress.Position..Direction
ELSE IFTipoRetorno=9THEN
IFWindowSN="S"
Info(MyAddress.Position..DirectionValid)
END
Retorno=MyAddress.Position..DirectionValid
ELSE IFTipoRetorno=10THEN
IFWindowSN="S"
Info(MyAddress.Position..Latitude)
END
Retorno=MyAddress.Position..Latitude
ELSE IFTipoRetorno=11THEN
IFWindowSN="S"
Info(MyAddress.Position..Longitude)
END
Retorno=MyAddress.Position..Longitude
ELSE IFTipoRetorno=12THEN
IFWindowSN="S"
Info(MyAddress.Position..MeasurementDate)
END
Retorno=MyAddress.Position..MeasurementDate
ELSE IFTipoRetorno=13THEN
IFWindowSN="S"
Info(MyAddress.Position..PositionValid)
END
Retorno=MyAddress.Position..PositionValid
ELSE IFTipoRetorno=14THEN
IFWindowSN="S"
Info(MyAddress.Position..Precision)
END
Retorno=MyAddress.Position..Precision
ELSE IFTipoRetorno=15THEN
IFWindowSN="S"
Info(MyAddress.Position..PrecisionValid)
END
Retorno=MyAddress.Position..PrecisionValid
ELSE IFTipoRetorno=16THEN
IFWindowSN="S"
Info(MyAddress.Position..Speed)
END
Retorno=MyAddress.Position..Speed
ELSE IFTipoRetorno=17THEN
IFWindowSN="S"
Info(MyAddress.Position..SpeedValid)
END
Retorno=MyAddress.Position..SpeedValid
ELSE IFTipoRetorno=18THEN
IFWindowSN="S"
Info(MyAddress..Street)
END
Retorno=MyAddress..Street
ELSE IFTipoRetorno=19THEN
IFWindowSN="S"
Info(MyAddress..Type)
END
Retorno=MyAddress..Type
ELSE IFTipoRetorno=20THEN
IFWindowSN="S"
Info(MyAddress..ZipCode)
END
Retorno=MyAddress..ZipCode
ELSEIFTipoRetorno=21THEN
Retorno=MyAddress..AdminArea+";"+MyAddress..City+";"+MyAddress..Country+";"+MyAddress..Label+";"+...
MyAddress..Position+";"+MyAddress.Position..Altitude+";"+MyAddress.Position..AltitudeValid+";"+...
MyAddress.Position..Direction+";"+MyAddress.Position..DirectionValid+";"+MyAddress.Position..Latitude+";"+...
MyAddress.Position..Longitude+";"+MyAddress.Position..MeasurementDate+";"+MyAddress.Position..PositionValid+";"+...
MyAddress.Position..Precision+";"+MyAddress.Position..PrecisionValid+";"+MyAddress.Position..Speed+";"+...
MyAddress.Position..SpeedValid+";"+MyAddress..Street+";"+MyAddress..Type+";"+MyAddress..ZipCode
ELSE IFTipoRetorno=22THEN
IFWindowSN="S"
Info(MyAddress.Position..Latitude+"; "+MyAddress.Position..Longitude)
END
Retorno=MyAddress.Position..Latitude+"; "+MyAddress.Position..Longitude
ELSE IFTipoRetorno=23THEN
IFWindowSN="S"
Info("Latitude: "+MyAddress.Position..Latitude+"; Longitude: "+MyAddress.Position..Longitude)
END
Retorno="Latitude: "+MyAddress.Position..Latitude+"; Longitude: "+MyAddress.Position..Longitude
ELSE IFTipoRetorno=24THEN//Endereço Completo
IFWindowSN="S"
Info(MyAddress..Label+"; "+MyAddress..Street+";"+MyAddress..City+";"+MyAddress..Country+";"+MyAddress..ZipCode+";"+MyAddress.Position..Latitude+";"+MyAddress.Position..Longitude)
END
Retorno=MyAddress..Label+"; "+MyAddress..Street+";"+MyAddress..City+";"+MyAddress..Country+";"+MyAddress..ZipCode+";"+MyAddress.Position..Latitude+";"+MyAddress.Position..Longitude
ELSE IFTipoRetorno=25THEN//Endereço Completo
IFWindowSN="S"
Info("Local: "+MyAddress..Label+"; Endereço: "+MyAddress..Street+"; Cidade: "+MyAddress..City+"; País: "+MyAddress..Country+"; CEP: "+MyAddress..ZipCode+"; Latitude: "+MyAddress.Position..Latitude+"; Longitude: "+MyAddress.Position..Longitude)
END
Retorno="Local: "+MyAddress..Label+"; Endereço: "+MyAddress..Street+"; Cidade: "+MyAddress..City+"; País: "+MyAddress..Country+"; CEP: "+MyAddress..ZipCode+"; Latitude: "+MyAddress.Position..Latitude+"; Longitude: "+MyAddress.Position..Longitude
END

ELSE
IFWindowSN="S"
Info("Endereço não encontrado")
END
Retorno="Endereço não encontrado"
END

ok=MapDisplayPosition(ControleMapa,Pos)

IFok=TrueTHEN
IFWindowSN="S"THEN
Info("Posição detectada")
END
Retorno="Posição detectada"
ELSE
IFWindowSN="S"THEN
Info("Posição não foi detectada")
END
Retorno="Posição não foi detectada"
END

ELSE IFGPSStatus() =gpsDisabledTHEN

Info("GPS Desabilitado!")

ELSE IFGPSStatus() =gpsOffServiceORGPSStatus() =gpsUnavailableORGPSStatus() =gpsErrorTHEN

Info("Região sem serviço de GPS",ErrorInfo())

END

RESULT(Retorno)