Index: APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml
===================================================================
diff -u -r32129 -r35695
--- APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml	(.../GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml)	(revision 32129)
+++ APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml	(.../GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml)	(revision 35695)
@@ -13,25 +13,31 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FallbackTaal">
+<Type>DOM.enu.Taal</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Vertaler">
-<Type>DOM.common.Transl.Vertaler</Type>
+<Type>APPS.EC.Winkelkar.impl.Vertaler</Type>
 <Private>1</Private>
 </Property>
 
 <Property name="KleurCodeVertaler">
-<Type>DOM.common.Transl.Vertaler</Type>
+<Type>APPS.EC.Winkelkar.impl.Vertaler</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="GeefGroepNaam">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Taal:DOM.enu.Taal</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Taal:DOM.enu.Taal,FallbackTaal:DOM.enu.Taal=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set ..Taal = Taal
-	set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(Taal)
-	set ..KleurCodeVertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(Taal)
+	Set ..Taal = Taal
+	Set ..FallbackTaal = FallbackTaal	
+	Set ..Vertaler = ##class(APPS.EC.Winkelkar.impl.Vertaler).%New(##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(Taal))
+	Set ..KleurCodeVertaler = ##class(APPS.EC.Winkelkar.impl.Vertaler).%New(##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(Taal))
 	
-	do IngegevenKenmerken.Accept(##this)
+	Do IngegevenKenmerken.Accept(##this)
 
 	Quit ..GroepNaam
 ]]></Implementation>
@@ -42,22 +48,23 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#dim Prefix As TECH.String = "TA'OR BOX"
-	#dim Lade As TECH.String = ..Vertaler.GeefVertaling("lade", ..Taal)
-	#dim LadeKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.LadeKleur, ..Taal)
-	#dim Bodem As TECH.String = ..Vertaler.GeefVertaling("Bodem", ..Taal)
-	#dim BodemKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.BodemKleur, ..Taal)
+	#dim Lade As TECH.String = ..Vertaler.GeefVertaling("lade", ..Taal, ..FallbackTaal)
+	#dim LadeKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.LadeKleur, ..Taal, ..FallbackTaal)	
 	
+	#dim Bodem As TECH.String = ..Vertaler.GeefVertaling("Bodem", ..Taal, ..FallbackTaal)
+	#dim BodemKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.BodemKleur, ..Taal, ..FallbackTaal)
+	
 	set ..GroepNaam = Prefix _ " " _ Lade
 	
 	if (TAORKenmerken.LadeKleur = TAORKenmerken.LadeBinnenKleur) {
 		set ..GroepNaam = ..GroepNaam _ " " _ LadeKleur _ ", " _ Bodem _ " " _ BodemKleur
 	} else {
-		#dim LadeZijkant As TECH.String = ..Vertaler.GeefVertaling("ladezijkant", ..Taal, $$$True)
-		#dim Buiten As TECH.String = ..Vertaler.GeefVertaling("buiten", ..Taal, $$$True)
-		#dim Binnen As TECH.String = ..Vertaler.GeefVertaling("binnen", ..Taal, $$$True)
-		#dim LadeBinnenKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.LadeBinnenKleur, ..Taal)
-		#dim Kantenband As TECH.String = ..Vertaler.GeefVertaling("kantenband", ..Taal, $$$True)
-		#dim Rug As TECH.String = ..Vertaler.GeefVertaling("rug", ..Taal, $$$True)
+		#dim LadeZijkant As TECH.String = ..Vertaler.GeefVertaling("ladezijkant", ..Taal, ..FallbackTaal, $$$True)
+		#dim Buiten As TECH.String = ..Vertaler.GeefVertaling("buiten", ..Taal, ..FallbackTaal, $$$True)
+		#dim Binnen As TECH.String = ..Vertaler.GeefVertaling("binnen", ..Taal, ..FallbackTaal, $$$True)
+		#dim LadeBinnenKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.LadeBinnenKleur, ..Taal, ..FallbackTaal)
+		#dim Kantenband As TECH.String = ..Vertaler.GeefVertaling("kantenband", ..Taal, ..FallbackTaal, $$$True)
+		#dim Rug As TECH.String = ..Vertaler.GeefVertaling("rug", ..Taal, ..FallbackTaal, $$$True)
 	
 		set ..GroepNaam = ..GroepNaam _ ", "
 		set ..GroepNaam = ..GroepNaam _ LadeZijkant _ " " _ Buiten _ ": " _ LadeKleur _ ", "
Index: vhUnitTest/APPS/EC/Winkelkar/impl/Vertaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/Vertaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/Vertaler/Test.cls.xml	(revision 35695)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.Vertaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Vertaling voor FallbackTaal wordt opgehaald indien geen vertaling gevonden voor Taal">
+<Implementation><![CDATA[
+	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#dim FallbackTaal As DOM.enu.Taal = ##class(DOM.enu.Taal).Engels()
+	#dim Sleutel As %String = "sleutel"
+	#dim VertalerMock As vhTest.Mock.DOM.common.Transl.Vertaler = ##class(vhTest.Mock.DOM.common.Transl.Vertaler).%New()
+	
+	Do VertalerMock.VerwachtMethodCall("GeefVertaling", Sleutel, Taal, $$$False).DanReturn("")
+	Do VertalerMock.VerwachtMethodCall("GeefVertaling", Sleutel, FallbackTaal, $$$False).DanReturn("EenVertaling")
+	
+	#dim Vertaler As APPS.EC.Winkelkar.impl.Vertaler = ##class(APPS.EC.Winkelkar.impl.Vertaler).%New(VertalerMock)
+	#dim Vertaling As %String = Vertaler.GeefVertaling(Sleutel, Taal, FallbackTaal, $$$False)
+	
+	Do VertalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Vertaling voor FallbackTaal wordt niet opgehaald indien vertaling gevonden voor Taal">
+<Implementation><![CDATA[
+	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#dim FallbackTaal As DOM.enu.Taal = ##class(DOM.enu.Taal).Engels()
+	#dim Sleutel As %String = "sleutel"
+	#dim VertalerMock As vhTest.Mock.DOM.common.Transl.Vertaler = ##class(vhTest.Mock.DOM.common.Transl.Vertaler).%New()
+	
+	Do VertalerMock.VerwachtMethodCall("GeefVertaling", Sleutel, Taal, $$$False).DanReturn("EenVertaling")
+	Do VertalerMock.VerwachtMethodCall("GeefVertaling", Sleutel, FallbackTaal, $$$False).ExactAantalKeer(0)
+	
+	#dim Vertaler As APPS.EC.Winkelkar.impl.Vertaler = ##class(APPS.EC.Winkelkar.impl.Vertaler).%New(VertalerMock)
+	#dim Vertaling As %String = Vertaler.GeefVertaling(Sleutel, Taal, FallbackTaal, $$$False)
+	
+	Do VertalerMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TestBase.cls.xml
===================================================================
diff -u -r32129 -r35695
--- vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 32129)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 35695)
@@ -21,17 +21,16 @@
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	do ##super()
-	set ..GroepNaamBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New()
+	Do ##super()
+
+	Set ..GroepNaamBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="AssertGroepNaam">
-<FormalSpec>Taal:DOM.enu.Taal,GroepNaam:TECH.String</FormalSpec>
+<FormalSpec>Taal:DOM.enu.Taal,GroepNaam:TECH.String,FallbackTaal:DOM.enu.Taal=""</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	
-	do $$$AssertEquals(..GroepNaamBepaler.GeefGroepNaam(..Kenmerken, Taal), GroepNaam)
+<Implementation><![CDATA[	Do $$$AssertEquals(..GroepNaamBepaler.GeefGroepNaam(..Kenmerken, Taal, FallbackTaal), GroepNaam)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TAOR/Test.cls.xml
===================================================================
diff -u -r32308 -r35695
--- vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 32308)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 35695)
@@ -8,7 +8,7 @@
 <Private>1</Private>
 </Property>
 
-<Method name="Test:TAORKenmerken">
+<Method name="Test:Groepnaam TAORKenmerken gevonden in standaard taal">
 <Implementation><![CDATA[
 	set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 	
@@ -19,6 +19,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Groepnaam TAORKenmerken in fallback taal">
+<Implementation><![CDATA[
+	Set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	
+	#dim StandaardTaal As %String = "OnbestaandeTaal"
+	
+	Do ..AssertGroepNaam(StandaardTaal, "TA'OR BOX Schubkasten Nussbaum Natur, Boden Nussbaum Natur", ..Taal.Duits)
+	Do ..AssertGroepNaam(StandaardTaal, "TA'OR BOX drawer Natural Walnut, base Natural Walnut", ..Taal.Engels)
+	Do ..AssertGroepNaam(StandaardTaal, "TA'OR BOX tiroir Noyer Naturel, fond Noyer Naturel", ..Taal.Frans)
+	Do ..AssertGroepNaam(StandaardTaal, "TA'OR BOX lade Natuur Notenhout, bodem Natuur Notenhout", ..Taal.Nederlands)
+]]></Implementation>
+</Method>
+
 <Method name="Test:TAORKenmerken met afwijkende bodem">
 <Implementation><![CDATA[
 	set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).BodemAfwLade()
Index: APPS/EC/Winkelkar/impl/GroepNaamVoorLijnBepaler.cls.xml
===================================================================
diff -u -r32129 -r35695
--- APPS/EC/Winkelkar/impl/GroepNaamVoorLijnBepaler.cls.xml	(.../GroepNaamVoorLijnBepaler.cls.xml)	(revision 32129)
+++ APPS/EC/Winkelkar/impl/GroepNaamVoorLijnBepaler.cls.xml	(.../GroepNaamVoorLijnBepaler.cls.xml)	(revision 35695)
@@ -37,10 +37,13 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#dim Taal As DOM.enu.Taal = ##class(TECH.Context.RuntimeContext).Instance().GeefTaal()
+	#dim FallbackTaal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	
 	If (Taal = "") {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Taal is niet ingesteld op de RuntimeContext."))
 	}
-	Set ..GroepNaam = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New().GeefGroepNaam(MaatwerkLijn.GeefIngegevenKenmerken(),Taal)
+	
+	Set ..GroepNaam = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New().GeefGroepNaam(MaatwerkLijn.GeefIngegevenKenmerken(), Taal, FallbackTaal)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/EC/Winkelkar/impl/Vertaler.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/Vertaler.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/Vertaler.cls.xml	(revision 35695)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.Vertaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Vertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Vertaler:DOM.common.Transl.Vertaler</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Vertaler = Vertaler
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefVertaling">
+<FormalSpec>Sleutel:%String,Taal:DOM.enu.Taal,FallbackTaal:DOM.enu.Taal,HoofdletterGevoelig:%Boolean=$$$False</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Vertaling As %String = ..Vertaler.GeefVertaling(Sleutel, Taal, HoofdletterGevoelig)
+
+	If (Vertaling = "") {
+		Set Vertaling = ..Vertaler.GeefVertaling(Sleutel, FallbackTaal, HoofdletterGevoelig)
+	}
+	
+	Quit Vertaling
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml
===================================================================
diff -u -r30797 -r35695
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 30797)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 35695)
@@ -185,9 +185,10 @@
 <Implementation><![CDATA[
 	quit:..HoofdKleurToevoegenIntrekken $$$false
 
-	#dim Toevoegen As %Boolean = 1 
+	#dim Toevoegen As %Boolean = $$$True 
 	#dim KleurCode As %String = $extract(Korttekst,22,25)
-	set:$length(KleurCode) Toevoegen = (..KleurCodeVertaler.GeefVertaling(KleurCode) = KleurCode)
+
+	set:$length(KleurCode) Toevoegen = (..KleurCodeVertaler.GeefVertaling(KleurCode) = "")
 	quit Toevoegen
 ]]></Implementation>
 </Method>
Index: DOM/common/Transl/impl/Vertaler.cls.xml
===================================================================
diff -u -r35676 -r35695
--- DOM/common/Transl/impl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 35676)
+++ DOM/common/Transl/impl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 35695)
@@ -46,7 +46,7 @@
 	If $$$Not(Taal = "") {
 		Set ..Taal = Taal
 	}
-
+	
 	#dim Vertaling As %String = ""
 	#dim Gevonden As %Boolean = $$$False
 	#dim VertaalGroepIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..VertaalGroepen)
@@ -94,9 +94,9 @@
 <FormalSpec>Sleutel:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Vertaling As %String = Sleutel
+	#dim Vertaling As %String = ""
 	#dim KleurCode As %String = $Justify(Sleutel, 4) _ " "
-	
+
 	If ($data(^KCOL(KleurCode, ..Taal))){
 		Set Vertaling = ^KCOL(KleurCode, ..Taal)
 	}
@@ -133,7 +133,6 @@
 <FormalSpec>Actie:%String,Sleutel:%String,Taal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	
 	#dim Detail As %String = "Geen vertaling gevonden voor taal '" _ Taal _ "' en sleutel '" _ Sleutel _ "'"
 	
 	Do ..Logger.Warning(Actie, Detail)