Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r33484 -r33729
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33484)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33729)
@@ -233,6 +233,29 @@
 <Implementation><![CDATA[	 Quit ..GeefOfferte(OfferteID).GeefWinkelkarID()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProductVerpakkingDetails">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<ReturnType>APPS.VKP.Offerte.dto.VerpakkingList</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(APPS.VKP.Offerte.dto.VerpakkingList).%New()
+	#dim Offerte As APPS.VKP.impl.Offerte = ..GeefOfferte(OfferteID)
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).OpenId(Offerte.WinkelkarID)
+	#dim GroepLijnIterator As TECH.Iterator = Winkelkar.GeefLijnIterator()
+	While (GroepLijnIterator.HasNext())
+	{
+		#dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = GroepLijnIterator.Next()
+		#dim LijnIterator As TECH.Iterator = GroepLijn.SublijnIterator()
+		While (LijnIterator.HasNext())
+		{
+			#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = LijnIterator.Next()
+			#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New("",Lijn.GeefTotaalGewicht(),Lijn.GeefTotaalPrijs(),Lijn.GeefProductID(),Lijn.GeefAantal())
+			Do VerpakkingList.Insert(Verpakking)
+		}
+	}
+	Quit VerpakkingList
+]]></Implementation>
+</Method>
 </Class>