Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r67027 -r67182
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67027)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67182)
@@ -23,7 +23,8 @@
 <FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Do EXTERN^FLOWBON4(KlantEtiketRequest.ConsNr, ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN)
+	#dim BONNr as %String = $Reverse($Extract($Reverse(KlantEtiketRequest.ConsNr),1,6)) 
+	Do EXTERN^FLOWBON4(BONNr, ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN)
 	Quit "OK"
 ]]></Implementation>
 </Method>