Index: DOM/PM/LangtekstBewaarder.cls.xml
===================================================================
diff -u -r29059 -r46557
--- DOM/PM/LangtekstBewaarder.cls.xml	(.../LangtekstBewaarder.cls.xml)	(revision 29059)
+++ DOM/PM/LangtekstBewaarder.cls.xml	(.../LangtekstBewaarder.cls.xml)	(revision 46557)
@@ -1,81 +1,64 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.LangtekstBewaarder">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="Pieces">
 <Type>DOM.PM.impl.LangtekstBewaarderPieces</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ProductID">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>ProductID:%String</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set ..ProductID = ProductID
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="BewaarVoorTaal">
-<FormalSpec>Langtekst:%String,Taal:%String</FormalSpec>
+<FormalSpec>ProductID:%String,Langtekst:%String,Taal:%String</FormalSpec>
 <Implementation><![CDATA[
-	If (Taal="N") { Do ..BewaarNederlands(Langtekst) }
-	ElseIf (Taal="F") { Do ..BewaarFrans(Langtekst) }
-	ElseIf (Taal="D") { Do ..BewaarDuits(Langtekst) }
-	ElseIf (Taal="E") { Do ..BewaarEngels(Langtekst) }
-	ElseIf (Taal="BR") { Do ..BewaarBestelReferentie(Langtekst) }
+	If (Taal="N") { Do ..BewaarNederlands(ProductID,Langtekst) }
+	ElseIf (Taal="F") { Do ..BewaarFrans(ProductID,Langtekst) }
+	ElseIf (Taal="D") { Do ..BewaarDuits(ProductID,Langtekst) }
+	ElseIf (Taal="E") { Do ..BewaarEngels(ProductID,Langtekst) }
+	ElseIf (Taal="BR") { Do ..BewaarBestelReferentie(ProductID,Langtekst) }
 ]]></Implementation>
 </Method>
 
 <Method name="BewaarNederlands">
-<FormalSpec>Langtekst:%String</FormalSpec>
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim LengteEersteDeelLangtekst As %Integer = ##class(Prod.ProductTekst).GeefLengteEersteDeelLangtekst()
-	Do ..Bewaar(Langtekst,..Pieces.Nederlands,LengteEersteDeelLangtekst)
+	Do ..Bewaar(ProductID,Langtekst,..Pieces.Nederlands,LengteEersteDeelLangtekst)
 ]]></Implementation>
 </Method>
 
 <Method name="BewaarFrans">
-<FormalSpec>Langtekst:%String</FormalSpec>
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim LengteEersteDeelLangtekst As %Integer = ##class(Prod.ProductTekst).GeefLengteEersteDeelLangtekst()
-	Do ..Bewaar(Langtekst,..Pieces.Frans,LengteEersteDeelLangtekst)
+	Do ..Bewaar(ProductID,Langtekst,..Pieces.Frans,LengteEersteDeelLangtekst)
 ]]></Implementation>
 </Method>
 
 <Method name="BewaarDuits">
-<FormalSpec>Langtekst:%String</FormalSpec>
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim LengteEersteDeelLangtekst As %Integer = ##class(Prod.ProductTekst).GeefLengteEersteDeelLangtekst()
-	Do ..Bewaar(Langtekst,..Pieces.Duits,LengteEersteDeelLangtekst)
+	Do ..Bewaar(ProductID,Langtekst,..Pieces.Duits,LengteEersteDeelLangtekst)
 ]]></Implementation>
 </Method>
 
 <Method name="BewaarEngels">
-<FormalSpec>Langtekst:%String</FormalSpec>
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim LengteEersteDeelLangtekst As %Integer = ##class(Prod.ProductTekst).GeefLengteEersteDeelLangtekst()
-	Do ..Bewaar(Langtekst,..Pieces.Engels,LengteEersteDeelLangtekst)
+	Do ..Bewaar(ProductID,Langtekst,..Pieces.Engels,LengteEersteDeelLangtekst)
 ]]></Implementation>
 </Method>
 
 <Method name="BewaarBestelReferentie">
-<FormalSpec>Langtekst:%String</FormalSpec>
-<Implementation><![CDATA[	Do ..Bewaar(Langtekst,..Pieces.BestelReferentie,45)
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Bewaar(ProductID,Langtekst,..Pieces.BestelReferentie,45)
 ]]></Implementation>
 </Method>
 
 <Method name="Bewaar">
-<FormalSpec>Langtekst:%String,Pieces:%String,LengteEersteDeel:%Integer</FormalSpec>
+<FormalSpec>ProductID:%String,Langtekst:%String,Pieces:%String,LengteEersteDeel:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
@@ -90,7 +73,7 @@
 	{
 		#dim Node As %String = $P($P(Pieces,",",I),".",1)
 		#dim Piece As %String = $P($P(Pieces,",",I),".",2)
-		Set $Piece(^KPR(..ProductID,Node),"\",Piece) = ##class(TECH.StringUtils).Trim($P(Resultaat(DeelNr),"`",5))
+		Set $Piece(^KPR(ProductID,Node),"\",Piece) = ##class(TECH.StringUtils).Trim($P(Resultaat(DeelNr),"`",5))
 		Set I = I + 1
 		
 		Set DeelNr = $Order(Resultaat(DeelNr))
@@ -100,11 +83,11 @@
 	{
 		Set Node = $P($P(Pieces,",",I),".",1)
 		Set Piece = $P($P(Pieces,",",I),".",2)
-		Set $Piece(^KPR(..ProductID,Node),"\",Piece) = ""
+		Set $Piece(^KPR(ProductID,Node),"\",Piece) = ""
 	}
 	
-	Do BLDIND^PRODUKT2(..ProductID)
-	Do Gewijzigd^PRODUKT2(..ProductID)
+	Do BLDIND^PRODUKT2(ProductID)
+	Do Gewijzigd^PRODUKT2(ProductID)
 ]]></Implementation>
 </Method>
 </Class>