Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u -r67007 -r67022
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67007)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67022)
@@ -79,20 +79,20 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Set ..pxPicking.ConsNr=$E(..pxPicking.ConsNr,5,10) ; YYMM moet erafgehaald worden
-	
+		
 	// Alleen in de eerste fase moet er een etiket afgedrukt worden
 	If (..CONSNr="")&&(..pxPicking.ConsNr)&&(..CheckOBJTFase.GeefFase()=1) {
 		Do EXTERN^FLOWBON4(..pxPicking.ConsNr, "KARDEX") ; zo snel mogelijk het label printen
 	}
-
+	#dim Delimiter as %String = $Select((..pxPicking.LijnNr[";"):";",1:", ")
 	Set ..CONSNr=..pxPicking.ConsNr
 	Kill C
 	Set C="C01"
 	Set ..VolgNr=..VolgNr+1
 	Set C("VOLGNR")=..VolgNr
 	Set C("CONSNR")=..CONSNr
-	Set C("ORDNR")=$P(..pxPicking.LijnNr,";")
- 	Set C("OLNR")=$P(..pxPicking.LijnNr,";",2)
+	Set C("ORDNR")=$P(..pxPicking.LijnNr,Delimiter)
+ 	Set C("OLNR")=$P(..pxPicking.LijnNr,Delimiter,2)
  	Set C("OLSPLITSNR")=0
 	Set C("SOFTV")="V"
  	Set C("DELTAUIT")=..pxPicking.Aantal
@@ -136,7 +136,7 @@
 <Method name="GeefStatusPicking">
 <Implementation><![CDATA[
 	; Als het aantal afwijkt van het gevraagd aantal dan PNOK (picking niet OK)
-	#dim Delimiter = $Select(..pxPicking.LijnNr [ ";":";",1:", ")
+	#dim Delimiter = $Select((..pxPicking.LijnNr [ ";"):";",1:", ")
 	#dim ORDNr as %String =$P(..pxPicking.LijnNr,Delimiter)
  	#dim OLNr as %String =$P(..pxPicking.LijnNr,Delimiter,2)\100
  	#dim SOLNr as %String =$P(..pxPicking.LijnNr,Delimiter,2)#100*100