Index: BL/Legacy/EWORDSW.cls.xml
===================================================================
diff -u -r52359 -r55527
--- BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 52359)
+++ BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 55527)
@@ -117,8 +117,10 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	quit:$D(^KPR(PRNr)) ($D(^KPR(PRNr,"J6332")))&&(($E($P($G(^KPR(PRNr,0)),"\"),1,11)="SET#TAORBOX")||($E($P($G(^KPR(PRNr,0)),"\"),1,4)="ZW7H")) ; Korttekst begint met
-	quit:$D(^KPRO(PRNr)) ($D(^KPRO(PRNr,"J6332")))&&(($E($P($G(^KPRO(PRNr,0)),"\"),1,11)="SET#TAORBOX")||($E($P($G(^KPRO(PRNr,0)),"\"),1,4)="ZW7H"))
+	;quit:$D(^KPR(PRNr)) ($D(^KPR(PRNr,"J6332")))&&(($E($P($G(^KPR(PRNr,0)),"\"),1,11)="SET#TAORBOX")||($E($P($G(^KPR(PRNr,0)),"\"),1,4)="ZW7H")) ; Korttekst begint met
+	;quit:$D(^KPRO(PRNr)) ($D(^KPRO(PRNr,"J6332")))&&(($E($P($G(^KPRO(PRNr,0)),"\"),1,11)="SET#TAORBOX")||($E($P($G(^KPRO(PRNr,0)),"\"),1,4)="ZW7H"))
+	quit:$D(^KPR(PRNr)) ($D(^KPR(PRNr,"J6332")))&&(($E($P($G(^KPR(PRNr,0)),"\"),1,11)="SET#TAORBOX")||($E($P($G(^KPR(PRNr,0)),"\"),1,7)="SET#TAX")) ; Korttekst begint met
+	quit:$D(^KPRO(PRNr)) ($D(^KPRO(PRNr,"J6332")))&&(($E($P($G(^KPRO(PRNr,0)),"\"),1,11)="SET#TAORBOX")||($E($P($G(^KPRO(PRNr,0)),"\"),1,7)="SET#TAX"))
 	Quit 0
 ]]></Implementation>
 </Method>