Index: AX/Uitgaand/EC/Prijzen/impl/GenerateCodexPrijzen.cls.xml
===================================================================
diff -u -r40518 -r40559
--- AX/Uitgaand/EC/Prijzen/impl/GenerateCodexPrijzen.cls.xml	(.../GenerateCodexPrijzen.cls.xml)	(revision 40518)
+++ AX/Uitgaand/EC/Prijzen/impl/GenerateCodexPrijzen.cls.xml	(.../GenerateCodexPrijzen.cls.xml)	(revision 40559)
@@ -109,7 +109,7 @@
 <FormalSpec>Codex:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim PrijsGroep as %String
-	For PrijsGroep="Industrie","KS","Handel"
+	For PrijsGroep="Industrie","Handel"
 		{
 			Do ..GeneratePerBusinessType(Codex,PrijsGroep)	
 		}
Index: AX/Uitgaand/EC/Klanten/impl/GenerateKlanten.cls.xml
===================================================================
diff -u -r38084 -r40559
--- AX/Uitgaand/EC/Klanten/impl/GenerateKlanten.cls.xml	(.../GenerateKlanten.cls.xml)	(revision 38084)
+++ AX/Uitgaand/EC/Klanten/impl/GenerateKlanten.cls.xml	(.../GenerateKlanten.cls.xml)	(revision 40559)
@@ -67,16 +67,15 @@
 <Method name="Generate">
 <FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
 <Implementation><![CDATA[
-	
-	Quit:Partij.GeefActiefStatus()'=##class(DOM.CRM.enu.ActiefStatus).Actief()
+		
 	#dim KLNr as %String=Partij.GeefCode()
+	Quit:Partij.GeefActiefStatus()'=##class(DOM.CRM.enu.ActiefStatus).Actief()
 	Quit:'..ExportDefaults.AllowKlant(KLNr)
-
 	Set PrijzenKlant = ##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%New()
 	Do PrijzenKlant.KlantSetObjectId(KLNr)
 	Set PrijzenKlant.KATPrijsGroep=..GeefKATPrijsGroep(PrijzenKlant.Klant)
-	
 	Quit:PrijzenKlant.KATPrijsGroep?1(1"0",1"Niet actief")
+	
 	;Set PrijzenKlant.CodexPerGroep=##class(%ArrayOfDataTypes).%New()
 	Do ..AddCodexGroep(KLNr,PrijzenKlant.CodexPerGroep, ##class(BL.Legacy.enu.CodexType).Standaard())
 	Do ..AddCodexGroep(KLNr,PrijzenKlant.CodexPerGroep, ##class(BL.Legacy.enu.CodexType).Orgalux())
@@ -115,8 +114,11 @@
 	/* code herschrijven moet dezelfde zijn als in KPRIJS : KLTyp */
 	#dim PrijsGroep as %String=Klant.Divisie
 	Set:$$IsHandel^KLANT5(Klant.%Id()) PrijsGroep="Handel"
-	Set:PrijsGroep="Architect" PrijsGroep="KS"
-	Set:PrijsGroep="Consument" PrijsGroep="KS"
+	Set:PrijsGroep="Architect" PrijsGroep="Industrie"
+	Set:PrijsGroep="Consument" PrijsGroep="Industrie"
+	Set:PrijsGroep="0" PrijsGroep="Industrie"
+	Set:PrijsGroep="KS" PrijsGroep="Industrie"
+	; Er zijn 2 KATPrijsgroepen Handel en Industrie
 	Quit PrijsGroep
 ]]></Implementation>
 </Method>