Index: RPLKOM.mac.rou
===================================================================
diff -u -r34215 -r34395
--- RPLKOM.mac.rou	(.../RPLKOM.mac.rou)	(revision 34215)
+++ RPLKOM.mac.rou	(.../RPLKOM.mac.rou)	(revision 34395)
@@ -1,3 +1,5 @@
+#Include vhLib.Macro
+
 RPLKOM ;RAADPLEGEN Leverweken Orders ; Do naar RPLSW1, %A101 en PROC [ 12/19/2003  8:19 AM ]
  ;
  Do INIT,SELECT If $D(Select) Do FETCH(),COMMAND
@@ -413,7 +415,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))_$$nclGeefOrderDataInfo(KLNr,ORDNr)_$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=1007:$$nclGeefOrderDataInfo(KLNr,ORDNr),1:"")_$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
@@ -435,7 +437,7 @@
 	}
 	Quit CreatorInfo
 nclGeefOrderDataInfo(KLNr,OrderID)	
-	Quit $C(13,10,13,10)_$$ArrayToText^vhLib($Name(^KOD(KLNr,"F",OrderID)))
+	Quit $$$CRLF_$$$CRLF_$$ArrayToText^vhLib($Name(^KOD(KLNr,"F",OrderID)))
 	
  
 RHALUX(Regios)