Android Question Fatal Exception: java.io.FileNotFoundException

Sub JobDone(Job As HttpJob)
    If Job.Success Then

        Log (Job.GetString)
        Dim res As String
        Dim Rec As List
        res = Job.GetString
        
        Dim parser As JSONParser
        parser.Initialize(res )
........

#Region  Project Attributes
    #ApplicationLabel: xxxx
    #VersionCode: 10
    #VersionName: 3.0
    'SupportedOrientation possible values: unspecified, landscape or portrait.
    #SupportedOrientations: Portrait
    #CanInstallToExternalStorage: False
#End Region
    #AdditionalRes: ..\Resource
    #additionaljar: com.android.support:support-v4
    #AdditionalJar: com.crashlytics.sdk.android:crashlytics
    #AdditionalJar: com.google.firebase:firebase-core

#Region  Activity Attributes
    #FullScreen: True
    #IncludeTitle: false
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim Lan As String
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim tt As Timer
    Dim SQLF As SQL

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    Dim Qry As String

'    If GetDeviceLayoutValues.Scale > 1 Then
'        SCL = 1 '  GetDeviceLayoutValues.Scale '+ .2
'    Else
'        SCL = 1
'    End If
    
    'Log("scale -- "  & SCL)
    Log(GetDeviceLayoutValues)
    Log("ddddd " & 1%X & " - " & 1%Y)
    tt.Initialize("TT",2000)
    tt.Enabled = True
    Activity.LoadLayout("Main")
    If Not(File.Exists(File.DirInternal,"setting.inf")) Then
        SQLF.Initialize(File.DirInternal,"setting.inf",True)
    Else
        If SQLF.IsInitialized =False Then
            SQLF.Initialize(File.DirInternal,"setting.inf",True)
        End If
    End If

'File.Copy(File.DirInternal,"setting.inf",File.DirDefaultExternal,"a.db")
    
    Qry="CREATE TABLE IF NOT EXISTS Setting (Lan TEXT,ID INT)"
    SQLF.BeginTransaction
    SQLF.ExecNonQuery(Qry)
    SQLF.TransactionSuccessful
    SQLF.EndTransaction

    Qry="CREATE TABLE IF NOT EXISTS Saved (ID INT, CATID INT, CAT TEXT, TITLE TEXT, HTML TEXT)"
    SQLF.BeginTransaction
    SQLF.ExecNonQuery(Qry)
    SQLF.TransactionSuccessful
    SQLF.EndTransaction

'StartService(Noti)
End Sub

Sub Activity_Resume
    tt.Enabled=True
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    tt.Enabled=False

End Sub

Sub tt_tick
    tt.Enabled=False
    'StartActivity("main")
    
    Dim C As Cursor
    c = SQLF.ExecQuery("Select * from setting")
    
    If C.RowCount = 0 Then
        StartActivity("startup")
        Activity.Finish
    Else
            
        C.Position=0
            Lan = C.GetString("Lan")
        If (Lan = "EN") Or (Lan = "TM") Or (Lan="SN") Then
            StartActivity("Home")
            Activity.Finish
        Else
            StartActivity("startup")
            Activity.Finish

        End If

    End If
    


End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim tt As Timer
    Dim SQLF As SQL

End Sub

Sub JobDone(Job As HttpJob)
    If Job.Success Then

        Dim res As String
        Dim Rec As List
        res = Job.GetString
      

        If res = "" Then
            Return
        End If
      
        Dim parser As JSONParser
        parser.Initialize(res )


        Select Job.JobName
          
            Case "lst"

                Rec.Initialize
                Rec = parser.NextArray
                Dim m As Map

                If Rec.Size = 0 Then
                  
                Else
                  
                    For Xn  = 0 To Rec.Size-1
                      
                      
                        Dim ItemMap As Map
                      
                        ItemMap = Rec.Get(Xn)
                      
                        If Main.Lan = "TM" Then
                            If ItemMap.Get("T") <> "" Then
                                Clist.Add(CreateItem(ItemMap.Get("ID"),ItemMap.Get("T"),ItemMap.Get("E"),ItemMap.Get("S")),80dip,ItemMap.Get("ID"))
                            End If
                        else if Main.Lan = "EN" Then
                            If ItemMap.Get("E") <> "" Then
                                Clist.Add(CreateItem(ItemMap.Get("ID"),ItemMap.Get("T"),ItemMap.Get("E"),ItemMap.Get("S")),80dip,ItemMap.Get("ID"))
                            End If
                        else if Main.Lan = "SN" Then
                            If ItemMap.Get("S") <> "" Then
                                Clist.Add(CreateItem(ItemMap.Get("ID"),ItemMap.Get("T"),ItemMap.Get("E"),ItemMap.Get("S")),80dip,ItemMap.Get("ID"))
                            End If
                        End If

                      
                      
                      
                    Next
                  

                  
                End If
          

        End Select
      
    Else
        Log(Job.ErrorMessage)
        ToastMessageShow("Unable to process. Please check the internet connection.", True)

    End If
Job.Release
End Sub

Sub RunHt(Jobname As String,Jobstring As String)

    Dim Job As HttpJob
    Job.Initialize(Jobname,Me)
    Job.Download (Jobstring)

End Sub

    RunHt("Omenu","http://xxxxxxx.php?action=viewomenu")
    RunHt("Oitems","http://xxxxxxx.php?action=viewoitem")