Index: vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler.cls.xml	(revision 36273)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.WegingBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.WegingBepaler</Super>
+
+<Method name="GeefWeging">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler/Test.cls.xml	(revision 36273)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.WegingBepaler.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="WegingBepaler">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.WegingBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..WegingBepaler = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.WegingBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefWeging geeft weging door voor rol">
+<Implementation><![CDATA[
+	//Do ..AssertWeging("DraagPlaat", "1")
+	Do ..AssertWeging("FPV1_draagplaat", "1")
+
+	Do ..AssertWeging(..Enum.Rol.Bodem, "2")
+	Do ..AssertWeging(..Enum.Rol.Front, "2")
+	Do ..AssertWeging(..Enum.Rol.Rug, "2")
+	Do ..AssertWeging(..Enum.Rol.ZijkantLinks, "2")
+	Do ..AssertWeging(..Enum.Rol.ZijkantRechts, "2")
+	
+	//Do ..AssertWeging("KartonPlaat", "3")
+	Do ..AssertWeging("FPV1_kartonplaat_bodemondersteuning", "3")
+	Do ..AssertWeging(..Enum.Rol.BodemOndersteuning, "3")
+	
+	Do ..AssertWeging(..Enum.Rol.AfdekkapBoven, "4")
+	Do ..AssertWeging(..Enum.Rol.Koppeling, "4")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Error wordt geraised indien ongekende rol">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen weging gevonden voor rol 'OngekendeRol'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	Do ..AssertWeging("OngekendeRol", "1")
+]]></Implementation>
+</Method>
+
+<Method name="AssertWeging">
+<FormalSpec>Rol:%String,Weging:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(..WegingBepaler.GeefWeging(Rol), Weging)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler.cls.xml	(revision 36273)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.WegingBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.WegingBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefWeging">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefWeging",Rol)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/WegingBepaler.cls.xml	(revision 36273)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.WegingBepaler">
+<Super>DOM.PM.Maatwerk.TAX.impl.Base,TECH.Mockable</Super>
+
+<Method name="GeefWeging">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Weging As %String = ""
+	
+	If (Rol = "FPV1_draagplaat") {
+		Set Weging = "1"
+	} ElseIf ((Rol = ..Enum.Rol.ZijkantLinks) || (Rol = ..Enum.Rol.ZijkantRechts) || (Rol = ..Enum.Rol.Bodem) || (Rol = ..Enum.Rol.Rug) || (Rol = ..Enum.Rol.Front) || (Rol = "Beschermkarton front?")) {
+		Set Weging = "2"
+	} ElseIf ((Rol = ..Enum.Rol.BodemOndersteuning) || (Rol = "FPV1_kartonplaat_bodemondersteuning")) {
+		Set Weging = "3"	
+	} ElseIf ((Rol = ..Enum.Rol.AfdekkapBoven) || (Rol = ..Enum.Rol.Koppeling)) {
+		Set Weging = "4"
+	} Else {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Geen weging gevonden voor rol '" _ Rol _ "'.")
+	}
+
+	Quit Weging
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>