Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r33729 -r33738
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33729)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33738)
@@ -3,6 +3,23 @@
 <Class name="APPS.VKP.impl.OfferteService">
 <Super>TECH.RegisteredObject,APPS.VKP.OfferteService</Super>
 
+<Property name="OfferteRepository">
+<Type>APPS.VKP.Offerte.OfferteRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OfferteRepository:APPS.VKP.Offerte.OfferteRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefDocument">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>APPS.VKP.impl.Offerte</ReturnType>
@@ -14,10 +31,10 @@
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>APPS.VKP.impl.Offerte</ReturnType>
 <Implementation><![CDATA[
-	If '##class(APPS.VKP.impl.Offerte).%ExistsId(OfferteID){
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Offerte '"_OfferteID_"' bestaat niet!"))	
+	if $$$Not(..OfferteRepository.BestaatViaID(OfferteID)) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Offerte '"_OfferteID_"' bestaat niet!"))	
 	}
-	Quit ##class(APPS.VKP.impl.Offerte).OpenId(OfferteID)
+	Quit ..OfferteRepository.GeefViaID(OfferteID)
 ]]></Implementation>
 </Method>
 
@@ -111,6 +128,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMaatwerkLijnenIterator">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..WinkelkarService.GeefMaatwerkLijnen(Offerte.GeefWinkelkarID()))
+]]></Implementation>
+</Method>
+
 <Method name="KoppelAanOfferteVanHandel">
 <FormalSpec>Offerte:APPS.VKP.Offerte,OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
 <Implementation><![CDATA[	Do ##class(APPS.VKP.Offerte.impl.HandelOfferteAanVanHoeckeOfferteKoppelaar).%New().KoppelAanOfferteVanHandel(Offerte,OfferteVanHandel)
@@ -239,19 +263,11 @@
 <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)
-		}
+	#dim MaatwerkLijnIterator As TECH.Iterator = ..GeefMaatwerkLijnenIterator(..OfferteRepository.GeefViaID(OfferteID))
+	While (MaatwerkLijnIterator.HasNext()) {
+		#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnIterator.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>