Config.MinCDA*1000 OR Config.MinCDA = 0; bInN2Ok := rInN2 > Config.MinN2*1000 OR Config.MinN2 =0; //bInVacOk := ABS(rInVacuum) > Config.MinVac*1000 OR Config.MinVac =0; SignalHorn := ReportDialogMng.Horn; SignalLampRed := ReportDialogMng.Ampel_Red; SignalLampYellow := CMD[GeneralStation] <> StartCMD AND StationsStatus[GeneralStation].Ist.InitDone; SignalLampgGreen := CMD[GeneralStation] = StartCMD; FOR i := 1 TO 3 DO DoorLock[i](); END_FOR (*IF NOT iStationStatus.Ist.Service THEN bVacuumPumpOffCheck := FALSE; FOR i := FirstStation TO LastStation DO IF StationsStatus[i].Ist.Busy THEN bVacuumPumpOffCheck := TRUE; END_IF IF StationsStatus[i].Ist.Service THEN bVacuumPumpOffCheck := TRUE; END_IF END_FOR bOutVacuumPumpOff := FALSE; TimerVacuumPumpOff(IN := NOT bVacuumPumpOffCheck, PT := T#10M); IF TimerVacuumPumpOff.Q THEN bOutVacuumPumpOff := TRUE; END_IF END_IF *) IF NOT iStationStatus.Ist.Service THEN bOutVacuumPumpOff := bCoolDown; END_IF ]]> 0 THEN FOR i := 1 TO NumberOfExhaust DO AlarmSend(iStation, MEDIA_ErrorNr.eExhaust1+ i-1, FALSE, eReportType.Error, sAvailableResponse.NoResponse, ExhaustOk[i]); END_FOR END_IF FOR i := 1 TO NumberOfLeckageSensor DO AlarmSend(iStation, MEDIA_ErrorNr.eLeakage1 + i-1, FALSE, eReportType.Error, sAvailableResponse.NoResponse, NoLeckage[i]); END_FOR TimerAktorspannung(IN := InAktorspannung, PT := T#10S); IF TimerAktorspannung.Q THEN AlarmSend(iStation, MEDIA_ErrorNr.eCDA, FALSE, eReportType.Error, sAvailableResponse.NoResponse,bInCDAOk); AlarmSend(iStation, MEDIA_ErrorNr.eN2, FALSE, eReportType.Error, sAvailableResponse.NoResponse,bInN2Ok); // AlarmSend(iStation, MEDIA_ErrorNr.eVacuum, FALSE, eReportType.Error, sAvailableResponse.NoResponse,bInVacOk); END_IF ]]>