Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r65149 -r65188
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 65149)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 65188)
@@ -414,6 +414,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakProductVoorTbxLade">
+<Description>
+Write ##class(zTryout.WV.PM.Test).%New().MaakProductVoorTbxLade()</Description>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductDataService As vhTest.Utils.DOM.PM.Maatwerk.ProductDataService = ##class(vhTest.Utils.DOM.PM.Maatwerk.ProductDataService).%New($$$True,$$$True)   ; Te verplaatsen naar %OnNew of OnBeforeAllTests 
+	
+	#dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade()
+	Set LegacyKenmerken.ItemCB = 875
+	Set LegacyKenmerken.ItemDS = "GA"
+	; ... 
+	
+	#dim TbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ProductDataService.GeefTbxKenmerkenViaLegacy(LegacyKenmerken)
+	#dim ProductId As %String = ProductDataService.MaakProduct(TbxKenmerken, , )  ; of met HergebruikProductId, HergebruikDossierCode) 
+	Quit ProductId
+]]></Implementation>
+</Method>
+
 <Method name="DisplayKenmerken">
 <Description>
 Do ##class(zTryout.WV.PM.Test).%New().DisplayKenmerken(id)</Description>