Index: EWORDSW.mac.rou
===================================================================
diff -u -r67712 -r68334
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 67712)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 68334)
@@ -411,10 +411,11 @@
  Set C("LEVADRTOENM")=$P(AdrRec,D,3)
  Set C("LEVADRSTR")=$P(AdrRec,D,5)
  Set C("LEVADRGEM")=$E($P(AdrRec,D,6)_" "_$P(AdrRec,D,7),1,30)
- If ";9365;2671;3814;"[(";"_KLNr_";") Do ; klant Haefele en 'New SobelWood' -> 1 order / 1 bon
- . Set C("LEVADRTOENM")=C("LEVADRSTR")
- . Set C("LEVADRSTR")=C("LEVADRGEM")
- . Set C("LEVADRGEM")=$$CommRef(KLNr,CONSNr)
+ ; PV 04/07/2022 :  deze code is niet meer van toepassing omdat de stickers door het EWMS werden afgedrukt in het verre verleden.
+ ;If ";9365;2671;3814;"[(";"_KLNr_";") Do ; klant Haefele en 'New SobelWood' -> 1 order / 1 bon
+ ;. Set C("LEVADRTOENM")=C("LEVADRSTR")
+ ;. Set C("LEVADRSTR")=C("LEVADRGEM")
+ ;. Set C("LEVADRGEM")=$$CommRef(KLNr,CONSNr)
  Set Txt=""
  If $P(ORDRec,D,16)'="" Set Txt=Txt_";Beloofd op "_$P(ORDRec,D,16)
  Set:Txt'="" C("ORDTEKST")=$E(Txt,2,999)