Index: vhTest/Dummy/DOM/EC/Winkelkar/MaatwerkLijn.cls.xml
===================================================================
diff -u -r37506 -r37575
--- vhTest/Dummy/DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 37506)
+++ vhTest/Dummy/DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 37575)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerpakteAfmeting">
+<Type>APPS.Halux.common.impl.VerpakteAfmeting</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="TotaalGewicht">
 <Type>%Decimal</Type>
 <Private>1</Private>
@@ -18,8 +23,9 @@
 <Private>1</Private>
 </Property>
 
-<Property name="VerpakteAfmeting">
-<Type>APPS.Halux.common.impl.VerpakteAfmeting</Type>
+<Property name="Aantal">
+<Type>%Integer</Type>
+<InitialExpression>2</InitialExpression>
 <Private>1</Private>
 </Property>
 
@@ -67,10 +73,16 @@
 
 <Method name="GeefAantal">
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit 2
+<Implementation><![CDATA[	Quit ..Aantal
 ]]></Implementation>
 </Method>
 
+<Method name="ZetAantal">
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ..Aantal = Aantal
+]]></Implementation>
+</Method>
+
 <Method name="ZetIngegevenKenmerken">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Implementation><![CDATA[	Set ..IngegevenKenmerken = IngegevenKenmerken
Index: APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml
===================================================================
diff -u -r37564 -r37575
--- APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml	(.../VerpakkingConvertor.cls.xml)	(revision 37564)
+++ APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml	(.../VerpakkingConvertor.cls.xml)	(revision 37575)
@@ -102,9 +102,9 @@
 			Set ProboxVerpakking.LadeType = LadeType
 			Set ProboxVerpakking.ProductID = ProboxVerpakkingList.GeefSamengesteldeProductID()
 			Set ProboxVerpakking.WaardeGoederen = ProboxVerpakkingList.GeefTotaalWaardeGoederen()
-			Set ProboxVerpakking.Gewicht = ProboxVerpakkingList.GeefTotaalGewicht()
-			Set ProboxVerpakking.VolumeAandeel = 1
 			Set ProboxVerpakking.Aantal = ##class(TECH.Math).Ceil(ProboxVerpakkingList.GeefTotaalVolumeAandeel())
+			Set ProboxVerpakking.Gewicht = (ProboxVerpakkingList.GeefTotaalGewicht() / ProboxVerpakking.Aantal)
+			Set ProboxVerpakking.VolumeAandeel = 1
 			Set ProboxVerpakking.Afmeting = ..GeefProboxAfmeting()
 			Do VerzendVerpakkingList.Insert(ProboxVerpakking)
 		}
Index: vhUnitTest/APPS/VKP/impl/OfferteService/VerpakkingConvertor/Converteer/TestMaakVerzendVerpakkingList.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/impl/OfferteService/VerpakkingConvertor/Converteer/TestMaakVerzendVerpakkingList.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/impl/OfferteService/VerpakkingConvertor/Converteer/TestMaakVerzendVerpakkingList.cls.xml	(revision 37575)
@@ -0,0 +1,130 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.impl.OfferteService.VerpakkingConvertor.Converteer.TestMaakVerzendVerpakkingList">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: 1 lade met volumeaandeel 0p25 geeft 1 Probox">
+<Implementation><![CDATA[
+	#dim MaatwerkLijnList As %ListOfObjects = ##class(%ListOfObjects).%New()
+
+	Do MaatwerkLijnList.Insert(..MaakMaatwerkLijn(##class(DOM.PM.enu.LBXVerpakkingType).Probox(),1))
+
+	#dim MaatwerkLijnIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(MaatwerkLijnList)
+	
+	#dim VerpakkingConvertor As APPS.VKP.impl.OfferteService.VerpakkingConvertor
+	Set VerpakkingConvertor = ##class(APPS.VKP.impl.OfferteService.VerpakkingConvertor).%New()
+	
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = VerpakkingConvertor.Converteer(MaatwerkLijnIterator)
+	
+	Do $$$AssertEquals(VerpakkingList.GetAt(1).Aantal, 1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 lade met volumeaandeel 0p25 en gewicht 5p3 geeft gewicht van 5p3 per probox">
+<Implementation><![CDATA[
+	#dim MaatwerkLijnList As %ListOfObjects = ##class(%ListOfObjects).%New()
+
+	Do MaatwerkLijnList.Insert(..MaakMaatwerkLijn(##class(DOM.PM.enu.LBXVerpakkingType).Probox(),1))
+
+	#dim MaatwerkLijnIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(MaatwerkLijnList)
+	
+	#dim VerpakkingConvertor As APPS.VKP.impl.OfferteService.VerpakkingConvertor
+	Set VerpakkingConvertor = ##class(APPS.VKP.impl.OfferteService.VerpakkingConvertor).%New()
+	
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = VerpakkingConvertor.Converteer(MaatwerkLijnIterator)
+	
+	Do $$$AssertEquals(VerpakkingList.GetAt(1).Gewicht, 5.3)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 10 lades met volumeaandeel 0p25 geeft 3 Proboxen">
+<Implementation><![CDATA[
+	#dim MaatwerkLijnList As %ListOfObjects = ##class(%ListOfObjects).%New()
+
+	Do MaatwerkLijnList.Insert(..MaakMaatwerkLijn(##class(DOM.PM.enu.LBXVerpakkingType).Probox(),10))
+
+	#dim MaatwerkLijnIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(MaatwerkLijnList)
+	
+	#dim VerpakkingConvertor As APPS.VKP.impl.OfferteService.VerpakkingConvertor
+	Set VerpakkingConvertor = ##class(APPS.VKP.impl.OfferteService.VerpakkingConvertor).%New()
+	
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = VerpakkingConvertor.Converteer(MaatwerkLijnIterator)
+	
+	Do $$$AssertEquals(VerpakkingList.GetAt(1).Aantal, 3)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 10 lades met volumeaandeel 0p25 en gewicht 5p3 geeft gewicht van 17p67 per probox">
+<Implementation><![CDATA[
+	#dim MaatwerkLijnList As %ListOfObjects = ##class(%ListOfObjects).%New()
+
+	Do MaatwerkLijnList.Insert(..MaakMaatwerkLijn(##class(DOM.PM.enu.LBXVerpakkingType).Probox(),10))
+
+	#dim MaatwerkLijnIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(MaatwerkLijnList)
+	
+	#dim VerpakkingConvertor As APPS.VKP.impl.OfferteService.VerpakkingConvertor
+	Set VerpakkingConvertor = ##class(APPS.VKP.impl.OfferteService.VerpakkingConvertor).%New()
+	
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = VerpakkingConvertor.Converteer(MaatwerkLijnIterator)
+	
+	Do $$$AssertEquals(VerpakkingList.GetAt(1).Gewicht, 17.67)
+]]></Implementation>
+</Method>
+
+<Method name="Test: probox volumeaandeel is steeds 1 ">
+<Implementation><![CDATA[
+	#dim MaatwerkLijnList As %ListOfObjects = ##class(%ListOfObjects).%New()
+
+	Do MaatwerkLijnList.Insert(..MaakMaatwerkLijn(##class(DOM.PM.enu.LBXVerpakkingType).Probox(),10))
+
+	#dim MaatwerkLijnIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(MaatwerkLijnList)
+	
+	#dim VerpakkingConvertor As APPS.VKP.impl.OfferteService.VerpakkingConvertor
+	Set VerpakkingConvertor = ##class(APPS.VKP.impl.OfferteService.VerpakkingConvertor).%New()
+	
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = VerpakkingConvertor.Converteer(MaatwerkLijnIterator)
+	
+	Do $$$AssertEquals(VerpakkingList.GetAt(1).VolumeAandeel, 1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: probox afmeting is steeds h132b60l80 ">
+<Implementation><![CDATA[
+	#dim MaatwerkLijnList As %ListOfObjects = ##class(%ListOfObjects).%New()
+
+	Do MaatwerkLijnList.Insert(..MaakMaatwerkLijn(##class(DOM.PM.enu.LBXVerpakkingType).Probox(),10))
+
+	#dim MaatwerkLijnIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(MaatwerkLijnList)
+	
+	#dim VerpakkingConvertor As APPS.VKP.impl.OfferteService.VerpakkingConvertor
+	Set VerpakkingConvertor = ##class(APPS.VKP.impl.OfferteService.VerpakkingConvertor).%New()
+	
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = VerpakkingConvertor.Converteer(MaatwerkLijnIterator)
+	
+	Do $$$AssertEquals(VerpakkingList.GetAt(1).Afmeting.Hoogte, 132)
+	Do $$$AssertEquals(VerpakkingList.GetAt(1).Afmeting.Breedte, 60)
+	Do $$$AssertEquals(VerpakkingList.GetAt(1).Afmeting.Lengte, 80)
+]]></Implementation>
+</Method>
+
+<Method name="MaakMaatwerkLijn">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set IngegevenKenmerken.VerpakkingType = VerpakkingType
+
+	#dim MaatwerkLijn As vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	Do MaatwerkLijn.ZetIngegevenKenmerken(IngegevenKenmerken)
+	Do MaatwerkLijn.ZetVolumeAandeel(0.25)
+	Do MaatwerkLijn.ZetTotaalGewicht(5.3)
+	Do MaatwerkLijn.ZetAantal(Aantal)
+	
+	Quit MaatwerkLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>