Index: vhPowerTools/DOM/PM/Product/TAX/LosseComponent/KorttekstAanpasser.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/PM/Product/TAX/LosseComponent/KorttekstAanpasser.cls.xml	(revision 0)
+++ vhPowerTools/DOM/PM/Product/TAX/LosseComponent/KorttekstAanpasser.cls.xml	(revision 38615)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.PM.Product.TAX.LosseComponent.KorttekstAanpasser">
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductBeheerApi">
+<Type>DOM.PM.ProductBeheerAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KorttekstBepaler">
+<Type>DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..ProductBeheerApi = ##class(DOM.DomeinContext).Instance().GeefProductBeheerAPI()
+	set ..ProductTypeApi = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	set ..KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler).%New() 
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<Implementation><![CDATA[
+	
+	s fn = "e:\lijst.txt"
+	o fn:"wns"
+	u fn
+	set KlassificatieIds = ##class(%ListOfDataTypes).%New()
+	do KlassificatieIds.Insert("1628")
+	do KlassificatieIds.Insert("1629")
+	do KlassificatieIds.Insert("1630")
+		
+	set KlassificatieIdIterator = ##class(TECH.ListIterator).%New(KlassificatieIds)
+	while KlassificatieIdIterator.HasNext() {
+		do ..WijzigKlassificatie(KlassificatieIdIterator.Next())	
+	}
+	
+	c fn
+]]></Implementation>
+</Method>
+
+<Method name="WijzigKlassificatie">
+<FormalSpec>KlassificatieId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ProductIterator As TECH.Iterator = ..ProductBeheerApi.GeefClassificatie(KlassificatieId).GeefProductIterator()
+	while ProductIterator.HasNext() {
+		#dim Product As DOM.PM.MaatwerkProduct = ProductIterator.Next()
+		continue:..ProductTypeApi.IsGenerischProduct(Product.GeefID())
+		do ..WijzigProduct(Product)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WijzigProduct">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	W !,Product.GeefID()
+	#dim Korttekst As %String = "a" ;..KorttekstBepaler.BepaalKorttekst(Product.GeefDossierNr(),Product.GeefIngegevenKenmerken(),Product.GeefHalffabItemsBoom())
+	if $$$Not(Korttekst = Product.GeefKorttekst()) {
+		;do DELIND^PRODUKT2(Product.GeefID())
+		;do Set^PRODUKT(Product.GeefID(),$$$KortTekst,Korttekst)
+		;do BLDIND^PRODUKT2(Product.GeefID())
+		;write Product.GeefID(),*13
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml
===================================================================
diff -u -r35695 -r38615
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 35695)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 38615)
@@ -133,6 +133,9 @@
 	do ..VoegToeParagraaf(..GeefInbouwbreedteTekst())
 	do ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("LengteFrontBinnenlade"),..LadeOnderdeel.GeefBreedteInMM() _ "mm"))
 	do ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Eindkap"), ..KleurCodeVertaler.GeefVertaling(..IngegevenKenmerken.FrontEindkapKleur)))
+	if ..Kleuren.GetAt(..Const.Binnenkant)'=..Kleuren.GetAt(3) {
+		do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurKantenband"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(3))))
+	}
 ]]></Implementation>
 </Method>
 
@@ -155,7 +158,7 @@
 	do ..VoegToeParagraaf( ..GeefLadeHoogteTekst())
 	do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("NominaleLengteAfkorting"),..IngegevenKenmerken.LadeDiepte _ "mm"))
 	
-	if ..Kleuren.GetAt(1)'=..Kleuren.GetAt(2) {
+	if $$$Not(..Kleuren.GetAt(1) =..Kleuren.GetAt(2)) || $$$Not(..Kleuren.GetAt(2) =..Kleuren.GetAt(3)) {
 		do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurBuitenkant"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Buitenkant))))
 		do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurKantenband"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(3))))
 		do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurBinnenkant"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Binnenkant))))	
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/Rug/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt
===================================================================
diff -u -r38609 -r38615
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/Rug/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt	(.../TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt)	(revision 38609)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/Rug/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt	(.../TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt)	(revision 38615)
@@ -3,32 +3,37 @@
 Hauteur: C
 Largeur int�rieure: 600mm
 Longueur dos: 569mm
+Couleur chant � coller: Ch�ne Naturel
 Couleur: Noyer Naturel
 
 Nederlands:
 TA'OR BOX rug
 Hoogte: C
 Interne breedte: 600mm
 Lengte rug: 569mm
+Kleur kantenband: Natuur Eikenhout
 Kleur: Natuur Notenhout
 
 Engels:
 TA'OR BOX back
 Height: C
 Internal width: 600mm
 Length back: 569mm
+Colour edge-band: Natural Oak
 Colour: Natural Walnut
 
 Duits:
 TA'OR BOX R�ckwand
 H�he: C
 Lichte Weite: 600mm
 L�nge R�ckwand: 569mm
+Farbe Kantenband: Eiche Natur
 Farbe: Nussbaum Natur
 
 Vertaling met sleutels:
 TA'OR BOX [rug]
 [Hoogte]: C
 [InterneBreedte]: 600mm
 [LengteRug]: 569mm
+[KleurKantenband]: [NE]
 [Kleur]: [NN]
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/ZijkantRechts/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt
===================================================================
diff -u -r38609 -r38615
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/ZijkantRechts/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt	(.../TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt)	(revision 38609)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/ZijkantRechts/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt	(.../TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt)	(revision 38615)
@@ -2,29 +2,39 @@
 TA'OR BOX c�t� droit
 Hauteur: C
 NL: 500mm
-Couleur: Noyer Naturel
+Couleur ext�rieure: Noyer Naturel
+Couleur chant � coller: Ch�ne Naturel
+Couleur int�rieure: Noyer Naturel
 
 Nederlands:
 TA'OR BOX zijkant rechts
 Hoogte: C
 NL: 500mm
-Kleur: Natuur Notenhout
+Kleur buitenkant: Natuur Notenhout
+Kleur kantenband: Natuur Eikenhout
+Kleur binnenkant: Natuur Notenhout
 
 Engels:
 TA'OR BOX side right
 Height: C
 NL: 500mm
-Colour: Natural Walnut
+Exterior colour: Natural Walnut
+Colour edge-band: Natural Oak
+Interior colour: Natural Walnut
 
 Duits:
 TA'OR BOX Zarge rechts
 H�he: C
 NL: 500mm
-Farbe: Nussbaum Natur
+Aussenfarbe: Nussbaum Natur
+Farbe Kantenband: Eiche Natur
+Innenfarbe: Nussbaum Natur
 
 Vertaling met sleutels:
 TA'OR BOX [Zijkant]
 [Rechts]
 [Hoogte]: C
 [NominaleLengteAfkorting]: 500mm
-[Kleur]: [NN]
+[KleurBuitenkant]: [NN]
+[KleurKantenband]: [NE]
+[KleurBinnenkant]: [NN]
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/Front/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt
===================================================================
diff -u -r38609 -r38615
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/Front/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt	(.../TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt)	(revision 38609)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/Front/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt	(.../TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt)	(revision 38615)
@@ -5,6 +5,7 @@
 Largeur int�rieure: 600mm
 Longueur pi�ce avant: 590mm
 Caches: Finition Alu
+Couleur chant � coller: Ch�ne Naturel
 Couleur: Noyer Naturel
 
 Nederlands:
@@ -13,6 +14,7 @@
 Interne breedte: 600mm
 Lengte front binnenlade: 590mm
 Eindkap: Aluminium look
+Kleur kantenband: Natuur Eikenhout
 Kleur: Natuur Notenhout
 
 Engels:
@@ -22,6 +24,7 @@
 Internal width: 600mm
 Length: 590mm
 End cover caps: Aluminium look
+Colour edge-band: Natural Oak
 Colour: Natural Walnut
 
 Duits:
@@ -31,6 +34,7 @@
 Lichte Weite: 600mm
 L�nge Vorderst�ck: 590mm
 Endkappe: Alu look
+Farbe Kantenband: Eiche Natur
 Farbe: Nussbaum Natur
 
 Vertaling met sleutels:
@@ -40,4 +44,5 @@
 [InterneBreedte]: 600mm
 [LengteFrontBinnenlade]: 590mm
 [Eindkap]: [AL]
+[KleurKantenband]: [NE]
 [Kleur]: [NN]
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/ZijkantLinks/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt
===================================================================
diff -u -r38609 -r38615
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/ZijkantLinks/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt	(.../TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt)	(revision 38609)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestLosseComponentenInBulkAfwijkendeKantenband/ZijkantLinks/TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt	(.../TestLosseComponentenInBulkAfwijkendeKantenband_Langteksten.txt)	(revision 38615)
@@ -2,29 +2,39 @@
 TA'OR BOX c�t� gauche
 Hauteur: C
 NL: 500mm
-Couleur: Noyer Naturel
+Couleur ext�rieure: Noyer Naturel
+Couleur chant � coller: Ch�ne Naturel
+Couleur int�rieure: Noyer Naturel
 
 Nederlands:
 TA'OR BOX zijkant links
 Hoogte: C
 NL: 500mm
-Kleur: Natuur Notenhout
+Kleur buitenkant: Natuur Notenhout
+Kleur kantenband: Natuur Eikenhout
+Kleur binnenkant: Natuur Notenhout
 
 Engels:
 TA'OR BOX side left
 Height: C
 NL: 500mm
-Colour: Natural Walnut
+Exterior colour: Natural Walnut
+Colour edge-band: Natural Oak
+Interior colour: Natural Walnut
 
 Duits:
 TA'OR BOX Zarge links
 H�he: C
 NL: 500mm
-Farbe: Nussbaum Natur
+Aussenfarbe: Nussbaum Natur
+Farbe Kantenband: Eiche Natur
+Innenfarbe: Nussbaum Natur
 
 Vertaling met sleutels:
 TA'OR BOX [Zijkant]
 [Links]
 [Hoogte]: C
 [NominaleLengteAfkorting]: 500mm
-[Kleur]: [NN]
+[KleurBuitenkant]: [NN]
+[KleurKantenband]: [NE]
+[KleurBinnenkant]: [NN]
Index: vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TAX/TestLosseComponentenInBulkAfwijkendeKantenband.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TAX/TestLosseComponentenInBulkAfwijkendeKantenband.cls.xml	(revision 0)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TAX/TestLosseComponentenInBulkAfwijkendeKantenband.cls.xml	(revision 38615)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.TAX.TestLosseComponentenInBulkAfwijkendeKantenband">
+<Super>vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.TAX.TestBase</Super>
+
+<Property name="ProductieWijze">
+<Type>DOM.PM.enu.TAORProductieWijze</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(DOM.PM.enu.TAORProductieWijze).ValueListIterator()
+	
+	while (Iterator.HasNext()) {
+		set ..ProductieWijze = Iterator.Next()
+		do:($$$Not(..ProductieWijze = ..Enum.ProductieWijze.Volledig)) ..MaakLangtekstBestand()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandLocatie">
+<FormalSpec>SubPath:TECH.String=""</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.Files).AppendSubPath(##super(), $$$DeSpace(##class(DOM.PM.enu.TAORProductieWijze).LogicalToDisplay(..ProductieWijze)))
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(..Enum.VerpakkingType.LosseComponentenInBulk)
+	
+	set TAORKenmerken.ProductieWijze = ..ProductieWijze
+	set TAORKenmerken.KantenbandKleur = ##class(DOM.PM.enu.TAORKantenbandKleur).NatuurEikenhout()
+	
+	quit TAORKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>