Index: vhUnitTest/common/TestDataService.cls.xml
===================================================================
diff -u -r1982 -r2084
--- vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 1982)
+++ vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 2084)
@@ -62,5 +62,31 @@
 	Do Gebruiker.%DeleteId(Gebruiker.%Id())
 ]]></Implementation>
 </Method>
+
+<Method name="TestProductData">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.common.DataService).%New() 
+	Set ProductData = Service.GeefProductData(206440)
+	
+	Do $$$AssertEquals(ProductData.ID,206440,"De product id")
+	Do $$$AssertEquals(ProductData.Code,"358M2702I  Z LI   V20IG/G","De product code")
+	Do $$$AssertEquals(ProductData.IdentNr,"0.234.930.0","De ident nr")
+	Do $$$AssertEquals(ProductData.Omschrijving,"Tandembox PLUS ladeprofiel links, staal, 270mm diep","De omschrijving")
+	Do $$$AssertEquals(ProductData.ClassificatieID,"409","De classificatie id")
+	Do $$$AssertTrue($IsObject(ProductData.Classificatie),"De classificatie is ingesteld")
+]]></Implementation>
+</Method>
+
+<Method name="TestClassificatieData">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.common.DataService).%New() 
+	Set ClassificatieData = Service.GeefClassificatieData(409)
+	
+	Do $$$AssertEquals(ClassificatieData.ID,409,"De Classificatie id")
+	Do $$$AssertEquals(ClassificatieData.Code,"365/BL","De Classificatie code")
+	Do $$$AssertEquals(ClassificatieData.Naam,"Tandembox","De Classificatie naam")
+	Do $$$AssertEquals(ClassificatieData.UniekeCode,"BX/VVO/365/BL","De Classificatie unieke")
+]]></Implementation>
+</Method>
 </Class>
 </Export>