Index: vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml
===================================================================
diff -u -r2127 -r2142
--- vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 2127)
+++ vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 2142)
@@ -18,10 +18,8 @@
 	Set ProductOpPallet = ProductenOpPallet.GetAt(1)
 	
 	Do $$$AssertEquals(ProductOpPallet.Aantal,170,"170 stuks")
-	Do $$$AssertEquals(ProductOpPallet.Korttekst,"UT.UTPROD00")
-	Do $$$AssertEquals(ProductOpPallet.Langtekst,"TEST PRODUCT 00")
 	Do $$$AssertEquals(ProductOpPallet.PalletID,"98765432","De pallet id is unittest")
-	Do $$$AssertEquals(ProductOpPallet.ProductID,1000,"Voor product 1000")
+	Do $$$AssertEquals(ProductOpPallet.ProductData.ID,1000,"Voor product 1000")
 	Do $$$AssertEquals(ProductOpPallet.AantalSecties,1,"Er is 1 sectie op de pallet")
 	Do $$$AssertEquals(ProductOpPallet.MagazijnOmschrijving,"LANG","Langgoed magazijn")
 	Do $$$AssertFalse(ProductOpPallet.PalletIsBezet,"De pallet is niet bezet")
@@ -31,8 +29,7 @@
 	
 	Do $$$AssertEquals(ProductOpPallet.AanwezigInMagazijnen.Count(),1,"Aanwezig in 1 magazijn")
 	Do $$$AssertEquals(AanwezigInMagazijn.AantalPalletten,1,"Aanwezig op 1 pallet")
-	Do $$$AssertEquals(AanwezigInMagazijn.MagazijnCode,"L","Langgoed magazijn code")
-	Do $$$AssertEquals(AanwezigInMagazijn.MagazijnID,##class(APPS.MAG.UGLYPicking.enu.Magazijn).LangGoed(),"Magazijn langgoed id")
+	Do $$$AssertEquals(AanwezigInMagazijn.MagazijnData.ID,##class(APPS.MAG.UGLYPicking.enu.Magazijn).LangGoed(),"Magazijn langgoed id")
 ]]></Implementation>
 </Method>
 
@@ -47,10 +44,8 @@
 	Set ProductOpPallet = PallettenMetProduct.GetAt(1)
 	
 	Do $$$AssertEquals(ProductOpPallet.Aantal,170,"170 stuks")
-	Do $$$AssertEquals(ProductOpPallet.Korttekst,"UT.UTPROD00")
-	Do $$$AssertEquals(ProductOpPallet.Langtekst,"TEST PRODUCT 00")
 	Do $$$AssertEquals(ProductOpPallet.PalletID,"98765432","De pallet id is unittest")
-	Do $$$AssertEquals(ProductOpPallet.ProductID,1000,"Voor product 1000")
+	Do $$$AssertEquals(ProductOpPallet.ProductData.ID,1000,"Voor product 1000")
 	Do $$$AssertEquals(ProductOpPallet.AantalSecties,1,"Er is 1 sectie op de pallet")
 	Do $$$AssertEquals(ProductOpPallet.MagazijnOmschrijving,"LANG","Langgoed magazijn")
 	Do $$$AssertFalse(ProductOpPallet.PalletIsBezet,"De pallet is niet bezet")
@@ -87,7 +82,7 @@
 	
 	Set ProductenOpPallet = Service.GeefProductenOpPallet("98765432")
 	Set ProductOpPallet = ProductenOpPallet.GetAt(1)
-	Do $$$AssertEquals(ProductOpPallet.ProductID,1000,"Product 1000")
+	Do $$$AssertEquals(ProductOpPallet.ProductData.ID,1000,"Product 1000")
 	Do $$$AssertEquals(ProductOpPallet.Aantal,170,"170 stuks van product 1000")
 	
 	// Aantal van 170 naar 161 zetten, 80 verpakkingen van 2 stuks + 1 stuk
@@ -98,7 +93,7 @@
 	
 	Set ProductenOpPallet = Service.GeefProductenOpPallet("98765432")
 	Set ProductOpPallet = ProductenOpPallet.GetAt(1)
-	Do $$$AssertEquals(ProductOpPallet.ProductID,1000,"Product 1000")
+	Do $$$AssertEquals(ProductOpPallet.ProductData.ID,1000,"Product 1000")
 	Do $$$AssertEquals(ProductOpPallet.Aantal,161,"160 stuks van product 1000")
 	
 	// Aantal terug op 170 plaatsen
@@ -109,7 +104,7 @@
 	
 	Set ProductenOpPallet = Service.GeefProductenOpPallet("98765432")
 	Set ProductOpPallet = ProductenOpPallet.GetAt(1)
-	Do $$$AssertEquals(ProductOpPallet.ProductID,1000,"Product 1000")
+	Do $$$AssertEquals(ProductOpPallet.ProductData.ID,1000,"Product 1000")
 	Do $$$AssertEquals(ProductOpPallet.Aantal,170,"170 stuks van product 1000")
 ]]></Implementation>
 </Method>
@@ -122,10 +117,8 @@
 	
 	Set ProductReceptieDetail = Service.GeefProductReceptieDetail("98765432",1000)
 	
-	Do $$$AssertEquals(ProductReceptieDetail.IdentNr,"0.123.450.0","Het identnr")
 	Do $$$AssertEquals(ProductReceptieDetail.LeverancierNaam,"BLUM JULIUS GMBH","De leverancier")
-	Do $$$AssertEquals(ProductReceptieDetail.Omschrijving,"TEST PRODUCT 00","De omschrijving van het product")
-	Do $$$AssertEquals(ProductReceptieDetail.ProductID,1000,"De product id")
+	Do $$$AssertEquals(ProductReceptieDetail.ProductData.ID,1000,"De product id")
 	Do $$$AssertEquals(ProductReceptieDetail.ReceptieDetails.Count(),1,"Er is 1 receptie detail")
 	
 	Set ReceptieDetail = ProductReceptieDetail.ReceptieDetails.GetAt(1)
Index: APPS/MAG/UglyPickingService.cls.xml
===================================================================
diff -u -r2127 -r2142
--- APPS/MAG/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 2127)
+++ APPS/MAG/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 2142)
@@ -33,6 +33,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMagazijnData">
+<FormalSpec>MagazijnID:APPS.MAG.UGLYPicking.enu.Magazijn</FormalSpec>
+<ReturnType>APPS.MAG.UGLYPicking.dto.MagazijnData</ReturnType>
+<Implementation><![CDATA[	Quit ..Service.GeefMagazijnData(MagazijnID)
+]]></Implementation>
+</Method>
+
 <Method name="StartVolgendeVrijeBon">
 <FormalSpec>MagazijnID:APPS.MAG.UGLYPicking.enu.Magazijn</FormalSpec>
 <ReturnType>APPS.MAG.UGLYPicking.dto.Bon</ReturnType>
Index: APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml
===================================================================
diff -u -r1948 -r2142
--- APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml	(.../ProductOpPallet.cls.xml)	(revision 1948)
+++ APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml	(.../ProductOpPallet.cls.xml)	(revision 2142)
@@ -9,14 +9,6 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Korttekst">
-<Type>%String</Type>
-</Property>
-
-<Property name="Langtekst">
-<Type>%String</Type>
-</Property>
-
 <Property name="PalletID">
 <Type>%String</Type>
 </Property>
@@ -25,8 +17,8 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="ProductID">
-<Type>%String</Type>
+<Property name="ProductData">
+<Type>DOM.common.dto.ProductData</Type>
 </Property>
 
 <Property name="AantalSecties">
Index: APPS/MAG/InventarisService.cls.xml
===================================================================
diff -u -r2127 -r2142
--- APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 2127)
+++ APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 2142)
@@ -248,9 +248,7 @@
 <ReturnType>APPS.MAG.Inventaris.dto.ProductenOpPallet</ReturnType>
 <Implementation><![CDATA[
 	Set ProductenOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductenOpPallet).%New()
-	
-	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	
+	Set DataService = ##class(APPS.common.DataService).%New()
 	Set ResultSet = ##class(%ResultSet).%New()
 	
 	If ('##class(EWMS.ToReceive).PalletIsInToReceive(PalletID))
@@ -272,15 +270,11 @@
 	Do ResultSet.Execute(PalletID)
 	While (ResultSet.Next())
 	{
-		Set ProductID = ResultSet.Data("ProductID")
-		Set Product = ProductAPI.GeefProduct(ProductID)
 		Set ProductOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
-		Set ProductOpPallet.ProductID = ProductID
+		Set ProductOpPallet.ProductData = DataService.GeefProductData(ResultSet.Data("ProductID"))
 		Set ProductOpPallet.Aantal = ResultSet.Data("Aantal")
 		Set ProductOpPallet.PalletID = PalletID
 		Set ProductOpPallet.LocatieID = ResultSet.Data("LocatieID")
-		Set ProductOpPallet.Korttekst = Product.GeefKorttekst()
-		Set ProductOpPallet.Langtekst = Product.GeefLangtekst("N")
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
 		Do ProductenOpPallet.Insert(ProductOpPallet)
@@ -293,7 +287,7 @@
 	While (ProductOpPalletIterator.HasNext())
 	{
 		Set ProductOpPallet = ProductOpPalletIterator.Next()
-		Set ProductOpPallet.AanwezigInMagazijnen = ..GeefAanwezigInMagazijnen(ProductOpPallet.ProductID)
+		Set ProductOpPallet.AanwezigInMagazijnen = ..GeefAanwezigInMagazijnen(ProductOpPallet.ProductData.ID)
 		Set ProductOpPallet.PalletIsBezet = ##class(BL.MB.UGLYPicking.Opslag).PalletIsBusy(PalletID)
 	}
 	
@@ -306,9 +300,7 @@
 <ReturnType>APPS.MAG.Inventaris.dto.ProductenOpPallet</ReturnType>
 <Implementation><![CDATA[
 	Set ProductenOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductenOpPallet).%New()
-	
-	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	
+	Set DataService = ##class(APPS.common.DataService).%New()
 	Set ResultSet = ##class(%ResultSet).%New()
 	
 	Do ResultSet.Prepare("SELECT CAST(qty_pcs AS INT) as Aantal, I.loc_id As PalletID, I.loc_m, (SELECT count(1) FROM EWMS.Inventory WHERE loc_id = I.loc_id GROUP BY loc_id) as AantalSecties, T.Loc_Trans As LocatieID"
@@ -319,14 +311,11 @@
 	Do ResultSet.Execute(ProductID)
 	While (ResultSet.Next())
 	{
-		Set Product = ProductAPI.GeefProduct(ProductID)
 		Set ProductOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
-		Set ProductOpPallet.ProductID = ProductID
+		Set ProductOpPallet.ProductData = DataService.GeefProductData(ProductID)
 		Set ProductOpPallet.Aantal = ResultSet.Data("Aantal")
 		Set ProductOpPallet.PalletID = ResultSet.Data("PalletID")
 		Set ProductOpPallet.LocatieID = ResultSet.Data("LocatieID")
-		Set ProductOpPallet.Korttekst = Product.GeefKorttekst()
-		Set ProductOpPallet.Langtekst = Product.GeefLangtekst("N")
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
 		Do ProductenOpPallet.Insert(ProductOpPallet)
@@ -357,10 +346,8 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Product "_ProductID_" bestaat niet!"))
 	}
 			
-	Set ProductReceptieDetail.ProductID = ProductID
-	Set ProductReceptieDetail.IdentNr = Product.GeefIdentNr()
+	Set ProductReceptieDetail.ProductData = ##class(APPS.common.DataService).%New().GeefProductData(ProductID)
 	Set ProductReceptieDetail.LeverancierReferentie = Product.GeefLeverancierReferentie()
-	Set ProductReceptieDetail.Omschrijving = Product.GeefLangtekst("N")
 	Set ProductReceptieDetail.LeverancierNaam = Product.GeefLeverancier().GeefNaam()
 	
 	Set ResultSet = ##class(%ResultSet).%New()
@@ -523,8 +510,7 @@
 	{
 		Set AanwezigInMagazijn = ##class(APPS.MAG.Inventaris.dto.AanwezigInMagazijn).%New()
 		Set AanwezigInMagazijn.AantalPalletten = ResultSet.Data("AantalPalletten")
-		Set AanwezigInMagazijn.MagazijnCode = ##class(BL.MB.UGLYPicking.General).GetShortMagazijn(ResultSet.Data("MagazijnID"))
-		Set AanwezigInMagazijn.MagazijnID = ##class(BL.MB.UGLYPicking.General).GetShortMagazijn(ResultSet.Data("MagazijnID"))
+		Set AanwezigInMagazijn.MagazijnData = ##class(APPS.MAG.UglyPickingService).%New().GeefMagazijnData(##class(BL.MB.UGLYPicking.General).GetShortMagazijn(ResultSet.Data("MagazijnID")))
 		Do AanwezigInMagazijnen.Insert(AanwezigInMagazijn)
 	}
 	Do ResultSet.Close()
Index: APPS/MAG/Inventaris/dto/ProductReceptieDetail.cls.xml
===================================================================
diff -u -r1921 -r2142
--- APPS/MAG/Inventaris/dto/ProductReceptieDetail.cls.xml	(.../ProductReceptieDetail.cls.xml)	(revision 1921)
+++ APPS/MAG/Inventaris/dto/ProductReceptieDetail.cls.xml	(.../ProductReceptieDetail.cls.xml)	(revision 2142)
@@ -5,10 +5,6 @@
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="IdentNr">
-<Type>%String</Type>
-</Property>
-
 <Property name="LeverancierNaam">
 <Type>%String</Type>
 </Property>
@@ -17,14 +13,10 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="Omschrijving">
-<Type>%String</Type>
+<Property name="ProductData">
+<Type>DOM.common.dto.ProductData</Type>
 </Property>
 
-<Property name="ProductID">
-<Type>%String</Type>
-</Property>
-
 <Property name="ReceptieDetails">
 <Type>APPS.MAG.Inventaris.dto.ReceptieDetail</Type>
 <Collection>list</Collection>
Index: APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml
===================================================================
diff -u -r1948 -r2142
--- APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 1948)
+++ APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 2142)
@@ -18,8 +18,8 @@
 <Collection>list</Collection>
 </Property>
 
-<Property name="ProductID">
-<Type>%String</Type>
+<Property name="ProductData">
+<Type>DOM.common.dto.ProductData</Type>
 </Property>
 
 <Property name="LocatieID">
@@ -43,22 +43,10 @@
 <Type>APPS.MAG.UGLYPicking.enu.PickActie</Type>
 </Property>
 
-<Property name="Korttekst">
-<Type>%String</Type>
-</Property>
-
-<Property name="Langtekst">
-<Type>%String</Type>
-</Property>
-
 <Property name="HeeftChargeNummer">
 <Type>%Boolean</Type>
 </Property>
 
-<Property name="IdentNr">
-<Type>%String</Type>
-</Property>
-
 <Property name="LeverancierReferentie">
 <Type>%String</Type>
 </Property>
Index: CSC Ugly Picking.prj.xml
===================================================================
diff -u -r2094 -r2142
--- CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 2094)
+++ CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 2142)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Ugly Picking" LastModified="2011-09-15 14:49:12">
+<Project name="CSC Ugly Picking" LastModified="2011-09-20 07:58:45">
   <Items>
     <ProjectItem name="APPS.MAG.Inventaris.dto.AanwezigInMagazijn" type="CLS"/>
     <ProjectItem name="APPS.MAG.Inventaris.dto.BijladenInfo" type="CLS"/>
@@ -70,6 +70,7 @@
     <ProjectItem name="DOM.PM.Product" type="CLS"/>
     <ProjectItem name="DOM.PM.impl.DataM.DataMProduct" type="CLS"/>
     <ProjectItem name="DOM.PM.impl.ProductImpl" type="CLS"/>
+    <ProjectItem name="DOM.common.dto.ProductData" type="CLS"/>
     <ProjectItem name="EWMS.Inventory" type="CLS"/>
     <ProjectItem name="EWMS.Locations" type="CLS"/>
     <ProjectItem name="EWMS.ToReceive" type="CLS"/>
Index: vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml
===================================================================
diff -u -r2023 -r2142
--- vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 2023)
+++ vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 2142)
@@ -168,11 +168,8 @@
 	Set ProductLijn = ProductLijnen.Lijst.GetAt(1)
 	
 	Do $$$AssertEquals(ProductLijn.Aantal,2,"Het aantal producten te picken")
-	Do $$$AssertEquals(ProductLijn.ProductID,154599,"Het te picken product")
+	Do $$$AssertEquals(ProductLijn.ProductData.ID,154599,"Het te picken product")
 	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
@@ -200,7 +197,7 @@
 	Do Service.WijzigReservatieAantal(1234,ProductLijn,NieuwReservatieAantal)
 	
 	Set ResultSet = ##class(%ResultSet).%New("Flow.OrderWMS.PalletReservatie:GetIDViaConsNrPallIDAndProd")
-	Do ResultSet.Execute(1234, ProductLijn.PalletID , ProductLijn.ProductID)
+	Do ResultSet.Execute(1234, ProductLijn.PalletID , ProductLijn.ProductData.ID)
 	Do ResultSet.Next()
 	Set PalletReservatieID = ResultSet.Data("ID")
 	Set PalletReservatie = ##class(Flow.OrderWMS.PalletReservatie).%OpenId(PalletReservatieID)
Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml
===================================================================
diff -u -r2127 -r2142
--- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 2127)
+++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 2142)
@@ -59,8 +59,7 @@
 		If (##class(APPS.MAG.UGLYPicking.enu.Magazijn).IsValidDT(MagazijnLetter))
 		{
 			Set Magazijn = ##class(APPS.MAG.UGLYPicking.dto.Magazijn).%New()
-			Set Magazijn.MagazijnID = MagazijnLetter
-			Set Magazijn.Naam = ##class(APPS.MAG.UGLYPicking.enu.Magazijn).LogicalToDisplay(MagazijnLetter)
+			Set Magazijn.MagazijnData = ..GeefMagazijnData(MagazijnLetter)
 			Do Bon.Magazijnen.Insert(Magazijn)
 		}
 	}
@@ -89,6 +88,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMagazijnData">
+<FormalSpec>MagazijnID:APPS.MAG.UGLYPicking.enu.Magazijn</FormalSpec>
+<ReturnType>APPS.MAG.UGLYPicking.dto.MagazijnData</ReturnType>
+<Implementation><![CDATA[
+	Set MagazijnData = ##class(APPS.MAG.UGLYPicking.dto.MagazijnData).%New()
+	Set MagazijnData.ID = MagazijnID
+	Set MagazijnData.Code = MagazijnID
+	Set MagazijnData.Naam = ##class(APPS.MAG.UGLYPicking.enu.Magazijn).LogicalToDisplay(MagazijnID)
+	Quit MagazijnData
+]]></Implementation>
+</Method>
+
 <Method name="StartVolgendeVrijeBon">
 <FormalSpec>MagazijnID:APPS.MAG.UGLYPicking.enu.Magazijn</FormalSpec>
 <ReturnType>APPS.MAG.UGLYPicking.dto.Bon</ReturnType>
@@ -209,12 +220,11 @@
 	{
 		Set Magazijn = ##class(APPS.MAG.UGLYPicking.dto.Magazijn).%New()
 		
-		Set Magazijn.MagazijnID = MagazijnNaamIterator.Next()
-		Set Magazijn.Naam = ##class(APPS.MAG.UGLYPicking.enu.Magazijn).LogicalToDisplay(Magazijn.MagazijnID)
+		Set Magazijn.MagazijnData = ..GeefMagazijnData(MagazijnNaamIterator.Next())
 		Set Magazijn.AantalOrders = 0
 		
 		Set Status = ""
-		Set Iterator = ##class(APPS.MAG.UGLYPicking.impl.BonInMagazijnIterator).%New(Magazijn.MagazijnID)
+		Set Iterator = ##class(APPS.MAG.UGLYPicking.impl.BonInMagazijnIterator).%New(Magazijn.MagazijnData.ID)
 		While (Iterator.HasNext())
 		{
 			Set BonNr = Iterator.Next()
@@ -405,9 +415,7 @@
 		
 	Set Status = ##class(BL.MB.UGLYPicking.OrderReservatie).ProcessUnFinishedZeroPalletIDs(BonNr,Magazijn)
 
- 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	
-	If ($$$ISERR(Status))
+ 	If ($$$ISERR(Status))
 	{
 		Set ResultSet = ##class(%ResultSet).%New("Flow.OrderWMS.PalletReservatie:GetUnFinishedZeroPalletIDs")
  		Do ResultSet.Execute(BonNr,Magazijn)
@@ -497,14 +505,11 @@
 	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.ProductData = ##class(APPS.common.DataService).%New().GeefProductData(ProductID)
 	Set ProductLijn.LeverancierReferentie = Product.GeefLeverancierReferentie()
 	
 	Quit ProductLijn
@@ -536,7 +541,7 @@
 
 	Do ..ControleerSessie(BonNr)
 	
-	Set PalletReservatieID = ..BepaalPalletReservatieID(BonNr,ProductLijn.ProductID,ProductLijn.PalletID)
+	Set PalletReservatieID = ..BepaalPalletReservatieID(BonNr,ProductLijn.ProductData.ID,ProductLijn.PalletID)
 	
 	Set PalletReservatie = ##class(Flow.OrderWMS.PalletReservatie).%OpenId(PalletReservatieID)
 	
Index: APPS/MAG/UGLYPicking/dto/MagazijnData.cls.xml
===================================================================
diff -u
--- APPS/MAG/UGLYPicking/dto/MagazijnData.cls.xml	(revision 0)
+++ APPS/MAG/UGLYPicking/dto/MagazijnData.cls.xml	(revision 2142)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.UGLYPicking.dto.MagazijnData">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ID">
+<Type>APPS.MAG.UGLYPicking.enu.Magazijn</Type>
+</Property>
+
+<Property name="Code">
+<Type>%String</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/MAG/UGLYPicking/dto/Magazijn.cls.xml
===================================================================
diff -u -r1793 -r2142
--- APPS/MAG/UGLYPicking/dto/Magazijn.cls.xml	(.../Magazijn.cls.xml)	(revision 1793)
+++ APPS/MAG/UGLYPicking/dto/Magazijn.cls.xml	(.../Magazijn.cls.xml)	(revision 2142)
@@ -11,18 +11,14 @@
 <Default>dto.Magazijn</Default>
 </Parameter>
 
-<Property name="MagazijnID">
-<Type>APPS.MAG.UGLYPicking.enu.Magazijn</Type>
+<Property name="MagazijnData">
+<Type>APPS.MAG.UGLYPicking.dto.MagazijnData</Type>
 </Property>
 
 <Property name="AantalOrders">
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Naam">
-<Type>%String</Type>
-</Property>
-
 <Property name="Status">
 <Type>APPS.MAG.UGLYPicking.enu.MagazijnStatus</Type>
 </Property>
Index: APPS/MAG/Inventaris/dto/AanwezigInMagazijn.cls.xml
===================================================================
diff -u -r1893 -r2142
--- APPS/MAG/Inventaris/dto/AanwezigInMagazijn.cls.xml	(.../AanwezigInMagazijn.cls.xml)	(revision 1893)
+++ APPS/MAG/Inventaris/dto/AanwezigInMagazijn.cls.xml	(.../AanwezigInMagazijn.cls.xml)	(revision 2142)
@@ -9,12 +9,8 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="MagazijnCode">
-<Type>%String</Type>
+<Property name="MagazijnData">
+<Type>APPS.MAG.UGLYPicking.dto.MagazijnData</Type>
 </Property>
-
-<Property name="MagazijnID">
-<Type>APPS.MAG.UGLYPicking.enu.Magazijn</Type>
-</Property>
 </Class>
 </Export>