Miguel
/
Obsidean_VM
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Obsidean_VM/04-SIDEL/00 - MASTER/Source/source/CIPLocal_WaitEvent_Ctrl.md

5.4 KiB
Raw Blame History 

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

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

VAR_TEMP
  mCalc : Real;
  mSPCondHigh : Real;
END_VAR

  #_2S : Bool; // Auto-generated temporary
  #_3S : Bool; // Auto-generated temporary
  #_5S : Bool; // Auto-generated temporary
BEGIN

  // Network 1: MIX - CIPLocal_WaitEvent_Ctrl (Original Language: LAD)

  "mCalc" := "CIP_Program_Variables"."General_Data"."SPTemperature" - "HMI_Instrument"."TTS305_1"."PVFiltered";

  "mTempAcheavedDly"(IN := "CIP_Program_Variables"."Status"."WaitEventRequest"."Temperature_Ok" AND ("mCalc" < 2.0), PT := S5T#2S); // TODO: Declarar "mTempAcheavedDly" : TON;

  "CIP_Program_Variables"."Status"."WaitEventStatus"."Temperature_Ok" := "mTempAcheavedDly".Q;

  // Network 2: Local CIP: Wait "Product Tank 100% Level Achieved" (Original Language: LAD)

  "CIP_Program_Variables"."Status"."WaitEventStatus"."ProdTankMaxLev" := "gCIP_PrdTank_MaxLevel" AND "CIP_Program_Variables"."Status"."WaitEventRequest"."ProdTankMaxLev";

  // Network 3: Local CIP: Wait "Syrup Tank 100% Level Achieved" (Original Language: LAD)

  "CIP_Program_Variables"."Status"."WaitEventStatus"."SyrupTankMaxLev" := "gCIP_SyrTank_Flood" AND "CIP_Program_Variables"."Status"."WaitEventRequest"."SyrupTankMaxLev";

  // Network 4: Local CIP: Wait "Deaireator Tank 100% Level Achieved" (Original Language: LAD)

  "CIP_Program_Variables"."Status"."WaitEventStatus"."DeairTankMaxLev" := "gCIP_DeairTank_Flood" AND "CIP_Program_Variables"."Status"."WaitEventRequest"."DeairTankMaxLev";

  // Network 5: SP COND FOR HIGH CONDUCTIVITY (mS) (Original Language: LAD)

  "mSPCondHigh" := "CIP_Program_Variables"."General_Data"."SPConductivity" / 1000.0;

  // Network 6: MIX - CIPLocal_WaitEvent_Ctrl (Original Language: LAD)

  "mCTS302AcheavedDly"(IN := "CIP_Program_Variables"."Status"."WaitEventRequest"."HighConductivity" AND "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_Conductimeter" AND ("HMI_Instrument"."CTS302"."PVFiltered" > "mSPCondHigh"), PT := S5T#5S); // TODO: Declarar "mCTS302AcheavedDly" : TON;

  "CIP_Program_Variables"."Status"."WaitEventStatus"."HighConductivity" := "mCTS302AcheavedDly".Q;

  // Network 7: MIX - CIPLocal_WaitEvent_Ctrl (Original Language: LAD)

  "mOpenAVS333_335TOF"(IN := "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_Conductimeter" AND (Eq("CIP_Program_Variables"."General_Data"."SPConductivity", 0.0) OR ("HMI_Instrument"."CTS302"."PVFiltered" < "mSPCondHigh")), PT := S5T#3S); // TODO: Declarar "mOpenAVS333_335TOF" : TON;

  "CIP_Program_Variables"."Status"."OpenAVS333_335Valve" := "mOpenAVS333_335TOF".Q;

  // Network 8: MIX - CIPLocal_WaitEvent_Ctrl (Original Language: LAD)

  "mCTS301AcheavedDly"(IN := "CIP_Program_Variables"."Status"."WaitEventRequest"."LowConductivity" AND "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_Conductimeter" AND ("HMI_Instrument"."CTS301"."PVFiltered" < "CIP_Program_Variables"."General_Data"."SPConductivity"), PT := S5T#5S); // TODO: Declarar "mCTS301AcheavedDly" : TON;

  "CIP_Program_Variables"."Status"."WaitEventStatus"."LowConductivity" := "mCTS301AcheavedDly".Q;

  // Network 9: Local CIP: Wait "Ready For CIP" (Original Language: LAD)

  "CIP_Program_Variables"."Status"."WaitEventStatus"."ReadyForCIP" := "gIN_FillerCIPRequest" AND "CIP_Program_Variables"."Status"."WaitEventRequest"."ReadyForCIP";

  // Network 10: Local CIP: Wait "Drain Completed" (Original Language: LAD)

  "CIP_Program_Variables"."Status"."WaitEventStatus"."DrainCompleted" := "gIN_FillerCIPDrainCompl" AND "CIP_Program_Variables"."Status"."WaitEventRequest"."DrainCompleted";

  // Network 11: From Filler CIP Change Ready (Original Language: LAD)

  "CIP_Program_Variables"."Status"."WaitEventStatus"."CIPChangeReady" := "gIN_FillerCIPChangeReady" AND "CIP_Program_Variables"."Status"."WaitEventRequest"."CIPChangeReady";

  // Network 12: From Filler CIP Cycle Ended (Original Language: LAD)

  "CIP_Program_Variables"."Status"."WaitEventStatus"."CIPCycleEnded" := "gIN_FillerCIPCycleEnded" AND "CIP_Program_Variables"."Status"."WaitEventRequest"."CIPCycleEnded";

  // Network 13: From CIP Unit: Hot Water Receiving (Original Language: LAD)

  "CIP_Program_Variables"."Status"."WaitEventStatus"."CIPHotWaterReceiving" := "gIN_CIP_HotWaterSending" AND "CIP_Program_Variables"."Status"."WaitEventRequest"."CIPHotWaterReceiving";

  // Network 14: From CIP Unit: Hot Water Stop (Original Language: LAD)

  "CIP_Program_Variables"."Status"."WaitEventStatus"."CIPHotWaterStop" := "gIN_CIP_HotWaterSending" AND "CIP_Program_Variables"."Status"."WaitEventRequest"."CIPHotWaterStop";

  // Network 15: From CIP Unit: Hot Water Stop (Original Language: LAD)

  IF "CIP_Program_Variables"."Status"."WaitEventRequest"."CIPHotWaterStop" THEN
    "CIP_Program_Variables"."Status"."WaitEventStatus"."CIPHotWaterStop" := FALSE;
  END_IF;

  // Network 16: Local CIP: Wait "CIP Unit Ready to receive Soda Back" (Original Language: LAD)

  "CIP_Program_Variables"."Status"."WaitEventStatus"."CIPFreeSodaTank" := "gIN_CIP_FreeSodaTank" AND "CIP_Program_Variables"."Status"."WaitEventRequest"."CIPFreeSodaTank";

  // Network 17: Local CIP: Wait "System Low Level Acheaved" (Original Language: LAD)

  "CIP_Program_Variables"."Status"."WaitEventStatus"."CIPLowLevel" := "gCIP_SystemLowLevel" AND "CIP_Program_Variables"."Status"."WaitEventRequest"."CIPLowLevel";

END_FUNCTION