Index: BL/Legacy/EWORDS6/enu/PickingDag/AutoComplete.cls.xml
===================================================================
diff -u
--- BL/Legacy/EWORDS6/enu/PickingDag/AutoComplete.cls.xml	(revision 0)
+++ BL/Legacy/EWORDS6/enu/PickingDag/AutoComplete.cls.xml	(revision 47798)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.EWORDS6.enu.PickingDag.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Andere">
+<Type>%String</Type>
+<InitialExpression>"0"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Vandaag">
+<Type>%String</Type>
+<InitialExpression>"1"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="VolgendeWerkDag">
+<Type>%String</Type>
+<InitialExpression>"2"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: BL/Legacy/EWORDS6/enu/PickingDag.cls.xml
===================================================================
diff -u
--- BL/Legacy/EWORDS6/enu/PickingDag.cls.xml	(revision 0)
+++ BL/Legacy/EWORDS6/enu/PickingDag.cls.xml	(revision 47798)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.EWORDS6.enu.PickingDag">
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;0;1;2</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Andere;Vandaag;VolgendeWerkDag</Default>
+</Parameter>
+
+<Method name="Andere">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.Legacy.EWORDS6.enu.PickingDag</ReturnType>
+<Implementation><![CDATA[	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="Vandaag">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.Legacy.EWORDS6.enu.PickingDag</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="VolgendeWerkDag">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.Legacy.EWORDS6.enu.PickingDag</ReturnType>
+<Implementation><![CDATA[	Quit 2
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EWORDS6.mac.rou
===================================================================
diff -u -r47794 -r47798
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 47794)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 47798)
@@ -18,14 +18,16 @@
  
  ; WMS verwerking en eventueel doorsturen naar Egemin software indien voor vandaag
 SendWMS(ORDNr)
-	New %J,I,R,PRNr,Aantal,OLUNr,LeverDag,CONSNr,VerzDat,DOutDate,DOutTime,VerzW,VerzZ,LevAdr,ChkBeletDone,IsVoorVandaag,ORDNrs,CumulORDNr,WaitORDNrs
+	New %J,I,R,PRNr,Aantal,OLUNr,LeverDag,CONSNr,VerzDat,DOutDate,DOutTime,VerzW,VerzZ,LevAdr,ChkBeletDone,ORDNrs,CumulORDNr,WaitORDNrs
 	New LandCode,PostCode
-	New InfoMelder, KlantNummer
+	New PickingDag, InfoMelder, KlantNummer, IsVoorVandaag
 	
+	#dim PickingDag As BL.Legacy.EWORDS6.enu.PickingDag = ##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)
 	#dim InfoMelder As BL.Legacy.EWORDS6.InfoMelder = ##class(BL.Legacy.EWORDS6.InfoMelder).%New()
+	
 	Do InfoMelder.Controleer(ORDNr)
 	
- 	If (##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)) {
+ 	If ($$$Not(PickingDag = ##class(BL.Legacy.EWORDS6.enu.PickingDag).Andere())) {
   		#dim KlantNummer As %String = ##class(BL.Legacy.EWORDS6).GeefKlantNummer(ORDNr, D)
   		
   		Set ORDNrs = $$Cumul(ORDNr)
@@ -41,15 +43,15 @@
 	 	
 	 	Quit:$$$Not($$Lock(ORDNrs))
 	 	
-	 	Set IsVoorVandaag = 1
+	 	#dim IsVoorVandaag As %Boolean = (PickingDag = ##class(BL.Legacy.EWORDS6.enu.PickingDag).Vandaag())
 	 	
 	 	Set %J=$$%J^vhRtn1()
 	 	Kill ^HULP(%J)
 	 	
-	 	For I=1:1:$L(ORDNrs,";") {
-		 	Set CumulORDNr=$P(ORDNrs,";",I)
-		 	Quit:'CumulORDNr
-		 	Set OLNr=100
+	 	For I=1:1:$Length(ORDNrs,";") {
+		 	Set CumulORDNr = $Piece(ORDNrs,";",I)
+		 	Quit:$$$Not(CumulORDNr)
+		 	Set OLNr = 100
 		 	
 		 	For {
 			 	Set OLNr=$O(^KOD(KlantNummer,"F",CumulORDNr,OLNr))
Index: BL/Legacy/EWORDS6/enu/PickingDag/Verwerker.cls.xml
===================================================================
diff -u
--- BL/Legacy/EWORDS6/enu/PickingDag/Verwerker.cls.xml	(revision 0)
+++ BL/Legacy/EWORDS6/enu/PickingDag/Verwerker.cls.xml	(revision 47798)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.EWORDS6.enu.PickingDag.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>PickingDag:BL.Legacy.EWORDS6.enu.PickingDag</FormalSpec>
+<Implementation><![CDATA[
+	If PickingDag = "0" {
+		Do ..VerwerkAndere()
+	} ElseIf PickingDag = "1" {
+		Do ..VerwerkVandaag()
+	} ElseIf PickingDag = "2" {
+		Do ..VerwerkVolgendeWerkDag()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(PickingDag,"BL.Legacy.EWORDS6.enu.PickingDag",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkAndere">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVandaag">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVolgendeWerkDag">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>