Index: vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r49270 -r51324
--- vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 49270)
+++ vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 51324)
@@ -496,6 +496,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetBTWCode">
+<FormalSpec>BTWCode:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetBTWCode",BTWCode)
+]]></Implementation>
+</Method>
+
 <Method name="ZetBarcodeWaarde">
 <FormalSpec>BarcodeWaarde:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetBarcodeWaarde",BarcodeWaarde)
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r50710 -r51324
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 50710)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 51324)
@@ -973,6 +973,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetBTWCode">
+<FormalSpec>BTWCode:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Data0.ZetPiece(5,BTWCode)
+]]></Implementation>
+</Method>
+
 <Method name="Data0Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml
===================================================================
diff -u -r49207 -r51324
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 49207)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 51324)
@@ -59,6 +59,7 @@
 	Do Product.ZetBarcodeWaarde("B4rc0dewaarde")
 	Do Product.ZetMinimumBestelhoeveelheid(5)
 	Do Product.ZetUitverkoopSinds(55555)
+	Do Product.ZetBTWCode("8")
 	
 	Do $$$AssertEquals(Product.GeefUitverkoopSinds(),55555)
 	Do $$$AssertEquals(Product.GeefMinimumBestelhoeveelheid(),5)
@@ -80,6 +81,7 @@
 	Do $$$AssertEquals(Product.GeefLeverancierID(),"L||1234")
 	Do $$$AssertEquals(Product.GeefKorttekst(),"Korttekst")
 	Do $$$AssertEquals(Product.GeefIdentNr(),"1.234.567.8")
+	Do $$$AssertEquals(Product.GeefBTWCode(),"8")
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r50464 -r51324
--- vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 50464)
+++ vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 51324)
@@ -14,6 +14,12 @@
 <Type>%Integer</Type>
 </Property>
 
+<Method name="ZetBTWCode">
+<FormalSpec>BTWCode:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="GeefMerk">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""