Sub SendAndWait As ResumableSub
If File.Exists(Globaal.Map_JDS,Globaal.File_Berichten) Then
PutGelezenBerichten2
End If
If Globaal.dolog=1 Then
Log("Send and wait")
End If
Globaal.CreateDir
Try
If File.ListFiles(Globaal.Map_Wachtrij).Size>0 Then
Wait For(CallSub2(Me,"PutStatus",1)) Complete (Result As Int)
End If
If File.ListFiles(Globaal.Map_Delete).Size>0 Then
Wait For(CallSub(Me,"PutZendingDelete")) Complete (Result1 As Int)
End If
If File.ListFiles(Globaal.Map_Uren).Size>0 Then
Wait For(CallSub2(Me,"PutUren",1)) Complete (Result1 As Int)
End If
If File.ListFiles(Globaal.Map_gps).Size>0 Then
Wait For(CallSub(Me,"PutGPS")) Complete (Result2 As Int)
End If
If File.ListFiles(Globaal.Map_Bijrijders).Size>0 Then
Wait For(CallSub2(Me,"PutBijrijder",1)) Complete (Result3 As Int)
End If
If File.ListFiles(Globaal.Map_Activiteit).Size>0 Then
Wait For(CallSub2(Me,"PutActiviteit",1)) Complete (Result4 As Int)
End If
If File.ListFiles(Globaal.Map_Foto).Size>0 Then
Wait For(CallSub2(Me,"PutFoto",1)) Complete (Result5 As Int)
End If
If File.ListFiles(Globaal.Map_ChangeVal).Size>0 Then
Wait For(CallSub2(Me,"PutChangeChauffeurKenteken",1)) Complete (Result6 As Int)
End If
If File.ListFiles(Globaal.Map_ProcesCode).Size>0 Then
Wait For(CallSub2(Me,"PutProcescodes",1)) Complete (Result7 As Int)
End If
If File.ListFiles(Globaal.Map_VoertuigCtrl).Size>0 Then
Wait For(CallSub(Me,"PutVoertuigControleWait")) Complete (Result8 As Int)
End If
If File.ListFiles(Globaal.Map_MainFoto).Size>0 Then
Wait For(CallSub2(Me,"PutMainFoto",1)) Complete (Result9 As Int)
End If
Catch
Log(LastException)
End Try
Return 1 'this triggers the error
End Sub