Index: DOM/CRM/impl/DataM/DataMKlantTemplate.cls.xml
===================================================================
diff -u -r38735 -r62618
--- DOM/CRM/impl/DataM/DataMKlantTemplate.cls.xml	(.../DataMKlantTemplate.cls.xml)	(revision 38735)
+++ DOM/CRM/impl/DataM/DataMKlantTemplate.cls.xml	(.../DataMKlantTemplate.cls.xml)	(revision 62618)
@@ -16,7 +16,7 @@
 		#dim RegioMedewekers As %Integer = 65
 		Do GlobalData.SetAt("\\\\\\\\N\1\EUR\0\\\1\G\2\\\"_RegioMedewekers_"\\\\\\\\62168,40232\SYS\0\\\\\\\\\\\\\\\\\\\\\\\\B2C\Incl",0)	
 		Do GlobalData.SetAt("\@\\\\\\\\\Consument\\\\\\\\M\\\\\\\1\\\\",1)
-		Do GlobalData.SetAt("\0\G\G\\\\0\\\\\\\\AFH\\\\\\\\\\\\\\\\G\\",2)
+		Do GlobalData.SetAt("\0\G\G\\\\1\\\\\\\\AFH\\\\\\\\\\\\\\\\G\\",2)
 		Do GlobalData.SetAt("1\\00\\\\\\\3\H\\\\Geimporteerd vanuit ProTime\\\\\\\\\\\\\\\",3)
 		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",4)
 		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",5)
@@ -28,7 +28,7 @@
 	ElseIf(KlantTemplate = ##class(DOM.CRM.enu.TypeTemplateKlant).Consument()) {
 		Do GlobalData.SetAt("\\\\\\\\N\1\EUR\0\\\1\G\0\\\62\\\\\\\\62167,55612\SYS\0\\\\\\\\\\\\\\\\\\\\\\\\B2C\Incl",0)	
 		Do GlobalData.SetAt("\@\\\\\\\\\Consument\\\\\\\2\M\\\\\\\1\\\\",1)
-		Do GlobalData.SetAt("\0\C\C\\\\M\\\\\\\\DI1\\\\\\\\C\C\\\\\",2)
+		Do GlobalData.SetAt("\0\C\C\\\\1\\\\\\\\DI1\\\\\\\\C\C\\\\\",2)
 		Do GlobalData.SetAt("\1\00\\\\\\\\AR/BP D\\\\Bestelling via Keller ORGALUX webshop\\\\\\\\\\\\\\\",3)
 		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",4)
 		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",5)
@@ -40,7 +40,7 @@
 	ElseIf(KlantTemplate = ##class(DOM.CRM.enu.TypeTemplateKlant).Onderneming()) {
 		Do GlobalData.SetAt("\\\\\\\\N\1\EUR\0\\\1\G\0\\\62\\\\\\\\62167,55612\SYS\0\\\\\\\\\\\\\\\\\\\\\\\\B2B\Excl",0)	
 		Do GlobalData.SetAt("\@\\\\\\\\\"_##class(DOM.VKP.enu.KlantActiviteit).Onbepaald()_"\\\\\\\2\M\\\\\\\1\\\\",1)
-		Do GlobalData.SetAt("\0\C\C\\\\M\\\\\\\\DI1\\\\\\\\C\C\\\\\",2)
+		Do GlobalData.SetAt("\0\C\C\\\\1\\\\\\\\DI1\\\\\\\\C\C\\\\\",2)
 		Do GlobalData.SetAt("\1\00\\\\\\\\AR/BP D\\\\Bestelling via Keller ORGALUX webshop\\\\\\\\\\\\\\\",3)
 		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",4)
 		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",5)
Index: zTryout/THB/KlantenFixAutomatischDoorsturen.cls.xml
===================================================================
diff -u
--- zTryout/THB/KlantenFixAutomatischDoorsturen.cls.xml	(revision 0)
+++ zTryout/THB/KlantenFixAutomatischDoorsturen.cls.xml	(revision 62618)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.KlantenFixAutomatischDoorsturen">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="FixAutomatischDoorsturen">
+<Implementation><![CDATA[
+	#dim Node As %String = "0"
+	
+	For { Set Node = $Order(^KKL(Node)) Quit:Node=""
+		If ($$$Not(Node = "SFSUNIMARKET 12486")) {
+			If $Data(^KKL(Node,2)) {
+				;Write $Piece(^KKL(Node,2),"\",8)
+				Set $Piece(^KKL(Node,2),"\",8) = 1
+			}
+		}
+	}
+	
+	Set Node = 0
+	For { Set Node = $Order(^DKL("K","KL.A",Node)) Quit:Node=""
+		If ($$$Not(Node = "12486")) {
+			If $Data(^DKL("K","KL.A",Node,2)) {
+				;Write $Piece(^DKL("K","KL.A",Node,2),"\",8)
+				Set $Piece(^DKL("K","KL.A",Node,2),"\",8) = 1
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EWORDS6.mac.rou
===================================================================
diff -u -r62600 -r62618
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 62600)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 62618)
@@ -305,13 +305,16 @@
 SendWMSStatus(ORDNr)
  New R,KLNr,SendWMSStatus
  Set R=^KO1(ORDNr,"F"),KLNr=$P(R,"\",1)
- Set SendWMSStatus=$P(^KOD(KLNr,"F",ORDNr,1),"\",26)
- If SendWMSStatus'="W" {
- 	Set:SendWMSStatus="" SendWMSStatus=$E($P(^KKL(^KK1(KLNr),2),"\",8))
- 	Set:SendWMSStatus'="M" SendWMSStatus="A"
+ Set SendWMSStatus=$E($P(^KKL(^KK1(KLNr),2),"\",8))
+ Set:SendWMSStatus'="M" SendWMSStatus="A"
+ /*
+ If (KLNr = "12486") {
+	 Set SendWMSStatus = "M" ; QUICKFIX OP QUICKFIX... SFS MOET ALTIJD MANUEEL - THB 23 10 2020 => Heel deze quickfix is waarschijnlijk ondertussen niet meer nodig!!
+ } Else {
+	 Set SendWMSStatus = "A" ; TIJDELIJKE AANPASSING overbruggen van het manueel doorsturen, dus steeds automatisch- PV 02 10 2020
  }
- Set SendWMSStatus="A" ;TIJDELIJKE AANPASSING overbruggen van het manueel doorsturen, dus steeds automatisch- PV 02 10 2020
- Quit SendWMSStatus 
+ */
+ Quit SendWMSStatus
  
  ; Do orders moeten gesloten zijn
 OrderGesloten(ORDNr)
Index: vhUnitTest/zTryout/THB/AutomatischDoorsturenVoorPicking/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/THB/AutomatischDoorsturenVoorPicking/Test.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/THB/AutomatischDoorsturenVoorPicking/Test.cls.xml	(revision 62618)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.zTryout.THB.AutomatischDoorsturenVoorPicking.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="DateTimeApi">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Set ..DateTimeApi = ##class(TECH.DateTime.impl.DateTimeAPI).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Het is tijd om een quickfix in EWORDS6 weg te halen">
+<Implementation><![CDATA[
+	#dim CurrentDate As TECH.String = ..DateTimeApi.CurrentHorolog()
+	#dim DDate As TECH.String = ..DateTimeApi.TimeStampToHorolog("2020-12-23 08:30:00")
+	
+	Do $$$AssertTrue(DDate >= CurrentDate, "Quickfix in EWORDS6 weg halen aub. Zie comment in UnitTest")
+	
+	///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+	//                                                                                                                                                                                                       //
+	//   THB                                                                                                                                                                                                 //
+	//   Per 23/10/2020 is er een quickfix in EWORDS6 gezet, bovenop een aanpassing van de reeds aanwezige code, in routine SendWMSStatus, die de WMSStatus overruled indien de klant ingesteld staat        //
+	//   op "M" (Manueel), volgens de 2-node (piece 8) in ^KKL. Tenzij het over SFS gaat (die op Manueel moet blijven staan), wordt de status voor alle klanten op (A) Automatisch gezet. Dit is een         //
+	//   "end of the line" check, dus goed voor alle orders, bestaande èn nieuwe. Tegelijkertijd zijn de KKL en DKL globals aangepakt, waarbij (met uitzondering van SFS) voor alle klanten piece 8 op       //
+	//   de 2-node is ingevuld met "1" (= Automatisch). Zodra this test faalt zijn er 2 maanden voorbij sinds bovenstaande ingrepen en mogen we ervan uitgaan dat alles nu goed loopt, de overrule in        //
+	//   EWORDS6 (die inmiddels in comment staat) mag dus weggehaald worden. Het gaat over deze codelijnen:                                                                                                  //
+	//      If (KLNr = "12486") {                                                                                                                                                                            //
+	//          Set SendWMSStatus = "M" ; QUICKFIX OP QUICKFIX... SFS MOET ALTIJD MANUEEL - THB 22 10 2020                                                                                                   //
+	//      } Else {                                                                                                                                                                                         //
+	//          Set SendWMSStatus = "A" ; TIJDELIJKE AANPASSING overbruggen van het manueel doorsturen, dus steeds automatisch- PV 02 10 2020                                                                //
+	//      }                                                                                                                                                                                                //
+	//                                                                                                                                                                                                       //
+	//   Voor de zekerheid kun je volgende nog eens uitvoeren, zodat klanten die door de mazen van het net geglipt zijn alsnog goed gezet worden:                                                            //
+	//      Do ##class(zTryout.THB.KlantenFixAutomatischDoorsturen).%New().FixAutomatischDoorsturen()                                                                                                        //
+	//                                                                                                                                                                                                       //
+	///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>