Index: APPS/VKP/impl/RegioService.cls.xml
===================================================================
diff -u -r29059 -r51714
--- APPS/VKP/impl/RegioService.cls.xml	(.../RegioService.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/RegioService.cls.xml	(.../RegioService.cls.xml)	(revision 51714)
@@ -27,6 +27,26 @@
 	Do Regio.Save()
 ]]></Implementation>
 </Method>
+
+<Method name="MaakNieuweRegio">
+<FormalSpec>NieuweRegioID:%String,GedragVanRegioID:%String</FormalSpec>
+<Implementation><![CDATA[
+  	Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New("KLANT","REGIO")
+  	#dim GedragVanRegio As DOM.VKP.Regio = ##class(DOM.VKP.impl.Regio).Open(GedragVanRegioID)
+  	#dim NieuweRegio As DOM.VKP.Regio = PiItemService.CloneItemNaarNieuweID(GedragVanRegio,NieuweRegioID)
+  
+  	If NieuweRegio.GeefKlantenPool() = "" {
+		Do NieuweRegio.ZetKlantenPool(##class(DOM.VKP.enu.KlantenPool).Onbepaald())	
+	}
+	If NieuweRegio.GeefSubDivisie() = "" {
+		Do NieuweRegio.ZetSubDivisie(##class(DOM.VKP.enu.Divisie).Onbepaald())	
+	}
+	
+	Do PiItemService.VoegToeViaItem(NieuweRegio)
+	
+	Do PiItemService.SorteerAlfabetisch()
+]]></Implementation>
+</Method>
 </Class>