Index: vhDeploy/Deploy20150922xUpdateVertalingenBiColour.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20150922xUpdateVertalingenBiColour.cls.xml	(revision 0)
+++ vhDeploy/Deploy20150922xUpdateVertalingenBiColour.cls.xml	(revision 30746)
@@ -0,0 +1,180 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20150922xUpdateVertalingenBiColour">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>update vertalingen langtekst Losse Componenten</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	do ..VerwijderRug()
+	do ..VerwijderLadezijkant()
+	
+	do ..MaakRug()
+	do ..MaakKantenband()
+	do ..MaakBinnen()
+	do ..MaakBuiten()
+	do ..MaakLadezijkant()
+	
+	//do ..MaakBodem()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderRug">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[	do ..VerwijderVertaling("Rug")
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLadezijkant">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[	do ..VerwijderVertaling("LadeZijkant")
+]]></Implementation>
+</Method>
+
+<Method name="MaakRug">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim N As TECH.String = "Rug"
+	#dim F As TECH.String = "Dos"
+	#dim D As TECH.String = "Rückwand"
+	#dim E As TECH.String = "Back"
+	
+	do ..MaakVertaling("Rug", N, F, D, E)
+	
+	#dim n As TECH.String = "rug"
+	#dim f As TECH.String = "dos"
+	#dim d As TECH.String = "Rückwand"
+	#dim e As TECH.String = "back"
+
+	do ..MaakVertaling("rug", n, f, d, e)
+]]></Implementation>
+</Method>
+
+<Method name="MaakKantenband">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim N As TECH.String = "Kantenband"
+	#dim F As TECH.String = "Chant à coller"
+	#dim D As TECH.String = "Kantenband"
+	#dim E As TECH.String = "Edge-band"
+	
+	do ..MaakVertaling("Kantenband", N, F, D, E)
+	
+	#dim n As TECH.String = "kantenband"
+	#dim f As TECH.String = "chant à coller"
+	#dim d As TECH.String = "Kantenband"
+	#dim e As TECH.String = "edge-band"
+
+	do ..MaakVertaling("kantenband", n, f, d, e)
+]]></Implementation>
+</Method>
+
+<Method name="MaakBinnen">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim N As TECH.String = "binnen"
+	#dim F As TECH.String = "intérieur"
+	#dim D As TECH.String = "innerhalb"
+	#dim E As TECH.String = "interior"
+	
+	do ..MaakVertaling("binnen", N, F, D, E)
+]]></Implementation>
+</Method>
+
+<Method name="MaakBuiten">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim N As TECH.String = "buiten"
+	#dim F As TECH.String = "extérieur"
+	#dim D As TECH.String = "außerhalb"
+	#dim E As TECH.String = "exterior"
+	
+	do ..MaakVertaling("buiten", N, F, D, E)
+]]></Implementation>
+</Method>
+
+<Method name="MaakLadezijkant">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim N As TECH.String = "Ladezijkant"
+	#dim F As TECH.String = "Côté de tiroir"
+	#dim D As TECH.String = "Zarge"
+	#dim E As TECH.String = "Drawer side"
+	
+	do ..MaakVertaling("Ladezijkant", N, F, D, E)	
+	
+	#dim n As TECH.String = "ladezijkant"
+	#dim f As TECH.String = "côté de tiroir"
+	#dim d As TECH.String = "Zarge"
+	#dim e As TECH.String = "drawer side"
+	
+	do ..MaakVertaling("ladezijkant", n, f, d, e)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*ClassMethod MaakBodem() [ Private ]
+{
+	#dim N As TECH.String = "Bodem"
+	#dim F As TECH.String = "Fond"
+	#dim D As TECH.String = "Boden"
+	#dim E As TECH.String = "Base"
+	
+	do ..MaakVertaling("Bodem", N, F, D, E)	
+	
+	#dim n As TECH.String = "bodem"
+	#dim f As TECH.String = "fond"
+	#dim d As TECH.String = "Boden"
+	#dim e As TECH.String = "base"
+	
+	do ..MaakVertaling("bodem", n, f, d, e)
+}*/
+]]></Content>
+</UDLText>
+
+<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>
+
+<Method name="VerwijderVertaling">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Sleutel: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).Remove(VertaalGroep, Sleutel, TextType, ##class(DOM.enu.Taal).Nederlands())
+	do ##class(Res.Vertaling).Remove(VertaalGroep, Sleutel, TextType, ##class(DOM.enu.Taal).Frans())
+	do ##class(Res.Vertaling).Remove(VertaalGroep, Sleutel, TextType, ##class(DOM.enu.Taal).Duits())
+	do ##class(Res.Vertaling).Remove(VertaalGroep, Sleutel, TextType, ##class(DOM.enu.Taal).Engels())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>