Obsidean_VM/04-SIDEL/00 - MASTER/Source/source/Syrup_Rinse_QCO_Seq.md

// Block Type: FC
// Block Name (Original): Syrup Rinse QCO_Seq
// Block Number: 1826
// Original Network Languages: LAD, STL

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

VAR_INOUT
  mStep : Int;
  mTime : Int;
  mTransition : Bool;
END_VAR

VAR_TEMP
  mTP301FUDly : Bool;
  mTP301FU : Bool;
  __PlcmigTempFillBit_0B2 : Bool;
  __PlcmigTempFillBit_0B3 : Bool;
  __PlcmigTempFillBit_0B4 : Bool;
  __PlcmigTempFillBit_0B5 : Bool;
  __PlcmigTempFillBit_0B6 : Bool;
  __PlcmigTempFillBit_0B7 : Bool;
  __PlcmigTempFillBit_1B0 : Bool;
  __PlcmigTempFillBit_1B1 : Bool;
  __PlcmigTempFillBit_1B2 : Bool;
  __PlcmigTempFillBit_1B3 : Bool;
  __PlcmigTempFillBit_1B4 : Bool;
  __PlcmigTempFillBit_1B5 : Bool;
  __PlcmigTempFillBit_1B6 : Bool;
  __PlcmigTempFillBit_1B7 : Bool;
END_VAR

  #_10S : Bool; // Auto-generated temporary
BEGIN

  // Network 1: STEP CONTROL (Original Language: STL)

  // --- BEGIN STL Network 1 ---
   
     	L	"mStep"
     	JL	LEND
     	JU	ST00
     	JU	ST01
     	JU	ST02
     LEND:   		JU	FULL
     FULL:   		L	0
     	T	"mStep"
     	JU	END
   
  // --- END STL Network 1 ---

  // Network 2: STEP 00 (Original Language: LAD)

  IF "AUX FALSE" THEN
    "gSP_RVP303" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gSP_AVP389" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gSP_PPP302" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gSP_AVP363" := TRUE;
  END_IF;

  // Network 3: STEP 00 (Original Language: STL)

  // --- BEGIN STL Network 3 ---
   
     	A	"HMI_Device".PPP302.Out
     	=	"__PlcmigTempFillBit_1B0"
     	BLD	103
     	A	"AUX TRUE"
     	=	"__PlcmigTempFillBit_1B1"
     	BLD	103
     	A	"Procedure_Variables".Syr_RunOut.Wait
     	=	"__PlcmigTempFillBit_1B2"
     	BLD	103
     	A	CLK_0.5S
     	=	"__PlcmigTempFillBit_1B3"
     	BLD	103
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 3 ---

  // Network 4: STEP 01 (Original Language: LAD)

  IF "AUX FALSE" AND "gCIP_SyrTank_MaxLevel" THEN
    "gSP_AVP361" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gSP_AVP389" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gSP_PPP302" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gSP_RVP303" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gSP_AVP363" := TRUE;
  END_IF;

  // Network 5: Delay to fill up to TP301 tank (Original Language: LAD)

  "TP301FillUpDly"(IN := "HMI_Device"."PPP302"."Out", PT := S5T#10S); // TODO: Declarar "TP301FillUpDly" : TON;

  IF "HMI_Device"."PPP302"."Out" AND "TP301FillUpDly" THEN
    "gSP_AVP324" := TRUE;
  END_IF;

  // Network 6:  (Original Language: STL)

  // --- BEGIN STL Network 6 ---
   
     	A	"HMI_Device".PPP302.Out
     	=	"__PlcmigTempFillBit_1B0"
     	BLD	103
     	A	"HMI_Device".AVP361.Out
     	=	"__PlcmigTempFillBit_1B1"
     	BLD	103
     	A	"Procedure_Variables".Syr_RunOut.Wait
     	=	"__PlcmigTempFillBit_1B2"
     	BLD	103
     	A	CLK_0.5S
     	=	"__PlcmigTempFillBit_1B3"
     	BLD	103
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 6 ---

  // Network 7: STEP 02 (Original Language: LAD)

  IF "AUX FALSE" THEN
    "Procedure_Variables"."Syr_RunOut"."FastChangeOverRinseDone" := TRUE;
  END_IF;

  // Network 8: END (Original Language: STL)

  // --- BEGIN STL Network 8 ---
   
     END:    		NOP_0
   
  // --- END STL Network 8 ---

END_FUNCTION