Index: vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/TestTAX.cls.xml
===================================================================
diff -u -r31002 -r53060
--- vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/TestTAX.cls.xml	(.../TestTAX.cls.xml)	(revision 31002)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/TestTAX.cls.xml	(.../TestTAX.cls.xml)	(revision 53060)
@@ -3,6 +3,23 @@
 <Class name="vhUnitTest.APPS.PM.Maatwerk.impl.AfbeeldingService.TestTAX">
 <Super>vhUnitTest.APPS.PM.Maatwerk.impl.AfbeeldingService.TestBase,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
+<Method name="Test: Afbeelding voor Sifonlade">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardSifonlade()
+	
+	Do ..AssertAfbeeldingUrl(TAORKenmerken, "http://res.vanhoecke.be/Images/GENERIEK/TAOR_BOX/TAOR_BOX_M_Sifon.JPG")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Afbeelding voor CSifonBinnenladeMetLageRug met dubbele uitsparing">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CSifonBinnenladeMetLageRug()
+	Set TAORKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
+	
+	Do ..AssertAfbeeldingUrl(TAORKenmerken, "http://res.vanhoecke.be/Images/GENERIEK/TAOR_BOX/TAOR_BOX_C_Z_Sifon_x2_RugM.JPG")
+]]></Implementation>
+</Method>
+
 <Method name="GeefIngegevenKenmerken">
 <FormalSpec>IsBinnenlade:%Boolean</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/TestBase.cls.xml
===================================================================
diff -u -r29059 -r53060
--- vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 53060)
@@ -48,6 +48,19 @@
 	Quit Afbeelding
 ]]></Implementation>
 </Method>
+
+<Method name="AssertAfbeeldingUrl">
+<Description>
+Nieuwere methode. Bovenstaande methods+tests kunnen in de nieuwe vorm herschreven worden ... </Description>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteAfbeeldingCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim AfbeeldingService As APPS.PM.Maatwerk.AfbeeldingService = ##class(APPS.PM.Maatwerk.impl.AfbeeldingService).%New()
+	#dim Toepassing As APPS.common.enu.Toepassing = ##class(APPS.common.enu.Toepassing).Web()
+
+	Do $$$AssertEquals(AfbeeldingService.GeefAfbeeldingVoorIngegevenKenmerken(IngegevenKenmerken,Toepassing), VerwachteAfbeeldingCode)
+]]></Implementation>
+</Method>
 </Class>