Index: KLACHT.mac.rou
===================================================================
diff -u -r1026 -r1134
--- KLACHT.mac.rou	(.../KLACHT.mac.rou)	(revision 1026)
+++ KLACHT.mac.rou	(.../KLACHT.mac.rou)	(revision 1134)
@@ -402,6 +402,7 @@
  .If $P(sFL(1),D,4)'="VGP",$P(sFL(1),D,4)'="VVP"
  .Else  If $P(sFL(1),D,4)=$P(R,D,4)
  .Else  Set MailMagazijn=1
+ .Set:'$G(MailMagazijn) MailMagazijn=($P(sFL(1),D,5)="MAG")
  .
  .; Behandelverantwoordelijke verschillend van registratiegebruiker
  .If $P(sFL(1),D,21),$P(sFL(1),D,21)'=$P(sFL(1),D,30) Set MailBHVerantW=$P(R,D,21)'=$P(sFL(1),D,21)
@@ -429,7 +430,7 @@
  .Else  Set MailPRProblem=1
  .
  .; Probleem magazijn
- .If $P(sFL(1),D,4)'="VGP",$P(sFL(1),D,4)'="VVP"
+ .If $P(sFL(1),D,4)'="VGP",$P(sFL(1),D,4)'="VVP",$P(sFL(1),D,5)'="MAG"
  .Else  Set MailMagazijn=1
  .
  .; Behandelverantwoordelijke verschillend van registratiegebruiker
@@ -604,9 +605,9 @@
  . Set Txt=$$ONOM(KlachtId)_"~~"_$P(^RES("KLACHT","PI","TYPE","D",$P(sFL(1),D,4)),"`",2)_" - "_$P(^RES("KLACHT","PI","GROEP","D",$P(sFL(1),D,5)),"`",2)_"."
  . Set MailId=$$SYSTEM^vhMAIL(KLLEVTyp,KLLEVNr,"Incident product","KLACHTPM",Txt,"KLACHT\"_KlachtId_"\R",1,1)
  If Type="PRMA" Do
- . If $P(sFL(1),D,4)'="VGP",$P(sFL(1),D,4)'="VVP" Quit
+ . If $P(sFL(1),D,4)'="VGP",$P(sFL(1),D,4)'="VVP",$P(sFL(1),D,5)'="MAG" Quit
  . Set Txt=$$ONOM(KlachtId)_"~~"_$P(^RES("KLACHT","PI","TYPE","D",$P(sFL(1),D,4)),"`",2)_"."
- . Set MailId=$$SYSTEM^vhMAIL(KLLEVTyp,KLLEVNr,"Incident magazijn","KLACHTMA",Txt,"KLACHT\"_KlachtId_"\R",1,1)
+ . Set MailId=$$SYSTEM^vhMAIL(KLLEVTyp,KLLEVNr,"Incident magazijn"_$S(";"_$P(sFL(1),D,20)_";"[";VC;":"/voorraadcontrole",1:""),"KLACHTMA",Txt,"KLACHT\"_KlachtId_"\R",1,1)
  If Type="RZTL" Do
  . Quit:";"_$P(sFL(1),D,20)_";"'[";TL;"
  . Set MailId=$$SYSTEM^vhMAIL(KLLEVTyp,KLLEVNr,"Incident tegemoetkoming leverancier","KLACHTPM",,"KLACHT\"_KlachtId_"\R",1,1)