Index: EWORDS6.mac.rou
===================================================================
diff -u -r69296 -r72053
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 69296)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 72053)
@@ -98,8 +98,10 @@
 			If (PickingOpdrachtInfoIterator.HasNext()) {
 				While (PickingOpdrachtInfoIterator.HasNext()) {
 					#dim PickingOpdrachtInfo As BL.Legacy.EWORDS.PickingOpdrachtInfo = PickingOpdrachtInfoIterator.Next()
-					
-					Set ^HULP(%J, KlantNummer, "M", "A", PickingOpdrachtInfo.GeefOrderNummer(), PickingOpdrachtInfo.GeefOrderLijnNummer()) = PickingOpdrachtInfo.GeefData()
+					If '$D(^ORDW("IO",PickingOpdrachtInfo.GeefOrderNummer(), PickingOpdrachtInfo.GeefOrderLijnNummer()))
+					{
+						Set ^HULP(%J, KlantNummer, "M", "A", PickingOpdrachtInfo.GeefOrderNummer(), PickingOpdrachtInfo.GeefOrderLijnNummer()) = PickingOpdrachtInfo.GeefData()
+					}
 				}
 			
 				Do INITDOMVKP^FLOWORD2(KlantNummer, ORDNr)
@@ -114,7 +116,8 @@
 				Do BLDCONS^EWORDS2(KlantNummer, $Name(^HULP(%J, KlantNummer, "M")), ConsolidatieNummer, $Piece(VerzW, ";"), VerzDat, DOutDateTime, VerzZone, LevAdr, .ChkBeletDone) ; Creatie suborderlijnen
 		
 				Do ##class(vhLib.Logger).%New().Info("Klaarzetten voor picking", "Bon '" _ ConsolidatieNummer _ "' is automatisch aangemaakt, WMSActief:"_$$WMSIsActief()_", IsVoorVandaag:"_IsVoorVandaag )
-				
+				Set ^BONLog(ConsolidatieNummer,+$H)=$LB("A",IsVoorVandaag,$zdt($H,8))
+								
 				If ($$WMSIsActief() && IsVoorVandaag) {
 					Do SEND^EWORDSW(ConsolidatieNummer)
 				}
@@ -140,7 +143,7 @@
 AutoSendIsActief() 
  New AutoSendIsActief
  Set AutoSendIsActief=+$G(^ORDW("AUTO"))
- Set AutoSendIsActief=$S($P($H,",",2)<25200:0,$P($H,",",2)>68400:0,1:AutoSendIsActief) ; Enkel tussen 07:00 en 19:00
+ Set AutoSendIsActief=$S($P($H,",",2)<19800:0,$P($H,",",2)>68400:0,1:AutoSendIsActief) ; Enkel tussen 05:30 en 19:00 - aangepast PV - 31/5/2023
  Quit AutoSendIsActief
  
  ; Controle of het order (en alle eventueel gelinkte orders) voor dezelfde leverdag zijn.
@@ -214,7 +217,7 @@
  
  ; Deze routine verwerkt alle orders verzameld in de wachtrij door 'FetchAutoSend'
  ; Opgestartom de 15 minuten
-AutoSend
+AutoSend ; Orders die in de wachtrij staan klaarzetten voor picking
  New
  Set Q="K",D="\",U=";",QU(1)=0
  If $$AutoSendIsActief() {
@@ -267,7 +270,7 @@
  
  
  // Deze niet meer rechtstreeks aanroepen, maar wel via de classmethod   ##class(BL.Legacy.EWORDS6).CheckAutoSend(...) 
-CheckAutoSend(ORDNr)
+CheckAutoSend(ORDNr) 
  New Check,fc
  Set Check=$$SendWMSStatus(ORDNr)="A" ; Status i.v.m. het doorsturen is automatisch
  ;w:$G(io)=1015 0,Check," "
@@ -525,7 +528,7 @@
  
  ; De orders voor vandaag of morgen opzoeken in ^KOD en in de wachtrij plaatsen voor 'AutoSend'
  ; Elke minuut opgestart
-FetchAutoSend
+FetchAutoSend ;Orders die klaargezet kunnen worden in een wachtrij plaatsen
  New
  Set Q="K",D="\",U=";",Horolog=$H
  If $$AutoSendIsActief() {