Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml
===================================================================
diff -u -r1586 -r1590
--- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1586)
+++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1590)
@@ -166,51 +166,99 @@
 </Method>
 
 <Method name="GeefPalletInhoud">
-<FormalSpec>PalletID:%String</FormalSpec>
+<FormalSpec>dtoPalletReservatie:APPS.MAG.UGLYPicking.dto.PalletReservatie</FormalSpec>
 <ReturnType>APPS.MAG.UGLYPicking.dto.Pallet</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[
+	set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	
+	set dtoPallet = ##class(APPS.MAG.UGLYPicking.dto.Pallet).%New()
+	//set dtoPallet.PalletReservatie = dtoPalletReservatie
+	
+	set PalletReservatieID = dtoPalletReservatie.BonNr_"||"_dtoPalletReservatie.Magazijn_"||"_dtoPalletReservatie.PalletID_"||"_dtoPalletReservatie.ProductID_"||"_dtoPalletReservatie.Sectie
+	
+	set PalletReservatie=##class(Flow.OrderWMS.PalletReservatie).%OpenId(PalletReservatieID)
+	set itOrderNrs = ##class(TECH.ListbuildIterator).%New(PalletReservatie.GetOrderNrList())
+	while itOrderNrs.HasNext() {
+		set OrderID = itOrderNrs.Next()
+		set dtoOrderInfo = ##class(APPS.MAG.UGLYPicking.dto.OrderInfo).%New()
+		set dtoOrderInfo.OrderID = OrderID
+		set dtoOrderInfo.KlantReferentie = OrderAPI.GeefOrder(OrderID).GeefKlantReferentie()
+		do dtoPallet.Orders.Insert(dtoOrderInfo)
+	}
+	
+	set AantalTePicken = PalletReservatie.AantalTePicken
+	set AantalResterend = PalletReservatie.AantalOpPallet - PalletReservatie.AantalTePicken
+	
+	set rsVerpakkingen = ##class(%ResultSet).%New("Prod.ProductPrijs:GetVerpakkingen")
+	do rsVerpakkingen.Execute(PalletReservatie.Product.ProductNr)
+	if rsVerpakkingen.Next() {
+		if rsVerpakkingen.Get("GrootVerpakking")>1 {
+			set AantalInVerpakking = rsVerpakkingen.Get("GrootVerpakking")
+			set dtoInhoud = ..BuildInhoud("Gx"_AantalInVerpakking,AantalInVerpakking,.AantalTePicken,.AantalResterend)
+			do dtoPallet.Inhouden.Insert(dtoInhoud)
+		}
+		if rsVerpakkingen.Get("NormaleVerpakking")>1 {
+			set AantalInVerpakking = rsVerpakkingen.Get("NormaleVerpakking")
+			set dtoInhoud = ..BuildInhoud("Kx"_AantalInVerpakking,AantalInVerpakking,.AantalTePicken,.AantalResterend)
+			do dtoPallet.Inhouden.Insert(dtoInhoud)
+		}
+	}
+	if AantalTePicken>0 {
+		set dtoInhoud=..BuildInhoud("Stuks",1,.AantalTePicken,.AantalResterend)
+		do dtoPallet.Inhouden.Insert(dtoInhoud)
+	}
+	quit dtoPallet
+]]></Implementation>
 </Method>
 
+<Method name="BuildInhoud">
+<FormalSpec>Omschrijving,AantalInVerpakking,AantalTePicken,AantalResterend</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.MAG.UGLYPicking.dto.Inhoud</ReturnType>
+<Implementation><![CDATA[
+	set dtoInhoud = ##class(APPS.MAG.UGLYPicking.dto.Inhoud).%New()
+	set dtoInhoud.VerpakkingOmschrijving = Omschrijving
+	set dtoInhoud.AantalTePicken = AantalTePicken\AantalInVerpakking
+	set AantalTePicken = AantalTePicken#AantalInVerpakking
+	set dtoInhoud.AantalResterend = AantalResterend\AantalInVerpakking
+	set AantalResterend = AantalResterend#AantalInVerpakking
+	quit dtoInhoud
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductLijnen">
 <FormalSpec>BonNr:%Integer</FormalSpec>
 <ReturnType>APPS.MAG.UGLYPicking.dto.ProductLijnen</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="NeemSessieOver">
 <FormalSpec>Sessie:APPS.MAG.UGLYPicking.dto.Sessie</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="PalletOpvragenAutoMagazijn">
 <FormalSpec>ProductLijn:APPS.MAG.UGLYPicking.dto.ProductLijn</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="ReservatieProbleemOplossen">
 <FormalSpec>ProductLijn:APPS.MAG.UGLYPicking.dto.ProductLijn,NieuwReservatieAantal:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="StelUit">
 <FormalSpec>Bon:APPS.MAG.UGLYPicking.dto.Bon,UitstelOptie:APPS.MAG.UGLYPicking.enu.UitstelOptie</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VoerPickingUit">
 <FormalSpec>Product:APPS.MAG.UGLYPicking.dto.GepickedProduct</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefSessie">
 <Private>1</Private>
 <ReturnType>APPS.MAG.UGLYPicking.impl.Sessie</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 </Export>