Index: vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml
===================================================================
diff -u -r45975 -r45976
--- vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml	(.../Test.cls.xml)	(revision 45975)
+++ vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml	(.../Test.cls.xml)	(revision 45976)
@@ -262,6 +262,19 @@
 	Do DataMProductMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ZetLeverancierReferentie zet de LeverancierReferentie">
+<Implementation><![CDATA[
+	Set DataMProductMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New()
+	#dim Product As DOM.PM.Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId,DataMProductMock)
+	
+	Do DataMProductMock.VerwachtMethodCall("ZetLeverancierReferentie","LeverancierReferentie").DanDoeNiks()
+	
+	Do Product.ZetLeverancierReferentie("LeverancierReferentie")
+	
+	Do DataMProductMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PM/Product.cls.xml
===================================================================
diff -u -r45975 -r45976
--- vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45975)
+++ vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45976)
@@ -478,6 +478,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetLeverancierReferentie">
+<FormalSpec>LeverancierReferentie:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetLeverancierReferentie",LeverancierReferentie)
+]]></Implementation>
+</Method>
+
 <Method name="ZetPalletAantal">
 <FormalSpec>PalletAantal:%Integer</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetPalletAantal",PalletAantal)
Index: vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45975 -r45976
--- vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45975)
+++ vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45976)
@@ -417,6 +417,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetLeverancierReferentie">
+<FormalSpec>LeverancierReferentie:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetLeverancierReferentie",LeverancierReferentie)
+]]></Implementation>
+</Method>
+
 <Method name="ZetPalletAantal">
 <FormalSpec>PalletAantal:%Integer</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetPalletAantal",PalletAantal)
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45975 -r45976
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45975)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45976)
@@ -678,6 +678,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetLeverancierReferentie">
+<FormalSpec>LeverancierReferentie:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..DataJ.ZetPiece(3,LeverancierReferentie)
+]]></Implementation>
+</Method>
+
 <Method name="Data0Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r45975 -r45976
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45975)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45976)
@@ -417,6 +417,11 @@
 <FormalSpec>PalletAantal:%Integer</FormalSpec>
 </Method>
 
+<Method name="ZetLeverancierReferentie">
+<Abstract>1</Abstract>
+<FormalSpec>LeverancierReferentie:%String</FormalSpec>
+</Method>
+
 <Method name="Save">
 <Abstract>1</Abstract>
 </Method>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r45975 -r45976
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 45975)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 45976)
@@ -643,6 +643,12 @@
 <Implementation><![CDATA[	Do ..Product.ZetPalletAantal(PalletAantal)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetLeverancierReferentie">
+<FormalSpec>LeverancierReferentie:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Product.ZetLeverancierReferentie(LeverancierReferentie)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45975 -r45976
--- vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45975)
+++ vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45976)
@@ -59,6 +59,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetLeverancierReferentie">
+<FormalSpec>LeverancierReferentie:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="ZetPalletAantal">
 <FormalSpec>PalletAantal:%Integer</FormalSpec>
 <Implementation><![CDATA[
Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml
===================================================================
diff -u -r45975 -r45976
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45975)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45976)
@@ -52,7 +52,9 @@
 	Do Product.ZetAantalInKleinVerpakking("111")
 	Do Product.ZetAantalInNormaleVerpakking("222")
 	Do Product.ZetPalletAantal("456")
+	Do Product.ZetLeverancierReferentie("LeverancierReferentie")
 	
+	Do $$$AssertEquals(Product.GeefLeverancierReferentie(),"LeverancierReferentie")
 	Do $$$AssertEquals(Product.GeefPalletAantal(),"456")
 	Do $$$AssertEquals(Product.GeefAantalInStukVerpakking(),"222")
 	Do $$$AssertEquals(Product.GeefAantalInKleinVerpakking(),"111")