Index: OBJTimpl/WMSOrder/dtoPicklijn.cls.xml
===================================================================
diff -u -r66860 -r66957
--- OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 66860)
+++ OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 66957)
@@ -122,8 +122,7 @@
 	Set ..OrderlijnTekst=$G(C("OLTEKST"))
 	;
 	Set ..KLNr=C("KLNR")
-	Set KLId=^KK1(..KLNr)
-	Set ..KLNaam=$P(^KKL(KLId,0),"\",2) ; bemerking C("KLNM") bevat ook de verzendwijze voor de klantnaam
+	Set ..KLNaam=##class(TECH.StringUtils).Replace(C("KLNM"),"/","")
 	Set ..DueOutTime=$zdt(C("DUEOUTTIME"),3)
 	Set ..Verzendwijze=C("VERZENDW")
 	Set ..LevAdresNaam=C("LEVADRNM")