Index: APPS/common/DataService.cls.xml
===================================================================
diff -u -r1980 -r2084
--- APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 1980)
+++ APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 2084)
@@ -69,5 +69,52 @@
 	Quit GebruikerData
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProductData">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>DOM.common.dto.ProductData</ReturnType>
+<Implementation><![CDATA[
+	Set ProductData = ##class(DOM.common.dto.ProductData).%New()
+	
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Product = ProductAPI.GeefProduct(ProductID)
+	
+	If ('$IsObject(Product))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige product id "_ProductID))
+	}
+	
+	Set ProductData.ID = ProductID
+	Set ProductData.Code = Product.GeefKorttekst()
+	Set ProductData.IdentNr = Product.GeefIdentNr()
+	Set ProductData.Omschrijving = Product.GeefLangtekst("N")
+	Set ProductData.Classificatie = ..GeefClassificatieData(ProductAPI.GeefProductClassificatie(ProductID).GeefClassificatie().GeefID())
+	Set ProductData.ClassificatieID = ProductData.Classificatie.ID
+	
+	Quit ProductData
+]]></Implementation>
+</Method>
+
+<Method name="GeefClassificatieData">
+<FormalSpec>ClassificatieID:%String</FormalSpec>
+<ReturnType>DOM.common.dto.ClassificatieData</ReturnType>
+<Implementation><![CDATA[
+	Set ClassificatieData = ##class(DOM.common.dto.ClassificatieData).%New()
+	
+	Set Classificatie = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefClassificatie(ClassificatieID)
+	
+	If ('$IsObject(Classificatie))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige classificatie id "_ClassificatieID))
+	}
+	
+	Set ClassificatieData.ID = ClassificatieID
+	Set ClassificatieData.Naam = Classificatie.GeefNederlands()
+	Set ClassificatieData.Code = Classificatie.GeefCode()
+	Set ClassificatieData.UniekeCode = Classificatie.GeefUniekeCode()
+	
+	Quit ClassificatieData
+]]></Implementation>
+</Method>
 </Class>
 </Export>