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>
Index: APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml
===================================================================
diff -u -r1608 -r1645
--- APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 1608)
+++ APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 1645)
@@ -62,5 +62,13 @@
 <Property name="HeeftChargeNummer">
 <Type>%Boolean</Type>
 </Property>
+
+<Property name="IdentNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="LeverancierReferentie">
+<Type>%String</Type>
+</Property>
 </Class>
 </Export>
Index: vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml
===================================================================
diff -u -r1617 -r1645
--- vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 1617)
+++ vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 1645)
@@ -100,6 +100,8 @@
 	Do $$$AssertEquals(ProductLijn.MagazijnID,##class(APPS.MAG.UGLYPicking.enu.Magazijn).TandemAventos(),"Aventos magazijn")
 	Do $$$AssertTrue($Length(ProductLijn.Korttekst),"De korttekst is ingevuld")
 	Do $$$AssertTrue($Length(ProductLijn.Langtekst),"De langtekst is ingevuld")
+	Do $$$AssertTrue($Length(ProductLijn.IdentNr),"Het identnummer is ingevuld")
+	Do $$$AssertTrue($Length(ProductLijn.LeverancierReferentie),"De leverancierreferentie is ingevuld")
 	
 	// Omdat niet bij iedereen de WMS databank gekoppeld staat is het niet betrouwbaar om volgende properties te controleren
 	
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r1075 -r1645
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 1075)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 1645)
@@ -98,5 +98,10 @@
 <Abstract>1</Abstract>
 <ReturnType>DOM.PM.enu.ActiefStatus</ReturnType>
 </Method>
+
+<Method name="GeefLeverancierReferentie">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r1075 -r1645
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 1075)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 1645)
@@ -135,5 +135,11 @@
 <Implementation><![CDATA[	Quit ..Product.GeefGADataID()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLeverancierReferentie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefLeverancierReferentie()
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1619 -r1645
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1619)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1645)
@@ -351,5 +351,11 @@
 	Quit ActiefStatus
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLeverancierReferentie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..DataJ,"\",3)
+]]></Implementation>
+</Method>
 </Class>
 </Export>