Check our GPS position

In this example we see how to extract the phone's current GPS position and check that our operator is actually where it should be. In practice, while saving his work report, we will see if he is actually in the customer's proximity.

Script GroupEvent
FormPost saving
  -- calculation of the distance between 2 points
function get_distance(A,B)
        local latA = (A["lat"] * math.pi) / 180
        local lonA = (A["lon"] * math.pi) / 180
        local latB = (B["lat"] * math.pi) / 180
        local lonB = (B["lon"] * math.pi) / 180
        local R = 6372.795477598
        local dist = (R * math.acos(math.sin(latA) *
        math.sin(latB) + math.cos(latA) * math.cos(latB) * math.cos(lonA-lonB)))*1000
        return dist
end
-- check if the past position is on the construction site
function in_dockyard(coordA, coordB, radius)
        if (get_distance(coordA, coordB)<=radius) then
               return true
        end
        return false
end

First we create two functions that will be called by the script to measure the distance between the current GPS point and, in this case, the GPS points of the dockyards.

local dockyard = database.getsql("SELECT  * FROM coord_dockyard WHERE latitude<>0 AND longitude<>0 AND latitude IS NOT NULL AND longitude IS NOT NULL")

local rows_dockyard = dockyard.getrows()

 -- retrieve GPS coordinates
local coord = program.geolocation()
local curr_lat = 0
local curr_lon = 0

curr_lat = coord[1]
curr_lon = coord[2]

We read all the cantieri in the database by taking only those with a valid GPS coordinate. Nios4 does not consider the latitude and longitude values if both are zero.

We then interrogate the phone to retrieve the position.

--coordinates not found
if (curr_lat==0 and curr_lon==0) then
        errorn.errorcode    = "ERR-FL"
        errorn.errormessage = "Unable to recover GPS coordinates, try again in a second moment"
        dataview.setvalue(fieldname,"To check
        (GPS not found)")
        do return end
end

If the GPS point cannot be recovered, then you can give an error and exit the script. This is the most drastic system.

The best method would be to give a message and still allow saving, perhaps by setting a value of a field to unconfirmed data. This is to prevent an operator from being able to save data if GPS is not working.

for i, c in pairs(rows_dockyard) do
        -- site coordinates
        local lat = c.getvalue("latitude")
        local lon = c.getvalue("longitude")
        local dockyard_coord = {lat = lat, lon = lon}

        if (in_dockyard(current_coord, dockyard_coord, c.getvalue("radius"))==true) then
               dataview.setvalue("state","GPS
               found")
               set_dockyard_report(c.getvalue("gguidp"))
               do return end
        end
end
dataview.setvalue("state","To check (GPS not found)")

We start to turn all the dockyards and, through the functions created at the beginning, we check if the distance between our current position and that of the dockyard is less than the gived radius. If so, we are actually on the dockyard, otherwise the role of the filed wll be set in order to signal that the values have not been confirmed by the GPS position.