Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/ZetVerpakteAfmeting/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/ZetVerpakteAfmeting/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/ZetVerpakteAfmeting/Test.cls.xml	(revision 33780)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.ZetVerpakteAfmeting.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: ZetVerpakteAfmeting zet de verpakkingsafmeting VPK.OD1260X240 van een maatwerklijn">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	Set TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1() 
+	
+	#dim MaatwerkLijn AS vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	Do MaatwerkLijn.ZetIngegevenKenmerken(TAORKenmerken)
+	
+	#dim WinkelkarService As vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass = ##class(vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass).%New()
+	#dim MaatwerkCalcAPI As vhTest.Mock.DOM.PM.impl.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.impl.MaatwerkCalcAPI).%New()
+	
+	#dim HalffabItemsBoom As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	
+	#dim ConcreetHalffabItem As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(,,##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.Halffab).%New("1235098"))
+	
+	
+	Do HalffabItemsBoom.IndienMethodCall("GeefHalffabItem", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking()).DanReturn(ConcreetHalffabItem)
+	
+	Do MaatwerkCalcAPI.IndienMethodCall("GeefHalffabItemsBoom", TAORKenmerken,1).DanReturn(HalffabItemsBoom)
+	
+	Set WinkelkarService.MaatwerkCalcAPI = MaatwerkCalcAPI
+	
+	Do WinkelkarService.VoeruitZetVerpakteAfmeting(MaatwerkLijn)
+	
+	#dim VerpakkingAfmetingResultaat As APPS.Halux.common.impl.VerpakteAfmeting = MaatwerkLijn.GeefVerpakteAfmeting()
+	
+	if $$$AssertIsObject(VerpakkingAfmetingResultaat) {
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefBreedte(),163)
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefDiepte(),1260)
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefHoogte(),240)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetVerpakteAfmeting zet geen verpakkingsafmeting van een maatwerklijn bij V1">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	Set TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1() 
+	
+	#dim MaatwerkLijn AS vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	Do MaatwerkLijn.ZetIngegevenKenmerken(TAORKenmerken)
+	
+	#dim WinkelkarService As vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass = ##class(vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass).%New()
+	Do WinkelkarService.VoeruitZetVerpakteAfmeting(MaatwerkLijn)
+	
+	Do $$$AssertNotIsObject(MaatwerkLijn.GeefVerpakteAfmeting())
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+	VPK.OD1260X240 TAXFLA   B	1260 240	163	0,0493	16,27	wegwerppallet (80x150)
+	VPK.OD1260X300 TAXFLA   B 	1260 300	163	0,0616	20,33	wegwerppallet (80x150)
+	VPK.OD700X300  TAXFLA   B	700	 300	163	0,0342	11,3	europallet (80x120)
+	VPK.OD700x240  TAXFLA   B 	700	 240	163	0,0274	9,04	europallet (80x120)
+	VPK.OD960X240 TAXFLA    B  	960	 240	163	0,0376	12,39	europallet (80x120)
+	VPK.OD960X300 TAXFLA    B	960	 300	163	0,0469	15,49	europallet (80x120)
+	*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
FishEye: Tag 31465 refers to a dead (removed) revision in file `vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/TAORKenmerken.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/common/impl/VerpakteAfmeting.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/VerpakteAfmeting.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/VerpakteAfmeting.cls.xml	(revision 33780)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.common.impl.VerpakteAfmeting">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.I3DObject</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="Diepte">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Hoogte">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Breedte">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Diepte:%Decimal,Hoogte:%Decimal,Breedte:%Decimal</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Diepte = Diepte
+	Set ..Breedte = Breedte
+	Set ..Hoogte = Hoogte
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefDiepte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Diepte
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoogte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Hoogte
+]]></Implementation>
+</Method>
+
+<Method name="GeefBreedte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Breedte
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r33737 -r33780
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33737)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33780)
@@ -35,6 +35,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.impl.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator,BestelService:DOM.VKP.Maatwerk.BestelService,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater</FormalSpec>
 <Private>1</Private>
@@ -50,6 +55,8 @@
 
 	Set ..MaatwerkLijnBuilder = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New()
 	
+	Set ..MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -463,11 +470,10 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
 	
 	#dim BerekenTotaalGewichtOpdracht As APPS.EC.Winkelkar.impl.MaatwerkLijnGewichtOpdracht = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnGewichtOpdracht).%New()
 	
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = MaatwerkCalcAPI.GeefHalffabItemsBoom(Lijn.GeefIngegevenKenmerken()) 
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(Lijn.GeefIngegevenKenmerken()) 
 	
 	#dim CommandList As %ListOfObjects = ##class(TECH.ListUtils).CreateListOfObjects(BerekenTotaalGewichtOpdracht)
 	
@@ -477,17 +483,77 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVerpakteAfmeting">
+<Method name="ZetVerpakteAfmeting">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim IsFlatpackV1 As %Boolean = (Lijn.GeefIngegevenKenmerken().VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())
-	if IsFlatpackV1 
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Lijn.GeefIngegevenKenmerken()
+	#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
+	#dim IsVariantTAOR As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())	
+	
+	if (IsFamilieLade && IsVariantTAOR) {
+		#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = IngegevenKenmerken
+
+		if (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())
+		{
+			Do Lijn.ZetVerpakteAfmeting(..GeefVerpakteAfmeting(Lijn.GeefIngegevenKenmerken()))
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakteAfmeting">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.impl.VerpakteAfmeting</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(IngegevenKenmerken) 
+
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking())
+
+	#dim VerpakteAfmeting As APPS.Halux.common.impl.VerpakteAfmeting = ""
+	
+	if HalffabItem.GeefHalffab().GeefProductID() = "1235098"
 	{
-		/// Verpakkingsafmeting ???
+		Set VerpakteAfmeting = ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(1260, 240, 163)
 	}
+	if HalffabItem.GeefHalffab().GeefProductID() = "1235132"
+	{
+		Set VerpakteAfmeting = ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(1260, 300, 163)
+	}
+	if HalffabItem.GeefHalffab().GeefProductID() = "1235069"
+	{
+		Set VerpakteAfmeting = ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(700, 300, 163)
+	}
+	if HalffabItem.GeefHalffab().GeefProductID() = "1230310"
+	{
+		Set VerpakteAfmeting = ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(700, 240, 163)
+	}
+	if HalffabItem.GeefHalffab().GeefProductID() = "1235079"
+	{
+		Set VerpakteAfmeting = ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(960, 240, 163)
+	}
+	if HalffabItem.GeefHalffab().GeefProductID() = "1235081"
+	{
+		Set VerpakteAfmeting = ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(960, 300, 163)
+	}
+	
+	Quit VerpakteAfmeting
 ]]></Implementation>
 </Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+	1235098 VPK.OD1260X240 TAXFLA   B	1260 240 163	0,0493	16,27	wegwerppallet (80x150)
+	1235132 VPK.OD1260X300 TAXFLA   B 	1260 300 163	0,0616	20,33	wegwerppallet (80x150)
+	1235069 VPK.OD700X300  TAXFLA   B	700	300	163	0,0342	11,3	europallet (80x120)
+	1230310 VPK.OD700x240  TAXFLA   B 	700	240	163	0,0274	9,04	europallet (80x120)
+	1235079 VPK.OD960X240 TAXFLA    B  	960	240	163	0,0376	12,39	europallet (80x120)
+	1235081 VPK.OD960X300 TAXFLA    B	960	300	163	0,0469	15,49	europallet (80x120)
+	*/
+]]></Content>
+</UDLText>
 </Class>
 
 
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/SubClass.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/SubClass.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/SubClass.cls.xml	(revision 33780)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass">
+<Super>APPS.EC.Winkelkar.impl.WinkelkarService</Super>
+
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.impl.MaatwerkCalcAPI</Type>
+</Property>
+
+<Method name="VoeruitZetVerpakteAfmeting">
+<FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Implementation><![CDATA[	Do ..ZetVerpakteAfmeting(Lijn)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/EC/Winkelkar/PrijsLijn.cls.xml
===================================================================
diff -u -r33711 -r33780
--- DOM/EC/Winkelkar/PrijsLijn.cls.xml	(.../PrijsLijn.cls.xml)	(revision 33711)
+++ DOM/EC/Winkelkar/PrijsLijn.cls.xml	(.../PrijsLijn.cls.xml)	(revision 33780)
@@ -24,6 +24,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerpakteAfmeting">
+<Type>APPS.Halux.common.impl.VerpakteAfmeting</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="EindklantEenheidPrijsExclBTW">
 <Type>%Decimal</Type>
 <Private>1</Private>
@@ -59,6 +64,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetVerpakteAfmeting">
+<FormalSpec>VerpakkingAfmeting:APPS.Halux.common.impl.VerpakteAfmeting</FormalSpec>
+<Implementation><![CDATA[	set ..VerpakteAfmeting = VerpakkingAfmeting
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakteAfmeting">
+<ReturnType>APPS.Halux.common.impl.VerpakteAfmeting</ReturnType>
+<Implementation><![CDATA[	Quit ..VerpakteAfmeting
+]]></Implementation>
+</Method>
+
 <Method name="GeefTotaalGewicht">
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[	Quit ..TotaalGewicht
@@ -171,6 +188,12 @@
 <Value name="8">
 <Value>TotaalGewicht</Value>
 </Value>
+<Value name="9">
+<Value>VerpakkingAfmeting</Value>
+</Value>
+<Value name="10">
+<Value>VerpakteAfmeting</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhTest/Dummy/DOM/EC/Winkelkar/MaatwerkLijn.cls.xml
===================================================================
diff -u -r33748 -r33780
--- vhTest/Dummy/DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 33748)
+++ vhTest/Dummy/DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 33780)
@@ -3,14 +3,24 @@
 <Class name="vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn">
 <Super>%RegisteredObject</Super>
 
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="TotaalGewicht">
 <Type>%Decimal</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="VerpakteAfmeting">
+<Type>APPS.Halux.common.impl.VerpakteAfmeting</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefIngegevenKenmerken">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[	quit ""
+<Implementation><![CDATA[	quit ..IngegevenKenmerken
 ]]></Implementation>
 </Method>
 
@@ -43,6 +53,24 @@
 <Implementation><![CDATA[	Quit 2
 ]]></Implementation>
 </Method>
+
+<Method name="ZetIngegevenKenmerken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Implementation><![CDATA[	Set ..IngegevenKenmerken = IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="ZetVerpakteAfmeting">
+<FormalSpec>VerpakkingAfmeting:APPS.Halux.common.impl.VerpakteAfmeting</FormalSpec>
+<Implementation><![CDATA[	set ..VerpakteAfmeting = VerpakkingAfmeting
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakteAfmeting">
+<ReturnType>APPS.Halux.common.impl.VerpakteAfmeting</ReturnType>
+<Implementation><![CDATA[	Quit ..VerpakteAfmeting
+]]></Implementation>
+</Method>
 </Class>