Auto Stop (Last Cycle) on No Parts

Logical/MachCtrl/Bunker/Cyclic.st

@@ -23,8 +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
   
   FUBs.TON_Startfill.IN := (States.uiFillpos <= Parameter.uiPosStartFill);

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,12 @@ 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 ();
+
 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,7 @@ TYPE
 		TON_Axis2NotPowered : TON;
 		TON_UnlockTool : TON;
 		TON_CleanTool : TON;
+		TON_StopNoParts : TON;
 		TON_CylCtrl_Part : FUB_CylinderCheck;
 	END_STRUCT;
 	typ_MpFUB : 	STRUCT  (*MApp Funktionsbausteine*)