Procedure GPS_UltimaPosicao(LOCAL ControleMapa, LOCAL WindowSN)

ok = False

Retorno is string = ""

IF ControleMapa = "" THEN
ControleMapa = gloControleMapa
END

IF GPSStatus() = gpsEnabled OR GPSStatus() = gpsAvailable THEN

pos is geoPosition

pos = GPSLastPosition()

Retorno = "Latitude: " + pos..Latitude + " Longitude: " + pos..Longitude

IF ErrorOccurred = False AND gloWindowSN = "S" THEN
Info("Latitude: " + pos..Latitude + " Longitude: " + pos..Longitude)
END

ok = MapDisplayPosition(ControleMapa, pos)

IF ok = True THEN
IF WindowSN = "S" THEN
Info("Posição detectada")
END
Retorno = "Posição detectada"
ELSE
IF WindowSN = "S" THEN
Info("Posição não foi detectada")
END
Retorno = "Posição não foi detectada"
END

ELSE IF GPSStatus() = gpsDisabled THEN

Info("GPS Desabilitado!")

ELSE IFGPSStatus() = gpsOffService OR GPSStatus() = gpsUnavailable OR GPSStatus() = gpsError THEN

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

END

RESULT(Retorno)