Index: vhUnitTest/APPS/EC/Winkelkar/impl/TAX/FlatPackV1/VerpakteAfmetingBerekenaar/GeefVerpakteAfmeting/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/TAX/FlatPackV1/VerpakteAfmetingBerekenaar/GeefVerpakteAfmeting/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/TAX/FlatPackV1/VerpakteAfmetingBerekenaar/GeefVerpakteAfmeting/Test.cls.xml	(revision 37138)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.TAX.FlatPackV1.VerpakteAfmetingBerekenaar.GeefVerpakteAfmeting.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: ZetVerpakteAfmeting zet de verpakkingsafmeting van een ongekende TAOR verpakking maatwerklijn">
+<Implementation><![CDATA[
+	#dim MaatwerkLijn As vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ..MaakTAXMaatwerkLijn(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())
+	#dim VerpakteAfmetingResultaat As APPS.Halux.common.impl.VerpakteAfmeting 
+	Set VerpakteAfmetingResultaat = ..MaakVerpakteAfmetingBerekenaar("0000000").GeefVerpakteAfmeting(MaatwerkLijn.GeefIngegevenKenmerken())
+	
+	Do ..AssertLegeVerpakkingAfmeting(VerpakteAfmetingResultaat)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetVerpakteAfmeting zet de verpakkingsafmeting VPK.OD1260X240 van een maatwerklijn">
+<Implementation><![CDATA[
+	#dim MaatwerkLijn As vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ..MaakTAXMaatwerkLijn(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())
+	#dim VerpakteAfmetingResultaat As APPS.Halux.common.impl.VerpakteAfmeting 
+	Set VerpakteAfmetingResultaat = ..MaakVerpakteAfmetingBerekenaar("1235098").GeefVerpakteAfmeting(MaatwerkLijn.GeefIngegevenKenmerken())
+	
+	Do ..AssertVerpakkingAfmetingVPKOD1260X240(VerpakteAfmetingResultaat)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetVerpakteAfmeting zet de verpakkingsafmeting VPK.OD1260X240 van een maatwerklijn met meerdere producten">
+<Implementation><![CDATA[
+	#dim MaatwerkLijn As vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ..MaakTAXMaatwerkLijn(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())
+
+	#dim VerpakteAfmetingResultaat As APPS.Halux.common.impl.VerpakteAfmeting 
+	Set VerpakteAfmetingResultaat = ..MaakVerpakteAfmetingBerekenaar("1235098","1525632","1854621").GeefVerpakteAfmeting(MaatwerkLijn.GeefIngegevenKenmerken())
+	
+	Do ..AssertVerpakkingAfmetingVPKOD1260X240(VerpakteAfmetingResultaat)
+]]></Implementation>
+</Method>
+
+<Method name="AssertLegeVerpakkingAfmeting">
+<FormalSpec>VerpakkingAfmetingResultaat:APPS.Halux.common.impl.VerpakteAfmeting</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if $$$AssertIsObject(VerpakkingAfmetingResultaat) {
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefBreedte(),0)
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefDiepte(),0)
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefHoogte(),0)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertVerpakkingAfmetingVPKOD1260X240">
+<FormalSpec>VerpakkingAfmetingResultaat:APPS.Halux.common.impl.VerpakteAfmeting</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if $$$AssertIsObject(VerpakkingAfmetingResultaat) {
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefBreedte(),1265)
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefDiepte(),244)
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefHoogte(),175)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakTAXMaatwerkLijn">
+<FormalSpec>VerpakkingsType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerkenFake As vhTest.Fake.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	Set TAORKenmerkenFake.VerpakkingType = VerpakkingsType
+	
+	#dim MaatwerkLijn AS vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	Do MaatwerkLijn.ZetIngegevenKenmerken(TAORKenmerkenFake)
+	Quit MaatwerkLijn
+]]></Implementation>
+</Method>
+
+<Method name="MaakVerpakteAfmetingBerekenaar">
+<FormalSpec>ProductIDs...:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EC.Winkelkar.impl.TAX.FlatPackV1.VerpakteAfmetingBerekenaar</ReturnType>
+<Implementation><![CDATA[
+	#dim MaatwerkCalcAPI As vhTest.Mock.DOM.PM.impl.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.impl.MaatwerkCalcAPI).%New()
+	Do MaatwerkCalcAPI.IndienMethodCall("GeefHalffabItemsBoom", $$$ElkeWaarde ,1).DanReturn(..MaakHalffabItemsBoom(ProductIDs...))
+	
+	Set VerpakteAfmetingBerekenaar = ##class(APPS.EC.Winkelkar.impl.TAX.FlatPackV1.VerpakteAfmetingBerekenaar).%New(MaatwerkCalcAPI)
+	Quit VerpakteAfmetingBerekenaar
+]]></Implementation>
+</Method>
+
+<Method name="MaakHalffabItemsBoom">
+<FormalSpec>ProductIDs...:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	Set SamenGesteldHalffabItemTAORRol = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking())
+	set iProductIDs = ##class(TECH.ArrayOneDimIterator).%New(.ProductIDs)
+	while iProductIDs.HasNext() {
+		Do SamenGesteldHalffabItemTAORRol.VoegToe(..MaakHalffabItemOmdoos(iProductIDs.Next()))
+	}
+	
+	Set HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Do HalffabItemsBoom.IndienMethodCall("GeefHalffabItem", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking()).DanReturn(SamenGesteldHalffabItemTAORRol)
+	
+	Quit HalffabItemsBoom
+]]></Implementation>
+</Method>
+
+<Method name="MaakHalffabItemOmdoos">
+<FormalSpec>ProductID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	Set HalffabProduct = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.Halffab).%New(ProductID)
+	Set HalffabItemOmdoos = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(,"FPV1_omdoos",HalffabProduct)
+	Quit HalffabItemOmdoos
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/TAX/FlatPackV1/VerpakteAfmetingBerekenaar.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/TAX/FlatPackV1/VerpakteAfmetingBerekenaar.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/TAX/FlatPackV1/VerpakteAfmetingBerekenaar.cls.xml	(revision 37138)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.TAX.FlatPackV1.VerpakteAfmetingBerekenaar">
+<Super>APPS.EC.Winkelkar.VerpakteAfmetingBerekenaar</Super>
+
+<Method name="GeefVerpakteAfmeting">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<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.SamengesteldHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking())
+	#dim ProductID As %String = HalffabItem.GeefHalffabItem("FPV1_omdoos").GeefHalffab().GeefProductID()
+	
+	Quit:(ProductID = "1235098") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(244, 175, 1265)
+	Quit:(ProductID = "1235132") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(304, 175, 1265)
+	Quit:(ProductID = "1235069") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(304, 175, 705)
+	Quit:(ProductID = "1230310") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(244, 175, 705)
+	Quit:(ProductID = "1235079") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(244, 175, 965)
+	Quit:(ProductID = "1235081") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(304, 175, 965)
+
+	Quit ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(0,0,0)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/TAX/V1/VerpakteAfmetingBerekenaar/GeefVerpakteAfmeting/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/TAX/V1/VerpakteAfmetingBerekenaar/GeefVerpakteAfmeting/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/TAX/V1/VerpakteAfmetingBerekenaar/GeefVerpakteAfmeting/Test.cls.xml	(revision 37138)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.TAX.V1.VerpakteAfmetingBerekenaar.GeefVerpakteAfmeting.Test">
+<Super>vhUnitTest.TestCase</Super>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/VerpakteAfmetingBerekenaarFactory.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/VerpakteAfmetingBerekenaarFactory.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/VerpakteAfmetingBerekenaarFactory.cls.xml	(revision 37138)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.VerpakteAfmetingBerekenaarFactory">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefVerpakteAfmetingBerekenaar">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.VerpakteAfmetingBerekenaar</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 (TAXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()) {
+				Quit ##class(APPS.EC.Winkelkar.impl.TAX.FlatPackV1.VerpakteAfmetingBerekenaar).%New()
+			} elseif (TAXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()) {
+				///Quit ##class(APPS.EC.Winkelkar.impl.TAX.V1.VerpakteAfmetingBerekenaar).%New()
+			} 
+		} elseif IsVariantLBX {
+			///Quit ##class(APPS.EC.Winkelkar.impl.LBX.VerpakteAfmetingBerekenaar).%New()
+		}
+	}
+	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r36428 -r37138
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 36428)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 37138)
@@ -40,6 +40,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerpakteAfmetingBerekenaarFactory">
+<Type>APPS.EC.Winkelkar.impl.VerpakteAfmetingBerekenaarFactory</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>
@@ -54,8 +59,8 @@
 	Set ..WinkelkarPrijsUpdater = $$$Implementation(WinkelkarPrijsUpdater, ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New())
 
 	Set ..MaatwerkLijnBuilder = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New()
-	
 	Set ..MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
+	Set ..VerpakteAfmetingBerekenaarFactory = ##class(APPS.EC.Winkelkar.impl.VerpakteAfmetingBerekenaarFactory).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -472,11 +477,8 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	
 	#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 CommandList As %ListOfObjects = ##class(TECH.ListUtils).CreateListOfObjects(BerekenTotaalGewichtOpdracht)
 	
 	do ##class(TECH.IteratorUitvoerder).%New(HalffabItemsBoom.GeefHalffabItemsIterator(), CommandList).VoerUit()
@@ -489,42 +491,14 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#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())	
+	#dim VerpakteAfmetingBerekenaar	As APPS.EC.Winkelkar.VerpakteAfmetingBerekenaar
+	Set VerpakteAfmetingBerekenaar = ..VerpakteAfmetingBerekenaarFactory.GeefVerpakteAfmetingBerekenaar(Lijn.GeefIngegevenKenmerken())
 	
-	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(..BepaalVerpakteAfmeting(Lijn.GeefIngegevenKenmerken()))
-		}
+	if $IsObject(VerpakteAfmetingBerekenaar) {
+		Do Lijn.ZetVerpakteAfmeting(VerpakteAfmetingBerekenaar.GeefVerpakteAfmeting(Lijn.GeefIngegevenKenmerken()))
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="BepaalVerpakteAfmeting">
-<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.SamengesteldHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking())
-
-	#dim ProductID As %String = HalffabItem.GeefHalffabItem("FPV1_omdoos").GeefHalffab().GeefProductID()
-	
-	Quit:(ProductID = "1235098") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(244, 175, 1265)
-	Quit:(ProductID = "1235132") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(304, 175, 1265)
-	Quit:(ProductID = "1235069") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(304, 175, 705)
-	Quit:(ProductID = "1230310") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(244, 175, 705)
-	Quit:(ProductID = "1235079") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(244, 175, 965)
-	Quit:(ProductID = "1235081") ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(304, 175, 965)
-
-	Quit ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(0,0,0)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/TAX/V1/VerpakteAfmetingBerekenaar.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/TAX/V1/VerpakteAfmetingBerekenaar.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/TAX/V1/VerpakteAfmetingBerekenaar.cls.xml	(revision 37138)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.TAX.V1.VerpakteAfmetingBerekenaar">
+<Super>APPS.EC.Winkelkar.VerpakteAfmetingBerekenaar</Super>
+
+<Method name="GeefVerpakteAfmeting">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<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.SamengesteldHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking())
+	#dim ProductID As %String = HalffabItem.GeefHalffabItem(" ?????? ").GeefHalffab().GeefProductID()
+
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar
+	Set DoosBerekenaar = ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(HalffabItemsBoom, IngegevenKenmerken, ProductID)
+	
+	#dim DoosLade As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
+	
+	Quit:$IsObject(DoosLade) ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(DoosLade.Diepte ,DoosLade.Hoogte,DoosLade.Breedte)
+	
+	Quit ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(0,0,0)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/LBX/VerpakteAfmetingBerekenaar.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/LBX/VerpakteAfmetingBerekenaar.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/LBX/VerpakteAfmetingBerekenaar.cls.xml	(revision 37138)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.LBX.VerpakteAfmetingBerekenaar">
+<Super>APPS.EC.Winkelkar.VerpakteAfmetingBerekenaar</Super>
+
+<Method name="GeefVerpakteAfmeting">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<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.SamengesteldHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking())
+	#dim ProductID As %String = HalffabItem.GeefHalffabItem(" ?????? ").GeefHalffab().GeefProductID()
+
+	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar
+	Set DoosBerekenaar = ##class(APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar).%New(HalffabItemsBoom, IngegevenKenmerken, ProductID)
+	
+	#dim DoosLade As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
+	
+	Quit:$IsObject(DoosLade) ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(DoosLade.Diepte ,DoosLade.Hoogte,DoosLade.Breedte)
+	
+	Quit ##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(0,0,0)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/VerpakteAfmetingBerekenaar.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/VerpakteAfmetingBerekenaar.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/VerpakteAfmetingBerekenaar.cls.xml	(revision 37138)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.VerpakteAfmetingBerekenaar">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.impl.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MaatwerkCalcAPI:DOM.PM.impl.MaatwerkCalcAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MaatwerkCalcAPI = $$$Inject(MaatwerkCalcAPI,##class(DOM.PM.impl.MaatwerkCalcAPI).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakteAfmeting">
+<Abstract>1</Abstract>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>APPS.Halux.common.impl.VerpakteAfmeting</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 37138 refers to a dead (removed) revision in file `vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/SubClass.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/EC/Winkelkar/impl/LBX/VerpakteAfmetingBerekenaar/GeefVerpakteAfmeting/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/LBX/VerpakteAfmetingBerekenaar/GeefVerpakteAfmeting/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/LBX/VerpakteAfmetingBerekenaar/GeefVerpakteAfmeting/Test.cls.xml	(revision 37138)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.LBX.VerpakteAfmetingBerekenaar.GeefVerpakteAfmeting.Test">
+<Super>vhUnitTest.TestCase</Super>
+</Class>
+
+
+</Export>
FishEye: Tag 37138 refers to a dead (removed) revision in file `vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/ZetVerpakteAfmeting/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?