Index: APPS/Halux/Planning/PlanningService.cls.xml =================================================================== diff -u -r3292 -r3463 --- APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 3292) +++ APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 3463) @@ -323,6 +323,7 @@ } Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() + Set DataService = ##class(APPS.common.DataService).%New() Set ResultSet = ##class(%ResultSet).%New("APPS.Halux.Planning.impl.Queries:qGeefStockProblemen") Do ResultSet.Execute(ToeleveringNummer) @@ -345,10 +346,12 @@ { Set StockProbleemInfo = ##class(APPS.Halux.Planning.dto.StockProbleemInfo).%New() Set StockProbleemInfo.ProductCode = ResultSet.Data("ProductCode") + Set StockProbleemInfo.ProductData = DataService.GeefProductData(ResultSet.Data("ProductID")) Set HalffabrikaatPRNr = $P(^HADPR("F",FabKey,"AR",BSKey),"\",1) Set HalffabrikaatProduct = ProductAPI.GeefProduct(HalffabrikaatPRNr) Set StockProbleemInfo.HalffabrikaatCode = HalffabrikaatProduct.GeefKorttekst() + Set StockProbleemInfo.HalffabrikaatData = DataService.GeefProductData(HalffabrikaatPRNr) Set StockProbleemInfo.Aantal = $P(^HADPR("F",FabKey,"AR",BSKey),"\",3) Set StockProbleemInfo.Status = "F"