Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 2 von 2

Thema: Problem bei WinCC VB-Script

  1. #1
    Registriert seit
    15.10.2014
    Beiträge
    91
    Danke
    15
    Erhielt 18 Danke für 15 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo liebe Gemeinde,

    ich versuche alle Datensatznamen einer Rezeptur auszulesen und die Datensatznamen in interne Variablen zu schreiben.

    Code:
    For i = 1 To 8
     SmartTags("Script_DatensatzNr") = i
     GetDataRecordName 1, SmartTags("Script_DatensatzNr"), "Script_Rezeptname", "Script_Datensatzname", "Script_Status"
     Select Case  Script_Status
      Case 12
       Exit For
      Case 4 
       Select Case i
       Case 1
        SmartTags("Datensatz_1") = Script_Datensatzname
       Case 2
        SmartTags("Datensatz_2") = Script_Datensatzname
       Case 3
        SmartTags("Datensatz_3") = Script_Datensatzname
       Case 4
        SmartTags("Datensatz_4") = Script_Datensatzname
       Case 5
        SmartTags("Datensatz_5") = Script_Datensatzname
       Case 6
        SmartTags("Datensatz_6") = Script_Datensatzname
       Case 7
        SmartTags("Datensatz_7") = Script_Datensatzname
       Case 8
        SmartTags("Datensatz_8") = Script_Datensatzname   
       End Select
     End Select
     Script_Status = 0
    Next
    Laut Dokumentation zu Funktion GetDataRecordName gibt es folgende Statusnummer:
    2 = Systemfunktion wird gerade ausgeführt.
    4 = Systemfunktion wurde erfolgreich beendet.
    12 = Systemfunktion wurde nicht ausgeführt, weil ein Fehler aufgetreten ist.

    Beim ausführen des Scriptes wird dieses mit folgender Fehlermeldung kommentiert:
    Code:
    Datensatzbearbeitung nicht möglich, da bereits Rezepturaktion läuft.
    Eigentlich sollte doch erst wenn eine Bearbeitung abgeschlossen ist die nächste gestartet werden (Case abfrage Status 4).

    Habt Ihr dazu Ideen?


    Stefan
    Zitieren Zitieren Problem bei WinCC VB-Script  

  2. #2
    Registriert seit
    15.10.2014
    Beiträge
    91
    Danke
    15
    Erhielt 18 Danke für 15 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo,

    Problem hat sich erledigt. Ich habe es mit einer Do Schleife gelöst.


    Code:
    For i = 1 To 8
     SmartTags("Script_DatensatzNr") = i
     GetDataRecordName 1, SmartTags("Script_DatensatzNr"), "Script_Rezeptname", "Script_Datensatzname", "Script_Status"
     Do
      If Script_Status = 12 Then
       Exit For
      End If
     Loop Until Script_Status = 4
     Select Case i
      Case 1
       SmartTags("Datensatz_1") = Script_Datensatzname
      Case 2
       SmartTags("Datensatz_2") = Script_Datensatzname
      Case 3
       SmartTags("Datensatz_3") = Script_Datensatzname
      Case 4
       SmartTags("Datensatz_4") = Script_Datensatzname
      Case 5
       SmartTags("Datensatz_5") = Script_Datensatzname
      Case 6
       SmartTags("Datensatz_6") = Script_Datensatzname
      Case 7
       SmartTags("Datensatz_7") = Script_Datensatzname
      Case 8
       SmartTags("Datensatz_8") = Script_Datensatzname  
     End Select
     Script_Status = 0
    Next

Ähnliche Themen

  1. Wincc flexible hilfe bei script
    Von sochn0 im Forum HMI
    Antworten: 0
    Letzter Beitrag: 27.01.2014, 19:32
  2. Problem mit WinCC Script
    Von king_of_drums im Forum HMI
    Antworten: 0
    Letzter Beitrag: 28.10.2013, 09:06
  3. WinCC 7 Script bei Wertenderung
    Von Pikador im Forum HMI
    Antworten: 2
    Letzter Beitrag: 23.08.2012, 11:52
  4. Antworten: 0
    Letzter Beitrag: 19.04.2011, 11:54
  5. WinCC Flex 2007-Problem mit Script
    Von Neuling74 im Forum HMI
    Antworten: 9
    Letzter Beitrag: 30.01.2008, 11:32

Stichworte

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •