Index: EWORDS.mac.rou
===================================================================
diff -u -r70801 -r73186
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 70801)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 73186)
@@ -483,8 +483,8 @@
 		 Set VerzZ = $Piece(R,D,4)
 		 Set VerzDat = $Piece(R,D,5)
 		 Set ORDNr = $Order(^HULP(%J,KLNr,"M","A",""))
-		 Do ##class(vhLib.Logger).%New("SAVE^EWORDS").Debug("Start opmaken pickingopdracht", "ORDNr='"_ORDNr_"'")
 		 Set VerzW = ##class(BL.Legacy.EWORDS.Save).GeefVerzendWijze(.KLNr, ORDNr, R)
+		 Do ##class(vhLib.Logger).%New("SAVE^EWORDS").Debug("Start opmaken pickingopdracht", "ORDNr='"_ORDNr_"' --> " _ $Get(VerzW))
 		 
 		 // We gaan nagaan of er backorderlijnen moeten gesplitst worden. Indien de 2de piece is ingevuld moet die gebruikt worden als BO aantal.
 		 // Achteraf maken we die piece leeg zodat de rest van de code zijn werk blijft doen.
@@ -551,7 +551,9 @@
 					 Set ^HULP(%J, KLNr, "M", "A", PickingOpdrachtInfo.GeefOrderNummer(), PickingOpdrachtInfo.GeefOrderLijnNummer()) = PickingOpdrachtInfo.GeefData()
 					 Do ##class(vhLib.Logger).%New("SAVE^EWORDS").Debug("Lijn registreren in ^HULP", "OrderLijnNummer='"_PickingOpdrachtInfo.GeefOrderLijnNummer()_"'")
 				 }
-			 
+			 	 
+	 	 		 Do ##class(vhLib.Logger).%New("SAVE^EWORDS").Debug("Start opmaken pickingopdracht", "BLCONS voor "_ CONSNr _ "met VerzW " _ VerzW )
+
 				 Do BLDCONS^EWORDS2(KLNr,$Name(^HULP(%J,KLNr,"M")),CONSNr,$Piece(VerzW,";"),VerzDat,DOutDate_","_DOutTime,VerzZ,LevAdr,.ChkBeletDone) ; Creatie suborderlijnen
 				 Do STORE^LOG("ORDW", CONSNr, "O", ##class(BL.Legacy.EWORDS.Save).GeefOrderNummers(CONSNr))