Index: vhDeploy/D20190722xRegio52Omschrijving.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190722xRegio52Omschrijving.cls.xml	(revision 0)
+++ vhDeploy/D20190722xRegio52Omschrijving.cls.xml	(revision 57398)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190722xRegio52Omschrijving">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>R52 ARCH - NL Nederland-MHO wijzigen in R52 ARCH - NL West-MHO</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Regio As DOM.VKP.impl.Regio = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefRegio(52)
+	Do Regio.ZetOmschrijving("ARCH - NL West-MHO")
+	Do Regio.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/D20190723xNieuweRegio53.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190723xNieuweRegio53.cls.xml	(revision 0)
+++ vhDeploy/D20190723xNieuweRegio53.cls.xml	(revision 57398)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190723xNieuweRegio53">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe regio 53, bediend door SWI.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set RegioService = ##class(APPS.VKP.impl.RegioService).%New()
+	
+	Do RegioService.MaakNieuweRegio("53", "52")
+	
+	Set RegioDto = ##class(APPS.VKP.dto.Regio).%New()
+	Set RegioDto.OudeRegioID = "52"
+	Set RegioDto.NieuweRegioID = "53"
+	Set RegioDto.Omschrijving = "ARCH - NL Oost-SWI"
+	Set RegioDto.KlantenPool = ##class(DOM.VKP.enu.KlantenPool).Architect()
+	Set RegioDto.Divisie = ##class(DOM.VKP.enu.Divisie).Architect()
+	Set RegioDto.SubDivisie = ##class(DOM.VKP.enu.SubDivisie).ArchitectNL()
+	Set RegioDto.Land = ##class(DOM.DomeinContext).Instance().GeefLocatieAPI().GeefLand(##class(DOM.common.enu.Land).Nederland())
+	Set RegioDto.ExterneVerantwoordelijke = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker($$USERID^vhUSER("SWI"))
+	Set RegioDto.InterneVerantwoordelijke = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker($$USERID^vhUSER("AB"))
+	Do RegioService.WijzigRegio(RegioDto)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>