TIA V14 - Rezepturen (Datensätze kopieren)

Hallo zusammen,

ich habe eine CPU1511 und Panel TP700 mit TIA Portal V14 projektiert, und versuche durch ein VB-Skript die Parameter eines Datensatzes auf allen anderen Datensätze des Rezeptures (etwa 200 Datensätze) zu übertragen und dieser Vorgang dauert etwa 5 Minuten (1,6 Sekunden für jeden Datensatz). Ist das so normal? oder habe ich was falsches enigestellt?

FG

Badr

Anbei das Skript

Sub Copy_Sorten()

Dim Counter
If SmartTags("Ziel_Sorte") = 0 Then
SetBit "Sorten_Am_Kopieren"
LoadDataRecord 1, SmartTags("Sortennummer"), Null
For Counter = 1 To 200 Step 1
SmartTags("DelayTime") = 510
DelayScript()
SaveDataRecord 1, Counter, hmiOverwriteAlways, hmiOff, Null
Next
Else
LoadDataRecord 1, SmartTags("Sortennummer"), Null
SmartTags("DelayTime") = 10
DelayScript()
SaveDataRecord 1, Ziel_Sorte, hmiOverwriteAlways, hmiOff, Null
End If
ResetBit "Sorten_Am_Kopieren"
SetBit "Sort_kopiert"
End Sub

Die Funktion LoadDataRecord   bzw. SaveDataRecord  liefert doch den Bearbeitungsstatus zurück

Aus der Hilfe:"

Gibt den Bearbeitungsstatus der Systemfunktion zurück. Verwenden Sie den Rückgabewert, um z.B. andere Systemfunktionen erst dann auszuführen, wenn diese Systemfunktion erfolgreich beendet wurde:

2 = Systemfunktion wird gerade ausgeführt.

4 = Systemfunktion wurde erfolgreich beendet.

12 = Systemfunktion wurde nicht ausgeführt, weil ein Fehler aufgetreten ist."

diesen würde ich abfragen und keine zeiten einbauen.

Da dein Delay in der schleife ist, dauert es dann halt.

Mit den Bearbeitungsstatus bist du erstens auf der sicheren seite und zweitens geht es dann so schnell wie möglich. in der For-Schleife ggf. noch ne kleine while einfügen anstelle von delay

vielen Dank für deine Antwort. Das Abfragen der Bearbeitungsstatus hat es geklappt, allerdings kriege ich manchmal (nicht immer) die gleiche Fehlermeldung . Anbei das Skript.

Sub Copy_Sorten()

Dim Counter
LoadDataRecord 1, SmartTags("Sortennummer"), "Be_Status_L"

If SmartTags("Ziel_Sorte") = 0 Then
SetBit "Sorten_Am_Kopieren"
For Counter = 1 To 200 Step 1

While  Be_Status_L = "2"
'Wait to save last Data
Wend

If Be_Status_L = "4" Then
Be_Status_L = "0"
SaveDataRecord 1, Counter, hmiOverwriteAlways, hmiOff, "Be_Status_L"
Else
ShowSystemAlarm "Fehler aufgetreten"
Exit For
End If
Next
ResetBit "Sorten_Am_Kopieren"
SetBit "Sort_kopiert"
Else
Do
'Wait to load Data
Loop While Be_Status_L = "2"
If Be_Status_L = "4" Then
SaveDataRecord 1, Ziel_Sorte, hmiOverwriteAlways, hmiOff, "Be_Status_L"
SetBit "Sort_kopiert"
Else
ShowSystemAlarm "Fehler"
End If
End If


End Sub