Index: RPLKOM.mac.rou
===================================================================
diff -u -r71158 -r71161
--- RPLKOM.mac.rou	(.../RPLKOM.mac.rou)	(revision 71158)
+++ RPLKOM.mac.rou	(.../RPLKOM.mac.rou)	(revision 71161)
@@ -415,7 +415,8 @@
  . For  Set KLNr=$O(NoClose(IntVw,KLNr)) Quit:KLNr=""  Do
  . . Set Klant=NoClose(IntVw,KLNr),ORDNr="",Body=Body_$C(13)
  . . For  Set ORDNr=$O(NoClose(IntVw,KLNr,ORDNr)) Quit:ORDNr=""  Do
- . . . Set Body=Body_Klant_$J("",NoClose(IntVw)-$L(Klant))_$S($L(Klant):": ",1:"  ")_ORDNr_" "_NoClose(IntVw,KLNr,ORDNr)_$$nclGeefCreatorInfo(ORDNr,$P($G(^KOD(KLNr,"F",ORDNr,1)),"\",8))_$S(IntVw=1007:$$nclGeefOrderDataInfo(KLNr,ORDNr),1:"")_$C(13),Klant="",Lijnen=Lijnen+1
+ . . . Set Body=Body_Klant_$J("",NoClose(IntVw)-$L(Klant))_$S($L(Klant):": ",1:"  ")_ORDNr_" "_NoClose(IntVw,KLNr,ORDNr)_$$nclGeefCreatorInfo(ORDNr,$P($G(^KOD(KLNr,"F",ORDNr,1)),"\",8))_$S(IntVw=99991007:$$nclGeefOrderDataInfo(KLNr,ORDNr),1:"")_$C(13)
+ . . . Set Klant="",Lijnen=Lijnen+1
  . Set Subject="Niet afgesloten order"_$S(Lijnen>1:"s",1:""),Body="Volgend"_$S(Lijnen>1:"e orders zijn",1:" order is")_" nog niet gesloten:"_$C(13)_$C(13)_Body
  . Set Status=$$SendMiniMail^vhLib(From,To,Subject,Body)
  Quit
@@ -437,7 +438,7 @@
 	}
 	Quit CreatorInfo
 nclGeefOrderDataInfo(KLNr,OrderID)	
-	Quit "" ;$$$CRLF_$$$CRLF_$$ArrayToText^vhLib($Name(^KOD(KLNr,"F",OrderID)))
+	Quit $$$CRLF_$$$CRLF_$$ArrayToText^vhLib($Name(^KOD(KLNr,"F",OrderID)))
 	
  
 RHALUX(Regios)