Index: APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml
===================================================================
diff -u
--- APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml	(revision 0)
+++ APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml	(revision 37534)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.impl.OfferteService.VerpakkingConvertor">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Converteer">
+<FormalSpec>MaatwerkLijnIterator:TECH.Iterator</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()
+
+	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()
+		Set Verpakking.Afmeting = ..ConverteerVerpakteAfmeting(Lijn.GeefVerpakteAfmeting())
+		Set Verpakking.Gewicht = Lijn.GeefTotaalGewicht()
+		Set Verpakking.WaardeGoederen = Lijn.GeefTotaalPrijs()
+		Set Verpakking.ProductID = Lijn.GeefProductID()
+		Set Verpakking.Aantal = Lijn.GeefAantal()
+		Set Verpakking.VolumeAandeel = Lijn.GeefVolumeAandeel()
+		Set Verpakking.VerpakkingType = ..GeefVerpakkingType(Lijn.GeefIngegevenKenmerken())
+		Set Verpakking.LadeType = ..GeefLadeType(Lijn.GeefIngegevenKenmerken())
+		Do VerpakkingList.Insert(Verpakking)
+	}
+	Quit VerpakkingList
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingType">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte.enu.VerpakkingType</ReturnType>
+<Implementation><![CDATA[
+	#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
+	#dim IsVariantTAX As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())	
+	#dim IsVariantLBX As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure())	
+	
+	if IsFamilieLade {
+	 	If IsVariantTAX {
+			#dim TAXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = IngegevenKenmerken
+			If ##class(APPS.VKP.Offerte.enu.VerpakkingType).IsValid(TAXKenmerken.VerpakkingType) {
+				Quit TAXKenmerken.VerpakkingType
+			}
+		} elseif IsVariantLBX {
+			#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = IngegevenKenmerken
+			If ##class(APPS.VKP.Offerte.enu.VerpakkingType).IsValid(LBXKenmerken.VerpakkingType) {
+				Quit LBXKenmerken.VerpakkingType
+			}
+		}
+	}
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeType">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte.enu.LadeType</ReturnType>
+<Implementation><![CDATA[
+	#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
+
+	if IsFamilieLade {
+		If ##class(APPS.VKP.Offerte.enu.LadeType).IsValid(IngegevenKenmerken.GeefVariant()) {
+			Quit IngegevenKenmerken.GeefVariant()
+		}
+	}
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerVerpakteAfmeting">
+<FormalSpec>VerpakteAfmeting:APPS.Halux.common.impl.VerpakteAfmeting=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.Afmeting</ReturnType>
+<Implementation><![CDATA[
+	
+	if $IsObject(VerpakteAfmeting)
+	{
+		Quit ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(VerpakteAfmeting.GeefHoogte(),VerpakteAfmeting.GeefBreedte(),VerpakteAfmeting.GeefDiepte())
+	} Else {
+		Quit ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r37524 -r37534
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 37524)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 37534)
@@ -13,8 +13,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerpakkingConvertor">
+<Type>APPS.VKP.impl.OfferteService.VerpakkingConvertor</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OfferteRepository:APPS.VKP.Offerte.OfferteRepository,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",LijnRepository:DOM.EC.Winkelkar.impl.LijnRepository,TaalBepaler:APPS.EC.Winkelkar.impl.TaalBepaler=""</FormalSpec>
+<FormalSpec>OfferteRepository:APPS.VKP.Offerte.OfferteRepository,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",LijnRepository:DOM.EC.Winkelkar.impl.LijnRepository,TaalBepaler:APPS.EC.Winkelkar.impl.TaalBepaler="",VerpakkingConvertor:APPS.VKP.impl.OfferteService.VerpakkingConvertor=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -23,6 +28,7 @@
 	Set ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
 	Set ..WinkelkarService = $$$Inject(WinkelkarService,##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
 	Set ..LijnRepository = $$$Inject(LijnRepository,##class(DOM.EC.Winkelkar.impl.LijnRepository).%New())
+	Set ..VerpakkingConvertor = $$$Inject(VerpakkingConvertor,##class(APPS.VKP.impl.OfferteService.VerpakkingConvertor).%New())
 	Set ..TaalBepaler = TaalBepaler
 	
 	Quit $$$OK
@@ -279,82 +285,9 @@
 <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 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()
-		Set Verpakking.Afmeting = ..ConverteerVerpakteAfmeting(Lijn.GeefVerpakteAfmeting())
-		Set Verpakking.Gewicht = Lijn.GeefTotaalGewicht()
-		Set Verpakking.WaardeGoederen = Lijn.GeefTotaalPrijs()
-		Set Verpakking.ProductID = Lijn.GeefProductID()
-		Set Verpakking.Aantal = Lijn.GeefAantal()
-		Set Verpakking.VolumeAandeel = Lijn.GeefVolumeAandeel()
-		Set Verpakking.VerpakkingType = ..GeefVerpakkingType(Lijn.GeefIngegevenKenmerken())
-		Set Verpakking.LadeType = ..GeefLadeType(Lijn.GeefIngegevenKenmerken())
-		Do VerpakkingList.Insert(Verpakking)
-	}
-	Quit VerpakkingList
+<Implementation><![CDATA[	Quit ..VerpakkingConvertor.Converteer(..GeefMaatwerkLijnenIterator(..OfferteRepository.GeefViaID(OfferteID)))
 ]]></Implementation>
 </Method>
-
-<Method name="GeefVerpakkingType">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.VKP.Offerte.enu.VerpakkingType</ReturnType>
-<Implementation><![CDATA[
-	#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
-	#dim IsVariantTAX As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())	
-	#dim IsVariantLBX As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure())	
-	
-	if IsFamilieLade {
-	 	If IsVariantTAX {
-			#dim TAXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = IngegevenKenmerken
-			If ##class(APPS.VKP.Offerte.enu.VerpakkingType).IsValid(TAXKenmerken.VerpakkingType) {
-				Quit TAXKenmerken.VerpakkingType
-			}
-		} elseif IsVariantLBX {
-			#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = IngegevenKenmerken
-			If ##class(APPS.VKP.Offerte.enu.VerpakkingType).IsValid(LBXKenmerken.VerpakkingType) {
-				Quit LBXKenmerken.VerpakkingType
-			}
-		}
-	}
-	Quit ""
-]]></Implementation>
-</Method>
-
-<Method name="GeefLadeType">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.VKP.Offerte.enu.LadeType</ReturnType>
-<Implementation><![CDATA[
-	#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
-
-	if IsFamilieLade {
-		If ##class(APPS.VKP.Offerte.enu.LadeType).IsValid(IngegevenKenmerken.GeefVariant()) {
-			Quit IngegevenKenmerken.GeefVariant()
-		}
-	}
-	Quit ""
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerVerpakteAfmeting">
-<FormalSpec>VerpakteAfmeting:APPS.Halux.common.impl.VerpakteAfmeting=""</FormalSpec>
-<ReturnType>APPS.TRANSP.OfferteService.dto.Afmeting</ReturnType>
-<Implementation><![CDATA[
-	
-	if $IsObject(VerpakteAfmeting)
-	{
-		Quit ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(VerpakteAfmeting.GeefHoogte(),VerpakteAfmeting.GeefBreedte(),VerpakteAfmeting.GeefDiepte())
-	} Else {
-		Quit ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0)
-	}
-]]></Implementation>
-</Method>
 </Class>