Can you post the JobDone code?
The relevant JobName here is "CheckDF":
Sub
JobDone(Job AsHttpJob)
Dim
resultString AsString
Try
SelectCase Job.JobName
Case"CheckDF"
If Job.Success Then
resultString =Job.GetString
Log(resultString)
Ifsf.InString( resultString,"none")<0Then
strRespDown="Yes"' '"Yes"
'resultString = "zzz" '"zip###images###010101010.zip"
Dim s() AsString = Regex.Split("###",resultString) 'resultString
If s.Length >= 3Then
FileBase = s(0)
Dim FilesType AsString = s(1)
Dim FileName AsString = s(2)
SelectCaseFileBase's(0)
Case"zip"
SetForDownload
DownloadZipFile(
mdlCode.strLinkToServer & "/files/"&FileName, FilesType, FileName) 'resultString
Case"apk"
SetForDownload
DownloadAPKFile(
mdlCode.strLinkToServer & "/files/"&FileName, FilesType, FileName) 'resultString
EndSelect
EndIf
Else
mdlCode.strResetTime =resultString.Replace("none","")
IfmdlCode.strResetTime = ""ThenmdlCode.strResetTime = "23:45:00"
EndIf
EndIf
Case"CheckingCard"
myProgressDialog.Hide
CardSwiped = False
If Job.Success Then
resultString =Job.GetString
CardInfo(resultString)
Buzzer(
1)
IfpnlNum0.Visible = TrueThen
intTimeAdv=0
pnlNum0.Visible=False
UserProductsReset
pnlNum1.Visible=True
EndIf
Else
'mdlCode.blnCrediCardSw =False
mdlCode.Track2=""
CardSwiped = False
mdlCode.Credit = 0
lblCredit.Text = "0.00"
lblSwipeCard.Text="נא להעביר כרטיס"
mdlCode.Credit=0
mdlCode.strCardCredit="0.00"
mdlCode.blnCrediCardSw=False
Toast.Initialize(Activity, Me, Activity.Height, Activity.Width)
Toast.ToastMessageShow2("אין תקשורת עם שרת! ", 3, 50, 50, "", Colors.Yellow, Colors.Red, 30, True)
Buzzer(
3)
EndIf
EndSelect
Catch
End
Try
Job.Release
BootStart
.NetworkFree = True
End Sub