Index: DOM/common/impl/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r69977 -r70308
--- DOM/common/impl/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 69977)
+++ DOM/common/impl/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70308)
@@ -340,6 +340,12 @@
 <Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsAPI_IsActiefDeDeckerBarcodeEtiket",$$$False)
 ]]></Implementation>
 </Method>
+
+<Method name="IsActiefVerzendwijzeVoorZwartePallet">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsAPI_IsActiefVerzendwijzeVoorZwartePallet",$$$False)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r69977 -r70308
--- vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 69977)
+++ vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70308)
@@ -292,6 +292,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsActiefVerzendwijzeVoorZwartePallet">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsActiefVerzendwijzeVoorZwartePallet")
+]]></Implementation>
+</Method>
+
 <Method name="IsDaroExcludeFromDeliveryEnabled">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("IsDaroExcludeFromDeliveryEnabled")
Index: DOM/common/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r69977 -r70308
--- DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 69977)
+++ DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70308)
@@ -285,6 +285,11 @@
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="IsActiefVerzendwijzeVoorZwartePallet">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
 </Class>
 
 
Index: OBJTimpl/WMSOrder/dtoPicklijn.cls.xml
===================================================================
diff -u -r70299 -r70308
--- OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 70299)
+++ OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 70308)
@@ -128,24 +128,24 @@
 <Method name="Herbevoorrading">
 <FormalSpec>ProductVoorraad:OBJTimpl.Herbevoorrading.ProductVoorraad</FormalSpec>
 <Implementation><![CDATA[
-	Set ..ConsNr=ProductVoorraad.OrderNr
-	Set ..LijnNr=ProductVoorraad.LijnNr
+	Set ..ConsNr = ProductVoorraad.OrderNr
+	Set ..LijnNr = ProductVoorraad.LijnNr
 	;
 	Set ..OrderTekst=""
-	Set ..ItemId=ProductVoorraad.OBJTItemID
-	Set ..ItemNm=ProductVoorraad.KortTekst
-	Set ..Aantal=ProductVoorraad.Aantal
-	Set ..OrderlijnTekst=""
+	Set ..ItemId = ProductVoorraad.OBJTItemID
+	Set ..ItemNm = ProductVoorraad.KortTekst
+	Set ..Aantal = ProductVoorraad.Aantal
+	Set ..OrderlijnTekst = ""
 	;
-	Set ..KLNr=..#KardexKlant
-	Set ..KLNaam=..#KardexKlantnaam
-	Set ..DueOutTime=$zdt(ProductVoorraad.DueoutTijdstip,3)
-	Set ..Verzendwijze=..#KardexVerzendwijze
-	Set ..LevAdresNaam="Kardex"
-	Set ..LevAdresToenaam="NV"
-	Set ..LevAdresStraat="EP9"
-	Set ..LevAdresGemeente="S-N"
-	Set ..Taal="N"
+	Set ..KLNr = ..#KardexKlant
+	Set ..KLNaam = ..#KardexKlantnaam
+	Set ..DueOutTime = $zdt(ProductVoorraad.DueoutTijdstip,3)
+	Set ..Verzendwijze = ..#KardexVerzendwijze
+	Set ..LevAdresNaam = "Kardex"
+	Set ..LevAdresToenaam = "NV"
+	Set ..LevAdresStraat = "EP9"
+	Set ..LevAdresGemeente = "S-N"
+	Set ..Taal = "N"
 
 	Quit $$$OK
 ]]></Implementation>
@@ -157,26 +157,31 @@
 <Implementation><![CDATA[
  	Set OBJTIdentLookupService = ##class(OBJTimpl.PM.OBJTIdentLookupService).%New()
 
-	Set JaarMaand=$$EXTDATE^vhLib.DataTypes(+$P(^ORDW("D",C("CONSNR")),"\",18),"DM")
-	Set ..ConsNr=$E($TR(JaarMaand,"-")_"9999",1,4)_C("CONSNR") ; voor uniciteit op lange termijn wordt YYMM toegevoegd
-	Set ..LijnNr=C("ORDNR")_", "_C("OLNR")
+	Set JaarMaand = $$EXTDATE^vhLib.DataTypes(+$P(^ORDW("D",C("CONSNR")),"\",18),"DM")
+	Set ..ConsNr = $E($TR(JaarMaand,"-")_"9999",1,4)_C("CONSNR") ; voor uniciteit op lange termijn wordt YYMM toegevoegd
+	Set ..LijnNr = C("ORDNR")_", "_C("OLNR")
 	;
-	Set ..OrderTekst=$G(C("ORDTEKST"))
-	Set ..ItemId=OBJTIdentLookupService.GeefOBJTIdentNr($$$ProductGet(C("PRNR"),$$$IdentNummer))
+	Set ..OrderTekst = $G(C("ORDTEKST"))
+	Set ..ItemId = OBJTIdentLookupService.GeefOBJTIdentNr($$$ProductGet(C("PRNR"),$$$IdentNummer))
 	;Set ..ItemId=$$$ProductGet(C("PRNR"),$$$IdentNummer)
-	Set ..ItemNm=$$$ProductGet(C("PRNR"),$$$KortTekst)
-	Set ..Aantal=C("AANTAL")
-	Set ..OrderlijnTekst=$G(C("OLTEKST"))
+	Set ..ItemNm = $$$ProductGet(C("PRNR"),$$$KortTekst)
+	Set ..Aantal = C("AANTAL")
+	Set ..OrderlijnTekst = $G(C("OLTEKST"))
 	;
-	Set ..KLNr=C("KLNR")
-	Set ..KLNaam=##class(TECH.StringUtils).Replace(C("KLNM"),"/","")
-	Set ..DueOutTime=..GeefDueOutTime(.C)
-	Set ..Verzendwijze=C("VERZENDW")
-	Set ..LevAdresNaam=C("LEVADRNM")
-	Set ..LevAdresToenaam=C("LEVADRTOENM")
-	Set ..LevAdresStraat=C("LEVADRSTR")
-	Set ..LevAdresGemeente=C("LEVADRGEM")
-	Set ..Taal=C("TAAL")
+	#dim ProjectSettingsApi As DOM.common.ProjectSettingsAPI = ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI()
+	If (..IsVerzendwijzeVoorZwartePallet(C("VERZENDW")) && ProjectSettingsApi.IsActiefVerzendwijzeVoorZwartePallet()) {
+		Set ..KLNr = ##class(TECH.Config.ConfigMgr).Instance().GeefString("OBJTimpl.WMSOrder.HaluxZwartePalletKlantNummer", C("KLNR"))
+	} Else {
+		Set ..KLNr = C("KLNR")
+	}
+	Set ..KLNaam = ##class(TECH.StringUtils).Replace(C("KLNM"),"/","")
+	Set ..DueOutTime = ..GeefDueOutTime(.C)
+	Set ..Verzendwijze = C("VERZENDW")
+	Set ..LevAdresNaam = C("LEVADRNM")
+	Set ..LevAdresToenaam = C("LEVADRTOENM")
+	Set ..LevAdresStraat = C("LEVADRSTR")
+	Set ..LevAdresGemeente = C("LEVADRGEM")
+	Set ..Taal = C("TAAL")
 
 	Quit $$$OK
 ]]></Implementation>
@@ -192,6 +197,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsVerzendwijzeVoorZwartePallet">
+<FormalSpec>Verzendwijze:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsVerzendwijzeVoorZwartePallet As %Boolean = 0
+	
+	If ((Verzendwijze = "THL") || (Verzendwijze = "THR") || (Verzendwijze = "THT")) {
+		Set IsVerzendwijzeVoorZwartePallet = 1
+	}
+	
+	Quit IsVerzendwijzeVoorZwartePallet
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>dtoPicklijnState</State>