Index: APPS/PM/ProductService.cls.xml
===================================================================
diff -u -r2140 -r2147
--- APPS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 2140)
+++ APPS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 2147)
@@ -164,8 +164,9 @@
 			}
 			
 			/// TOEVOEGEN				
-			If Toevoegen {			
-				Set ProductID = ..Product2ProductIDs(Product)
+			If Toevoegen {		
+				Set DataService = ##class(APPS.common.DataService).%New()	
+				Set ProductID = DataService.GeefProductData(PRNr) 
 				Do ProductenLijst.HerkendeProducten.Insert(ProductID)	
 				Set AantalToegevoegde = AantalToegevoegde + 1	
 			}
@@ -375,7 +376,9 @@
 		{	
 			If ($Data(^KPR3(Type,DossierNr))){
 				Set Product = ProductAPI.GeefProduct($Get(^KPR3(Type,DossierNr)))
-				Do ProductenLijst.HerkendeProducten.Insert(..Product2ProductIDs(Product))	
+				Set DataService = ##class(APPS.common.DataService).%New()	
+				Set ProductData = DataService.GeefProductData(Product.GeefPRNr()) 
+				Do ProductenLijst.HerkendeProducten.Insert(ProductData)	
 				Set IsHerkend = 1
 			}
 			Set Type = $Order(^KPR3(Type))			
@@ -415,31 +418,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Product2ProductIDs">
-<FormalSpec>Product:DOM.PM.Product</FormalSpec>
-<ReturnType>DOM.common.dto.ProductData</ReturnType>
-<Implementation><![CDATA[
-	Set ProductZoekResultaat = ##class(DOM.common.dto.ProductData).%New()
- 	Set ProductZoekResultaat.IdentNr = Product.GeefIdentNr()
- 	Set ProductZoekResultaat.Korttekst = Product.GeefKorttekst()
- 	Set ProductZoekResultaat.ID = Product.GeefPRNr()
- 	Set ProductZoekResultaat.Omschrijving = Product.GeefOmschrijving()
- 
- 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
- 	Set DataService = ##class(APPS.common.DataService).%New()
- 	Set ClassificatieData = DataService.GeefClassificatieData(ProductAPI.GeefProductClassificatie(ProductZoekResultaat.ID).GeefClassificatie().GeefID())
- 	Set ProductZoekResultaat.Classificatie = ClassificatieData
- 	
-    /// Als het een gewoon product is (geen orgalux), foto ophalen via Prod.ImageLink
- 	If (##class(BL.Prod.ImageLink).HasImage(ProductZoekResultaat.ID)){
-     	Set ProductZoekResultaat.ProductAfbeeldingen = ##class(APPS.PM.dto.ProductAfbeeldingen).%New()
-    	Set ProductZoekResultaat.ProductAfbeeldingen.VoorOpScherm = ##class(BL.Prod.ImageLink).%New().GetProductImageURL(ProductZoekResultaat.ID,"PRINT")
-    	Set ProductZoekResultaat.ProductAfbeeldingen.Thumbnail = ##class(BL.Prod.ImageLink).%New().GetProductImageURL(ProductZoekResultaat.ID,"THUMBNAIL")
-    }
-    Quit ProductZoekResultaat
-]]></Implementation>
-</Method>
-
 <Method name="MaakDTOClassificatie">
 <FormalSpec>ClassificatieObject:DOM.PM.Classificatie</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/common/TestDataService.cls.xml
===================================================================
diff -u -r2140 -r2147
--- vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 2140)
+++ vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 2147)
@@ -72,7 +72,7 @@
 	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.Classificatie.ID,"409","De classificatie id")
+	Do $$$AssertEquals(ProductData.ClassificatieID,"409","De classificatie id")
 	Do $$$AssertTrue($IsObject(ProductData.Classificatie),"De classificatie is ingesteld")
 ]]></Implementation>
 </Method>
Index: DOM/common/dto/ProductData.cls.xml
===================================================================
diff -u -r2140 -r2147
--- DOM/common/dto/ProductData.cls.xml	(.../ProductData.cls.xml)	(revision 2140)
+++ DOM/common/dto/ProductData.cls.xml	(.../ProductData.cls.xml)	(revision 2147)
@@ -29,6 +29,10 @@
 <Type>DOM.common.dto.ClassificatieData</Type>
 </Property>
 
+<Property name="ClassificatieID">
+<Type>%String</Type>
+</Property>
+
 <Property name="ProductAfbeeldingen">
 <Type>APPS.PM.dto.ProductAfbeeldingen</Type>
 </Property>
Index: APPS/common/DataService.cls.xml
===================================================================
diff -u -r2140 -r2147
--- APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 2140)
+++ APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 2147)
@@ -88,8 +88,16 @@
 	Set ProductData.Code = Product.GeefKorttekst()
 	Set ProductData.IdentNr = Product.GeefIdentNr()
 	Set ProductData.Omschrijving = Product.GeefLangtekst("N")
+	Set ProductData.Korttekst = Product.GeefKorttekst()
 	Set ProductData.Classificatie = ..GeefClassificatieData(ProductAPI.GeefProductClassificatie(ProductID).GeefClassificatie().GeefID())
+	Set ProductData.ClassificatieID = ProductData.Classificatie.ID
 	
+	If (##class(BL.Prod.ImageLink).HasImage(ProductID)){
+     	Set ProductData.ProductAfbeeldingen = ##class(APPS.PM.dto.ProductAfbeeldingen).%New()
+    	Set ProductData.ProductAfbeeldingen.VoorOpScherm = ##class(BL.Prod.ImageLink).%New().GetProductImageURL(ProductID,"PRINT")
+    	Set ProductData.ProductAfbeeldingen.Thumbnail = ##class(BL.Prod.ImageLink).%New().GetProductImageURL(ProductID,"THUMBNAIL")
+    }
+	
 	Quit ProductData
 ]]></Implementation>
 </Method>