Index: APPS/VKP/impl/RegioServiceBevolker.cls.xml
===================================================================
diff -u
--- APPS/VKP/impl/RegioServiceBevolker.cls.xml	(revision 0)
+++ APPS/VKP/impl/RegioServiceBevolker.cls.xml	(revision 29209)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.impl.RegioServiceBevolker">
+<Super>%RegisteredObject</Super>
+
+<Property name="BronRegioCodes">
+<Type>%ListOfDataTypes</Type>
+</Property>
+
+<Property name="EersteKaraktersVanPostcodes">
+<Type>%ListOfDataTypes</Type>
+</Property>
+
+<Property name="DoelRegioCode">
+<Type>%String</Type>
+</Property>
+
+<Method name="VanRegioCodes">
+<FormalSpec>BronRegioCodes...:%String</FormalSpec>
+<Implementation><![CDATA[
+		Set ..BronRegioCodes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes(.BronRegioCodes)
+		Quit ##This
+]]></Implementation>
+</Method>
+
+<Method name="MetPostCodePrefixen">
+<FormalSpec>EersteKaraktersVanPostcodes...:%String</FormalSpec>
+<Implementation><![CDATA[
+		Set ..EersteKaraktersVanPostcodes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes(.EersteKaraktersVanPostcodes)
+		Quit ##This
+]]></Implementation>
+</Method>
+
+<Method name="NaarRegioCode">
+<FormalSpec>DoelRegioCode:%String</FormalSpec>
+<Implementation><![CDATA[
+		Set ..DoelRegioCode = DoelRegioCode
+		Quit ##This
+]]></Implementation>
+</Method>
+
+<Method name="Bevolk">
+<Implementation><![CDATA[
+		Do ##class(APPS.VKP.RegioBeheerService).%New().BevolkCrmRegio( ..BronRegioCodes, ..EersteKaraktersVanPostcodes, ..DoelRegioCode )
+		Quit ##This
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/PRA/Deploy20150701xRegioWijzigingenVlaanderen.cls.xml
===================================================================
diff -u
--- vhDeploy/PRA/Deploy20150701xRegioWijzigingenVlaanderen.cls.xml	(revision 0)
+++ vhDeploy/PRA/Deploy20150701xRegioWijzigingenVlaanderen.cls.xml	(revision 29209)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.PRA.Deploy20150701xRegioWijzigingenVlaanderen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Regio wijzigingen op 1 juli 2015.</Default>
+</Parameter>
+
+<Property name="Service">
+<Type>APPS.VKP.RegioBeheerService</Type>
+</Property>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+	Try {
+		
+		Do ##class(APPS.VKP.impl.RegioServiceBevolker).%New().VanRegioCodes(33).MetPostCodePrefixen(98, 99).NaarRegioCode(30).Bevolk()
+		Do ##class(APPS.VKP.impl.RegioServiceBevolker).%New().VanRegioCodes(32).MetPostCodePrefixen(91, 92, 93, 94).NaarRegioCode(33).Bevolk()
+		
+		// Ook de uitzonderingen van regio 32 (Nederlanders, ...) verhuizen naar regio 33.
+		Do ##class(APPS.VKP.impl.RegioServiceBevolker).%New().VanRegioCodes(32).MetPostCodePrefixen("").NaarRegioCode(33).Bevolk()
+		
+	}Catch Exception{
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		w "Regio wijzigingen niet gelukt omwille van : ",Exceptie.GeefOmschrijving(),!
+		w "Wijzigingen worden teruggedraaid.",!,Exceptie.ToString()
+		Do OperatieScope.Gefaald()
+	}
+	Do OperatieScope.Gelukt()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>