Index: vhUnitTest/APPS/Halux/Planning/impl/BatchService/TBXMaatwerkBatchBuilder/GeefToelevering/Test.cls.xml
===================================================================
diff -u -r37530 -r58777
--- vhUnitTest/APPS/Halux/Planning/impl/BatchService/TBXMaatwerkBatchBuilder/GeefToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 37530)
+++ vhUnitTest/APPS/Halux/Planning/impl/BatchService/TBXMaatwerkBatchBuilder/GeefToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 58777)
@@ -72,10 +72,9 @@
 	#dim OrderAPIStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
 	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
 	
-	Set ^vhUSER("D",NieuweInternePersoonID)	= "99\Unit N\15\UTN\Unit Test Nieuw\U T\\\\\\\\1\1\NV\"
-	Set ^vhUSER("II","UTN") = NieuweInternePersoonID	
+	Do OrderMock.VerwachtMethodCall("GeefIngegevenDoorUserNaam").DanReturn("UTN")
+	Do OrderMock.VerwachtMethodCall("GeefKlantDisplayNaam").DanReturn("KlantDisplayNaamBijToelevering")
 	
-	Do OrderMock.VerwachtMethodCall("GeefIngegevenDoor").DanReturn(NieuweInternePersoonID)
 	Do OrderMock.VerwachtMethodCall("IsASAP").DanReturn(1)
 	Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn(KlantID)
 	Do OrderAPIStub.IndienMethodCall("BestaatOrder",OrderID).DanReturn($$$True)
@@ -86,16 +85,12 @@
 	
 	#dim TBXMaatwerkBatchBuilder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(ToeleveringMock)
 	#dim Toelevering As APPS.Halux.Planning.dto.Toelevering = TBXMaatwerkBatchBuilder.GeefToelevering(ToeleveringMock)
-	
 	Do $$$AssertEquals(Toelevering.IngegevenDoor,"UTN")
 	Do $$$AssertEquals(Toelevering.IsASAP,1)
 	If $$$AssertTrue($IsObject(Toelevering.KlantData)) {
 		Do $$$AssertEquals(Toelevering.KlantData.Naam,"KlantDisplayNaamBijToelevering")	
 	}
 	
-	Kill ^vhUSER("D",NieuweInternePersoonID)
-	Kill ^vhUSER("II","UTN") 
-		
 	Do ..VerifieerToeleveringMock(ToeleveringMock)
 	Do DataServiceMock.Verifieer()
 	Do OrderMock.Verifieer()
Index: APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml
===================================================================
diff -u -r56878 -r58777
--- APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml	(.../MaatwerkBatchBuilder.cls.xml)	(revision 56878)
+++ APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml	(.../MaatwerkBatchBuilder.cls.xml)	(revision 58777)
@@ -109,6 +109,7 @@
 <Implementation><![CDATA[
 	Try {
 		#dim ToeleveringDto As APPS.Halux.Planning.dto.Toelevering = ..GeefToelevering(Toelevering)
+		
 		Set MaatwerkBatch.ProductieGroep 	= ##class(TECH.ListUtils).Unie(..BatchServiceUtils.GeefProductieGroepen(Toelevering), MaatwerkBatch.ProductieGroep)
 		Set MaatwerkBatch.VerpakkingTypes 	= ##class(TECH.ListUtils).Unie(MaatwerkBatch.VerpakkingTypes,ToeleveringDto.VerpakkingTypes)
 		Set MaatwerkBatch.HeeftAandachtNodig= ##class(TECH.Math).Max(MaatwerkBatch.HeeftAandachtNodig,ToeleveringDto.HeeftAandachtNodig)	
@@ -147,13 +148,14 @@
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.Toelevering</ReturnType>
 <Implementation><![CDATA[
-	
+
 	#dim dtoToelevering As APPS.Halux.Planning.dto.Toelevering = ..GeefNieuweToeleveringDto()
 	
 	Set dtoToelevering.ID = Toelevering.GeefID()
 	Set dtoToelevering.AantalKlaarGezet = ..GeefAantalStuksKlaarGezet(Toelevering)
 	Set dtoToelevering.AantalProducten = ..GeefAantalProducten(Toelevering)
 	Set dtoToelevering.AantalSpecial = ..GeefAantalSpecials(Toelevering)
+	
 	#dim DueOut As %TimeStamp = ##class(TECH.DateTime).HorologToTimeStamp(Toelevering.GeefDueOutTime())
 	Set dtoToelevering.DueOutTijdstipOmschrijving = ##class(TECH.DateTime).Uur(DueOut)_"u"
 	Set dtoToelevering.DueOutDatum = ##class(TECH.DateTime).HorologToDate(Toelevering.GeefDueOutTime())
@@ -168,10 +170,25 @@
 		}
 
 		#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(Toelevering.GeefOrderID())
-		Set dtoToelevering.IngegevenDoor = $$USERNAMESQL^vhUSER(Order.GeefIngegevenDoor(),-1)
+
+		If $$$HasLength(Order.GeefIngegevenDoorUserNaam()) {
+			Set dtoToelevering.IngegevenDoor = Order.GeefIngegevenDoorUserNaam()
+		} Else {
+			Set dtoToelevering.IngegevenDoor = $$USERNAMESQL^vhUSER(Order.GeefIngegevenDoor(),-1)
+			Set:$$$Not($$$HasLength(dtoToelevering.IngegevenDoor)) dtoToelevering.IngegevenDoor = Order.GeefIngegevenDoor()
+			Do Order.ZetIngegevenDoorUserNaamEnSave(dtoToelevering.IngegevenDoor)		
+		}
+
 		Set dtoToelevering.IsASAP = Order.IsASAP()
+
 		Set dtoToelevering.KlantData = ..DataService.GeefKlantData(Order.GeefKlantID())
-		Set dtoToelevering.KlantData.Naam = ..ProductieService.GeefKlantDisplayNaamBijToelevering(Toelevering.GeefID())
+		
+		If $$$HasLength(Order.GeefKlantDisplayNaam()) {
+			Set dtoToelevering.KlantData.Naam = Order.GeefKlantDisplayNaam()
+		} Else {
+			Set dtoToelevering.KlantData.Naam = ..ProductieService.GeefKlantDisplayNaamBijToelevering(Toelevering.GeefID())
+			Do Order.ZetKlantDisplayNaamEnSave(dtoToelevering.KlantData.Naam)
+		}
 	}
 	
 	#dim AandachtOpmerkingen As %ListOfDataTypes = ..GeefAandachtOpmerkingen(dtoToelevering)