Index: RPLKOM.mac.rou
===================================================================
diff -u -r29059 -r34130
--- RPLKOM.mac.rou	(.../RPLKOM.mac.rou)	(revision 29059)
+++ RPLKOM.mac.rou	(.../RPLKOM.mac.rou)	(revision 34130)
@@ -413,7 +413,7 @@
  . 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))_$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))_$$nclGeefOrderDataInfo(KLNr,ORDNr)_$C(13),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
@@ -434,6 +434,8 @@
 		Do ##class(vhLib.Logger).LogEnMailExceptie(Exception)
 	}
 	Quit CreatorInfo
+nclGeefOrderDataInfo(KLNr,ORDNr)	
+	Quit $C(13,10,13,10)_$$ArrayToText^vhLib($Name(^KOD(KLNr,"F",OrderID)))
 	
  
 RHALUX(Regios)