-> Hier kostenlos registrieren
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. Das funktioniert allerdings nicht und kommt immer eine Fehlermeldung. Kann jemand vlt helfen? Vielen Dank im Voraus
FG
Pedro
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
SaveDataRecord 1, Counter, hmiOverwriteAlways, hmiOff, Null
Next
Else
LoadDataRecord 1, SmartTags("Sortennummer"), Null
SaveDataRecord 1, Ziel_Sorte, hmiOverwriteAlways, hmiOff, Null
End If
ResetBit "Sorten_Am_Kopieren"
SetBit "Sort_kopiert"
End Sub
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. Das funktioniert allerdings nicht und kommt immer eine Fehlermeldung. Kann jemand vlt helfen? Vielen Dank im Voraus
FG
Pedro
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
SaveDataRecord 1, Counter, hmiOverwriteAlways, hmiOff, Null
Next
Else
LoadDataRecord 1, SmartTags("Sortennummer"), Null
SaveDataRecord 1, Ziel_Sorte, hmiOverwriteAlways, hmiOff, Null
End If
ResetBit "Sorten_Am_Kopieren"
SetBit "Sort_kopiert"
End Sub