Index: vhUnitTest/ECONimpl/PM/Maatwerk/Converter/ConverteerEconNaarApps/Test.cls.xml
===================================================================
diff -u -r39846 -r39928
--- vhUnitTest/ECONimpl/PM/Maatwerk/Converter/ConverteerEconNaarApps/Test.cls.xml	(.../Test.cls.xml)	(revision 39846)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/Converter/ConverteerEconNaarApps/Test.cls.xml	(.../Test.cls.xml)	(revision 39928)
@@ -23,68 +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[
-	#dim LbxKenmerken As ECON.PM.Maatwerk.dto.LbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.LbxKenmerken).SifonLadeMet2Uitsparingen()
-	
-	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())
+<Implementation><![CDATA[	Do ..AssertConverter("SifonLadeMet2Uitsparingen")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Lbx LadeMetVerlaagdeRug">
-<Implementation><![CDATA[
-	#dim LbxKenmerken As ECON.PM.Maatwerk.dto.LbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.LbxKenmerken).LadeMetVerlaagdeRug()
-	
-	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).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).StandaardLadeMetNietMeeleveren()
+	#dim LbxKenmerken As ECON.PM.Maatwerk.dto.LbxKenmerken = $Method(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.LbxKenmerken).%New(),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).StandaardLadeMetNietMeeleveren())
+	Do $$$AssertObject(GeconverteerdeKenmerken,$Method(##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).%New(),SoortLade))
 ]]></Implementation>
 </Method>
 </Class>