Bunker angepasst

Logical/MachCtrl/Bunker/Cyclic.st

@@ -23,11 +23,10 @@ PROGRAM _CYCLIC
   FUBs.TON_Empty ();
   IF FUBs.TON_Empty.Q THEN
     States.bEmtpy := TRUE;
-    gCmd1.Bunker.FromBunkerEmpty := TRUE;
   ELSIF (States.uiFillpos > 3) THEN
     States.bEmtpy := FALSE;
-    gCmd1.Bunker.FromBunkerEmpty := FALSE;
   END_IF
+  gCmd1.Bunker.FromBunkerEmpty := (States.uiFillpos <= 8);
   
   FUBs.TON_Startfill.IN := (States.uiFillpos <= Parameter.uiPosStartFill);
   FUBs.TON_Startfill.PT := Parameter.tDelayStartFill;

Logical/MachCtrl/MachCtrl/Action.st

@@ -237,6 +237,12 @@ ACTION DoTimeFubs:
   FUBs.TON_StopNoParts.PT := t#39s;
   FUBs.TON_StopNoParts ();
 
+  FUBs.TON_OpenNoParts.IN := gCmd1.FlexfeedRobFeed.FlexfeedToRobfeed.bNoPart AND (enStepAuto = enAutoStep_WAIT_START) AND NOT gCmd1.bReqDoorOpen;
+  FUBs.TON_OpenNoParts.PT := t#20s;
+  FUBs.TON_OpenNoParts ();
+  IF EDGEPOS ( FUBs.TON_OpenNoParts.Q) THEN
+    gCmd1.bReqDoorOpen := TRUE;
+  END_IF
 END_ACTION
 
 ACTION DoTool:

Logical/MachCtrl/MachCtrl/Types.typ

@@ -10,6 +10,7 @@ TYPE
 		TON_UnlockTool : TON;
 		TON_CleanTool : TON;
 		TON_StopNoParts : TON;
+		TON_OpenNoParts : TON;
 		TON_CylCtrl_Part : FUB_CylinderCheck;
 	END_STRUCT;
 	typ_MpFUB : 	STRUCT  (*MApp Funktionsbausteine*)