Index: EWORDS6.mac.rou
===================================================================
diff -u -r47798 -r47799
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 47798)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 47799)
@@ -20,7 +20,7 @@
 SendWMS(ORDNr)
 	New %J,I,R,PRNr,Aantal,OLUNr,LeverDag,CONSNr,VerzDat,DOutDate,DOutTime,VerzW,VerzZ,LevAdr,ChkBeletDone,ORDNrs,CumulORDNr,WaitORDNrs
 	New LandCode,PostCode
-	New PickingDag, InfoMelder, KlantNummer, IsVoorVandaag
+	New PickingDag, InfoMelder, KlantNummer, IsVoorVandaag, OrderApi, PickingOpdrachtInfoLijst, Order, OrderLijn, OrderLijnIterator
 	
 	#dim PickingDag As BL.Legacy.EWORDS6.enu.PickingDag = ##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)
 	#dim InfoMelder As BL.Legacy.EWORDS6.InfoMelder = ##class(BL.Legacy.EWORDS6.InfoMelder).%New()
@@ -43,24 +43,27 @@
 	 	
 	 	Quit:$$$Not($$Lock(ORDNrs))
 	 	
-	 	#dim IsVoorVandaag As %Boolean = (PickingDag = ##class(BL.Legacy.EWORDS6.enu.PickingDag).Vandaag())
-	 	
 	 	Set %J=$$%J^vhRtn1()
 	 	Kill ^HULP(%J)
 	 	
+	 	#dim IsVoorVandaag As %Boolean = (PickingDag = ##class(BL.Legacy.EWORDS6.enu.PickingDag).Vandaag())
+	 	#dim OrderApi As DOM.VKP.impl.DataM.DataMOrderAPI = ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New()
+	 	#dim PickingOpdrachtInfoLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	 	
 	 	For I=1:1:$Length(ORDNrs,";") {
 		 	Set CumulORDNr = $Piece(ORDNrs,";",I)
 		 	Quit:$$$Not(CumulORDNr)
-		 	Set OLNr = 100
 		 	
-		 	For {
-			 	Set OLNr=$O(^KOD(KlantNummer,"F",CumulORDNr,OLNr))
-			 	Quit:'OLNr
-			 	Set R=^KOD(KlantNummer,"F",CumulORDNr,OLNr),PRNr=$P(R,D,2),Aantal=$P(R,D,3),OLUNr=$P(R,D,15),LeverDag=$P(R,D,25)
-			 	Continue:'PRNr
-			 	Set R=Aantal_D_D_LeverDag
-			 	Set ^HULP(%J,KlantNummer,"M","A",CumulORDNr,OLUNr)=R
-			}
+		 	#dim Order As DOM.VKP.impl.DataM.DataMOrder = OrderApi.GeefOrder(CumulORDNr)
+		 	#dim OrderLijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator()
+		 	
+		 	While (OrderLijnIterator.HasNext()) {
+			 	#dim OrderLijn As DOM.VKP.impl.DataM.DataMProductOrderlijn = OrderLijnIterator.Next()
+			 	
+			 	If $$$Not(OrderLijn.GeefProductID() = "") {
+				 	Do PickingOpdrachtInfoLijst.Insert(##class(BL.Legacy.EWORDS6.PickingOpdrachtInfo).%New(%J, OrderLijn, D))
+			 	}
+		 	}
 		}
 	 
 	 	Set CONSNr=$$GETNUM^FLOW("KUL","KU1") ; Tijdelijk
Index: BL/Legacy/EWORDS6/PickingOpdrachtInfo.cls.xml
===================================================================
diff -u
--- BL/Legacy/EWORDS6/PickingOpdrachtInfo.cls.xml	(revision 0)
+++ BL/Legacy/EWORDS6/PickingOpdrachtInfo.cls.xml	(revision 47799)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.EWORDS6.PickingOpdrachtInfo">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Index">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderLijn">
+<Type>DOM.VKP.impl.DataM.DataMProductOrderlijn</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Delimiter">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Index:%String,OrderLijn:DOM.VKP.impl.DataM.DataMProductOrderlijn,Delimiter:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Index = Index
+	Set ..OrderLijn = OrderLijn
+	Set ..Delimiter = Delimiter
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefData">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..OrderLijn.GeefAantal() _ ..Delimiter _ ..Delimiter _ ..OrderLijn.GeefLeverdag()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>