Index: vhTest/Mock/DOM/PM/LangtekstBewaarder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/LangtekstBewaarder.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/LangtekstBewaarder.cls.xml	(revision 46557)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.LangtekstBewaarder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.LangtekstBewaarder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BewaarBestelReferentie">
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BewaarBestelReferentie",ProductID,Langtekst)
+]]></Implementation>
+</Method>
+
+<Method name="BewaarDuits">
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BewaarDuits",ProductID,Langtekst)
+]]></Implementation>
+</Method>
+
+<Method name="BewaarEngels">
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BewaarEngels",ProductID,Langtekst)
+]]></Implementation>
+</Method>
+
+<Method name="BewaarFrans">
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BewaarFrans",ProductID,Langtekst)
+]]></Implementation>
+</Method>
+
+<Method name="BewaarNederlands">
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BewaarNederlands",ProductID,Langtekst)
+]]></Implementation>
+</Method>
+
+<Method name="BewaarVoorTaal">
+<FormalSpec>ProductID:%String,Langtekst:%String,Taal:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BewaarVoorTaal",ProductID,Langtekst,Taal)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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>
Index: vhTest/Fake/DOM/PM/LangtekstBewaarder.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/PM/LangtekstBewaarder.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/PM/LangtekstBewaarder.cls.xml	(revision 46557)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.PM.LangtekstBewaarder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.LangtekstBewaarder</Super>
+
+<Method name="BewaarBestelReferentie">
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="BewaarDuits">
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="BewaarEngels">
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="BewaarFrans">
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="BewaarNederlands">
+<FormalSpec>ProductID:%String,Langtekst:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="BewaarVoorTaal">
+<FormalSpec>ProductID:%String,Langtekst:%String,Taal:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/BulkActie/Acties/WijzigLangtekst.cls.xml
===================================================================
diff -u -r33581 -r46557
--- APPS/PM/BulkActie/Acties/WijzigLangtekst.cls.xml	(.../WijzigLangtekst.cls.xml)	(revision 33581)
+++ APPS/PM/BulkActie/Acties/WijzigLangtekst.cls.xml	(.../WijzigLangtekst.cls.xml)	(revision 46557)
@@ -78,8 +78,8 @@
 	#dim NieuwLangtekst As %String = ..GeefNieuweLangtekst(OorspronkelijkeLangtekst,TeVervangen,Door)
 	set ActieResultaat.Opmerking2 = ..GeefWeerTeGevenLangtekst(NieuwLangtekst,Taal)
 	
-	Set LangtekstBewaarder = ##class(DOM.PM.LangtekstBewaarder).%New(ProductID)
-	Do LangtekstBewaarder.BewaarVoorTaal(NieuwLangtekst,Taal)
+	Set LangtekstBewaarder = ##class(DOM.PM.LangtekstBewaarder).%New()
+	Do LangtekstBewaarder.BewaarVoorTaal(ProductID,NieuwLangtekst,Taal)
 	quit ActieResultaat
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/PM/BulkActie/TestWijzigLangtekst.cls.xml
===================================================================
diff -u -r33581 -r46557
--- vhUnitTest/APPS/PM/BulkActie/TestWijzigLangtekst.cls.xml	(.../TestWijzigLangtekst.cls.xml)	(revision 33581)
+++ vhUnitTest/APPS/PM/BulkActie/TestWijzigLangtekst.cls.xml	(.../TestWijzigLangtekst.cls.xml)	(revision 46557)
@@ -108,8 +108,8 @@
 <Method name="ResetLangtekst">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set LangtekstBewaarder = ##class(DOM.PM.LangtekstBewaarder).%New(1001)
-	Do LangtekstBewaarder.BewaarNederlands("UT lange tekst voor een product")
+	Set LangtekstBewaarder = ##class(DOM.PM.LangtekstBewaarder).%New()
+	Do LangtekstBewaarder.BewaarNederlands(1001,"UT lange tekst voor een product")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhPowerTools/APPS/PM/Product/LangTekstControleKarakterCorrigeerder.cls.xml
===================================================================
diff -u -r33594 -r46557
--- vhPowerTools/APPS/PM/Product/LangTekstControleKarakterCorrigeerder.cls.xml	(.../LangTekstControleKarakterCorrigeerder.cls.xml)	(revision 33594)
+++ vhPowerTools/APPS/PM/Product/LangTekstControleKarakterCorrigeerder.cls.xml	(.../LangTekstControleKarakterCorrigeerder.cls.xml)	(revision 46557)
@@ -30,8 +30,8 @@
 	#dim OorspronkelijkeLangtekst As %String = ..GeefOorspronkelijkeLangtekst(ProductID,LangtekstType,"~")
 	#dim NieuwLangtekst As %String = ..GeefGecorrigeerdeLangtekst(OorspronkelijkeLangtekst)
 	
-	Set LangtekstBewaarder = ##class(DOM.PM.LangtekstBewaarder).%New(ProductID)
-	Do LangtekstBewaarder.BewaarVoorTaal(NieuwLangtekst,LangtekstType)
+	Set LangtekstBewaarder = ##class(DOM.PM.LangtekstBewaarder).%New()
+	Do LangtekstBewaarder.BewaarVoorTaal(ProductID,NieuwLangtekst,LangtekstType)
 ]]></Implementation>
 </Method>