Index: BL/PPS/WPLosOnderdeel.cls.xml
===================================================================
diff -u -r66515 -r69656
--- BL/PPS/WPLosOnderdeel.cls.xml	(.../WPLosOnderdeel.cls.xml)	(revision 66515)
+++ BL/PPS/WPLosOnderdeel.cls.xml	(.../WPLosOnderdeel.cls.xml)	(revision 69656)
@@ -260,6 +260,7 @@
 	. Set LoginID=%ECSession.GetIdentification()
 	. Set:($$UPTRIMAN^vhRtn1(LoginID)["TBXLOSOL") MachineID=..#MachineIDAlternatiefOL
 	. Set:($$UPTRIMAN^vhRtn1(LoginID)["TAORLOS") MachineID=..#MachineIDAlternatief
+	. Set:($$UPTRIMAN^vhRtn1(LoginID)["KraftKlein") MachineID=##class(APPS.Verpakking.enu.MachineID).KraftKlein()
 	Quit MachineID
 ]]></Implementation>
 </Method>
Index: BL/PPS/WPVerpak.cls.xml
===================================================================
diff -u -r32574 -r69656
--- BL/PPS/WPVerpak.cls.xml	(.../WPVerpak.cls.xml)	(revision 32574)
+++ BL/PPS/WPVerpak.cls.xml	(.../WPVerpak.cls.xml)	(revision 69656)
@@ -358,6 +358,7 @@
 	If $G(%ECSession) Do
 	. Set LoginID=%ECSession.GetIdentification()
 	. Set:($$UPTRIMAN^vhRtn1(LoginID)["TBXLOSOL")||($$UPTRIMAN^vhRtn1(LoginID)["TAORLOS") MachineID=..#MachineIDAlternatief
+	. Set:($$UPTRIMAN^vhRtn1(LoginID)["KraftKlein") MachineID=##class(APPS.Verpakking.enu.MachineID).KraftKlein()
 	Quit MachineID
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Verpakking/impl/KartonWerkpostBasis.cls.xml
===================================================================
diff -u -r30538 -r69656
--- APPS/Halux/PPS/Verpakking/impl/KartonWerkpostBasis.cls.xml	(.../KartonWerkpostBasis.cls.xml)	(revision 30538)
+++ APPS/Halux/PPS/Verpakking/impl/KartonWerkpostBasis.cls.xml	(.../KartonWerkpostBasis.cls.xml)	(revision 69656)
@@ -96,6 +96,9 @@
 		If (($$UPTRIMAN^vhRtn1(LoginID)["TBXLOSOL")||($$UPTRIMAN^vhRtn1(LoginID)["TAORLOS")) {
 			Set KartonMachineID = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineID).TAOR()
 		}
+		If (($$UPTRIMAN^vhRtn1(LoginID)["KraftKlein")) {
+			Set KartonMachineID = ##class(APPS.Verpakking.enu.MachineID).KraftKlein()
+		}		
 	}
 	Do ##class(APPS.Halux.PPS.Verpakking.impl.KartonUtils).UpdateKartonMachineOpWerklijstItems(WerklijstItemsLijst, KartonMachineID)
 	Do ..Logger.Debug("APPS.Halux.PPS.Verpakking.impl.KartonWerkpostBasis", "Gebruikt machine " _ KartonMachineID)
Index: vhDeploy/Deploy20221025xNieuweGebruikerVoorKraftKlein.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20221025xNieuweGebruikerVoorKraftKlein.cls.xml	(revision 0)
+++ vhDeploy/Deploy20221025xNieuweGebruikerVoorKraftKlein.cls.xml	(revision 69656)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20221025xNieuweGebruikerVoorKraftKlein">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe gebruiker voor KraftKlein voorzien</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If $$$Not($$$Server = "CACHE01") {
+		Do ##class(Derde.Sys.User).Create("KraftKlein", "KraftKlein", "4682", "2")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>