Hello - we are experiencing an issue in our app where an alert window pops up and causes the app to freeze. It won't allow the user to tap OK or continue using the app. The concept is that the data manager is a queue for all the data you are collecting. This is where it is stored before sending it via FTP. When you tap on data manager and there is no saved data, this alert message pops up. I can't seem to determine what could be causing this window to freeze.
Code to display the list of observations
IF HNbRec(EXPRESS_observations) = 0 THEN
NextTitle("Alert")
Info("There are no recorded observations")
ELSE
HExecuteQuery(QRY_Current_Obs)
FOR EACH QRY_Current_Obs
IF QRY_Current_Obs.kingdom = "Plantae" THEN
nk = 0
ELSE
nk = 1
END
MyImage = dLoadImage(gsExtractDir + "Images/" + StringBuild("%1_%2_sm.jpg", QRY_Current_Obs.genus, NoCharacter(QRY_Current_Obs.species,CR)))
IF QRY_Current_Obs.presence = 1 THEN
LooperAddLine(WIN_ListOfObservations.LOOP_OBS, DateToString(QRY_Current_Obs.datetime, "MM-DD-YYYY") , MyImage,QRY_Current_Obs.cname, QRY_Current_Obs.EXPRESS_observationsID,QRY_Current_Obs.id,nk,WIN_ListOfObservations.IMG_OBS,"Obs")
ELSE
LooperAddLine(WIN_ListOfObservations.LOOP_OBS, DateToString(QRY_Current_Obs.datetime, "MM-DD-YYYY") , MyImage,QRY_Current_Obs.cname, QRY_Current_Obs.EXPRESS_observationsID,QRY_Current_Obs.id,nk,WIN_ListOfObservations.IMG_ABS,"Abs")
END
END
END
Code on the menu
SWITCH MZ_Menu
CASE 1
IF HNbRec(EXPRESS_observations) = 0 THEN
NextTitle("Alert")
Info("There are no recorded observations")
ELSE
OpenChild(WIN_ListOfObservations)
END
CASE 2
OpenChild(WIN_Settings)
CASE 3
OpenChild(WIN_Help)
CASE 4
OpenChild(WIN_Credits)
CASE 5
OpenChild(WIN_About)
OTHER CASE
END