Miguel
/
Obsidean_VM
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Obsidean_VM/04-SIDEL/06 - E5.007363 - Modifica O.../Source/source/BlenderPIDCtrl_PresRelea.md

1.1 KiB
Raw Blame History 

FUNCTION "BlenderPIDCtrl_PresRelea" : Void
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : 'Author'
FAMILY : TASK1
NAME : 'Name'
VERSION : 1.0

BEGIN
	
	
	"Blender_Variables".gPrdTankPressError := "HMI_PID".RVM301.Sp - "HMI_PID".RVM301.Pv ;
	IF "HMI_PID".RVM301.KP > 0 AND NOT "HMI_PID".RVM301.ManualControl.ManOut AND "Procedure_Variables".TM301_Pressure.Qualifier THEN   (* Product Tank Pressure Release *)
	    IF "Blender_Variables".gPrdTankPressError < 0 THEN
	        IF "gBlenderTankPress_Ok" OR "gFirstProdPressHold" THEN
	            "PID_Variables".PID_RVM301_Release := FALSE;
	            //            "HMI_PID".VEP1.ManualControl.ManOut := FALSE ;
	        ELSE
	            (* classic code: "HMI_PID".RVM301.OutMan := 0.0 ;*)
	            "HMI_PID".RVM301.OutMan := REAL#0.0;
	            //            "HMI_PID".VEP1.ManualControl.ManOut := TRUE ;
	            "PID_Variables".PID_RVM301_Release := TRUE;
	        END_IF;
	    ELSE
	        "PID_Variables".PID_RVM301_Release := FALSE;
	//        "HMI_PID".VEP1.ManualControl.ManOut := FALSE ;
	    END_IF;
	END_IF;
	
	
END_FUNCTION