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

FUNCTION "BlenderCtrl_MFM Command" : Void
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : 'Author'
FAMILY : TASK2
NAME : 'Name'
VERSION : 1.0
   VAR_INPUT 
      mResetWaterTot : Bool;
      mResetSyrupTot : Bool;
      mResetCO2Tot : Bool;
      mResetProductTot : Bool;
   END_VAR

   VAR_TEMP 
      mWaterVFMCtrl : Int;
      mSyrupMFMCtrl : Int;
      mCO2MFMCtrl : Int;
      mProductMFMCtrl : Int;
   END_VAR


BEGIN
	
	    
	IF #mResetWaterTot THEN
	    #mWaterVFMCtrl := 1 ;
	ELSE
	    #mWaterVFMCtrl := 0 ;
	END_IF;
	
	IF #mResetSyrupTot THEN
	    #mSyrupMFMCtrl :=  1 ;
	ELSE
	    #mSyrupMFMCtrl := 0 ;
	END_IF;
	
	IF #mResetCO2Tot THEN
	    #mCO2MFMCtrl := 1 ;
	ELSE
	    #mCO2MFMCtrl := 0 ;
	END_IF;
	
	IF #mResetProductTot THEN
	    #mProductMFMCtrl := 1 ;
	ELSE
	    #mProductMFMCtrl := 0 ;
	END_IF;
	
	CASE #mWaterVFMCtrl OF
	    1: "P_FTN301_Tot_Ctrl" := 01;   // Reset Totalizer 
	
	    2: "P_FTN301_Tot_Ctrl" := 02 ;  // Preset Totalizer 
	    
	ELSE:
	    "P_FTN301_Tot_Ctrl" := 00;
	END_CASE;
	
	
	IF "gSyrupRoomEn" THEN
	    CASE #mSyrupMFMCtrl OF
	        1: "P_FTP302_Tot_Ctrl" := 01;       (* Reset Totalizer 1*)
	
	        2: "P_FTP302_Tot_Ctrl" := 02;       (* Reset Totalizer 2*)
	
	        3: "P_FTP302_Tot_Ctrl" := 03;       (* Reset Totalizer 1 & 2*)
	
	        4: "P_FTP302_Tot_Ctrl" := 04;       (* Zeropoint Adjust *)
	
	        5: "P_FTP302_Tot_Ctrl" := 05;       (* Positive Zero Return *)
	
	        6: "P_FTP302_Tot_Ctrl" := 06;       (* Negative Zero Return *)
	
	    ELSE:
	        "P_FTP302_Tot_Ctrl" := 00;
	    END_CASE;
	END_IF;
	
	CASE #mCO2MFMCtrl OF
	    1: "P_FTM303_Tot_Ctrl" := 01;         (* Reset Totalizer 1*)
	
	    2: "P_FTM303_Tot_Ctrl" := 02;         (* Reset Totalizer 2 *)
	
	    3: "P_FTM303_Tot_Ctrl" := 03;         (* Reset Totalizer 1 & 2*)
	
	    4: "P_FTM303_Tot_Ctrl" := 04;         (* Zeropoint Adjust *)
	
	    5: "P_FTM303_Tot_Ctrl" := 05;         (* Positive Zero Return *)
	
	    6: "P_FTM303_Tot_Ctrl" := 06;         (* Negative Zero Return *)
	ELSE:
	    "P_FTM303_Tot_Ctrl" := 00;
	END_CASE;
	
	(*CASE mProductMFMCtrl OF
	    1: gProductTotCtrl_Node17 := 01;    (* Reset Totalizer 1*)
	
	    2: gProductTotCtrl_Node17 := 02 ;   (* Preset Totalizer1 *)
	
	ELSE
	    gProductTotCtrl_Node17 := 00;
	END_CASE;*)
	
	
END_FUNCTION