Index: vhUnitTest/DOM/PM/impl/DataM/DataMProductCreator/MaakProduct/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/DataM/DataMProductCreator/MaakProduct/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProductCreator/MaakProduct/Test.cls.xml	(revision 31511)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.DataM.DataMProductCreator.MaakProduct.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductID">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Property name="TempKPR">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+<Private>1</Private>
+</Property>
+
+<Property name="LangtekstBewaarderPieces">
+<Type>DOM.PM.impl.LangtekstBewaarderPieces</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..LangtekstBewaarderPieces = ##class(DOM.PM.impl.LangtekstBewaarderPieces).%New()
+	merge ..TempKPR = ^KPR(..#ProductID)
+	Do ..InitGenerischProduct()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Kill ^KPR(..#ProductID)
+	merge ^KPR(..#ProductID) = ..TempKPR
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(##class(DOM.PM.enu.Familie).Lade(), ##class(DOM.PM.enu.Variant).Taorbox(), IngegevenKenmerken)
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,"",##class(DOM.common.VanHoeckePersonality).Instance())
+	
+	Set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(IngegevenKenmerken,BerekeningsSpecificatie)
+	
+	Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New($$$DummyString)
+	
+	Set ProductCreator = ##class(vhUnitTest.DOM.PM.impl.DataM.DataMProductCreator.MaakProduct.ProductCreatorMock).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	
+	Do ..AssertKPRLangtekstPieces(ProductCreator.GeefPRNr())
+]]></Implementation>
+</Method>
+
+<Method name="InitGenerischProduct">
+<Implementation><![CDATA[
+	merge ^KPR(..#ProductID)=^KPR(##class(DOM.PM.Maatwerk.enu.GenerischProductID).TAORV1())
+	
+	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties(..LangtekstBewaarderPieces.%ClassName(1))
+	Set LangtekstBewaarderPiecesPropertieIt = ##class(TECH.ListIterator).%New(Properties)
+	While LangtekstBewaarderPiecesPropertieIt.HasNext() {
+		#dim Propertie As TECH.String = LangtekstBewaarderPiecesPropertieIt.Next()
+		#dim Pieces As TECH.String = $Property(..LangtekstBewaarderPieces, Propertie)
+		Set LangtekstPositiesIt = ##class(TECH.PiecesIterator).%New(Pieces, ",")
+		#dim i As TECH.Integer = 0
+		While LangtekstPositiesIt.HasNext() {
+			#dim Positie As TECH.String = LangtekstPositiesIt.Next()
+			#dim Node As %String = $Piece(Positie,".")
+			#dim Piece As %String = $Piece(Positie,".",2)
+			Set $P(^KPR(..#ProductID,Node), "\", Piece) = $$$UPPER($Extract(Propertie)_$I(i))
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertKPRLangtekstPieces">
+<FormalSpec>PRNr:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties(..LangtekstBewaarderPieces.%ClassName(1))
+	Do ..AssertLangtekstBewaarderTaal(PRNr, "Nederlands", ##class(DOM.enu.Taal).Nederlands(), .Properties)
+	Do ..AssertLangtekstBewaarderTaal(PRNr, "Frans", ##class(DOM.enu.Taal).Frans(), .Properties)
+	Do ..AssertLangtekstBewaarderTaal(PRNr, "Duits", ##class(DOM.enu.Taal).Duits(), .Properties)
+	Do ..AssertLangtekstBewaarderTaal(PRNr, "Engels", ##class(DOM.enu.Taal).Engels(), .Properties)
+	Do ..AssertLangtekstBewaarderTaal(PRNr, "BestelReferentie", ##class(DOM.enu.Taal).Nederlands(), .Properties)
+	Do $$$AssertEquals(Properties.Count(),0,"Volgende properties zijn nog niet getest """_##class(TECH.ListUtils).ListToPieces(Properties)_""" van de klasse:"_..LangtekstBewaarderPieces.%ClassName(1))
+]]></Implementation>
+</Method>
+
+<Method name="AssertLangtekstBewaarderTaal">
+<FormalSpec><![CDATA[PRNr:TECH.Integer,LangtekstBewaarderPiecesPropertyNaam:TECH.String,Taal:DOM.enu.Taal,&Properties:%ListOfDataTypes]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim i As TECH.Integer = 1
+	#dim Pieces As TECH.String = $Property(..LangtekstBewaarderPieces, LangtekstBewaarderPiecesPropertyNaam)
+	Set LangtekstPositiesIt = ##class(TECH.PiecesIterator).%New(Pieces, ",")
+	While LangtekstPositiesIt.HasNext() {
+		#dim Positie As TECH.String = LangtekstPositiesIt.Next()
+		#dim Node As %String = $Piece(Positie,".")
+		#dim Piece As %String = $Piece(Positie,".",2)
+		#dim String As TECH.String = $P(^KPR(PRNr,Node), "\", Piece)
+		If i=1 {
+			Do $$$AssertEquals(String,"UT-LT met taal: "_Taal)
+		} ElseIf i=2 {
+			Do $$$AssertEquals(String,"Dit is een langtekst")
+		} ElseIf i=3 {
+			Do $$$AssertEquals(String,"deze is in de taal "_##class(DOM.enu.Taal).LogicalToDisplay(Taal))
+		} ElseIf i=4 {
+			Do $$$AssertEquals(String,"en bestaat uit verschillende lijnen.")
+		} ElseIf i=5 {
+			Do $$$AssertEquals(String,"deze langtekst maar een tekst voor de test.")
+		} Else {
+			Do $$$AssertEquals(String,"")
+		}
+		Set i = i+1
+	}
+	Do Properties.RemoveAt(Properties.Find(LangtekstBewaarderPiecesPropertyNaam))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/DataM/DataMProductCreator/MaakProduct/ProductCreatorMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/DataM/DataMProductCreator/MaakProduct/ProductCreatorMock.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProductCreator/MaakProduct/ProductCreatorMock.cls.xml	(revision 31511)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.DataM.DataMProductCreator.MaakProduct.ProductCreatorMock">
+<Super>DOM.PM.impl.DataM.DataMProductCreator,Tools.Mock.MockClassBase</Super>
+
+<Method name="GeefGenerischPRNr">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 1000
+]]></Implementation>
+</Method>
+
+<Method name="BepaalKortTekst">
+<FormalSpec>DossierNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "DummyKorttekst"
+]]></Implementation>
+</Method>
+
+<Method name="GeefLangtekst">
+<FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.ProductLangtekst</ReturnType>
+<Implementation><![CDATA[
+	#dim Hoofding As TECH.String = "UT-LT met taal: "_Taal
+	#dim Detail As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(
+			"Dit is een langtekst",
+			"deze is in de taal "_##class(DOM.enu.Taal).LogicalToDisplay(Taal),
+			"en bestaat uit verschillende lijnen.",
+			"deze langtekst maar een tekst voor de test."
+		)
+	Quit ##class(DOM.PM.impl.ProductLangtekst).%New(Hoofding, Detail)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/DataM/DataMProductCreator.cls.xml
===================================================================
diff -u -r30521 -r31511
--- DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 30521)
+++ DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 31511)
@@ -165,9 +165,30 @@
 	// Leveranciersref, Aankoopprijs, LijstPrijs
 	For i=3,19,25 Do ..ZetWaarde("J",i,"")
 	Do ..ZetWaarde("J",10,20) ; KSDB%
+	
+	Do ..KuisLangtekstPiecesVanTemplateOp()
 ]]></Implementation>
 </Method>
 
+<Method name="KuisLangtekstPiecesVanTemplateOp">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties(..LangtekstPieces.%ClassName(1))
+	Set LangtekstBewaarderPiecesPropertieIt = ##class(TECH.ListIterator).%New(Properties)
+	While LangtekstBewaarderPiecesPropertieIt.HasNext() {
+		#dim Propertie As TECH.String = LangtekstBewaarderPiecesPropertieIt.Next()
+		#dim Pieces As TECH.String = $Property(..LangtekstPieces, Propertie)
+		Set LangtekstPositiesIt = ##class(TECH.PiecesIterator).%New(Pieces, ",")
+		While LangtekstPositiesIt.HasNext() {
+			#dim Positie As TECH.String = LangtekstPositiesIt.Next()
+			#dim Node As %String = $Piece(Positie,".")
+			#dim Piece As %String = $Piece(Positie,".",2)
+			Do ..ZetWaarde(Node, Piece, "")
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VulTemplate">
 <Private>1</Private>
 <Implementation><![CDATA[