Index: RPLKOM.mac.rou =================================================================== diff -u -r36847 -r37035 --- RPLKOM.mac.rou (.../RPLKOM.mac.rou) (revision 36847) +++ RPLKOM.mac.rou (.../RPLKOM.mac.rou) (revision 37035) @@ -416,7 +416,7 @@ . . 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 Subject="Niet afgesloten order"_$S(Lijnen>1:"s",1:"")_" #FWDI#",Body="Volgend"_$S(Lijnen>1:"e orders zijn",1:" order is")_" nog niet gesloten:"_$C(13)_$C(13)_Body + . 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 nclGeefCreatorInfo(OrderID,CreatorInfo)