Index: vhDeploy/Deploy20150922xVertalingKlantEtiketten.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20150922xVertalingKlantEtiketten.cls.xml	(revision 0)
+++ vhDeploy/Deploy20150922xVertalingKlantEtiketten.cls.xml	(revision 30756)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20150922xVertalingKlantEtiketten">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken vertalingen TAOR Klantetiketten</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", "Dossier",, ##class(DOM.enu.Taal).Nederlands(), "Dossier")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", "Dossier",, ##class(DOM.enu.Taal).Frans(), "Dossier")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", "Dossier",, ##class(DOM.enu.Taal).Duits(), "Dossier")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", "Dossier",, ##class(DOM.enu.Taal).Engels(), "Dossier")
+	
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", "Order",, ##class(DOM.enu.Taal).Nederlands(), "Order")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", "Order",, ##class(DOM.enu.Taal).Frans(), "Ordre")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", "Order",, ##class(DOM.enu.Taal).Duits(), "Auftrag")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", "Order",, ##class(DOM.enu.Taal).Engels(), "Order")
+	
+	Set ^RES("HAD","PI","LBL","D","WANDDIKTE","E") = "CT"
+]]></Implementation>
+</Method>
+
+<Method name="MaakLosseComponenten">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim Sleutel As TECH.String = "GENTYP:TAO\LOS"
+	
+	#Dim N As TECH.String = "TA'OR BOX losse componenten"
+	#Dim F As TECH.String = "TA'OR BOX composants individuels"
+	#Dim D As TECH.String = "TA'OR BOX Einzelkomponenten"
+	#Dim E As TECH.String = "TA'OR BOX individual components"
+	
+	Do ..MaakVertaling(Sleutel, "K", N, F, D, E)
+	Do ..MaakVertaling(Sleutel, "L", N, F, D, E)
+]]></Implementation>
+</Method>
+
+<Method name="MaakVertaling">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Sleutel:TECH.String,TextType:TECH.String,N:TECH.String,F:TECH.String,D:TECH.String,E:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim VertaalGroep As TECH.String = "DOC"
+	
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", Sleutel,, ##class(DOM.enu.Taal).Nederlands(), N)
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", Sleutel,, ##class(DOM.enu.Taal).Frans(), F)
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", Sleutel,, ##class(DOM.enu.Taal).Duits(), D)
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT", Sleutel,, ##class(DOM.enu.Taal).Engels(), E)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>