Hi ich habe bei mir im weiteren Submit paar zustandsmeldungen Programmiert!
Es funktioniert alles wie es soll. Allerdings wird mir durch die Repeat- Until Schleife nur einen zustand Angezeigt.
Ziel soll sein alle möglichen zustände Anzuzeigen. Wenn ein zustand behoben wurde wird die meldung gelöscht egal ob noch andere fehler vorhanden sind!
Mal angenommen ich möchte 3 Zustände Anzeigen.... durch die Variable JobnR kann ich dann im Submit abfragen ob der zustand noch aktiv ist oder nicht.
Wenn nicht dann kann ich mit
die meldung löschen. Jetzt die Frage...werden die anderen meldungen dann auch gelöscht wenn ein zustand ok ist?
Da es im Submit läuft muss ich es ja permanent abfragen...
Hat da jemand eine idee wie ich es sonst umsetzen kann?
Code
IF JobnR == 1 THEN
Nachrichtentext = {modul[] "Sicherheit", Nr 6, msg_txt[] "Sicherung / Motorschutzschalter hat ausgelöst"}
Parameter[1] = {par_type #EMPTY, par_txt[] " "}
Parameter[2] = {par_type #EMPTY, par_txt[] " "}
Parameter[3] = {par_type #EMPTY, par_txt[] " "}
Optionen = {vl_stop true, clear_p_reset False, clear_p_SAW false, log_to_DB false}
nHandle = Set_KrlMsg (#state, Nachrichtentext, Parameter[], Optionen)
REPEAT
IF (nHandle > 0) then
if JobnR <> 1 then
result = Clear_KrlMsg (nHandle)
endif
ENDIF
wait sec 0.5
UNTIL JobnR <> 1
result = Clear_KrlMsg (nHandle)
ENDIF
IF JobnR == 2 THEN
Nachrichtentext = {modul[] "Sicherheit", Nr 7, msg_txt[] "Fehler Hilfskontakte Schutztür"}
Parameter[1] = {par_type #EMPTY, par_txt[] " "}
Parameter[2] = {par_type #EMPTY, par_txt[] " "}
Parameter[3] = {par_type #EMPTY, par_txt[] " "}
Optionen = {vl_stop true, clear_p_reset False, clear_p_SAW false, log_to_DB false}
nHandle = Set_KrlMsg (#state, Nachrichtentext, Parameter[], Optionen)
REPEAT
IF (nHandle > 0) then
if JobnR <> 2 then
result = Clear_KrlMsg (nHandle)
endif
ENDIF
wait sec 0.5
UNTIL JobnR <> 2
result = Clear_KrlMsg (nHandle)
ENDIF
IF JobnR == 3 THEN
Nachrichtentext = {modul[] "Sicherheit", Nr 8, msg_txt[] "Fehler Umrichter DT"}
Parameter[1] = {par_type #EMPTY, par_txt[] " "}
Parameter[2] = {par_type #EMPTY, par_txt[] " "}
Parameter[3] = {par_type #EMPTY, par_txt[] " "}
Optionen = {vl_stop true, clear_p_reset False, clear_p_SAW false, log_to_DB false}
nHandle = Set_KrlMsg (#state, Nachrichtentext, Parameter[], Optionen)
REPEAT
IF (nHandle > 0) then
if JobnR <> 3 then
result = Clear_KrlMsg (nHandle)
endif
ENDIF
wait sec 0.5
UNTIL JobnR <> 3
ENDIF
Alles anzeigen