Initial

PLC/1 Cassette/POUs/CheckRecipeForFlow.TcPOU

@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="utf-8"?>
+<TcPlcObject Version="1.1.0.1" ProductVersion="3.1.4026.11">
+  <POU Name="CheckRecipeForFlow" Id="{49d63b5e-c859-4b4e-aa90-93579f23246e}" SpecialFunc="None">
+    <Declaration><![CDATA[FUNCTION CheckRecipeForFlow : BOOL
+VAR_INPUT
+	Data		:	sCassetteStepData;
+END_VAR
+VAR
+	i				:	INT;
+	RecipeList		:	sRecipeList;
+END_VAR
+]]></Declaration>
+    <Implementation>
+      <ST><![CDATA[IF StationsStatus[RecipeGetStationType(Data.StationType)].NoRecipe THEN
+	CheckRecipeForFlow	:=	TRUE;
+	RETURN;
+END_IF
+
+CheckRecipeForFlow	:=	FALSE;
+RecipeList	:=	StationsStatus[RecipeGetStationType(Data.StationType)].IRecipe.GetProcessList;
+FOR i := 1 TO RecipeList.NumberOfRecipe  DO
+	IF Data.RecipeName = RecipeList.RecipeList[i] THEN
+		CheckRecipeForFlow	:=	TRUE;
+		RETURN;
+	END_IF
+END_FOR]]></ST>
+    </Implementation>
+  </POU>
+</TcPlcObject>