Procedure GPS_AlterarStatus(LOCAL Status, LOCAL WindowSN)

// Status = "GPS Enabled" , "GPS Disabled" , "GPS off service" , "GPS Unavailable" , "GPS available"

// Finalidade: Alterar o Status do GPS

GPSStatus(Status)

sRetorno is string = ""

IF GPSStatus() = gpsEnabled THEN
IF WindowSN = "S" THEN
Info("Gps habilitado")
END
sRetorno = "Gps habilitado"
ELSE IF GPSStatus() = gpsDisabled THEN
IF WindowSN = "S" THEN
Info("Gps desabilitado")
END
sRetorno = "Gps desabilitado"
ELSE IF GPSStatus() = gpsOffService THEN
IF WindowSN = "S" THEN
Info("Gps sem serviço")
END
sRetorno = "Gps sem serviço"
ELSE IF GPSStatus() = gpsUnavailable THEN
IF WindowSN = "S" THEN
Info("Gps indisponível.")
END
sRetorno = "Gps indisponível."
ELSE IF GPSStatus() = gpsAvailable THEN
IF WindowSN = "S" THEN
Info("Gps disponível.")
END
sRetorno = "Gps disponível."
END

RESULT(sRetorno)