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)