Index: vhDeploy/D20181008xInsertVertalingMeenemerset.cls.xml
===================================================================
diff -u
--- vhDeploy/D20181008xInsertVertalingMeenemerset.cls.xml	(revision 0)
+++ vhDeploy/D20181008xInsertVertalingMeenemerset.cls.xml	(revision 53351)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20181008xInsertVertalingMeenemerset">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Insert van vertalingen voor Meenemerset</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim N As TECH.String = "meenemerset"
+	#dim F As TECH.String = "set entraîneur"
+	#dim D As TECH.String = "Mitnehmer-Set"
+	#dim E As TECH.String = "latch set"
+	
+	Do ..MaakVertaling("MeenemerSet", N, F, D, E)
+]]></Implementation>
+</Method>
+
+<Method name="MaakVertaling">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Sleutel:TECH.String,N:TECH.String,F:TECH.String,D:TECH.String,E:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VertaalGroep As DOM.common.Transl.enu.VertaalGroep = ##class(DOM.common.Transl.enu.VertaalGroep).TechnischeTermen()
+	#dim TextType As TECH.String = "L"
+	
+	Do ##class(Res.Vertaling).CreateOrUpdate(VertaalGroep, Sleutel, TextType, ##class(DOM.enu.Taal).Nederlands(), N)
+	Do ##class(Res.Vertaling).CreateOrUpdate(VertaalGroep, Sleutel, TextType, ##class(DOM.enu.Taal).Frans(), F)
+	Do ##class(Res.Vertaling).CreateOrUpdate(VertaalGroep, Sleutel, TextType, ##class(DOM.enu.Taal).Duits(), D)
+	Do ##class(Res.Vertaling).CreateOrUpdate(VertaalGroep, Sleutel, TextType, ##class(DOM.enu.Taal).Engels(), E)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>