Index: ZBCHKPR.mac.rou =================================================================== diff -u -r36595 -r49405 --- ZBCHKPR.mac.rou (.../ZBCHKPR.mac.rou) (revision 36595) +++ ZBCHKPR.mac.rou (.../ZBCHKPR.mac.rou) (revision 49405) @@ -333,7 +333,7 @@ . . . . Set CompKortX=$$COMPR^PRODUKT(PRNr) . . . . If CompKort'=CompKortX Do . . . . . Do Gefaald(.LaatsteGlobalRef) - . . . . . Write !!,"^KPM versus ^KPR :Index ",ZR," korttekst foutief",!,?8,"Korttxt = ",KortTekst,CompKort,?29,"Product = ",PRNr + . . . . . Write !!,"^KPM versus ^KPR :Index ",ZR," korttekst foutief",!,?8,"Korttxt = ",KortTekst," compr:'",CompKort,"' herberekend:'",CompKortX,"'",?29,"Product = ",PRNr . . . . If '$D(^KPHG1(HoofdGroep)) Do . . . . . Do Gefaald(.LaatsteGlobalRef) . . . . . Write !!,"^KPM versus ^KPR :Hoofdroep ",LaatsteGlobalRef," onbekend",!,?8,"Korttxt = ",KortTekst,?50,"Product = ",PRNr