Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u -r68805 -r68821
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 68805)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 68821)
@@ -135,7 +135,7 @@
 
 	Quit:ConsolidatieNr?1"HK"1.E  ; Herbevoorrading Kardex
 
-	#dim Geannuleerd as %Boolean = ##class(TECH.StringUtils).Equals(..OrderOphaler.GeefStatusVertaald(ConsolidatieNr) , "Geannuleerd","Niet in OBJT")
+	#dim Geannuleerd as %Boolean = ##class(TECH.StringUtils).Equals(..OrderOphaler.GeefStatusVertaald($Extract(ConsolidatieNr,5,10)) , "Geannuleerd","Niet in OBJT")
 
 	If Geannuleerd {
 		#dim PickLijnIterator as TECH.ResultSetIterator = ..PickLijnenOphaler.GeefIteratorGeannuleerdOrderAdmin(ConsolidatieNr)
@@ -224,8 +224,7 @@
 	Set C("SOFTV")="V"
 	Set C("CONSNR")=..CONSNr
 	Set C("DATUM")=$H
-    ;Set C("STATUS")=$Select(Annulatie:"PNOK",1:"POK")
-    Set C("STATUS")="POK"
+    Set C("STATUS")=$Select(Annulatie:"PNOK",1:"POK")
 
 	Do ##class(vhLib.OldSchool).InitVars()
  	Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Pick einde",$$ArrayToText^vhLib("C",.C))