Index: DOM/DomeinContext.cls.xml
===================================================================
diff -u -r37960 -r41359
--- DOM/DomeinContext.cls.xml	(.../DomeinContext.cls.xml)	(revision 37960)
+++ DOM/DomeinContext.cls.xml	(.../DomeinContext.cls.xml)	(revision 41359)
@@ -162,6 +162,11 @@
 <Default>LegacyGebruikerAPI</Default>
 </Parameter>
 
+<Parameter name="LegacyProductAPI">
+<Type>%String</Type>
+<Default>LegacyProductAPI</Default>
+</Parameter>
+
 <Parameter name="VertaalAPI">
 <Type>%String</Type>
 <Default>VertaalAPI</Default>
@@ -649,6 +654,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLegacyProductAPI">
+<ReturnType>DOM.PM.LegacyProductAPI</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefAPIObject(..#LegacyProductAPI)
+]]></Implementation>
+</Method>
+
+<Method name="PushLegacyProductAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..PushAPINaam(..#LegacyProductAPI,Naam)
+]]></Implementation>
+</Method>
+
+<Method name="PopLegacyProductAPIClassName">
+<Implementation><![CDATA[	Do ..PopAPINaam(..#LegacyProductAPI)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantTypeAPI">
 <ReturnType>DOM.VKP.KlantTypeAPI</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefAPIObject(..#KlantTypeAPI)
@@ -794,6 +816,7 @@
 	
 	// Put defaults on the stack
 	Do ..PushProductAPIClassName("DOM.PM.impl.ProductAPI")
+	Do ..PushLegacyProductAPIClassName("DOM.PM.impl.LegacyProductAPI")
 	Do ..PushOrderAPIClassName("DOM.VKP.impl.DataM.DataMOrderAPI")
 	Do ..PushToeleveringAPIClassName("DOM.AKP.impl.DataM.DataMToeleveringAPI")
 	Do ..PushAankoopPrijsAPIClassName("DOM.AKP.impl.DataM.DataMAankoopPrijsAPI")
Index: Prod/Product.cls.xml
===================================================================
diff -u -r41007 -r41359
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 41007)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 41359)
@@ -487,6 +487,12 @@
 <SqlComputed>1</SqlComputed>
 </Property>
 
+<Method name="LeverancierNummerGet">
+<ReturnType>%Library.Integer</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.DomeinContext).Instance().GeefLegacyProductAPI().GeefLeverancierNummer(..%Id())
+]]></Implementation>
+</Method>
+
 <Property name="LeverancierReferentie">
 <Type>%Library.String</Type>
 <Calculated>1</Calculated>
Index: vhTest/Mock/DOM/PM/LegacyProductAPI.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/LegacyProductAPI.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/LegacyProductAPI.cls.xml	(revision 41359)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.LegacyProductAPI">
+<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
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.LegacyProductAPI,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="MockInstance">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhTest.Mock.DOM.PM.LegacyProductAPI</ReturnType>
+<Implementation><![CDATA[
+	do ##class(DOM.DomeinContext).Instance().PushLegacyProductAPIClassName(##class(vhTest.Mock.DOM.PM.LegacyProductAPI).%ClassName(1))
+	quit ##class(DOM.DomeinContext).Instance().GeefLegacyProductAPI()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverancierNummer">
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLeverancierNummer",ProductNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/LegacyProductAPI.cls.xml
===================================================================
diff -u
--- DOM/PM/LegacyProductAPI.cls.xml	(revision 0)
+++ DOM/PM/LegacyProductAPI.cls.xml	(revision 41359)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.LegacyProductAPI">
+<Abstract>1</Abstract>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefLeverancierNummer">
+<Abstract>1</Abstract>
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/LegacyProductAPI.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/LegacyProductAPI.cls.xml	(revision 0)
+++ DOM/PM/impl/LegacyProductAPI.cls.xml	(revision 41359)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.impl.LegacyProductAPI">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PARTIJ.LegacyPartijAPI,TECH.RegisteredObject</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefLeverancierNummer">
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $piece(^KPR(ProductNummer,$Order(^KPR(ProductNummer,"J"))),"\",1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>