Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml
===================================================================
diff -u -r1617 -r1645
--- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1617)
+++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1645)
@@ -286,15 +286,7 @@
  		
  		While (ResultSet.Next())
  		{
-	 		Set ProductLijn = ##class(APPS.MAG.UGLYPicking.dto.ProductLijn).%New()
-	 		Set ProductLijn.Aantal = ResultSet.Data("AantalTePicken")
-	 		Set ProductLijn.ProductID = ResultSet.Data("Product")
-	 		Set ProductLijn.MagazijnID = MagazijnID
-	 		
-	 		Set Product = ProductAPI.GeefProduct(ResultSet.Data("Product"))
-	 		
-			Set ProductLijn.Korttekst = Product.GeefKorttekst()
-			Set ProductLijn.Langtekst = Product.GeefLangtekst()
+			Set ProductLijn = ..GeefProductLijnBasis(ResultSet.Data("AantalTePicken"),ResultSet.Data("Product"), MagazijnID) // , ResultSet.Data("Product"), ResultSet.Data("LocTrans"), ResultSet.Data("PalletID"), MagazijnID)
 			
 			Set ReservatieProbleem = ##class(APPS.MAG.UGLYPicking.dto.ReservatieProbleem).%New()
 			Set ReservatieProbleem.FoutBoodschap = ResultSet.Data("FailedReservation")
@@ -310,21 +302,13 @@
 	
 	While (ResultSet.Next())
 	{
-		Set ProductLijn = ##class(APPS.MAG.UGLYPicking.dto.ProductLijn).%New()
-		Set ProductLijn.Aantal = ResultSet.Data("AantalTePicken")
-		Set ProductLijn.ProductID = ResultSet.Data("Product")
+		Set ProductLijn = ..GeefProductLijnBasis(ResultSet.Data("AantalTePicken"), ResultSet.Data("Product"), MagazijnID)
 		Set ProductLijn.LocatieID = ResultSet.Data("LocTrans")
 		Set ProductLijn.PalletID = ResultSet.Data("PalletID")
-		Set ProductLijn.MagazijnID = MagazijnID
 		Set ProductLijn.HeeftChargeNummer = ##class(BL.ProdHist.ChargeTrace).IsChargeProduct(ResultSet.Data("Product"),1)
 		Set ProductLijn.IsVollePallet = ResultSet.Data("IsFull")
 		Set ProductLijn.IsPalletVolledigTePicken = ResultSet.Data("NeedAll")
 		
-		Set Product = ProductAPI.GeefProduct(ResultSet.Data("Product"))
-		
-		Set ProductLijn.Korttekst = Product.GeefKorttekst()
-		Set ProductLijn.Langtekst = Product.GeefLangtekst()
-		
 		Set KennisIDLb=##class(BL.Derde.Kennis.Kennis).GetIDsToPopup(OrderHoofding.KlantGetObjectId(),.Error,$LB("MAG:PICK"),$LB(ResultSet.Data("Product")),,"UGLY Picking Product",ResultSet.Data("Product"),1,1,0)
 		For i=1:1:$LL(KennisIDLb)
 		{
@@ -339,6 +323,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductLijnBasis">
+<FormalSpec>Aantal:%Integer,ProductID:%Integer,MagazijnID:APPS.MAG.UGLYPicking.enu.Magazijn</FormalSpec>
+<ReturnType>APPS.MAG.UGLYPicking.dto.ProductLijn</ReturnType>
+<Implementation><![CDATA[
+	Set ProductLijn = ##class(APPS.MAG.UGLYPicking.dto.ProductLijn).%New()
+	
+	Set ProductLijn.Aantal = Aantal
+	Set ProductLijn.ProductID = ProductID
+	Set ProductLijn.MagazijnID = MagazijnID
+	
+	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
+		
+	Set ProductLijn.Korttekst = Product.GeefKorttekst()
+	Set ProductLijn.Langtekst = Product.GeefLangtekst()
+	Set ProductLijn.IdentNr = Product.GeefIdentNr()
+	Set ProductLijn.LeverancierReferentie = Product.GeefLeverancierReferentie()
+	
+	Quit ProductLijn
+]]></Implementation>
+</Method>
+
 <Method name="NeemSessieOver">
 <FormalSpec>Sessie:APPS.MAG.UGLYPicking.dto.Sessie</FormalSpec>
 <ReturnType>%Status</ReturnType>