Index: APPS/VKP/impl/RegioInstellingImporteur.cls.xml
===================================================================
diff -u -r33585 -r40307
--- APPS/VKP/impl/RegioInstellingImporteur.cls.xml	(.../RegioInstellingImporteur.cls.xml)	(revision 33585)
+++ APPS/VKP/impl/RegioInstellingImporteur.cls.xml	(.../RegioInstellingImporteur.cls.xml)	(revision 40307)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.impl.RegioInstellingImporteur">
 <Description>
-Do ##class(APPS.VKP.impl.RegioInstellingImporteur).%New().ImporteerRegioInstellingen("F:\regio.csv",1)</Description>
+Do ##class(APPS.VKP.impl.RegioInstellingImporteur).%New().ImporteerRegioInstellingen("E:\regio.csv",1)</Description>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <Super>%RegisteredObject</Super>
 
@@ -33,9 +33,6 @@
 TEKORTKOMINGEN: Vertalingen van de nieuwe regio's (^RES("KLANT","PI","VERZENDWIJZE","D",) worden niet automatisch gemaakt.</Description>
 <FormalSpec>Path:%String,InclusiefKlantAanpassingen:%Boolean</FormalSpec>
 <Implementation><![CDATA[
-	Write "Van nieuwe regio's worden nog geen vertalingen bewaard voor hun verzendwijzen. Gelieve dat eerst te corrigeren, met terugwerkende kracht.", !
-	Quit
-	
 	Do ..InitialiseerReader(Path)
 	Do ..Verwerk(InclusiefKlantAanpassingen)
 ]]></Implementation>
@@ -49,6 +46,7 @@
  	Do ..Reader.SetDelimiter(";")
  	Do ..Reader.SetHeaderRow(1)
  	Do ..Reader.SetFirstDataRow(2)
+ 	Do ..Reader.AddHeaderTranslation("RN","RegioId","N")
  	Do ..Reader.AddHeaderTranslation("Nieuwe regio","NieuweRegio","N")
  	Do ..Reader.AddHeaderTranslation("Oude regio","OudeRegio","N")
  	Do ..Reader.AddHeaderTranslation("Omschrijving","Omschrijving","N")
@@ -63,6 +61,46 @@
 
 <Method name="Verwerk">
 <FormalSpec>InclusiefAndereDataAanpassing:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	While ..Reader.Next() {
+	 	#dim RegioId As %String = ..GeefData("RegioId") 
+	 	continue:RegioId=""
+	 	continue:$$$StartsWith(RegioId,"R9")
+	 	#dim Regio As DOM.VKP.Regio = ##class(DOM.VKP.impl.Regio).%OpenId($piece(RegioId,"R",2))
+	 	
+	 	continue:Regio=""
+	 	
+	 	W !,RegioId_" : "
+	 		 	
+		If ##class(TECH.StringUtils).ToUpper(..GeefData("InitialenExterneVerantwoordelijke")) '= "GEEN" {
+			#dim Externe As %String = $$USERID^vhUSER(..GeefData("InitialenExterneVerantwoordelijke"))
+			Do ..ControleerGebruiker(Externe,..GeefData("InitialenExterneVerantwoordelijke"),"Externe Verantwoordelijke")
+			#dim NieuweExterneVerantwoordelijke = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker(Externe)
+			#dim ExterneVerantwoordelijke = Regio.GeefExterneVerantwoordelijke()
+			W $$$If($IsObject(ExterneVerantwoordelijke)," "_ExterneVerantwoordelijke.GeefNaam()," ")_" --> "_NieuweExterneVerantwoordelijke.GeefNaam()
+			
+			Do Regio.ZetExterneVerantwoordelijke(NieuweExterneVerantwoordelijke)
+		}
+		
+		If ##class(TECH.StringUtils).ToUpper(..GeefData("InitialenInterneVerantwoordelijke")) '= "GEEN" {
+			#dim Interne As %String = $$USERID^vhUSER(..GeefData("InitialenInterneVerantwoordelijke"))
+			Do ..ControleerGebruiker(Interne,..GeefData("InitialenInterneVerantwoordelijke"),"Interne Verantwoordelijke")
+			#dim NieuweInterneVerantwoordelijke = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker(Interne)
+			#dim InterneVerantwoordelijke = Regio.GeefInterneVerantwoordelijke()
+			W $$$If($IsObject(InterneVerantwoordelijke)," "_InterneVerantwoordelijke.GeefNaam()," ")_" --> "_NieuweInterneVerantwoordelijke.GeefNaam()
+			
+			Do Regio.ZetInterneVerantwoordelijke(NieuweInterneVerantwoordelijke)
+			
+		}	 
+		
+		Do:InclusiefAndereDataAanpassing Regio.Save()	
+	 	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OudeVerwerk">
+<FormalSpec>InclusiefAndereDataAanpassing:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set RegioService = ##class(APPS.VKP.impl.RegioService).%New()