Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r72129 -r72462
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 72129)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 72462)
@@ -66,7 +66,10 @@
 			Set VanTot = $Piece($Piece(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)
+		#dim AantalEtiketten=$select( $Length(SubLPN.Positie,",")=0 : 1, 1:$Length(SubLPN.Positie,","))
+		for i=1:1:AantalEtiketten {
+			Do EXTERN^FLOWBON4($e($TR(SubLPN.ConsNr,"b"),5,10), ..ConverteerVertrekplaats(KlantEtiketRequestMOP.Vertrekplaats),SubLPN.SubLPNID,PickerUserId,PositieOpKar)
+		}
 	}
 	Quit "OK"
 ]]></Implementation>