Procedure GPS_LatitudeLongitudeAtual(LOCAL DebugSN)

//GPS
Latitude, Longitude, Retorno is string = ""

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

pos is geoPosition = GPSGetPosition()

Latitude = pos..Latitude
Longitude = pos..Longitude


gsLatitude = Latitude
gsLongitude = Longitude

IF ok = False THEN
Latitude = 0
Longitude = 0
END

ELSE IF GPSStatus() = gpsDisabled THEN

IF DebugSN = "S"
Info("GPS Desabilitado!")
END

Latitude = 0
Longitude = 0

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

IF DebugSN = "S"
Info("Região sem serviço de GPS",ErrorInfo())
END

Latitude = 0
Longitude = 0

END

Retorno = Latitude +";"+ Longitude

RESULT(Retorno)