29 lines
863 B
XML
29 lines
863 B
XML
<?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> |