Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45985 -r45986
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45985)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45986)
@@ -612,6 +612,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBarcodeWaarde">
+<Implementation><![CDATA[	Quit ..Data2.GeefPiece(14)
+]]></Implementation>
+</Method>
+
 <Method name="ZetIdentNr">
 <FormalSpec>IdentNr:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..Data2.ZetPiece(25, IdentNr)
@@ -712,6 +717,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetBarcodeWaarde">
+<FormalSpec>BarcodeWaarde:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Data2.ZetPiece(14,BarcodeWaarde)
+]]></Implementation>
+</Method>
+
 <Method name="Data0Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45985 -r45986
--- vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45985)
+++ vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45986)
@@ -14,6 +14,17 @@
 <Type>%Integer</Type>
 </Property>
 
+<Method name="GeefBarcodeWaarde">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="ZetBarcodeWaarde">
+<FormalSpec>BarcodeWaarde:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="ZetCifPerc">
 <FormalSpec>CifPerc:%Numeric</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhTest/Mock/DOM/PM/Product.cls.xml
===================================================================
diff -u -r45985 -r45986
--- vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45985)
+++ vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45986)
@@ -38,6 +38,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBarcodeWaarde">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBarcodeWaarde")
+]]></Implementation>
+</Method>
+
 <Method name="GeefBoekhoudkundigeRekening">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBoekhoudkundigeRekening")
@@ -448,6 +454,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetBarcodeWaarde">
+<FormalSpec>BarcodeWaarde:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetBarcodeWaarde",BarcodeWaarde)
+]]></Implementation>
+</Method>
+
 <Method name="ZetCifPPL">
 <FormalSpec>CifPPL:%Numeric</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetCifPPL",CifPPL)
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r45985 -r45986
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 45985)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 45986)
@@ -578,6 +578,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBarcodeWaarde">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefBarcodeWaarde()
+]]></Implementation>
+</Method>
+
 <Method name="ZetIdentNr">
 <FormalSpec>IdentNr:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..Product.ZetIdentNr(IdentNr)
@@ -679,6 +685,12 @@
 <Implementation><![CDATA[	Do ..Product.ZetCifPercentage(CifPercentage)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetBarcodeWaarde">
+<FormalSpec>BarcodeWaarde:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Product.ZetBarcodeWaarde(BarcodeWaarde)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r45985 -r45986
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45985)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45986)
@@ -356,6 +356,11 @@
 <ReturnType>%Numeric</ReturnType>
 </Method>
 
+<Method name="GeefBarcodeWaarde">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="IsFysiekHetzelfdeProductAls">
 <Abstract>1</Abstract>
 <FormalSpec>AnderProductID:%String</FormalSpec>
@@ -447,6 +452,11 @@
 <FormalSpec>CifPercentage:%Numeric</FormalSpec>
 </Method>
 
+<Method name="ZetBarcodeWaarde">
+<Abstract>1</Abstract>
+<FormalSpec>BarcodeWaarde:%String</FormalSpec>
+</Method>
+
 <Method name="Save">
 <Abstract>1</Abstract>
 </Method>
Index: vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45985 -r45986
--- vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45985)
+++ vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45986)
@@ -38,6 +38,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBarcodeWaarde">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("GeefBarcodeWaarde")
+]]></Implementation>
+</Method>
+
 <Method name="GeefBoekhoudkundigeRekening">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBoekhoudkundigeRekening")
@@ -385,6 +390,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetBarcodeWaarde">
+<FormalSpec>BarcodeWaarde:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetBarcodeWaarde",BarcodeWaarde)
+]]></Implementation>
+</Method>
+
 <Method name="ZetCifPPL">
 <FormalSpec>CifPPL:%Numeric</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetCifPPL",CifPPL)
Index: vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml
===================================================================
diff -u -r45984 -r45986
--- vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml	(.../Test.cls.xml)	(revision 45984)
+++ vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml	(.../Test.cls.xml)	(revision 45986)
@@ -314,6 +314,19 @@
 	Do DataMProductMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ZetBarcodeWaarde zet de BarcodeWaarde">
+<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("ZetBarcodeWaarde","B4rc0dewaarde").DanDoeNiks()
+	
+	Do Product.ZetBarcodeWaarde("B4rc0dewaarde")
+	
+	Do DataMProductMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml
===================================================================
diff -u -r45984 -r45986
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45984)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45986)
@@ -56,7 +56,9 @@
 	Do Product.ZetStockNietStock("1")
 	Do Product.ZetCifPPL("7.6")
 	Do Product.ZetCifPercentage("5.4")
+	Do Product.ZetBarcodeWaarde("B4rc0dewaarde")
 	
+	Do $$$AssertEquals(Product.GeefBarcodeWaarde(),"B4rc0dewaarde")
 	Do $$$AssertEquals(Product.GeefCifPercentage(),"5.4")
 	Do $$$AssertEquals(Product.GeefCifPPL(),"7.6")
 	Do $$$AssertEquals(Product.GeefStockNietStock(),"1")