Index: CWSCHADUW.mac.rou =================================================================== diff -u -r734 -r2415 --- CWSCHADUW.mac.rou (.../CWSCHADUW.mac.rou) (revision 734) +++ CWSCHADUW.mac.rou (.../CWSCHADUW.mac.rou) (revision 2415) @@ -1,6 +1,6 @@ CWSCHADUW ; Quit - + SCHADUW If $ZU(5)'="DEV-ADMIN1" Do . Write !,"Dit mag niet draaien op ",$ZU(5) @@ -69,3 +69,4 @@ .. Do BLDIND^PRODUKT2(PRNr) .For I=1,"GLNR","HDNR","MAILCNT","PLNR","SGNR","TBXNR","TLMNR" Set ^KPR(0,I)=^|"JRNL-ADMIN1"|KPR(0,I) Quit + \ No newline at end of file