Index: vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/LBX/TestBase.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/LBX/TestBase.cls.xml	(revision 0)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/LBX/TestBase.cls.xml	(revision 30968)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.LBX.TestBase">
+<Abstract>1</Abstract>
+<Super>vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.TestBase,DOM.PM.Maatwerk.LBX.impl.Base</Super>
+
+<Method name="GeefLangtekstCreator">
+<Final>1</Final>
+<Private>1</Private>
+<ReturnType>DOM.PM.impl.LangtekstCreator</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.PM.impl.LBXLangtekstCreator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/MAT/TestBase.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/MAT/TestBase.cls.xml	(revision 0)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/MAT/TestBase.cls.xml	(revision 30968)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.MAT.TestBase">
+<Abstract>1</Abstract>
+<Super>vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.TestBase,DOM.PM.Maatwerk.MAT.impl.Base</Super>
+
+<Method name="GeefLangtekstCreator">
+<Private>1</Private>
+<ReturnType>DOM.PM.impl.LangtekstCreator</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.PM.impl.MATBasisLangtekstCreator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardLade()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/Test.cls.xml
===================================================================
diff -u -r30577 -r30968
--- vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/Test.cls.xml	(.../Test.cls.xml)	(revision 30577)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/Test.cls.xml	(.../TestBase.cls.xml)	(revision 30968)
@@ -1,48 +1,55 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.Test">
+<Class name="vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.TestBase">
 <Abstract>1</Abstract>
 <Super>vhTest.Integratie.TestCase</Super>
 
 <Method name="Test">
-<Implementation><![CDATA[	do ..DoTest()
+<Implementation><![CDATA[	do ..MaakLangtekstBestand()
 ]]></Implementation>
 </Method>
 
-<Method name="DoTest">
+<Method name="MaakLangtekstBestand">
 <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()
-	Do FileWriter.Open(Filename)
+	#dim Taal As DOM.enu.Taal
+	#dim ProductLangtekst As DOM.PM.ProductLangtekst
 	
-	set ConfiguratorService = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New()
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ConfiguratorService.GeefIngegevenKenmerkenVanDto(..GeefKenmerkenDto())
+	#dim Filename As %String = ##class(TECH.Files).AppendFile(..GeefBestandLocatie(), ..%ClassName() _ "_Langteksten.txt")
+	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	
+	do FileWriter.Open(Filename)
+	
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefIngegevenKenmerken()
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefHalffabItemsBoom(Kenmerken)
-		
 	#dim LangtekstCreator As DOM.PM.impl.LangtekstCreator = ..GeefLangtekstCreator()
-	
 	#dim TaalIterator As TECH.ListIterator = ##class(DOM.enu.Taal).ValueListIterator()
+	
 	while TaalIterator.HasNext() {
-		#dim Taal As %String = TaalIterator.Next()
+		set Taal = TaalIterator.Next()
+		set ProductLangtekst = LangtekstCreator.GeefLangtekst(Kenmerken, HalffabItemsBoom, Taal)
 		
-		#dim ProductLangtekst As DOM.PM.ProductLangtekst = LangtekstCreator.GeefLangtekst(Kenmerken,HalffabItemsBoom,Taal)
 		#dim Langtekst As %String = ProductLangtekst.GeefString()
 		
-		do FileWriter.WriteLine(##class(DOM.enu.Taal).LogicalToDisplay(Taal)_":")
+		do FileWriter.WriteLine(##class(DOM.enu.Taal).LogicalToDisplay(Taal) _ ":")
 		do FileWriter.WriteLine(Langtekst)
 		do FileWriter.WriteLine("")
 		
 	}
+	
 	do ##class(DOM.DomeinContext).Instance().PushVertaalAPIClassName("vhTest.Mock.DOM.common.Transl.VertaalAPI")
+	
 	#dim VertaalAPI As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI()
-	set VertalerStub = ##class(vhTest.Utils.Vertaler).%New("")
+	#dim VertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("")
+	
 	set Taal = ##class(DOM.enu.Taal).Nederlands()
+	
 	do VertaalAPI.IndienMethodCall("GeefStandaardVertaler", Taal).DanReturn(VertalerStub)
 	do VertaalAPI.IndienMethodCall("GeefKleurCodeVertaler", Taal).DanReturn(VertalerStub)
 	
-	Set ProductLangtekst = LangtekstCreator.GeefLangtekst(Kenmerken,HalffabItemsBoom,##class(DOM.enu.Taal).Nederlands())
+	set ProductLangtekst = LangtekstCreator.GeefLangtekst(Kenmerken, HalffabItemsBoom, Taal)
+	
 	do FileWriter.WriteLine("Vertaling met sleutels:")
 	do FileWriter.WriteLine(ProductLangtekst.GeefString())
 	
@@ -54,10 +61,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKenmerkenDto">
+<Method name="GeefIngegevenKenmerken">
 <Abstract>1</Abstract>
 <Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
Index: vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/LBX/TestLBXPalletVerpakking.cls.xml
===================================================================
diff -u -r29059 -r30968
--- vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/LBX/TestLBXPalletVerpakking.cls.xml	(.../TestLBXPalletVerpakking.cls.xml)	(revision 29059)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/LBX/TestLBXPalletVerpakking.cls.xml	(.../LBX/TestVerpakkingen.cls.xml)	(revision 30968)
@@ -1,22 +1,35 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.TestLBXPalletVerpakking">
-<Super>vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.Test</Super>
+<Class name="vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.LBX.TestVerpakkingen">
+<Super>vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.LBX.TestBase</Super>
 
-<Method name="GeefKenmerkenDto">
+<Property name="VerpakkingType">
+<Type>DOM.PM.enu.LBXVerpakkingType</Type>
 <Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+</Property>
+
+<Method name="Test">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.Maatwerk.LBXIngegevenKenmerken).CLade()
-	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Pallet()
-	Quit IngegevenKenmerken
+	#dim Iterator As TECH.Iterator = ##class(DOM.PM.enu.LBXVerpakkingType).ValueListIterator()
+	
+	while (Iterator.HasNext()) {
+		set ..VerpakkingType = Iterator.Next()
+		do ..MaakLangtekstBestand()
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLangtekstCreator">
+<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.LBXVerpakkingType).LogicalToDisplay(..VerpakkingType)))
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
 <Private>1</Private>
-<ReturnType>DOM.PM.impl.LangtekstCreator</ReturnType>
-<Implementation><![CDATA[	quit ##class(DOM.PM.impl.LBXLangtekstCreator).%New()
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLadeVerpaktIn(..VerpakkingType)
 ]]></Implementation>
 </Method>
 </Class>