Index: vhUnitTest/ECONimpl/PM/Maatwerk/Converter/ConverteerEconNaarApps/Test.cls.xml
===================================================================
diff -u -r39805 -r39930
--- vhUnitTest/ECONimpl/PM/Maatwerk/Converter/ConverteerEconNaarApps/Test.cls.xml	(.../Test.cls.xml)	(revision 39805)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/Converter/ConverteerEconNaarApps/Test.cls.xml	(.../Test.cls.xml)	(revision 39930)
@@ -23,46 +23,45 @@
 </Method>
 
 <Method name="Test Lbx Standaardlade">
-<Implementation><![CDATA[
-	#dim LbxKenmerken As ECON.PM.Maatwerk.dto.LbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.LbxKenmerken).StandaardLade()
-	
-	Set Converter = ##class(ECONimpl.PM.Maatwerk.Converter).%New()
-	#dim GeconverteerdeKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = Converter.ConverteerEconNaarApps(LbxKenmerken)
-	
-	do $$$AssertObject(GeconverteerdeKenmerken,##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade())
+<Implementation><![CDATA[	Do ..AssertConverter("StandaardLade")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Lbx Spoelbak">
-<Implementation><![CDATA[
-	#dim LbxKenmerken As ECON.PM.Maatwerk.dto.LbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.LbxKenmerken).SpoelbakLade()
-	
-	Set Converter = ##class(ECONimpl.PM.Maatwerk.Converter).%New()
-	#dim GeconverteerdeKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = Converter.ConverteerEconNaarApps(LbxKenmerken)
-	
-	do $$$AssertObject(GeconverteerdeKenmerken,##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).SpoelbakLade())
+<Implementation><![CDATA[	Do ..AssertConverter("SpoelbakLade")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Lbx SifonLadeMet1Uitsparing">
-<Implementation><![CDATA[
-	#dim LbxKenmerken As ECON.PM.Maatwerk.dto.LbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.LbxKenmerken).SifonLadeMet1Uitsparing()
-	
-	Set Converter = ##class(ECONimpl.PM.Maatwerk.Converter).%New()
-	#dim GeconverteerdeKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = Converter.ConverteerEconNaarApps(LbxKenmerken)
-	
-	do $$$AssertObject(GeconverteerdeKenmerken,##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).SifonLadeMet1Uitsparing())
+<Implementation><![CDATA[	Do ..AssertConverter("SifonLadeMet1Uitsparing")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Lbx SifonLadeMet2Uitsparingen">
+<Implementation><![CDATA[	Do ..AssertConverter("SifonLadeMet2Uitsparingen")
+]]></Implementation>
+</Method>
+
+<Method name="Test Lbx LadeMetVerlaagdeRug">
+<Implementation><![CDATA[	Do ..AssertConverter("LadeMetVerlaagdeRug")
+]]></Implementation>
+</Method>
+
+<Method name="Test Lbx StandaardLadeMetNietMeeleveren">
+<Implementation><![CDATA[	Do ..AssertConverter("StandaardLadeMetNietMeeleveren")
+]]></Implementation>
+</Method>
+
+<Method name="AssertConverter">
+<FormalSpec>SoortLade:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	#dim LbxKenmerken As ECON.PM.Maatwerk.dto.LbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.LbxKenmerken).SifonLadeMet2Uitsparingen()
+	#dim LbxKenmerken As ECON.PM.Maatwerk.dto.LbxKenmerken = $ClassMethod("vhTest.Utils.ECON.PM.Maatwerk.dto.LbxKenmerken",SoortLade)
 	
 	Set Converter = ##class(ECONimpl.PM.Maatwerk.Converter).%New()
 	#dim GeconverteerdeKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = Converter.ConverteerEconNaarApps(LbxKenmerken)
 	
-	do $$$AssertObject(GeconverteerdeKenmerken,##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).SifonLadeMet2Uitsparingen())
+	Do $$$AssertObject(GeconverteerdeKenmerken,$ClassMethod("vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken",SoortLade))
 ]]></Implementation>
 </Method>
 </Class>