Index: CHUI/VKP/OrderIngave/WMSVerzender.cls.xml
===================================================================
diff -u
--- CHUI/VKP/OrderIngave/WMSVerzender.cls.xml	(revision 0)
+++ CHUI/VKP/OrderIngave/WMSVerzender.cls.xml	(revision 57925)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="CHUI.VKP.OrderIngave.WMSVerzender">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StartVerwerking">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderGeslotenEvent:DOM.VKP.event.OrderGeslotenEvent</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
+	#dim OrderGeslotenEventData As DOM.VKP.event.OrderGeslotenEventData = OrderGeslotenEvent.Data
+	Do SendWMSIndienAfhaling^EWORDS6(OrderGeslotenEventData.GeefOrderID())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/Deploy20190906xWMSVerzender.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20190906xWMSVerzender.cls.xml	(revision 0)
+++ vhDeploy/Deploy20190906xWMSVerzender.cls.xml	(revision 57925)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20190906xWMSVerzender">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Luister naar OrderGeslotenEvent voor WMS verzender</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("OrderGeslotenEvent","CHUI.VKP.OrderIngave.WMSVerzender","StartVerwerking")
+	Do Subscription.%Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EWORDS6.mac.rou
===================================================================
diff -u -r56733 -r57925
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 56733)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 57925)
@@ -11,6 +11,14 @@
 	 - EWORDS6 : automatisch markeren (via background job, cfr. IsVoorVandaagOfMorgen) 
 	============================================================================================================================
  */ 
+
+SendWMSIndienAfhaling(ORDNr)
+	Set VerzW = $P($P($$DEFAULT^KLVERZW(, , ORDNr),"`"),";")
+	If VerzW["AF"  ; AFH en AFC
+	{
+		Do SendWMS(ORDNr)
+	}
+	Quit
  
  ; WMS verwerking en eventueel doorsturen naar Egemin software indien voor vandaag
 SendWMS(ORDNr)
@@ -73,8 +81,8 @@
 		 	
 		 	If ($$$Not(IsKlantOnderRembours && $$$Not(IsOrderVolledigPickingVoorVandaag))) {
 			 	Set PickingOpdrachtInfoLijst = ##class(TECH.ListUtils).Complement(OrderPickingOpdrachtInfoLijst, PickingOpdrachtInfoLijst)
-		 	}
 		}
+		}
 		
 		#dim IsVoorVandaag As %Boolean = (PickingDag = ##class(BL.Legacy.EWORDS6.enu.PickingDag).Vandaag())
 		#dim FilterIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(##class(BL.Legacy.EWORDS.Save).GeefFilters())
@@ -219,8 +227,8 @@
 		 Set KLNr=$P($G(^KO1(ORDNr,"F")),"\")
 		 If 'KLNr Kill ^ORDW("AUTO",ORDNr) Continue
 		 Set KlKey=^KK1(KLNr)
-		 If '$D(^KOD(KLNr,"F",ORDNr)) Kill ^ORDW("AUTO",ORDNr) Continue
-		 Continue:'##class(BL.Legacy.EWORDS6).CheckAutoSend(ORDNr)
+		 If '$D(^KOD(KLNr,"F",ORDNr)) Kill ^ORDW("AUTO",ORDNr)
+		 If '##class(BL.Legacy.EWORDS6).CheckAutoSend(ORDNr) Kill ^ORDW("AUTO",ORDNr)
 		 Continue:'$D(^ORDW("AUTO",ORDNr))  ; Het order is ondertussen reeds doorgestuurd
 		 Set Aangemaakt=^ORDW("AUTO",ORDNr),AanmaakDatum=$P(Aangemaakt,","),AanmaakTijdstip=$P(Aangemaakt,",",2)
 		 Set:$$DIFFTIME^vhLib.DataTypes(Aangemaakt,$H)>0 ORDNrs(AanmaakDatum,AanmaakTijdstip,KlKey,ORDNr)=""
@@ -631,7 +639,9 @@
  
  ; Cumuleren van orders voor eenzelfde klant
 Cumul(ORDNr)
- New R,KLNr,ORDNrs,CumulORDNr
+ New R,KLNr,ORDNrs,CumulORDNr,PickingDag
+ #dim PickingDag As BL.Legacy.EWORDS6.enu.PickingDag = ##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)
+
  Set ORDNrs=ORDNr,R=^KO1(ORDNr,"F"),KLNr=$P(R,D),CumulORDNr=""
  #dim LegacyPartijAPI As DOM.PARTIJ.LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
  #dim Klant As DOM.VKP.Klant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(LegacyPartijAPI.GeefKlantPartijID(KLNr))
@@ -642,6 +652,7 @@
 		 Quit:CumulORDNr=""
 		 Set R=^KO1(CumulORDNr,"F")
 		 Continue:$P(R,D)'=KLNr
+		 Continue:PickingDag'=##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(CumulORDNr)
 		 If ORDNrs'[CumulORDNr,$$CheckCumul(ORDNr,CumulORDNr) Set ORDNrs=ORDNrs_";"_CumulORDNr
 	 }
  }