Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r67336 -r70354
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 67336)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 70354)
@@ -868,7 +868,7 @@
 	. . Set pxUnit.WeekID=TransportRef
 	. Else  Do ; Klantnaam
 	. . Quit:$G(KLNr)=""
-	. . Set pxUnit.WeekID=KLNm_$S(KLNr=$$$KlantDedecker:":"_OrderRef,1:"") ; klantnaam
+	. . Set pxUnit.WeekID=..GeefKlantnaamVoorVhossDocs(KLNm,KLNr)_$S(KLNr=$$$KlantDedecker:":"_OrderRef,1:"") ; klantnaam
 	. Do pxUnits.Units.SetAt(pxUnit,UnitNr)
 
 	If ..ProdGrp="+" Do ; Voor Keller steeds dezelfde waarden
@@ -889,6 +889,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantnaamVoorVhossDocs">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNaam:%String,Klantnummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantnaamVoorVhossDocs As %String = KlantNaam
+	If Klantnummer = $$$KlantDedecker {
+		Set KlantnaamVoorVhossDocs = ##class(TECH.StringUtils).Replace(KlantnaamVoorVhossDocs," JB","")
+		Set KlantnaamVoorVhossDocs = ##class(TECH.StringUtils).Replace(KlantnaamVoorVhossDocs," BV","")
+	}
+	Quit KlantnaamVoorVhossDocs
+]]></Implementation>
+</Method>
+
 <Method name="GetKlantRef">
 <FormalSpec><![CDATA[oQ,&KlantOrdRef,&KlantProdRef,&TransportRef,&OrderRef,&KLNr,&KLNm]]></FormalSpec>
 <Private>1</Private>