Index: vhDeploy/D20160504xVertalingLanden.cls.xml
===================================================================
diff -u
--- vhDeploy/D20160504xVertalingLanden.cls.xml	(revision 0)
+++ vhDeploy/D20160504xVertalingLanden.cls.xml	(revision 34258)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20160504xVertalingLanden">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Vertaling voor de landen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<Description>
+fix for vhDeploy.D20160418xVertalingLanden</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set VertalingGroep=##class(Res.PI.VertalingsGroep).%New()
+	Set VertalingGroep.ItemID="LAND"
+	Set VertalingGroep.Omschrijving="Landen"
+	Set VertalingGroep.VolgNr=16
+	#dim sc=VertalingGroep.%Save()
+	
+	
+	#dim LC As %String = ""
+	for { set LC = $order(^ISO(0,"ISO.LAND",LC)) quit:LC="" 
+		#dim Iso As %String = $piece(^ISO(0,"ISO.LAND",LC,0),"\",1)
+		#dim NL As %String = $piece(^ISO(0,"ISO.LAND",LC,0),"\",2)
+		#dim FR As %String = $piece(^ISO(0,"ISO.LAND",LC,0),"\",12)
+		#dim DE As %String = $piece(^ISO(0,"ISO.LAND",LC,0),"\",22)
+		#dim EN As %String = $piece(^ISO(0,"ISO.LAND",LC,0),"\",32)
+		
+		Do ##class(Res.Vertaling).CreateOrUpdate("LAND", Iso, "L", "N", NL)
+		Do ##class(Res.Vertaling).CreateOrUpdate("LAND", Iso, "L", "F", FR)
+		Do ##class(Res.Vertaling).CreateOrUpdate("LAND", Iso, "L", "D", DE)
+		Do ##class(Res.Vertaling).CreateOrUpdate("LAND", Iso, "L", "E", EN)
+		
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>