Procedure GPS_DetectarPosicao(LOCAL ControleMapa, LOCAL EnderecoMonumento, LOCAL MinhaPosicaoSN, LOCAL Raio, LOCAL Timeout, LOCAL WindowSN)

// Finalidade: Detecta a Posicao passada por parametro pode ser um endereco ou minha posicao
GPS_Inicializar("A","A","A")

ok = False

retorno is string = ""

IF ControleMapa = "" THEN
ControleMapa = gloControleMapa
END

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

Latitude, Longitude is real = ""

Latitude = GPS_LocalizaEnderecoMonumento(ControleMapa, EnderecoMonumento, 10, WindowSN)

Longitude = GPS_LocalizaEnderecoMonumento(ControleMapa, EnderecoMonumento, 11, WindowSN)

IF MinhaPosicaoSN = "S" THEN

gloGPS_DetectID = GPSDetectPosition(GPS_PosicaoAtual, Latitude, Longitude, Raio, Timeout)

ELSE

gloGPS_DetectID = GPSDetectPosition(GPS_PosicaoBuscada, Latitude, Longitude, Raio, Timeout)

END

MyPosition is geoPosition
MyPosition..Latitude = Latitude
MyPosition..Longitude = Longitude

ok = MapDisplayPosition(ControleMapa, MyPosition)

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)