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)