Index: APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml
===================================================================
diff -u -r69603 -r69847
--- APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 69603)
+++ APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 69847)
@@ -82,6 +82,13 @@
 <Implementation><![CDATA[
 	Set MachineID=##class(BL.Prod.OptiBox.enu.SnijMachine).Taor() ; quick and dirty
 	/* TO DO : MachineID moet afgeleid worden van werkpost (VerpakLookAhead) of bij herwerken via de login van de oude vHintra applicatie*/
+	#dim %ECSession As Derde.Sys.Toegang.Session
+	If $G(%ECSession) {
+		#dim LoginID As %String = %ECSession.GetIdentification()
+		If (($$UPTRIMAN^vhRtn1(LoginID)["KRAFTKLEIN")) {
+			Set MachineID = ##class(APPS.Verpakking.enu.MachineID).KraftKlein()
+		}
+	}
 
 	Kill Params
 	Set Params("BREEDTE")=..Breedte