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
 	 }
  }