T#0S, PT := Timeout); IF Error THEN CASE DialogRespons[ErrorIndex] OF eErrorResponse.Abort, eErrorResponse.Cancel: StationsStatus[iStation].Soll.Stop := TRUE; Error := FALSE; Timer(IN := FALSE); eErrorResponse.Retry: Step := StepRetry; Error := FALSE; Timer(IN := FALSE); eErrorResponse.Ignore: Step := StepIgnore; Error := FALSE; Timer(IN := FALSE); eErrorResponse.OK: Step := StepIgnore; Error := FALSE; Timer(IN := FALSE); END_CASE ELSIF Timer.Q THEN ErrorIndex := AlarmSend(iStation, MsgID, TRUE, eReportType.Error, AvailableResponse, FALSE); Timeout := T#0S; Error := TRUE; END_IF]]>