Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r71534 -r72127
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 71534)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 72127)
@@ -59,7 +59,9 @@
 		#dim SubLPN as OBJTimpl.WMSOrder.dtoKlantEtiketRequestMOPSubLPN = It.Next()
 		#dim PickerUserId = ..PickerUserIdOphaler.GeefUserIdPickerVanLPN(SubLPN.ConsNr,SubLPN.SubLPNID)
 		Do ..StoreLPN(SubLPN.ConsNr,KlantEtiketRequestMOP.Vertrekplaats,SubLPN.SubLPNID, PickerUserId)
-		#dim PositieOpKar as %String = KlantEtiketRequestMOP.TopLPN.TopLPNID _ "#"_SubLPN.Positie
+		#dim VanTot as %String = SubLPN.Positie
+		Set:($Length(VanTot," , ")>1) VanTot = $Piece($Piece(VanTot," , "),".",2) _ "->" _ $Piece($Piece(VanTot," , ",$Length(VanTot," , ")),".",2)
+		#dim PositieOpKar as %String = KlantEtiketRequestMOP.TopLPN.TopLPNID _ "#"_VanTot
 		Do EXTERN^FLOWBON4($e($TR(SubLPN.ConsNr,"b"),5,10), ..ConverteerVertrekplaats(KlantEtiketRequestMOP.Vertrekplaats),SubLPN.SubLPNID,PickerUserId,PositieOpKar)
 	}
 	Quit "OK"