Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u -r67289 -r67352
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67289)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67352)
@@ -49,13 +49,23 @@
 	#include %occStatus
 	Do XMLreader.Rewind()
 	Do XMLreader.Correlate("AfmeldenPicking","OBJTimpl.WMSOrder.dtoCorrelatePicking")
+
+	While XMLreader.Next(.pxPicking,.sc) {
+		#dim AantalPerOrderLijn as %CacheString
+		If $$$ISOK(sc) {	
+			Set ..pxPicking = pxPicking
+			Set AantalPerOrderLijn(..pxPicking.LijnNr) = $Get(AantalPerOrderLijn(..pxPicking.LijnNr),0) + 1 
+		}
+	}
 	
-	While XMLreader.Next(.pxPicking,.sc)
-	{
-		If $$$ISOK(sc)
-		{	
+	Do XMLreader.Rewind()
+	#dim CountPerOrderLijn as %CacheString
+	While XMLreader.Next(.pxPicking,.sc){
+		If $$$ISOK(sc){	
 			Set ..pxPicking=pxPicking
-			Do ..VerwerkPicking()
+			Set CountPerOrderLijn(..pxPicking.LijnNr) = $Get(AantalPerOrderLijn(..pxPicking.LijnNr),0) + 1 
+			#dim Full as %Boolean = (CountPerOrderLijn(..pxPicking.LijnNr) = AantalPerOrderLijn(..pxPicking.LijnNr))
+			Do ..VerwerkPicking(Full)
 		}
 	}
 	Do ..VerwerkEinde()
@@ -66,16 +76,30 @@
 <FormalSpec>PickLijst:OBJTimpl.WMSOrder.dtoAfmeldenPicking</FormalSpec>
 <Implementation><![CDATA[
 	Set it=##class(TECH.ListIterator).%New(PickLijst.PickLijnen)
+	
+	#dim AantalPerOrderLijn as %CacheString
 	While it.HasNext()
 	{
 		Set ..pxPicking=it.Next()
-		Do ..VerwerkPicking()
+		Set AantalPerOrderLijn(..pxPicking.LijnNr) = $Get(AantalPerOrderLijn(..pxPicking.LijnNr),0) + 1 
 	}
+	
+	do it.Reset()
+	#dim CountPerOrderLijn as %CacheString
+	
+	While it.HasNext()
+	{
+		Set ..pxPicking=it.Next()
+		Set CountPerOrderLijn(..pxPicking.LijnNr) = $Get(AantalPerOrderLijn(..pxPicking.LijnNr),0) + 1 
+		#dim Full as %Boolean = (CountPerOrderLijn(..pxPicking.LijnNr) = AantalPerOrderLijn(..pxPicking.LijnNr))
+		Do ..VerwerkPicking(Full)
+	}
 	Do ..VerwerkEinde()
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkPicking">
+<FormalSpec>Full:%Boolean</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Set ..pxPicking.ConsNr=$E(..pxPicking.ConsNr,5,10) ; YYMM moet erafgehaald worden
@@ -97,7 +121,7 @@
 	Set C("SOFTV")="V"
  	Set C("DELTAUIT")=..pxPicking.Aantal
 
-    Set C("FULLPARTIAL")="F" ;Einde picking ook als er maar een deel of niets gepickt is
+    Set C("FULLPARTIAL")=$Select(Full:"F",1:"P")
     Set C("STATUS")=..GeefStatusPicking() ; afhankelijk of het aantal is behaald
 
     ; Defaults