Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Standaard/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Standaard/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Standaard/Test.cls.xml	(revision 30176)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.TAORLangtekstCreator.GeefLangtekst.Standaard.Test">
+<Super>vhUnitTest.DOM.PM.impl.TAORLangtekstCreator.GeefLangtekst.TestBase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml	(revision 30176)
@@ -0,0 +1,122 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.TAORLangtekstCreator.GeefLangtekst.LosseComponent.Test">
+<Super>vhUnitTest.DOM.PM.impl.TAORLangtekstCreator.GeefLangtekst.TestBase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..Enum.VerpakkingType.LosseComponentenInBulk)
+]]></Implementation>
+</Method>
+
+<Method name="Test: hoofding losse component rug">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
+	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.C
+	set ..TAORKenmerken.CorpusBinnenbreedte = 564
+	
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX rug Hoogte C, binnenmaat kast 564mm, lengte rug=533mm")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hoofding losse component bodem">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
+	set ..TAORKenmerken.CorpusBinnenbreedte = 564
+	set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500
+	set ..TAORKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX bodem, binnenmaat kast 564mm, NL 500mm, lengte bodem=533mm, voor drevelkoppeling")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hoofding losse component front">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front
+	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.C
+	set ..TAORKenmerken.CorpusBinnenbreedte = 564
+	set ..TAORKenmerken.IsBinnenlade = $$$True
+	set ..TAORKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
+	
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX front binnenlade, Hoogte C, binnenmaat kast 564mm, lengte front binnenlade=554mm, eindkap Aluminium look")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hoofding losse component zijkant links">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
+	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.M
+	set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte270
+	
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX zijkant Hoogte M, links, 270mm")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hoofding losse component zijkant rechts">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantRechts
+	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.C
+	set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte270
+	
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX zijkant Hoogte C, rechts, 270mm")
+]]></Implementation>
+</Method>
+
+<Method name="Test: kleur losse component rug">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
+	set ..TAORKenmerken.LadeKleur = ..Enum.LadeKleur.NebraskaEikenhout
+	set ..TAORKenmerken.BodemKleur = ..Enum.LadeKleur.NatuurEikenhout
+	
+	do $$$AssertEquals(..GeefDetail(), "Kleur: Décor Nebraska eik")
+]]></Implementation>
+</Method>
+
+<Method name="Test: kleur losse component bodem">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
+	set ..TAORKenmerken.LadeKleur = ..Enum.LadeKleur.NebraskaEikenhout
+	set ..TAORKenmerken.BodemKleur = ..Enum.LadeKleur.NatuurEikenhout
+	
+	do $$$AssertEquals(..GeefDetail(), "Kleur: Natuur eikenhout")
+]]></Implementation>
+</Method>
+
+<Method name="Test: kleur losse component front">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front
+	set ..TAORKenmerken.LadeKleur = ..Enum.LadeKleur.NebraskaEikenhout
+	set ..TAORKenmerken.BodemKleur = ..Enum.LadeKleur.NatuurEikenhout
+	set ..TAORKenmerken.IsBinnenlade = $$$True
+	set ..TAORKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
+	
+	do $$$AssertEquals(..GeefDetail(), "Kleur: Décor Nebraska eik")
+]]></Implementation>
+</Method>
+
+<Method name="Test: kleur losse component zijkant links">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
+	set ..TAORKenmerken.LadeKleur = ..Enum.LadeKleur.NebraskaEikenhout
+	set ..TAORKenmerken.BodemKleur = ..Enum.LadeKleur.NatuurEikenhout
+	
+	do $$$AssertEquals(..GeefDetail(), "Kleur: Décor Nebraska eik")
+]]></Implementation>
+</Method>
+
+<Method name="Test: kleur losse component zijkant rechts">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantRechts
+	set ..TAORKenmerken.LadeKleur = ..Enum.LadeKleur.NebraskaEikenhout
+	set ..TAORKenmerken.BodemKleur = ..Enum.LadeKleur.NatuurEikenhout
+	
+	do $$$AssertEquals(..GeefDetail(), "Kleur: Décor Nebraska eik")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBase.cls.xml	(revision 30176)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.TAORLangtekstCreator.GeefLangtekst.TestBase">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="LangtekstCreator">
+<Type>DOM.PM.impl.TAORLangtekstCreator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..LangtekstCreator = ##class(DOM.PM.impl.TAORLangtekstCreator).%New()
+	set ..Taal = ##class(DOM.enu.Taal).Nederlands()
+]]></Implementation>
+</Method>
+
+<Method name="Test: hoofding start met &apos;TA&apos;OR BOX &apos;">
+<Implementation><![CDATA[	do $$$AssertEquals($Extract(..GeefHoofding(), 1, 10), "TA'OR BOX ")
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoofding">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(..TAORKenmerken)
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..LangtekstCreator.GeefLangtekst(..TAORKenmerken, HalffabItemsBoom, ..Taal)
+	
+	quit Langtekst.GeefHoofding()
+]]></Implementation>
+</Method>
+
+<Method name="GeefDetail">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(..TAORKenmerken)
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..LangtekstCreator.GeefLangtekst(..TAORKenmerken, HalffabItemsBoom, ..Taal)
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Langtekst.GeefDetail())
+	#dim Detail As TECH.String = ""
+
+	while (Iterator.HasNext()) {
+		set Detail = Detail _ Iterator.Next()
+	}
+	
+	quit Detail
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/Deploy20150825xVertalingFrontEindkapKleur.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20150825xVertalingFrontEindkapKleur.cls.xml	(revision 0)
+++ vhDeploy/Deploy20150825xVertalingFrontEindkapKleur.cls.xml	(revision 30176)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20150825xVertalingFrontEindkapKleur">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Maak vertaling FrontEindkapKleur</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	// zit in ^KCOL dus niet meer nodig
+	//do ..MaakVertalingFrontEindkapKleurAL()
+	//do ..MaakVertalingFrontEindkapKleurZAL()
+]]></Implementation>
+</Method>
+
+<Method name="MaakVertalingFrontEindkapKleurAL">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim N As TECH.String = "NL"
+	#dim F As TECH.String = "NL"
+	#dim D As TECH.String = "NL"
+	#dim E As TECH.String = "NL"
+	
+	do ..MaakVertaling("AluminiumLook", N, F, D, E)
+]]></Implementation>
+</Method>
+
+<Method name="MaakVertalingFrontEindkapKleurZAL">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim N As TECH.String = "NL"
+	#dim F As TECH.String = "NL"
+	#dim D As TECH.String = "NL"
+	#dim E As TECH.String = "NL"
+	
+	do ..MaakVertaling("ZwartAluminiumLook", 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).KleurCodes()
+	#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>