Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u -r67365 -r67416
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67365)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67416)
@@ -7,9 +7,8 @@
 en daarna wordt voor de niet doorgegeven producten de voorraad op nul gezet</Description>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="rsPicking">
-<Type>TECH.ResultSet</Type>
-<Private>1</Private>
+<Property name="pxPicking">
+<Type>dtoCorrelatePicking</Type>
 </Property>
 
 <Property name="CheckOBJTFase">
@@ -24,36 +23,29 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="PickLijnenOphaler">
-<Type>OBJTimpl.WMSOrder.OphalenPickLijnenConsolidatie</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>PickLijnenOphaler:OBJTimpl.WMSOrder.OphalenPickLijnenConsolidatie=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ##class(dtoCorrelateVoorraadNiveau).%KillExtent()
 	Set ..CheckOBJTFase=##class(OBJTimpl.CheckObjectiveFase).%New()
-	set ..PickLijnenOphaler = $$$Inject(PickLijnenOphaler,##class(OBJTimpl.WMSOrder.OphalenPickLijnenConsolidatie).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-/// Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().Verwerk(##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_"WMSExchange\ObjtNaarAdmin\"_"OBJT Voorraad TEST1.xml")
-Method Verwerk(XMLreader As %XML.Reader)
-{
-	Do ..VerwerkBestand(XMLreader)
-}
+<Method name="Verwerk">
+<Description>
+Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().Verwerk(##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_"WMSExchange\ObjtNaarAdmin\"_"OBJT Voorraad TEST1.xml")</Description>
+<FormalSpec>XMLreader:%XML.Reader</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkBestand(XMLreader)
+]]></Implementation>
+</Method>
 
-Method VerwerkBestand(XMLreader As %XML.Reader)
-{
+<Method name="VerwerkBestand">
+<FormalSpec>XMLreader:%XML.Reader</FormalSpec>
+<Implementation><![CDATA[
 	#include %occStatus
 	Do XMLreader.Rewind()
 	Do XMLreader.Correlate("AfmeldenPicking","OBJTimpl.WMSOrder.dtoCorrelatePicking")
@@ -77,36 +69,31 @@
 		}
 	}
 	Do ..VerwerkEinde()
-}
-*/
-]]></Content>
-</UDLText>
+]]></Implementation>
+</Method>
 
 <Method name="VerwerkWebservice">
 <FormalSpec>PickLijst:OBJTimpl.WMSOrder.dtoAfmeldenPicking</FormalSpec>
 <Implementation><![CDATA[
-	// er van uitgaande dat er maar één consolidatie in de PickLijst zit
-	#dim ConsolidatieNr as %String = PickLijst.PickLijnen.GetAt(1).ConsNr
-	#dim PickLijnIterator as TECH.ResultSetIterator = ..PickLijnenOphaler.GeefIterator(ConsolidatieNr)
+	Set it=##class(TECH.ListIterator).%New(PickLijst.PickLijnen)
 	
 	#dim AantalPerOrderLijn as %CacheString
 	K AantalPerOrderLijn
-	While PickLijnIterator.HasNext()
+	While it.HasNext()
 	{
-		Set ..rsPicking=PickLijnIterator.Next()
-		Set AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = $Get(AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")),0) + 1
+		Set ..pxPicking=it.Next()
+		Set AantalPerOrderLijn(..pxPicking.LijnNr) = $Get(AantalPerOrderLijn(..pxPicking.LijnNr),0) + 1 
 	}
 	
-	Set PickLijnIterator = ..PickLijnenOphaler.GeefIterator(ConsolidatieNr)
-	
+	do it.Reset()
 	#dim CountPerOrderLijn as %CacheString
 	k CountPerOrderLijn
-	While PickLijnIterator.HasNext()
+	While it.HasNext()
 	{
-		Set ..rsPicking=PickLijnIterator.Next()
-		Set CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = $Get(CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")),0) + 1 
-		#dim Full as %Boolean = (CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")))
-		Do ..VerwerkPicking(Full,CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR"))-1)
+		Set ..pxPicking=it.Next()
+		Set CountPerOrderLijn(..pxPicking.LijnNr) = $Get(CountPerOrderLijn(..pxPicking.LijnNr),0) + 1 
+		#dim Full as %Boolean = (CountPerOrderLijn(..pxPicking.LijnNr) = AantalPerOrderLijn(..pxPicking.LijnNr))
+		Do ..VerwerkPicking(Full,CountPerOrderLijn(..pxPicking.LijnNr)-1)
 	}
 	Do ..VerwerkEinde()
 ]]></Implementation>
@@ -116,35 +103,33 @@
 <FormalSpec>Full:%Boolean,SplitsNummer:%Integer</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Set ..CONSNr = $E(..rsPicking.GetDataByName("CONSNR"),5,10) ; YYMM moet erafgehaald worden
+	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((..rsPicking.GetDataByName("LIJNNR")[";"):";",1:", ")
-	
+	#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(..rsPicking.GetDataByName("LIJNNR"),Delimiter)
- 	Set C("OLNR")=$P(..rsPicking.GetDataByName("LIJNNR"),Delimiter,2)
+	Set C("ORDNR")=$P(..pxPicking.LijnNr,Delimiter)
+ 	Set C("OLNR")=$P(..pxPicking.LijnNr,Delimiter,2)
  	Set C("OLSPLITSNR")=SplitsNummer
 	Set C("SOFTV")="V"
- 	Set C("DELTAUIT")=+..rsPicking.GetDataByName("AANTAL")
+ 	Set C("DELTAUIT")=..pxPicking.Aantal
 
     Set C("FULLPARTIAL")=$Select(Full:"F",1:"P")
     Set C("STATUS")=..GeefStatusPicking() ; afhankelijk of het aantal is behaald
 
     ; Defaults
-    Set C("PALKLID")=..rsPicking.GetDataByName("BRONPALLET")
- 	Set C("DATUM")=$S(..rsPicking.GetDataByName("PICKINGTIJDSTIP")="":$H,1:$zdth(..rsPicking.GetDataByName("PICKINGTIJDSTIP"),8))
+    Set C("PALKLID")="OBJT"
+ 	Set C("DATUM")=$S(..pxPicking.PickingTijdstip="":$H,1:$zdth(..pxPicking.PickingTijdstip,8))
  	Set C("SOURCEPALID")=""
- 	Set C("USER")=..rsPicking.GetDataByName("USERID")
+ 	Set C("USER")=""
  	Set C("LOCMSTR")=""
 
     Do ##class(vhLib.OldSchool).InitVars()
@@ -176,10 +161,10 @@
 <Method name="GeefStatusPicking">
 <Implementation><![CDATA[
 	; Als het aantal afwijkt van het gevraagd aantal dan PNOK (picking niet OK)
-	#dim Delimiter = $Select((..rsPicking.GetDataByName("LIJNNR") [ ";"):";",1:", ")
-	#dim ORDNr as %String =$P(..rsPicking.GetDataByName("LIJNNR"),Delimiter)
- 	#dim OLNr as %String =$P(..rsPicking.GetDataByName("LIJNNR"),Delimiter,2)\100
- 	#dim SOLNr as %String =$P(..rsPicking.GetDataByName("LIJNNR"),Delimiter,2)#100*100
+	#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
  	
  	Quit:'ORDNr||'OLNr||'SOLNr "" 
  	#dim Bestaat as %Boolean = $D(^ORDW("D",..CONSNr,"D",ORDNr,OLNr,SOLNr))