Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyBodemEnRug/TestLBXOnlyBodemEnRug_Langteksten.txt
===================================================================
diff -u -r29751 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyBodemEnRug/TestLBXOnlyBodemEnRug_Langteksten.txt	(.../TestLBXOnlyBodemEnRug_Langteksten.txt)	(revision 29751)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyBodemEnRug/TestLBXOnlyBodemEnRug_Langteksten.txt	(.../TestLBXOnlyBodemEnRug_Langteksten.txt)	(revision 30577)
@@ -1,6 +1,7 @@
 Frans:
 LEGRABOX tiroir �
-l'anglaise M;P:500xL:769
+l'anglaise M
+P:500xL:769
 ******
 SEULEMENT fond:Gris fonc�; dos:Gris fonc�
 ******
@@ -21,7 +22,8 @@
 
 Duits:
 LEGRABOX
-Innenschubkasten M;T:500xB:769
+Innenschubkasten M
+T:500xB:769
 ******
 NUR Boden:Dunkelgrau; R�ckwand:Dunkelgrau
 ******
Index: DOM/PM/impl/ProductLangtekst.cls.xml
===================================================================
diff -u -r29059 -r30577
--- DOM/PM/impl/ProductLangtekst.cls.xml	(.../ProductLangtekst.cls.xml)	(revision 29059)
+++ DOM/PM/impl/ProductLangtekst.cls.xml	(.../ProductLangtekst.cls.xml)	(revision 30577)
@@ -43,11 +43,8 @@
 <Method name="GeefString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim HoofdingSeparator As TECH.String = "~"
-	If $Length(..Hoofding) > 26 {
-		Set HoofdingSeparator = ";"
-	}
-	#dim Langtekst As %String = ..Hoofding_HoofdingSeparator_##class(TECH.ListUtils).ListToPieces(..Detail,"~")
+	#dim Separator As TECH.String = "~"
+	#dim Langtekst As %String = ..Hoofding_Separator_##class(TECH.ListUtils).ListToPieces(..Detail,Separator)
 	#dim List As %ListOfDataTypes = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefLangtekstSplitser().SplitsLangtekstInDelen(Langtekst,"")
 	quit ##class(TECH.ListUtils).ListToPieces(List,$$$CRLF)
 ]]></Implementation>
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORBinnenladeFrontEindkapKleur/TestTAORBinnenladeFrontEindkapKleur_Langteksten.txt
===================================================================
diff -u -r29752 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORBinnenladeFrontEindkapKleur/TestTAORBinnenladeFrontEindkapKleur_Langteksten.txt	(.../TestTAORBinnenladeFrontEindkapKleur_Langteksten.txt)	(revision 29752)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORBinnenladeFrontEindkapKleur/TestTAORBinnenladeFrontEindkapKleur_Langteksten.txt	(.../TestTAORBinnenladeFrontEindkapKleur_Langteksten.txt)	(revision 30577)
@@ -1,6 +1,7 @@
 Frans:
 TA'OR BOX tiroir �
-l'anglaise C;P:500xL:600
+l'anglaise C
+P:500xL:600
 fond:Noyer naturel
 Face:Noyer naturel
 dos:Noyer naturel
@@ -40,7 +41,8 @@
 
 Duits:
 TA'OR BOX
-Innenschubkasten C;T:500xB:600
+Innenschubkasten C
+T:500xB:600
 Boden:Nussbaum Natur
 Front:Nussbaum Natur
 R�ckwand:Nussbaum Natur
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Rug/TestTAORLosseComponentenInBulk_Langteksten.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Rug/TestTAORLosseComponentenInBulk_Langteksten.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Rug/TestTAORLosseComponentenInBulk_Langteksten.txt	(revision 30577)
@@ -0,0 +1,34 @@
+Frans:
+TA'OR BOX dos
+Hauteur: C
+Largeur int�rieure: 600mm
+Longueur dos: 569mm
+Couleur: Noyer naturel
+
+Nederlands:
+TA'OR BOX rug
+Hoogte: C
+Interne breedte: 600mm
+Lengte rug: 569mm
+Kleur: Natuur notenhout
+
+Engels:
+TA'OR BOX back
+Height: C
+Internal width: 600mm
+Length back: 569mm
+Colour: Natural walnut
+
+Duits:
+TA'OR BOX R�ckwand
+H�he: C
+Innenbreite: 600mm
+L�nge R�ckwand: 569mm
+Farbe: Nussbaum Natur
+
+Vertaling met sleutels:
+TA'OR BOX [Rug]
+[Hoogte]: C
+[InterneBreedte]: 600mm
+[LengteRug]: 569mm
+[Kleur]: [NN]
Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentHoofdingBepaler.cls.xml
===================================================================
diff -u -r30521 -r30577
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentHoofdingBepaler.cls.xml	(.../LosseComponentHoofdingBepaler.cls.xml)	(revision 30521)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentHoofdingBepaler.cls.xml	(.../LosseComponentHoofdingBepaler.cls.xml)	(revision 30577)
@@ -87,35 +87,21 @@
 <Method name="VerwerkRug">
 <Implementation><![CDATA[
 	#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
-	
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling(..LosseComponentType) _ " "
-	set ..Hoofding = ..Hoofding _ ..GeefLadeHoogteTekst() _ ", "
-	set ..Hoofding = ..Hoofding _ ..GeefBinnenmaatKastTekst() _ ", "
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("LengteRug") _ "=" _ Rug.GeefBreedteInMM() _ "mm"
+	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling(..LosseComponentType)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkBodem">
 <Implementation><![CDATA[
 	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
-		
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling(..LosseComponentType) _ ", "
-	set ..Hoofding = ..Hoofding _ ..GeefBinnenmaatKastTekst() _ ", "
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("NominaleLengteAfkorting") _ " " _ ..IngegevenKenmerken.LadeDiepte _ "mm, "
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("LengteBodem") _ "=" _ Bodem.GeefBreedteInMM() _ "mm, "
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("Voor") _ " " _ ..Vertaler.GeefVertaling(..IngegevenKenmerken.KoppelingType _ "Koppeling")
+	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling(..LosseComponentType)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkFront">
 <Implementation><![CDATA[
 	#dim Front As DOM.PM.Maatwerk.LadeInfo.Bodem = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
-		
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("FrontBinnenlade") _ ", "
-	set ..Hoofding = ..Hoofding _ ..GeefLadeHoogteTekst() _ ", "	
-	set ..Hoofding = ..Hoofding _ ..GeefBinnenmaatKastTekst() _ ", "
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("LengteFrontBinnenlade") _ "=" _ Front.GeefBreedteInMM() _ "mm, "
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("Eindkap") _ " " _ ..KleurCodeVertaler.GeefVertaling(..IngegevenKenmerken.FrontEindkapKleur)
+	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("FrontBinnenlade")
 ]]></Implementation>
 </Method>
 
@@ -139,10 +125,7 @@
 	#dim ZijkantHoofding As TECH.String = ""
 	
 	set ZijkantHoofding = ZijkantHoofding _ ..Vertaler.GeefVertaling("Zijkant") _ " "
-	set ZijkantHoofding = ZijkantHoofding _ ..GeefLadeHoogteTekst() _ ", "
-	set ZijkantHoofding = ZijkantHoofding _ ..Vertaler.GeefVertaling(ZijkantRol) _ ", "
-	set ZijkantHoofding = ZijkantHoofding _ ..IngegevenKenmerken.LadeDiepte _ "mm"
-	
+	set ZijkantHoofding = ZijkantHoofding _ ..Vertaler.GeefVertaling(ZijkantRol)
 	quit ZijkantHoofding
 ]]></Implementation>
 </Method>
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyFront/TestLBXOnlyFront_Langteksten.txt
===================================================================
diff -u -r29059 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyFront/TestLBXOnlyFront_Langteksten.txt	(.../TestLBXOnlyFront_Langteksten.txt)	(revision 29059)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyFront/TestLBXOnlyFront_Langteksten.txt	(.../TestLBXOnlyFront_Langteksten.txt)	(revision 30577)
@@ -1,6 +1,7 @@
 Frans:
 LEGRABOX tiroir �
-l'anglaise M;P:500xL:769
+l'anglaise M
+P:500xL:769
 ******
 SEULEMENT Orion gris pi�ce avant ferm�e
 ******
@@ -21,7 +22,8 @@
 
 Duits:
 LEGRABOX
-Innenschubkasten M;T:500xB:769
+Innenschubkasten M
+T:500xB:769
 ******
 NUR Oriongrau matt Vorderst�ck geschlossen
 ******
FishEye: Tag 30577 refers to a dead (removed) revision in file `vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/TestTAORLosseComponentenInBulk_Langteksten.txt'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/Test.cls.xml
===================================================================
diff -u -r29059 -r30577
--- vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/Test.cls.xml	(.../Test.cls.xml)	(revision 30577)
@@ -5,7 +5,13 @@
 <Super>vhTest.Integratie.TestCase</Super>
 
 <Method name="Test">
+<Implementation><![CDATA[	do ..DoTest()
+]]></Implementation>
+</Method>
+
+<Method name="DoTest">
 <Final>1</Final>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim Filename As %String  = ##class(TECH.Files).AppendFile(..GeefBestandLocatie(),..%ClassName()_"_Langteksten.txt")
 	#dim FileWriter As TECH.File.FileWriter= ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyRug/TestLBXOnlyRug_Langteksten.txt
===================================================================
diff -u -r29751 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyRug/TestLBXOnlyRug_Langteksten.txt	(.../TestLBXOnlyRug_Langteksten.txt)	(revision 29751)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyRug/TestLBXOnlyRug_Langteksten.txt	(.../TestLBXOnlyRug_Langteksten.txt)	(revision 30577)
@@ -1,6 +1,7 @@
 Frans:
 LEGRABOX tiroir �
-l'anglaise M;P:500xL:769
+l'anglaise M
+P:500xL:769
 ******
 SEULEMENT dos:Gris fonc�
 ******
@@ -21,7 +22,8 @@
 
 Duits:
 LEGRABOX
-Innenschubkasten M;T:500xB:769
+Innenschubkasten M
+T:500xB:769
 ******
 NUR R�ckwand:Dunkelgrau
 ******
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXFreeBinnenEnkeleUitsparinglade/TestLBXFreeBinnenEnkeleUitsparinglade_Langteksten.txt
===================================================================
diff -u -r29747 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXFreeBinnenEnkeleUitsparinglade/TestLBXFreeBinnenEnkeleUitsparinglade_Langteksten.txt	(.../TestLBXFreeBinnenEnkeleUitsparinglade_Langteksten.txt)	(revision 29747)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXFreeBinnenEnkeleUitsparinglade/TestLBXFreeBinnenEnkeleUitsparinglade_Langteksten.txt	(.../TestLBXFreeBinnenEnkeleUitsparinglade_Langteksten.txt)	(revision 30577)
@@ -1,6 +1,7 @@
 Frans:
 LEGRABOX free Tiroir
-sous �vier Siphon � l'anglaise C;P:400xL:414
+sous �vier Siphon � l'anglaise C
+P:400xL:414
 espace pour siphon = 150mm (125/150/175);
 fond:Gris fonc�; c�t� de tiroir:Orion gris;
 contient: tiroir mont�; BOXCOVER avec
@@ -12,7 +13,8 @@
 
 Nederlands:
 LEGRABOX free Sifon
-binnenlade C;D:400xB:414
+binnenlade C
+D:400xB:414
 Sifonopening = 150mm (125/150/175);
 bodem:Donkergrijs; ladezijkant:Orion grijs;
 bevat: gemont. lade; BOXCOVER met
@@ -24,7 +26,8 @@
 
 Engels:
 LEGRABOX free inner
-washer drawer Siphon C;D:400xW:414
+washer drawer Siphon C
+D:400xW:414
 space for siphon = 150mm (125/150/175);
 base:Dark grey; drawer side:Orion grey mat;
 contains: premounted drawer; BOXCOVER with
@@ -36,7 +39,8 @@
 
 Duits:
 LEGRABOX free
-Innensiphonschublade C;T:400xB:414
+Innensiphonschublade C
+T:400xB:414
 Raum f�r Siphon = 150mm (125/150/175);
 Boden:Dunkelgrau; Zarge:Oriongrau matt;
 beinhaltet: fertigschubkasten; BOXCOVER mit
@@ -48,9 +52,8 @@
 
 Vertaling met sleutels:
 LEGRABOX [LBXFree]
-[SifonbinnenladeLangtekstHoofding]
-C;[DiepteAfkorting]:400x[BreedteAfkorting]:41
-4
+[SifonbinnenladeLangtekstHoofding] C
+[DiepteAfkorting]:400x[BreedteAfkorting]:414
 [Sifonopening] = 150mm (125/150/175);
 [Bodem]:[DG]; [LadeZijkant]:[OG-M];
 [Bevat]: [GemonteerdeLade]; [BoxCover]
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX009/TestLBX009_Langteksten.txt
===================================================================
diff -u -r29747 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX009/TestLBX009_Langteksten.txt	(.../TestLBX009_Langteksten.txt)	(revision 29747)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX009/TestLBX009_Langteksten.txt	(.../TestLBX009_Langteksten.txt)	(revision 30577)
@@ -1,10 +1,11 @@
 Frans:
 LEGRABOX tiroir �
-l'anglaise C;P:400xL:300; fond:Blanc; c�t�
-de tiroir:Orion gris; contient: tiroir
-mont�; pi�ce avant avec insert haut: verre
-diamant clair; coulisses corps de meuble
-40kg; BLUMOTION
+l'anglaise C
+P:400xL:300; fond:Blanc; c�t� de
+tiroir:Orion gris; contient: tiroir mont�;
+pi�ce avant avec insert haut: verre diamant
+clair; coulisses corps de meuble 40kg;
+BLUMOTION
 3 tubes transversal
 emball�: carton
 
@@ -28,11 +29,11 @@
 
 Duits:
 LEGRABOX
-Innenschubkasten C;T:400xB:300;
-Boden:Weiss; Zarge:Oriongrau matt;
-beinhaltet: fertigschubkasten; Vorderst�ck
-mit hohem Einschubelement: Glas Diamant
-klar; Korpusschienen 40kg; BLUMOTION
+Innenschubkasten C
+T:400xB:300; Boden:Weiss; Zarge:Oriongrau
+matt; beinhaltet: fertigschubkasten;
+Vorderst�ck mit hohem Einschubelement: Glas
+Diamant klar; Korpusschienen 40kg; BLUMOTION
 3 Querreling
 verpackt: karton
 
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Bodem/TestTAORLosseComponentenInBulk_Langteksten.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Bodem/TestTAORLosseComponentenInBulk_Langteksten.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Bodem/TestTAORLosseComponentenInBulk_Langteksten.txt	(revision 30577)
@@ -0,0 +1,39 @@
+Frans:
+TA'OR BOX fond
+Largeur int�rieure: 600mm
+NL: 500mm
+Longueur fond: 569mm
+Pour accouplement � visser
+Couleur: Noyer naturel
+
+Nederlands:
+TA'OR BOX bodem
+Interne breedte: 600mm
+NL: 500mm
+Lengte bodem: 569mm
+Voor schroefkoppeling
+Kleur: Natuur notenhout
+
+Engels:
+TA'OR BOX base
+Internal width: 600mm
+NL: 500mm
+Length base: 569mm
+For T51 screw
+Colour: Natural walnut
+
+Duits:
+TA'OR BOX Boden
+Innenbreite: 600mm
+NL: 500mm
+L�nge Boden: 569mm
+F�r Kupplung zum Schrauben
+Farbe: Nussbaum Natur
+
+Vertaling met sleutels:
+TA'OR BOX [Bodem]
+[InterneBreedte]: 600mm
+[NominaleLengteAfkorting]: 500mm
+[LengteBodem]: 569mm
+[Voor] [SchroefKoppeling]
+[Kleur]: [NN]
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Zijkant links/TestTAORLosseComponentenInBulk_Langteksten.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Zijkant links/TestTAORLosseComponentenInBulk_Langteksten.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Zijkant links/TestTAORLosseComponentenInBulk_Langteksten.txt	(revision 30577)
@@ -0,0 +1,30 @@
+Frans:
+TA'OR BOX c�t� gauche
+Hauteur: C
+Profondeur: 500mm
+Couleur: Noyer naturel
+
+Nederlands:
+TA'OR BOX zijkant links
+Hoogte: C
+Diepte: 500mm
+Kleur: Natuur notenhout
+
+Engels:
+TA'OR BOX side left
+Height: C
+: 500mm
+Colour: Natural walnut
+
+Duits:
+TA'OR BOX Zarge links
+H�he: C
+: 500mm
+Farbe: Nussbaum Natur
+
+Vertaling met sleutels:
+TA'OR BOX [Zijkant]
+[Links]
+[Hoogte]: C
+[Diepte]: 500mm
+[Kleur]: [NN]
Index: vhUnitTest/DOM/PM/LangtekstUtils/SplitsLangtekstInDelen/Test.cls.xml
===================================================================
diff -u -r29059 -r30577
--- vhUnitTest/DOM/PM/LangtekstUtils/SplitsLangtekstInDelen/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/LangtekstUtils/SplitsLangtekstInDelen/Test.cls.xml	(.../Test.cls.xml)	(revision 30577)
@@ -15,11 +15,26 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-//Deze Testklasse is niet 100% juist, er is iets vreemd met de methode GETWRAP^vhBIGEDIT
+// Deze Testklasse is niet 100% juist, er is iets vreemd met de methode GETWRAP^vhBIGEDIT
 
 ]]></Content>
 </UDLText>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	Set ..LangtekstUtils = ##class(DOM.PM.impl.LangtekstSplitser).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super()
+	Set ..VerwachteRegelLijst = ##class(%ListOfDataTypes).%New()
+]]></Implementation>
+</Method>
+
 <Method name="TestZonderSpaties">
 <Implementation><![CDATA[
 	Do ..VerwachteRegelLijst.Insert("dezeTekstIsMeerDanZessentw")
@@ -59,21 +74,6 @@
 <Implementation><![CDATA[	Do $$$AssertEqualsList(..LangtekstUtils.SplitsLangtekstInDelen(Langtekst,##class(DOM.enu.Taal).Nederlands()),..VerwachteRegelLijst)
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	do ##super()
-	Set ..LangtekstUtils = ##class(DOM.PM.impl.LangtekstSplitser).%New()
-]]></Implementation>
-</Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	do ##super()
-	Set ..VerwachteRegelLijst = ##class(%ListOfDataTypes).%New()
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Front/TestTAORLosseComponentenInBulk_Langteksten.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Front/TestTAORLosseComponentenInBulk_Langteksten.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Front/TestTAORLosseComponentenInBulk_Langteksten.txt	(revision 30577)
@@ -0,0 +1,43 @@
+Frans:
+TA'OR BOX pi�ce avant
+tiroir � l'anglaise
+Hauteur: C
+Largeur int�rieure: 600mm
+Longueur pi�ce avant: 590mm
+Caches: Finition Alu
+Couleur: Noyer naturel
+
+Nederlands:
+TA'OR BOX front binnenlade
+Hoogte: C
+Interne breedte: 600mm
+Lengte front binnenlade: 590mm
+Eindkap: Aluminium look
+Kleur: Natuur notenhout
+
+Engels:
+TA'OR BOX front piece
+inner pull-out
+Height: C
+Internal width: 600mm
+Length: 590mm
+End cover caps: Aluminium look
+Colour: Natural walnut
+
+Duits:
+TA'OR BOX Vorderst�ck
+Innenauszug
+H�he: C
+Innenbreite: 600mm
+L�nge Vorderst�ck: 590mm
+Endkappe: Alu look
+Farbe: Nussbaum Natur
+
+Vertaling met sleutels:
+TA'OR BOX
+[FrontBinnenlade]
+[Hoogte]: C
+[InterneBreedte]: 600mm
+[LengteFrontBinnenlade]: 590mm
+[Eindkap]: [AL]
+[Kleur]: [NN]
Index: vhDeploy/WV/Deploy20150915xInterneBreedteInVertalingTT.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20150915xInterneBreedteInVertalingTT.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20150915xInterneBreedteInVertalingTT.cls.xml	(revision 30577)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.WV.Deploy20150915xInterneBreedteInVertalingTT">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Vertalingen toevoegen TT : Opvullijst + StalenRug</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","InterneBreedte",,"N","interne breedte")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","InterneBreedte",,"F","largeur intérieure")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","InterneBreedte",,"E","internal width")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","InterneBreedte",,"D","Innenbreite")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXUitsparingLadeEnkel/TestLBXUitsparingLadeEnkel_Langteksten.txt
===================================================================
diff -u -r29747 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXUitsparingLadeEnkel/TestLBXUitsparingLadeEnkel_Langteksten.txt	(.../TestLBXUitsparingLadeEnkel_Langteksten.txt)	(revision 29747)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXUitsparingLadeEnkel/TestLBXUitsparingLadeEnkel_Langteksten.txt	(.../TestLBXUitsparingLadeEnkel_Langteksten.txt)	(revision 30577)
@@ -1,6 +1,7 @@
 Frans:
 LEGRABOX Tiroir sous
-�vier Siphon C;P:300xL:414
+�vier Siphon C
+P:300xL:414
 espace pour siphon = 150mm (125/150/175);
 fond:Gris fonc�; c�t� de tiroir:Orion gris;
 contient: tiroir mont�; coulisses corps de
@@ -20,7 +21,8 @@
 
 Engels:
 LEGRABOX washer drawer
-Siphon C;D:300xW:414
+Siphon C
+D:300xW:414
 space for siphon = 150mm (125/150/175);
 base:Dark grey; drawer side:Orion grey mat;
 contains: premounted drawer; cabinet
@@ -30,7 +32,8 @@
 
 Duits:
 LEGRABOX Sp�lenauszug
-Siphon C;T:300xB:414
+Siphon C
+T:300xB:414
 Raum f�r Siphon = 150mm (125/150/175);
 Boden:Dunkelgrau; Zarge:Oriongrau matt;
 beinhaltet: fertigschubkasten;
@@ -40,9 +43,8 @@
 
 Vertaling met sleutels:
 LEGRABOX
-[SifonladeLangtekstHoofding]
-C;[DiepteAfkorting]:300x[BreedteAfkorting]:41
-4
+[SifonladeLangtekstHoofding] C
+[DiepteAfkorting]:300x[BreedteAfkorting]:414
 [Sifonopening] = 150mm (125/150/175);
 [Bodem]:[DG]; [LadeZijkant]:[OG-M];
 [Bevat]: [GemonteerdeLade]; [Geleider]
Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml
===================================================================
diff -u -r30267 -r30577
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 30267)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 30577)
@@ -8,116 +8,96 @@
 <Implementation><![CDATA[
 	do ##super(aTestName)
 	
-	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..Enum.VerpakkingType.LosseComponentenInBulk)
+	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(..Enum.VerpakkingType.LosseComponentenInBulk)
+	set ..TAORKenmerken.CorpusBinnenbreedte = 564
 ]]></Implementation>
 </Method>
 
-<Method name="Test: hoofding losse component rug">
+<Method name="Test: Kleur niet invullen als een bestaande code in de korttekst staat - UI gefoefel">
 <Implementation><![CDATA[
+	set ..Korttekst = "171A5070   W-DIST V50NE" 	; random korttekst 
+	
 	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
-	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.C
-	set ..TAORKenmerken.CorpusBinnenbreedte = 564
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Interne breedte: 564mm"_$$$CRLF_"Lengte rug: 533mm"))
 	
-	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>
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Interne breedte: 564mm"_$$$CRLF_"NL: 500mm"_$$$CRLF_"Lengte bodem: 533mm"_$$$CRLF_"Voor schroefkoppeling"))
 
-<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>
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Interne breedte: 564mm"_$$$CRLF_"Lengte front binnenlade: 554mm"_$$$CRLF_"Eindkap: Aluminium look"))
 
-<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
-	
-	w !, ..GeefHoofding()
-	
-	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX zijkant hoogte M, links, 270mm")
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Diepte: 500mm"))
+
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantRechts
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Diepte: 500mm"))
 ]]></Implementation>
 </Method>
 
-<Method name="Test: hoofding losse component zijkant rechts">
+<Method name="Test:Rug">
 <Implementation><![CDATA[
-	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantRechts
-	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.C
-	set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte270
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
 	
-	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX zijkant hoogte C, rechts, 270mm")
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX rug")
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Interne breedte: 564mm"_$$$CRLF_"Lengte rug: 533mm"_$$$CRLF_"Kleur: Natuur notenhout"))
 ]]></Implementation>
 </Method>
 
-<Method name="Test: kleur losse component rug">
+<Method name="Test: Bodem - drevelkoppeling">
 <Implementation><![CDATA[
-	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
-	set ..TAORKenmerken.LadeKleur = ..Enum.LadeKleur.NebraskaEikenhout
-	set ..TAORKenmerken.BodemKleur = ..Enum.LadeKleur.NatuurEikenhout
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
+	set ..TAORKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
 	
-	do $$$AssertEquals(..GeefDetail(), "kleur: Décor Nebraska eik")
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX bodem")
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Interne breedte: 564mm"_$$$CRLF_"NL: 500mm"_$$$CRLF_"Lengte bodem: 533mm"_$$$CRLF_"Voor drevelkoppeling"_$$$CRLF_"Kleur: Natuur notenhout"))
 ]]></Implementation>
 </Method>
 
-<Method name="Test: kleur losse component bodem">
+<Method name="Test: Bodem - schroefkoppeling">
 <Implementation><![CDATA[
 	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
-	set ..TAORKenmerken.LadeKleur = ..Enum.LadeKleur.NebraskaEikenhout
-	set ..TAORKenmerken.BodemKleur = ..Enum.LadeKleur.NatuurEikenhout
+	set ..TAORKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
 	
-	do $$$AssertEquals(..GeefDetail(), "kleur: Natuur eikenhout")
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX bodem")
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Interne breedte: 564mm"_$$$CRLF_"NL: 500mm"_$$$CRLF_"Lengte bodem: 533mm"_$$$CRLF_"Voor schroefkoppeling"_$$$CRLF_"Kleur: Natuur notenhout"))
 ]]></Implementation>
 </Method>
 
-<Method name="Test: kleur losse component front">
+<Method name="Test: 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")
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX front binnenlade")
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Interne breedte: 564mm"_$$$CRLF_"Lengte front binnenlade: 554mm"_$$$CRLF_"Eindkap: Aluminium look"_$$$CRLF_"Kleur: Natuur notenhout"))
 ]]></Implementation>
 </Method>
 
-<Method name="Test: kleur losse component zijkant links">
+<Method name="Test: 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")
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX zijkant links")
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Diepte: 500mm"_$$$CRLF_"Kleur: Natuur notenhout"))
 ]]></Implementation>
 </Method>
 
-<Method name="Test: kleur losse component zijkant rechts">
+<Method name="Test: Zijkant rechts">
 <Implementation><![CDATA[
 	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantRechts
-	set ..TAORKenmerken.LadeKleur = ..Enum.LadeKleur.NebraskaEikenhout
-	set ..TAORKenmerken.BodemKleur = ..Enum.LadeKleur.NatuurEikenhout
+		
+	#dim VerwachtDetail As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
-	do $$$AssertEquals(..GeefDetail(), "kleur: Décor Nebraska eik")
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX zijkant rechts")
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Diepte: 500mm"_$$$CRLF_"Kleur: Natuur notenhout"))
 ]]></Implementation>
 </Method>
+
+<Method name="ToList">
+<FormalSpec>String:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	quit ##class(TECH.ListUtils).PiecesToList(String,$$$CRLF)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXFree/TestLBXFree_Langteksten.txt
===================================================================
diff -u -r29747 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXFree/TestLBXFree_Langteksten.txt	(.../TestLBXFree_Langteksten.txt)	(revision 29747)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXFree/TestLBXFree_Langteksten.txt	(.../TestLBXFree_Langteksten.txt)	(revision 30577)
@@ -31,9 +31,10 @@
 
 Duits:
 LEGRABOX free
-Schubkasten C;T:400xB:564;
-Boden:Dunkelgrau; Zarge:Oriongrau matt;
-beinhaltet: fertigschubkasten; BOXCOVER mit
+Schubkasten C
+T:400xB:564; Boden:Dunkelgrau;
+Zarge:Oriongrau matt; beinhaltet:
+fertigschubkasten; BOXCOVER mit
 Einschubelement Glas Diamant 10mm;
 Korpusschienen 40kg; BLUMOTION;
 Stahlr�ckwand; frontbefest EXPANDO
@@ -42,9 +43,9 @@
 
 Vertaling met sleutels:
 LEGRABOX [LBXFree]
-[Lade]
-C;[DiepteAfkorting]:400x[BreedteAfkorting]:56
-4; [Bodem]:[DG]; [LadeZijkant]:[OG-M];
+[Lade] C
+[DiepteAfkorting]:400x[BreedteAfkorting]:564;
+[Bodem]:[DG]; [LadeZijkant]:[OG-M];
 [Bevat]: [GemonteerdeLade]; [BoxCover]
 [LBXFreeMetGlasDiamant]; [Geleider]
 40[KilogramAfkorting]; BLUMOTION;
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX010/TestLBX010_Langteksten.txt
===================================================================
diff -u -r29747 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX010/TestLBX010_Langteksten.txt	(.../TestLBX010_Langteksten.txt)	(revision 29747)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX010/TestLBX010_Langteksten.txt	(.../TestLBX010_Langteksten.txt)	(revision 30577)
@@ -1,10 +1,11 @@
 Frans:
 LEGRABOX tiroir �
-l'anglaise C;P:400xL:300; fond:Gris fonc�;
-c�t� de tiroir:Orion gris; contient: tiroir
-mont�; pi�ce avant avec insert bas: verre
-diamant clair; coulisses corps de meuble
-40kg; BLUMOTION
+l'anglaise C
+P:400xL:300; fond:Gris fonc�; c�t� de
+tiroir:Orion gris; contient: tiroir mont�;
+pi�ce avant avec insert bas: verre diamant
+clair; coulisses corps de meuble 40kg;
+BLUMOTION
 1 tube transversal
 emball�: carton
 
@@ -29,10 +30,11 @@
 
 Duits:
 LEGRABOX
-Innenschubkasten C;T:400xB:300;
-Boden:Dunkelgrau; Zarge:Oriongrau matt;
-beinhaltet: fertigschubkasten; Vorderst�ck
-mit niedrigem Einschubelement: Glas Diamant
+Innenschubkasten C
+T:400xB:300; Boden:Dunkelgrau;
+Zarge:Oriongrau matt; beinhaltet:
+fertigschubkasten; Vorderst�ck mit
+niedrigem Einschubelement: Glas Diamant
 klar; Korpusschienen 40kg; BLUMOTION
 1 Querreling
 verpackt: karton
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX008/TestLBX008_Langteksten.txt
===================================================================
diff -u -r29747 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX008/TestLBX008_Langteksten.txt	(.../TestLBX008_Langteksten.txt)	(revision 29747)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX008/TestLBX008_Langteksten.txt	(.../TestLBX008_Langteksten.txt)	(revision 30577)
@@ -1,9 +1,9 @@
 Frans:
 LEGRABOX tiroir �
-l'anglaise C;P:500xL:718; fond:Noir brun;
-c�t� de tiroir:Orion gris; contient: tiroir
-mont�; pi�ce avant avec tube; profiles de
-distance
+l'anglaise C
+P:500xL:718; fond:Noir brun; c�t� de
+tiroir:Orion gris; contient: tiroir mont�;
+pi�ce avant avec tube; profiles de distance
 emball�: Probox
 non fourni: coulisses corps de meuble
 
@@ -26,10 +26,11 @@
 
 Duits:
 LEGRABOX
-Innenschubkasten C;T:500xB:718;
-Boden:Schwarzbraun; Zarge:Oriongrau matt;
-beinhaltet: fertigschubkasten; Vorderst�ck
-mit Reling; distanzleisten
+Innenschubkasten C
+T:500xB:718; Boden:Schwarzbraun;
+Zarge:Oriongrau matt; beinhaltet:
+fertigschubkasten; Vorderst�ck mit Reling;
+distanzleisten
 verpackt: Probox
 Nicht enhalten: Korpusschienen
 
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyBodem/TestLBXOnlyBodem_Langteksten.txt
===================================================================
diff -u -r29059 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyBodem/TestLBXOnlyBodem_Langteksten.txt	(.../TestLBXOnlyBodem_Langteksten.txt)	(revision 29059)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyBodem/TestLBXOnlyBodem_Langteksten.txt	(.../TestLBXOnlyBodem_Langteksten.txt)	(revision 30577)
@@ -1,6 +1,7 @@
 Frans:
 LEGRABOX tiroir �
-l'anglaise M;P:500xL:769
+l'anglaise M
+P:500xL:769
 ******
 SEULEMENT fond:Gris fonc�
 ******
@@ -21,7 +22,8 @@
 
 Duits:
 LEGRABOX
-Innenschubkasten M;T:500xB:769
+Innenschubkasten M
+T:500xB:769
 ******
 NUR Boden:Dunkelgrau
 ******
Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml
===================================================================
diff -u -r30521 -r30577
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 30521)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 30577)
@@ -38,13 +38,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="KortTekst">
-<Type>%String</Type>
+<Property name="LosseComponentType">
+<Type>DOM.PM.Maatwerk.Lade.enu.LosseComponent</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LosseComponentType">
-<Type>DOM.PM.Maatwerk.Lade.enu.LosseComponent</Type>
+<Property name="LadeOnderdeel">
+<Type>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</Type>
 <Private>1</Private>
 </Property>
 
@@ -70,47 +70,114 @@
 </Method>
 
 <Method name="BepaalDetail">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,KortTekst:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,Korttekst:%String</FormalSpec>
 <Implementation><![CDATA[
 	set ..IngegevenKenmerken = IngegevenKenmerken
 	set ..HalffabItemsBoom = HalffabItemsBoom
 	set ..Taal = Taal
-	set ..KortTekst = KortTekst
 	
 	set ..LosseComponentType = ..ProductieWijzeNaarLosseComponentConverter.Convert(..IngegevenKenmerken.ProductieWijze)
 	
-	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
-	do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Kleur") _ ": " _ ..KleurCodeVertaler.GeefVertaling(LadeOnderdeel.GeefKleur()))
+	set ..LadeOnderdeel = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
 	
 	do ..Verwerk(IngegevenKenmerken.ProductieWijze)
 	
+	do:..HoofdKleurToevoegen(Korttekst) ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Kleur"),..KleurCodeVertaler.GeefVertaling(..LadeOnderdeel.GeefKleur())))
+	
 	quit ..Detail
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkRug">
+<Implementation><![CDATA[
+	do ..VoegToeParagraaf( ..GeefLadeHoogteTekst())
+	do ..VoegToeParagraaf( ..GeefInbouwbreedteTekst())
+	do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("LengteRug") , ..LadeOnderdeel.GeefBreedteInMM() _ "mm"))
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkBodem">
+<Implementation><![CDATA[
+	do ..VoegToeParagraaf( ..GeefInbouwbreedteTekst())
+	do ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("NominaleLengteAfkorting"),..IngegevenKenmerken.LadeDiepte _ "mm"))
+	do ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("LengteBodem"),..LadeOnderdeel.GeefBreedteInMM() _ "mm"))
+	do ..VoegToeParagraaf(..Vertaler.GeefVertaling("Voor")_" "_..Vertaler.GeefVertaling(..IngegevenKenmerken.KoppelingType _ "Koppeling"))
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkFront">
+<Implementation><![CDATA[
+	do ..VoegToeParagraaf(..GeefLadeHoogteTekst())
+	do ..VoegToeParagraaf(..GeefInbouwbreedteTekst())
+	do ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("LengteFrontBinnenlade"),..LadeOnderdeel.GeefBreedteInMM() _ "mm"))
+	do ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Eindkap"), ..KleurCodeVertaler.GeefVertaling(..IngegevenKenmerken.FrontEindkapKleur)))
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkZijkantLinks">
 <Private>1</Private>
+<Implementation><![CDATA[	do ..VerwerkZijkant(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links())
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkZijkantRechts">
 <Private>1</Private>
+<Implementation><![CDATA[	do ..VerwerkZijkant(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts())
+]]></Implementation>
 </Method>
 
-<Method name="VoegToeLangtekstParagraaf">
+<Method name="VerwerkZijkant">
+<FormalSpec>ZijkantRol:DOM.PM.Maatwerk.Lade.enu.ZijkantRol</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ..VoegToeParagraaf( ..GeefLadeHoogteTekst())
+	do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("Diepte"),..IngegevenKenmerken.LadeDiepte _ "mm"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefInbouwbreedteTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	quit ..Formateer(..Vertaler.GeefVertaling("InterneBreedte") ,..IngegevenKenmerken.InterneBreedte _ "mm")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeHoogteTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	quit ..Formateer(..Vertaler.GeefVertaling("Hoogte"), ..IngegevenKenmerken.LadeHoogte)
+]]></Implementation>
+</Method>
+
+<Method name="HoofdKleurToevoegen">
+<FormalSpec>Korttekst:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Toevoegen As %Boolean = 1
+	#dim KleurCode As %String = $$$Trim($extract(Korttekst,22,25))
+	if $length(KleurCode) set Toevoegen = $$$Not($length(..KleurCodeVertaler.GeefVertaling(KleurCode)))
+	quit Toevoegen
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeParagraaf">
 <FormalSpec>LangtekstDetail:TECH.String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do:(LangtekstDetail'="") ..Detail.Insert(LangtekstDetail)
+<Implementation><![CDATA[
+	if $length(LangtekstDetail)>0 {
+		Do ..Detail.Insert($$$UCase($extract(LangtekstDetail,1))_$extract(LangtekstDetail,2,*))
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="Formateer">
+<FormalSpec>Label:%String,Tekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit Label_": "_Tekst
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX002/TestLBX002_Langteksten.txt
===================================================================
diff -u -r29747 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX002/TestLBX002_Langteksten.txt	(.../TestLBX002_Langteksten.txt)	(revision 29747)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX002/TestLBX002_Langteksten.txt	(.../TestLBX002_Langteksten.txt)	(revision 30577)
@@ -1,11 +1,12 @@
 Frans:
 LEGRABOX tiroir �
-l'anglaise M;P:500xL:1114; fond:Gris fonc�;
-c�t� de tiroir:Inox Bross�; contient:
-tiroir mont�; pi�ce avant avec insert:
-verre diamant clair; coulisses corps de
-meuble 40kg; TIP-ON; stabilisation
-lat�rale; profiles de distance
+l'anglaise M
+P:500xL:1114; fond:Gris fonc�; c�t� de
+tiroir:Inox Bross�; contient: tiroir mont�;
+pi�ce avant avec insert: verre diamant
+clair; coulisses corps de meuble 40kg;
+TIP-ON; stabilisation lat�rale; profiles de
+distance
 emball�: carton
 
 Nederlands:
@@ -28,10 +29,10 @@
 
 Duits:
 LEGRABOX
-Innenschubkasten M;T:500xB:1114;
-Boden:Dunkelgrau; Zarge:Inox; beinhaltet:
-fertigschubkasten; Vorderst�ck mit
-Einschubelement: Glas Diamant klar;
+Innenschubkasten M
+T:500xB:1114; Boden:Dunkelgrau; Zarge:Inox;
+beinhaltet: fertigschubkasten; Vorderst�ck
+mit Einschubelement: Glas Diamant klar;
 Korpusschienen 40kg; TIP-ON;
 Seitenstabilisierung; distanzleisten
 verpackt: karton
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXUitsparingLadeDubbel/TestLBXUitsparingLadeDubbel_Langteksten.txt
===================================================================
diff -u -r29747 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXUitsparingLadeDubbel/TestLBXUitsparingLadeDubbel_Langteksten.txt	(.../TestLBXUitsparingLadeDubbel_Langteksten.txt)	(revision 29747)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXUitsparingLadeDubbel/TestLBXUitsparingLadeDubbel_Langteksten.txt	(.../TestLBXUitsparingLadeDubbel_Langteksten.txt)	(revision 30577)
@@ -1,6 +1,7 @@
 Frans:
 LEGRABOX Tiroir sous
-�vier Siphon C;P:300xL:764
+�vier Siphon C
+P:300xL:764
 espace pour siphons = 150mm 300mm
 (125/150/200/300/175); fond:Gris fonc�;
 c�t� de tiroir:Orion gris; contient: tiroir
@@ -21,7 +22,8 @@
 
 Engels:
 LEGRABOX washer drawer
-Siphon C;D:300xW:764
+Siphon C
+D:300xW:764
 space for siphons = 150mm 300mm
 (125/150/200/300/175); base:Dark grey;
 drawer side:Orion grey mat; contains:
@@ -31,7 +33,8 @@
 
 Duits:
 LEGRABOX Sp�lenauszug
-Siphon C;T:300xB:764
+Siphon C
+T:300xB:764
 Raum f�r Siphon = 150mm 300mm
 (125/150/200/300/175); Boden:Dunkelgrau;
 Zarge:Oriongrau matt; beinhaltet:
@@ -42,9 +45,8 @@
 
 Vertaling met sleutels:
 LEGRABOX
-[SifonladeLangtekstHoofding]
-C;[DiepteAfkorting]:300x[BreedteAfkorting]:76
-4
+[SifonladeLangtekstHoofding] C
+[DiepteAfkorting]:300x[BreedteAfkorting]:764
 [Sifonopeningen] = 150mm 300mm
 (125/150/200/300/175); [Bodem]:[DG];
 [LadeZijkant]:[OG-M]; [Bevat]:
Index: DOM/PM/impl/TAORLangtekstCreator/TAOR/TestBase.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/TAORLangtekstCreator/TAOR/TestBase.cls.xml	(revision 0)
+++ DOM/PM/impl/TAORLangtekstCreator/TAOR/TestBase.cls.xml	(revision 30577)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.impl.TAORLangtekstCreator.TAOR.TestBase">
+<Abstract>1</Abstract>
+<Super>vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.Test</Super>
+
+<Method name="GeefLangtekstCreator">
+<Final>1</Final>
+<Private>1</Private>
+<ReturnType>DOM.PM.impl.LangtekstCreator</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.PM.impl.TAORLangtekstCreator).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX011GekoppeldeMAT/TestLBX011GekoppeldeMAT_Langteksten.txt
===================================================================
diff -u -r29747 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX011GekoppeldeMAT/TestLBX011GekoppeldeMAT_Langteksten.txt	(.../TestLBX011GekoppeldeMAT_Langteksten.txt)	(revision 29747)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX011GekoppeldeMAT/TestLBX011GekoppeldeMAT_Langteksten.txt	(.../TestLBX011GekoppeldeMAT_Langteksten.txt)	(revision 30577)
@@ -1,10 +1,11 @@
 Frans:
 LEGRABOX tiroir �
-l'anglaise C;P:400xL:300; fond:Gris fonc�;
-c�t� de tiroir:Orion gris; contient: tiroir
-mont�; pi�ce avant avec insert bas: verre
-diamant clair; coulisses corps de meuble
-40kg; BLUMOTION
+l'anglaise C
+P:400xL:300; fond:Gris fonc�; c�t� de
+tiroir:Orion gris; contient: tiroir mont�;
+pi�ce avant avec insert bas: verre diamant
+clair; coulisses corps de meuble 40kg;
+BLUMOTION
 tapis antid�rapant anthracite
 emball�: carton
 
@@ -29,10 +30,11 @@
 
 Duits:
 LEGRABOX
-Innenschubkasten C;T:400xB:300;
-Boden:Dunkelgrau; Zarge:Oriongrau matt;
-beinhaltet: fertigschubkasten; Vorderst�ck
-mit niedrigem Einschubelement: Glas Diamant
+Innenschubkasten C
+T:400xB:300; Boden:Dunkelgrau;
+Zarge:Oriongrau matt; beinhaltet:
+fertigschubkasten; Vorderst�ck mit
+niedrigem Einschubelement: Glas Diamant
 klar; Korpusschienen 40kg; BLUMOTION
 antirutsch einlegematte anthrazit
 verpackt: karton
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXUitsparingBinnenLadeEnkel/TestLBXUitsparingBinnenLadeEnkel_Langteksten.txt
===================================================================
diff -u -r29747 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXUitsparingBinnenLadeEnkel/TestLBXUitsparingBinnenLadeEnkel_Langteksten.txt	(.../TestLBXUitsparingBinnenLadeEnkel_Langteksten.txt)	(revision 29747)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXUitsparingBinnenLadeEnkel/TestLBXUitsparingBinnenLadeEnkel_Langteksten.txt	(.../TestLBXUitsparingBinnenLadeEnkel_Langteksten.txt)	(revision 30577)
@@ -1,6 +1,7 @@
 Frans:
 LEGRABOX Tiroir sous
-�vier Siphon � l'anglaise C;P:300xL:414
+�vier Siphon � l'anglaise C
+P:300xL:414
 espace pour siphon = 150mm (125/150/175);
 fond:Gris fonc�; c�t� de tiroir:Orion gris;
 contient: tiroir mont�; pi�ce avant avec
@@ -11,7 +12,8 @@
 
 Nederlands:
 LEGRABOX Sifon
-binnenlade C;D:300xB:414
+binnenlade C
+D:300xB:414
 Sifonopening = 150mm (125/150/175);
 bodem:Donkergrijs; ladezijkant:Orion grijs;
 bevat: gemont. lade; voorstuk met reling;
@@ -22,7 +24,8 @@
 
 Engels:
 LEGRABOX inner washer
-drawer Siphon C;D:300xW:414
+drawer Siphon C
+D:300xW:414
 space for siphon = 150mm (125/150/175);
 base:Dark grey; drawer side:Orion grey mat;
 contains: premounted drawer; front piece
@@ -33,7 +36,8 @@
 
 Duits:
 LEGRABOX
-Innensiphonschublade C;T:300xB:414
+Innensiphonschublade C
+T:300xB:414
 Raum f�r Siphon = 150mm (125/150/175);
 Boden:Dunkelgrau; Zarge:Oriongrau matt;
 beinhaltet: fertigschubkasten; Vorderst�ck
@@ -44,9 +48,8 @@
 
 Vertaling met sleutels:
 LEGRABOX
-[SifonbinnenladeLangtekstHoofding]
-C;[DiepteAfkorting]:300x[BreedteAfkorting]:41
-4
+[SifonbinnenladeLangtekstHoofding] C
+[DiepteAfkorting]:300x[BreedteAfkorting]:414
 [Sifonopening] = 150mm (125/150/175);
 [Bodem]:[DG]; [LadeZijkant]:[OG-M];
 [Bevat]: [GemonteerdeLade];
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX005/TestLBX005_Langteksten.txt
===================================================================
diff -u -r29747 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX005/TestLBX005_Langteksten.txt	(.../TestLBX005_Langteksten.txt)	(revision 29747)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBX005/TestLBX005_Langteksten.txt	(.../TestLBX005_Langteksten.txt)	(revision 30577)
@@ -1,9 +1,9 @@
 Frans:
 LEGRABOX tiroir �
-l'anglaise M;P:500xL:1139; fond:Gris fonc�;
-c�t� de tiroir:Inox Bross�; contient:
-tiroir mont�; pi�ce avant avec insert:
-verre diamant clair
+l'anglaise M
+P:500xL:1139; fond:Gris fonc�; c�t� de
+tiroir:Inox Bross�; contient: tiroir mont�;
+pi�ce avant avec insert: verre diamant clair
 emball�: carton
 non fourni: caches int�rieurs; caches
 ext�rieure; coulisses corps de meuble;
@@ -37,10 +37,10 @@
 
 Duits:
 LEGRABOX
-Innenschubkasten M;T:500xB:1139;
-Boden:Dunkelgrau; Zarge:Inox; beinhaltet:
-fertigschubkasten; Vorderst�ck mit
-Einschubelement: Glas Diamant klar
+Innenschubkasten M
+T:500xB:1139; Boden:Dunkelgrau; Zarge:Inox;
+beinhaltet: fertigschubkasten; Vorderst�ck
+mit Einschubelement: Glas Diamant klar
 verpackt: karton
 Nicht enhalten: Abdeckkappen innen;
 Abdeckkappen aussen; Korpusschienen;
Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBase.cls.xml
===================================================================
diff -u -r30176 -r30577
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30176)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30577)
@@ -19,13 +19,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Korttekst">
+<Type>%String</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()
+	set ..Korttekst = ""
 ]]></Implementation>
 </Method>
 
@@ -37,28 +43,23 @@
 <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><![CDATA[	quit ..GeefLangtekst().GeefHoofding()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDetail">
 <Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..GeefLangtekst().GeefDetail()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLangtekst">
+<Private>1</Private>
+<ReturnType>DOM.PM.ProductLangtekst</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
+	quit ..LangtekstCreator.GeefLangtekst(..TAORKenmerken, HalffabItemsBoom, ..Taal,..Korttekst)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyRugMetHouders/TestLBXOnlyRugMetHouders_Langteksten.txt
===================================================================
diff -u -r29059 -r30577
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyRugMetHouders/TestLBXOnlyRugMetHouders_Langteksten.txt	(.../TestLBXOnlyRugMetHouders_Langteksten.txt)	(revision 29059)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestLBXOnlyRugMetHouders/TestLBXOnlyRugMetHouders_Langteksten.txt	(.../TestLBXOnlyRugMetHouders_Langteksten.txt)	(revision 30577)
@@ -1,6 +1,7 @@
 Frans:
 LEGRABOX tiroir �
-l'anglaise M;P:500xL:769
+l'anglaise M
+P:500xL:769
 ******
 SEULEMENT dos avec adapteurs dos:Gris fonc�
 ******
@@ -21,7 +22,8 @@
 
 Duits:
 LEGRABOX
-Innenschubkasten M;T:500xB:769
+Innenschubkasten M
+T:500xB:769
 ******
 NUR R�ckwand mit R�ckwandhalter:Dunkelgrau
 ******
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Zijkant rechts/TestTAORLosseComponentenInBulk_Langteksten.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Zijkant rechts/TestTAORLosseComponentenInBulk_Langteksten.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten/TestTAORLosseComponentenInBulk/Zijkant rechts/TestTAORLosseComponentenInBulk_Langteksten.txt	(revision 30577)
@@ -0,0 +1,30 @@
+Frans:
+TA'OR BOX c�t� droit
+Hauteur: C
+Profondeur: 500mm
+Couleur: Noyer naturel
+
+Nederlands:
+TA'OR BOX zijkant rechts
+Hoogte: C
+Diepte: 500mm
+Kleur: Natuur notenhout
+
+Engels:
+TA'OR BOX side right
+Height: C
+: 500mm
+Colour: Natural walnut
+
+Duits:
+TA'OR BOX Zarge rechts
+H�he: C
+: 500mm
+Farbe: Nussbaum Natur
+
+Vertaling met sleutels:
+TA'OR BOX [Zijkant]
+[Rechts]
+[Hoogte]: C
+[Diepte]: 500mm
+[Kleur]: [NN]
Index: vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TestTAORLosseComponentenInBulk.cls.xml
===================================================================
diff -u -r30183 -r30577
--- vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TestTAORLosseComponentenInBulk.cls.xml	(.../TestTAORLosseComponentenInBulk.cls.xml)	(revision 30183)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TestTAORLosseComponentenInBulk.cls.xml	(.../TestTAORLosseComponentenInBulk.cls.xml)	(revision 30577)
@@ -1,19 +1,39 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.TestTAORLosseComponentenInBulk">
-<Super>vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.Test</Super>
+<Super>DOM.PM.impl.TAORLangtekstCreator.TAOR.TestBase</Super>
 
+<Property name="LosseComponent">
+<Type>APPS.PM.enu.TAORLosseComponent</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(APPS.PM.enu.TAORLosseComponent).ValueListIterator()
+	while Iterator.HasNext() {
+		set ..LosseComponent = Iterator.Next()
+		do ..DoTest()
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefKenmerkenDto">
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[	quit ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk())
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk())
+	set IngegevenKenmerken.LosseComponent = ..LosseComponent
+	quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLangtekstCreator">
-<Private>1</Private>
-<ReturnType>DOM.PM.impl.LangtekstCreator</ReturnType>
-<Implementation><![CDATA[	quit ##class(DOM.PM.impl.TAORLangtekstCreator).%New()
+<Method name="GeefBestandLocatie">
+<FormalSpec>SubPath:TECH.String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LosseComponent As APPS.PM.enu.TAORLosseComponent = $select(..LosseComponent="":"B",1:..LosseComponent)
+	quit ##class(TECH.Files).AppendSubPath(##super(),##class(APPS.PM.enu.TAORLosseComponent).LogicalToDisplay(..LosseComponent))
 ]]></Implementation>
 </Method>
 </Class>