Bunker angepasst

Logical/MachCtrl/Bunker/Cyclic.st

@@ -26,6 +26,7 @@ PROGRAM _CYCLIC
   ELSIF (States.uiFillpos > 3) THEN
     States.bEmtpy := 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/GlobalMachine.typ

@@ -32,6 +32,7 @@ END_TYPE
 TYPE
 	gtyp_CmdInterfaceFlexBunker : 	STRUCT 
 		ToBunker : gtyp_CmdInterfaceFlexToBunker;
+		FromBunkerEmpty : BOOL;
 	END_STRUCT;
 	gtyp_CmdInterfaceFlexToBunker : 	STRUCT 
 		bEnableBunker : BOOL;

Logical/MachCtrl/MachCtrl/Action.st

@@ -231,6 +231,18 @@ ACTION DoTimeFubs:
   FUBs.TON_CleanTool.IN := Valves.bCleanTool;
   FUBs.TON_CleanTool.PT := t#2s;
   FUBs.TON_CleanTool ();
+  
+  //Keine Teile
+  FUBs.TON_StopNoParts.IN := NOT States.bLastCycle AND gCmd1.Bunker.FromBunkerEmpty AND gCmd1.FlexfeedRobFeed.FlexfeedToRobfeed.bNoPart;
+  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/Cyclic.st

@@ -211,7 +211,7 @@ PROGRAM _CYCLIC
     
     
     //Letzten Zyklus starten
-    IF EDGEPOS (VCButtons.LastCycle.bCommand) THEN
+    IF EDGEPOS (VCButtons.LastCycle.bCommand) OR FUBs.TON_StopNoParts.Q THEN
       States.bLastCycle := TRUE;
     END_IF  
                     

Logical/MachCtrl/MachCtrl/Types.typ

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