Index: RPLKOM.mac.rou
===================================================================
diff -u -r37035 -r71104
--- RPLKOM.mac.rou	(.../RPLKOM.mac.rou)	(revision 37035)
+++ RPLKOM.mac.rou	(.../RPLKOM.mac.rou)	(revision 71104)
@@ -402,14 +402,14 @@
  . . Set Rec=^(ORDNr,1)
  . . Quit:$P(Rec,D,22)
  . . If $P(Rec,D,23)=1 Quit:$$EXTDATE^vhLib.DataTypes(,"DWN")'=6  Set IntVw=30 ; Indien voorlopig gesloten mail naar de boekhouding en enkel op zaterdag (Rita Meersman)
- . . Else  Quit:$$EXTDATE^vhLib.DataTypes(,"DWN")>5  Set IntVw=$$INTVW^KLOPV(KLNr) Set:'IntVw IntVw=1007 ; WV als vangnet
+ . . Else  Quit:$$EXTDATE^vhLib.DataTypes(,"DWN")>5  Set IntVw=1007   ;$$INTVW^KLOPV(KLNr) Set:'IntVw IntVw=1007 ; WV als vangnet
  . . Set NoClose(IntVw,KLNr,ORDNr)=$P(Rec,D,2)
  . . Set Klant=KLNr_" "_$P(^KKL(^KK1(KLNr),0),D,2)
  . . Set:$G(NoClose(IntVw))<$L(Klant) NoClose(IntVw)=$L(Klant)
  . . Set NoClose(IntVw,KLNr)=Klant
  Set From=##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"@VANHOECKE.BE",IntVw=""
  For  Set IntVw=$O(NoClose(IntVw)) Quit:IntVw=""  Do
- . Set To=$$REPLACE^vhRtn1($$USERNAME^vhUSER(IntVw,"@"),";",""",""")
+ . Set To="Bidisupport@vanhoecke.be"   ;$$REPLACE^vhRtn1($$USERNAME^vhUSER(IntVw,"@"),";",""",""")
  . Xecute "Set To=$LB("""_To_""")"
  . Set (Body,KLNr)="",Lijnen=0
  . For  Set KLNr=$O(NoClose(IntVw,KLNr)) Quit:KLNr=""  Do