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 ]]>