Index: vhDeploy/CSC/Deploy20111027x1612.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111027x1612.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111027x1612.cls.xml	(revision 2530)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111027x1612">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Klantniveau toevoegen op klantregio's</Default>
+</Parameter>
+
+<Parameter name="DoetDataWijzigingen">
+<Type>%Boolean</Type>
+<Default>1</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set $Piece(^RES("KLANT","PI","REGIO","D",0),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).NietActief()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",1),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Industrie()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",2),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Industrie()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",3),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Industrie()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",4),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Industrie()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",5),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Industrie()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",6),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Industrie()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",8),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Handel()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",9),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Handel()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",10),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",11),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",12),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",14),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",15),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",16),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",17),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",18),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",19),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",20),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",21),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",22),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",23),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",24),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",25),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",26),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",27),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",29),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",38),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).KS()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",30),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Architect()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",31),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Architect()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",32),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Architect()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",40),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Consument()
+	Set $Piece(^RES("KLANT","PI","REGIO","D",41),"`",20) = ##class(DOM.CRM.enu.KlantNiveau).Consument()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r2528 -r2530
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 2528)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 2530)
@@ -337,7 +337,9 @@
 
 <Method name="GeefKlantNiveau">
 <ReturnType>DOM.CRM.enu.KlantNiveau</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.CRM.enu.KlantNiveau).KS()
+<Implementation><![CDATA[
+	Set Regio = +$Piece(..AlgemeneGegevens,"\",20)
+	Quit $Piece(^RES("KLANT","PI","REGIO","D",Regio),"`",20)
 ]]></Implementation>
 </Method>