Obsidean_VM/04-SIDEL/06 - E5.007363 - Modifica O&U - SAE196 (cip integrato)/Source/source/BlenderRun_Stopping.md

// Block Type: FC
// Block Number: 2041
// Original Network Languages: LAD

FUNCTION "BlenderRun_Stopping" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1

BEGIN

  // Network 1: Request (Original Language: LAD)

  "Procedure_Variables"."Blender_Stop"."Request" := "gIN_StopBtn" OR "gBlenderAlarm";

  // Network 2: Latch (Original Language: LAD)

  "Procedure_Variables"."Blender_Stop"."Latch" := ("Procedure_Variables"."Blender_Stop"."Request" AND "Procedure_Variables"."Blender_Run"."Latch" AND "Procedure_Variables"."Blender_Stop"."Done" AND "gBlenderSuppliesOk") OR ("Procedure_Variables"."Blender_Stop"."Latch" AND "Procedure_Variables"."Blender_Run"."Latch" AND "Procedure_Variables"."Blender_Stop"."Done" AND "gBlenderSuppliesOk");

  // Network 3: OperatorStop (Original Language: LAD)

  // Network 3 did not produce printable SCL code.

  // Network 4: Stop Done Reset (Original Language: LAD)

  IF "Procedure_Variables"."Blender_Stop"."Done" THEN
    "Procedure_Variables"."Blender_Stop"."Done" := FALSE;
  END_IF;

  // Network 5: Stop (Original Language: LAD)

  "gEnRampDownToStop" := ("Blender_Variables_Pers"."gWaterRecipe" AND "HMI_PID"."RMM303"."ManualControl"."ManOut" AND "HMI_PID"."RMM301"."ManualControl"."ManOut") OR ("Blender_Variables_Pers"."gWaterRecipe" AND "Blender_Variables_Pers"."gCarboStillProduct" AND "HMI_PID"."RMM301"."ManualControl"."ManOut") OR ("HMI_PID"."RMM303"."ManualControl"."ManOut" AND "HMI_PID"."RMM301"."ManualControl"."ManOut" AND "HMI_PID"."RMP302"."ManualControl"."ManOut") OR ("Blender_Variables_Pers"."gCarboStillProduct" AND "HMI_PID"."RMM301"."ManualControl"."ManOut" AND "HMI_PID"."RMP302"."ManualControl"."ManOut");

  // Network 6: Stop Done (Original Language: LAD)

  IF "gBlenderStopping" AND "gEnRampDownToStop" AND "gFTN301_SpeedToStop" THEN
    "Procedure_Variables"."Blender_Stop"."Done" := TRUE;
  END_IF;

  // Network 7: Stop Done (Original Language: LAD)

  IF "gBlenderStopping" AND "gEnRampDownToStop" THEN
    "Procedure_Variables"."Blender_Stop"."Done" := TRUE;
  END_IF;

END_FUNCTION