FUNCTION XGIPAM_POPUP(STRING EQUIPMENT)
	AssVarTags(-2, 0,EQUIPMENT+"\MMXU3\PPV\phsAB",
				EQUIPMENT+"\MMXU3\PPV\phsBC",
				EQUIPMENT+"\MMXU3\PPV\phsCA",
				EQUIPMENT+"\MMXU1\A\phsA",
				EQUIPMENT+"\MMXU1\A\phsB",
				EQUIPMENT+"\MMXU1\A\phsC",
				EQUIPMENT+"\MMXU1\Hz",
				EQUIPMENT+"\MMXU1\TotPF");
	AssVarTags(-2, 8,EQUIPMENT+"\MMXU1\TotW",
				EQUIPMENT+"\MMXU1\TotVAr");
	AssWin("!POP_XGIPAM",20,20,1);
	WinTitle(EQUIPMENT+"  Parameter")
END





    
    
    
    
0 komentar:
Posting Komentar