317T / MP277

I am trying to SetDataRecordToPLC x 8 of them this is for multiple recipe records but when in runtimeI am randomly getting errors like canot write to because system function already running. Iam using a button to start the script (read the notes on buttons and scripts with unexpected operating modes)but i think it has to do with something internal as it does work 50% of the time then other times the script hangs. think this could be an overflow problem using Sub script then calling 8 functions to do SetDataRecordToPLCreading process status for the start of the next function call i.e. wait till = 4 then call next function.

Question: What is the best way to hold up untill the the System function is complete as this does work but no all the time.

Note: also having very same problem with the LoadDataRecord & SaveDataRecord

Sub Script.

Dim Counter, DownloadComplete
'
Counter = 0
Set_Data_A01 Nothing
While SmartTags("Part_Infomation\Process_Tag_10")<>4
Counter = 10
Wend
'
Counter = 0
Set_Data_A02 Nothing
While SmartTags("Part_Infomation\Process_Tag_11")<>4
Counter = 20
Wend
'
Counter = 0
Set_Data_A03 Nothing
While SmartTags("Part_Infomation\Process_Tag_12")<>4
Counter = 30
Wend
'
Counter = 0
Set_Data_A04 Nothing
While SmartTags("Part_Infomation\Process_Tag_13")<>4
Counter = 40
Wend
'
Counter = 0
Set_Data_A05 Nothing
While SmartTags("Part_Infomation\Process_Tag_14")<>4
Counter = 50
Wend
'
Counter = 0
Set_Data_A06 Nothing
While SmartTags("Part_Infomation\Process_Tag_15")<>4
Counter = 60
Wend
'
Counter = 0
While Counter < 50000
Counter = Counter+1
Wend
Set_Data_A07 Nothing
While SmartTags("Part_Infomation\Process_Tag_16")<>4
Counter = 70
Wend
'
Counter = 0
Set_Data_Door_Info Nothing
While SmartTags("Part_Infomation\Process_Tag_17")<>4
Counter = 80
Wend
'
Counter = 100

If Counter = 100 Then
DownloadComplete = 1
Else DownloadComplete = 0
End If

SmartTags("Part_Infomation\DownloadComplete") = DownloadComplete


Function (Did not included all functions as they are all the same except the recipe and process tag)

Dim ListIndexPointer
'
SmartTags("Part_Infomation\Process_Tag_10") = 0
ListIndexPointer = SmartTags("Part_Infomation\Selected Model List")
'
'A01
'
SetDataRecordToPLC "A01 Station102 Infeed Length", ListIndexPointer,hmiOn, SmartTags("Part_Infomation\Process_Tag_10")
Set_Data_A01 = SmartTags("Part_Infomation\Process_Tag_10")