Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r72462 -r72507
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 72462)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 72507)
@@ -66,10 +66,15 @@
 			Set VanTot = $Piece($Piece(VanTot," , "),".",2)
 		}
 		#dim PositieOpKar as %String = KlantEtiketRequestMOP.TopLPN.TopLPNID _ "#"_VanTot
-		#dim AantalEtiketten=$select( $Length(SubLPN.Positie,",")=0 : 1, 1:$Length(SubLPN.Positie,","))
-		for i=1:1:AantalEtiketten {
+		If (KlantEtiketRequestMOP.Vertrekplaats = "KARDEX" ) {
+			#dim AantalEtiketten=$select( $Length(SubLPN.Positie,",")=0 : 1, 1:$Length(SubLPN.Positie,","))
+		} else {
+			Set AantalEtiketten = 1
+		}
+		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>