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/SyrupRoomCtrl_UpdateVal.md

1.3 KiB
Raw Blame History 

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

BEGIN
	
	
	"HMI_Blender_Parameters".ProcessSetup._SyrupRoomTank := LIMIT (MN:= 1, IN:= "HMI_Blender_Parameters".ProcessSetup._SyrupRoomTank, MX:= 20) ;
	
	IF NOT "HMI_Blender_Parameters".Processor_Options.Blender_OPT._FastChangeOverEnabled THEN
	    IF "mSaveNumTank" = 0 THEN
	        "mSaveNumTank" := "HMI_Blender_Parameters".ProcessSetup._SyrupRoomTank ;
	    END_IF;
	 
	    IF "mSaveNumTank" <> "HMI_Blender_Parameters".ProcessSetup._SyrupRoomTank THEN
	        "HMI_Blender_Parameters".ProcessSetup._SyrupRunOutLiters := "Blender_Variables_Pers".gSyrupRoomTankLiter["HMI_Blender_Parameters".ProcessSetup._SyrupRoomTank] ;
	        "mSaveNumTank" := "HMI_Blender_Parameters".ProcessSetup._SyrupRoomTank ;
	    END_IF;
	
	    IF "HMI_Blender_Parameters".ProcessSetup._SyrupRunOutLiters <> "Blender_Variables_Pers".gSyrupRoomTankLiter["HMI_Blender_Parameters".ProcessSetup._SyrupRoomTank] THEN
	        "Blender_Variables_Pers".gSyrupRoomTankLiter["HMI_Blender_Parameters".ProcessSetup._SyrupRoomTank] := "HMI_Blender_Parameters".ProcessSetup._SyrupRunOutLiters  ;
	    END_IF;
	
	ELSE
	    "HMI_Blender_Parameters".ProcessSetup._SyrupRoomTank := 1 ;
	END_IF;
	
	
END_FUNCTION