Index: EWORDS.mac.rou
===================================================================
diff -u -r50432 -r50442
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 50432)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 50442)
@@ -491,35 +491,40 @@
 		 Set OLU = ""
 		 Set PickingOpdrachtInfoLijst = ##class(%ListOfDataTypes).%New()
 		 
+		 Set ORDNr=""
 		 For {
-			 Set OLU=$Order(^HULP(%J,KLNr,"M","A",ORDNr,OLU)) 
-			 Quit:OLU=""
+			 Set ORDNr=$Order(^HULP(%J,KLNr,"M","A",ORDNr)) 
+			 Quit:(""=ORDNr)
+			 For {
+				 Set OLU=$Order(^HULP(%J,KLNr,"M","A",ORDNr,OLU)) 
+				 Quit:OLU=""
 			 
-			 New LeverDatum, AantalVoorBackOrder, Aantal
-			 Set LijnRec = ^HULP(%J,KLNr,"M","A",ORDNr,OLU)
-			 Set AantalVoorBackOrder = $Piece(LijnRec,"\",2)
-			 Set LeverDatum = $Piece(LijnRec, "\", 3) // gebruik de ingevulde LevWk
+				 New LeverDatum, AantalVoorBackOrder, Aantal
+				 Set LijnRec = ^HULP(%J,KLNr,"M","A",ORDNr,OLU)
+				 Set AantalVoorBackOrder = $Piece(LijnRec,"\",2)
+				 Set LeverDatum = $Piece(LijnRec, "\", 3) // gebruik de ingevulde LevWk
 			 
-			 If (AantalVoorBackOrder > 0) {
-				 // gebruik de BoLevWk indien ingevuld
-				 If $$$Not($Piece(LijnRec, "\", 4) = "") {
-					 Set LeverDatum = $Piece(LijnRec, "\", 4)
-				 }
+				 If (AantalVoorBackOrder > 0) {
+					 // gebruik de BoLevWk indien ingevuld
+					 If $$$Not($Piece(LijnRec, "\", 4) = "") {
+						 Set LeverDatum = $Piece(LijnRec, "\", 4)
+					 }
 				 
-				 Do SPLITOLN^FLOWORD6(,ORDNr,^ORD("IU",ORDNr,OLU),AantalVoorBackOrder,LeverDatum,,.ReturnLocal)
-				 Set $Piece(LijnRec,"\",2)=""
-				 Set $Piece(^KOD(KLNr,"F",ORDNr,^ORD("IU",ORDNr,ReturnLocal("NewOLUNr"))),"\",53) = 1
-				 Set ^HULP(%J,KLNr,"M","A",ORDNr,OLU) = LijnRec
-			 }
+					 Do SPLITOLN^FLOWORD6(,ORDNr,^ORD("IU",ORDNr,OLU),AantalVoorBackOrder,LeverDatum,,.ReturnLocal)
+					 Set $Piece(LijnRec,"\",2)=""
+					 Set $Piece(^KOD(KLNr,"F",ORDNr,^ORD("IU",ORDNr,ReturnLocal("NewOLUNr"))),"\",53) = 1
+					 Set ^HULP(%J,KLNr,"M","A",ORDNr,OLU) = LijnRec
+				 }
 			 
-			 Set Aantal = $Piece(LijnRec, "\", 1)
+				 Set Aantal = $Piece(LijnRec, "\", 1)
 			 
-			 // ^HULP data, aangemaakt v��r aanroepen van SAVE(), bijhouden in PickingOpdrachtInfoLijst
-			 Do PickingOpdrachtInfoLijst.Insert(##class(BL.Legacy.EWORDS.PickingOpdrachtInfo).%New(Aantal, LeverDatum, ORDNr, OLU))		// DEZE MOET IN EEN LOOP OVER ALLE ORDNr's STAAN.
+				 // ^HULP data, aangemaakt v��r aanroepen van SAVE(), bijhouden in PickingOpdrachtInfoLijst
+				 Do PickingOpdrachtInfoLijst.Insert(##class(BL.Legacy.EWORDS.PickingOpdrachtInfo).%New(Aantal, LeverDatum, ORDNr, OLU))		// DEZE MOET IN EEN LOOP OVER ALLE ORDNr's STAAN.
+			 }
 		 }
 		 
 		 // Alle bestaande ^HULP-nodes voor opgegeven KlantNummer en OrderNummer verwijderen
-		 Kill ^HULP(%J, KLNr, "M", "A", ORDNr) // MOET EIGENLIJK KILL OVER ALLE ORDNr's HEEN ZIJN!
+		 Kill ^HULP(%J, KLNr, "M", "A") 
 		 
 		 If $$$Not(DOutTime) do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("DOutTime mag niet null zijn"))
 		 
@@ -529,14 +534,13 @@
 		 While (FilterIterator.HasNext()) {
 			 Set CONSNr = $$GETNUM^FLOW("KUL","KU1")
 			 Set PickingOpdrachtInfoIterator = ##class(BL.Legacy.EWORDS.PickingOpdrachtInfoIterator).%New(PickingOpdrachtInfoLijst, FilterIterator.Next())
-			 Do 
 			 
 			 // Enkel uitvoeren als er PickingOpdrachten zijn die voldoen aan de Filter 
 			 If (PickingOpdrachtInfoIterator.HasNext()) {
 				 While (PickingOpdrachtInfoIterator.HasNext()) {
 					 Set PickingOpdrachtInfo = PickingOpdrachtInfoIterator.Next()
 					 Set ^HULP(%J, KLNr, "M", "A", PickingOpdrachtInfo.GeefOrderNummer(), PickingOpdrachtInfo.GeefOrderLijnNummer()) = PickingOpdrachtInfo.GeefData()
-					 Do ##class(vhLib.Logger).%New("SAVE^EWORDS").Debug("SAVE^EWORDS","Lijn registreren in ^HULP", "OrderLijnNummer='"_PickingOpdrachtInfo.GeefOrderLijnNummer()_"'")
+					 Do ##class(vhLib.Logger).%New("SAVE^EWORDS").Debug("Lijn registreren in ^HULP", "OrderLijnNummer='"_PickingOpdrachtInfo.GeefOrderLijnNummer()_"'")
 				 }
 			 
 				 Do BLDCONS^EWORDS2(KLNr,$Name(^HULP(%J,KLNr,"M")),CONSNr,$Piece(VerzW,";"),VerzDat,DOutDate_","_DOutTime,VerzZ,LevAdr,.ChkBeletDone) ; Creatie suborderlijnen