Index: AX/Uitgaand/PM/VerkoopPrijzen/impl/KATPrijzenExport.cls.xml
===================================================================
diff -u -r46277 -r46488
--- AX/Uitgaand/PM/VerkoopPrijzen/impl/KATPrijzenExport.cls.xml	(.../KATPrijzenExport.cls.xml)	(revision 46277)
+++ AX/Uitgaand/PM/VerkoopPrijzen/impl/KATPrijzenExport.cls.xml	(.../KATPrijzenExport.cls.xml)	(revision 46488)
@@ -13,7 +13,7 @@
 	Set PRNr=$O(^KPR(0))
 	While PRNr
 	{
-		If $L($TR($$$PRGet($$$KATPrijsHandel)," "))||$L($TR($$$PRGet($$$KATPrijsIndustrie)," "))
+		If $L($TR($$$PRGet($$$KATPrijsHandel)," "))||$L($TR($$$PRGet($$$KATPrijsIndustrie)," "))&&($$$PRGet($$$NONAktief)'=1)
 		{
 			Set IsK43=$$$PRGet($$$KortTekst)["K43"
 			Set KATGroepen($$$PRGet($$$SubGroep),IsK43)=""
@@ -23,7 +23,7 @@
 
 	Set Dev=$$OPEN^vhDEV(,"KATProducten.txt","W")
 	Use Dev
-	WRite "PRNr	KortTekst	SubGroep	K43	KatInd	KatHandel",!
+	WRite "PRNr	KortTekst	SubGroep	K43	Kat	KatInd	KatHandel",!
 	Set PRNr=$O(^KPR(0))
 	While PRNr
 	{
@@ -32,7 +32,7 @@
 		{
 			If $D(KATGroepen($$$PRGet($$$SubGroep),IsK43))&&($E($$$PRGet($$$IdentNummer))'=6)
 			{
-				Write PRNr,*9,$$$PRGet($$$KortTekst),*9,$$$PRGet($$$SubGroep),*9,$S(IsK43:"K43",1:""),*9,$TR($$$PRGet($$$KATPrijsIndustrie)," "),*9,$TR($$$PRGet($$$KATPrijsHandel)," "),!
+				Write PRNr,*9,$$$PRGet($$$KortTekst),*9,$$$PRGet($$$SubGroep),*9,$S(IsK43:"K43",1:""),*9,$TR($$$PRGet($$$KATPrijsIndustrie)," "),"-",$TR($$$PRGet($$$KATPrijsHandel)," "),*9,$TR($$$PRGet($$$KATPrijsIndustrie)," "),*9,$TR($$$PRGet($$$KATPrijsHandel)," "),!
 			}
 		}
 		Set PRNr=$O(^KPR(PRNr))