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>
 
 
Index: vhUnitTest/APPS/VKP/impl/Regio/TestWijzigRegio.cls.xml
===================================================================
diff -u -r40142 -r51714
--- vhUnitTest/APPS/VKP/impl/Regio/TestWijzigRegio.cls.xml	(.../TestWijzigRegio.cls.xml)	(revision 40142)
+++ vhUnitTest/APPS/VKP/impl/Regio/TestWijzigRegio.cls.xml	(.../TestWijzigRegio.cls.xml)	(revision 51714)
@@ -10,6 +10,11 @@
 <Default>regio_ut1</Default>
 </Parameter>
 
+<Parameter name="NieuweRegio">
+<Type>%String</Type>
+<Default>regio_ut2</Default>
+</Parameter>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
@@ -63,12 +68,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestMaakNieuweRegio">
+<Implementation><![CDATA[
+	Set RegioService = ##class(APPS.VKP.impl.RegioService).%New()
+	
+	Do RegioService.MaakNieuweRegio(..#NieuweRegio, ..#Regio)
+	
+	#Dim NieuweRegio As DOM.VKP.impl.Regio = ##class(DOM.VKP.impl.Regio).Open(..#NieuweRegio)
+	Do $$$AssertTrue($IsObject(NieuweRegio))
+	
+	#dim OudeRegio As DOM.VKP.Regio = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefRegio(..#Regio)
+	Do $$$AssertEquals(NieuweRegio.GeefExterneVerantwoordelijke().GeefCode(), OudeRegio.GeefExterneVerantwoordelijke().GeefCode())
+	Do $$$AssertEquals(NieuweRegio.GeefInterneVerantwoordelijke().GeefCode(), OudeRegio.GeefExterneVerantwoordelijke().GeefCode())
+	Do $$$AssertEquals(NieuweRegio.GeefBoekhoudingVerantwoordelijke(), OudeRegio.GeefBoekhoudingVerantwoordelijke())
+	Do $$$AssertEquals(NieuweRegio.GeefDivisie(), OudeRegio.GeefDivisie())
+	Do $$$AssertEquals(NieuweRegio.GeefKlantenPool(), OudeRegio.GeefKlantenPool())
+	Do $$$AssertEquals(NieuweRegio.GeefLand(), OudeRegio.GeefLand())
+	Do $$$AssertEquals(NieuweRegio.GeefOmschrijving(), OudeRegio.GeefOmschrijving())
+	Do $$$AssertEquals(NieuweRegio.GeefOmzetGroepering(), OudeRegio.GeefOmzetGroepering())
+	Do $$$AssertEquals(NieuweRegio.GeefSubDivisie(), OudeRegio.GeefSubDivisie())
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderTestData">
 <Private>1</Private>
 <Implementation><![CDATA[
 	if ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().BestaatRegio(..#Regio) {
 		Do ##class(vhUnitTest.APPS.VKP.impl.Regio.RegioData).VerwijderRegio(..#Regio)	
 	}
+	
+	if ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().BestaatRegio(..#NieuweRegio) {
+		Do ##class(vhUnitTest.APPS.VKP.impl.Regio.RegioData).VerwijderRegio(..#NieuweRegio)	
+	}
 ]]></Implementation>
 </Method>