Index: APPS/PM/Maatwerk/impl/VerpakkingService.cls.xml
===================================================================
diff -u -r37465 -r37471
--- APPS/PM/Maatwerk/impl/VerpakkingService.cls.xml	(.../VerpakkingService.cls.xml)	(revision 37465)
+++ APPS/PM/Maatwerk/impl/VerpakkingService.cls.xml	(.../VerpakkingService.cls.xml)	(revision 37471)
@@ -3,40 +3,34 @@
 <Class name="APPS.PM.Maatwerk.impl.VerpakkingService">
 <Super>TECH.Mockable</Super>
 
+<Property name="Calculator">
+<Type>APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Calculator:APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Calculator = $$$Inject(Calculator,##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ProboxVolumeAandeel">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%Decimal</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 (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) || (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure()) {
+		Quit ..Calculator.GeefVolumeAandeel(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenLade, IngegevenKenmerken.LadeDiepte, IngegevenKenmerken.LadeHoogte, "", IngegevenKenmerken.InterneBreedte)
+	} else {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Probox VolumeAandeel wordt momenteel enkel berekend voor Taor en Legrabox!")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = IngegevenKenmerken
-	
-	///Do TAORKenmerken.IsBinnenlade ok
-	///Do TAORKenmerken.LadeDiepte ok
-	///Do TAORKenmerken.LadeHoogte ok
-	///Do TAORKenmerken. LadeZijkantHoogte As %String, LadeBreedte As %Float ?????
-	/// Variant omzetten naar LadeVariant ?????
-	
-	HEBBEN WE LADEUTILS NODIG ?
-	
-	#Dim LadeUtils As DOM.PM.Maatwerk.Lade.LadeUtils.impl.TAORLadeUtils = ##class(DOM.PM.Maatwerk.Lade.LadeUtils.impl.TAORLadeUtils).%New()
-	#Dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosLade).%New()
-	
-	Set DoosLade.Diepte = LadeUtils.GeefFysiekeLadeDiepteMM(..IngegevenKenmerken.LadeDiepte)
-	Set DoosLade.Breedte = LadeUtils.GeefFysiekeLadeBreedteMM(..IngegevenKenmerken.InterneBreedte, ..IngegevenKenmerken.IsBinnenlade)
-	Set DoosLade.Hoogte = LadeUtils.GeefFysiekeLadeHoogteMM(..IngegevenKenmerken.LadeHoogte, ..IngegevenKenmerken.IsBinnenlade)
-
-	
-	
-	#dim Calculator As APPS.PM.Maatwerk.Probox.Calculator = ##class(APPS.PM.Maatwerk.Probox.Calculator).%New()
-	
-	///Set a = Calculator.GeefVolumeAandeel(LadeVariant As DOM.PM.enu.LadeVariant, IsBinnenlade As %Boolean, LadeDiepte As %Integer, LadeHoogte As %String, LadeZijkantHoogte As %String, LadeBreedte As %Float) As %Float
-	*/
-	Quit ""
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/VerpakkingService/ProboxVolumeAandeel/Test.cls.xml
===================================================================
diff -u -r37461 -r37471
--- vhUnitTest/APPS/PM/Maatwerk/impl/VerpakkingService/ProboxVolumeAandeel/Test.cls.xml	(.../Test.cls.xml)	(revision 37461)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/VerpakkingService/ProboxVolumeAandeel/Test.cls.xml	(.../Test.cls.xml)	(revision 37471)
@@ -3,7 +3,16 @@
 <Class name="vhUnitTest.APPS.PM.Maatwerk.impl.VerpakkingService.ProboxVolumeAandeel.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: ">
+<Method name="Test: geeft foutmelding indien geen Taor of Legrabox lade ingegeven is">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Probox VolumeAandeel wordt momenteel enkel berekend voor Taor en Legrabox!")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	#dim VerpakkingService As APPS.PM.Maatwerk.impl.VerpakkingService = ##class(APPS.PM.Maatwerk.impl.VerpakkingService).%New()
+	Do VerpakkingService.ProboxVolumeAandeel(IngegevenKenmerken)
+]]></Implementation>
 </Method>
 </Class>