Index: APPS/PM/Maatwerk/impl/AfbeeldingService.cls.xml
===================================================================
diff -u -r33867 -r33868
--- APPS/PM/Maatwerk/impl/AfbeeldingService.cls.xml	(.../AfbeeldingService.cls.xml)	(revision 33867)
+++ APPS/PM/Maatwerk/impl/AfbeeldingService.cls.xml	(.../AfbeeldingService.cls.xml)	(revision 33868)
@@ -13,19 +13,35 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AfbeeldingCodeBepaler">
+<Type>APPS.PM.Maatwerk.AfbeeldingCodeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="LBXNietVolledigeLadeImageCodeBepaler">
 <Type>APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler</Type>
 <Private>1</Private>
 </Property>
 
+<Method name="AfbeeldingCodeBepalerGet">
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.AfbeeldingCodeBepaler</ReturnType>
+<Implementation><![CDATA[
+	Set r%AfbeeldingCodeBepaler = $$$LazyLoad(r%AfbeeldingCodeBepaler, ##class(APPS.PM.Maatwerk.impl.TAX.AfbeeldingCodeBepaler).%New())
+	Quit r%AfbeeldingCodeBepaler
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
-<FormalSpec>LBXNietVolledigeLadeImageCodeBepaler:APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler</FormalSpec>
+<FormalSpec>LBXNietVolledigeLadeImageCodeBepaler:APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler,AfbeeldingCodeBepaler:APPS.PM.Maatwerk.AfbeeldingCodeBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..LBXNietVolledigeLadeImageCodeBepaler = $$$Implementation(LBXNietVolledigeLadeImageCodeBepaler, ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler).%New())
+	Set ..AfbeeldingCodeBepaler = AfbeeldingCodeBepaler
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -93,9 +109,8 @@
 <Method name="VerwerkTAORKenmerken">
 <FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	#dim AfbeeldingCodeBepaler As APPS.PM.Maatwerk.AfbeeldingCodeBepaler = ##class(APPS.PM.Maatwerk.impl.TAX.AfbeeldingCodeBepaler).%New()
-
-	Set ..ImageCode = AfbeeldingCodeBepaler.Bepaal(TAORKenmerken)
+	Set ..AfbeeldingCodeBepaler = $$$LazyLoad(..AfbeeldingCodeBepaler, ##class(APPS.PM.Maatwerk.impl.TAX.AfbeeldingCodeBepaler).%New())
+	Set ..ImageCode = ..AfbeeldingCodeBepaler.Bepaal(TAORKenmerken)
 	Set ..AfbeeldingType = "TAO"
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/GeefImageCodeVoorIngegevenKenmerken/TestTAOR.cls.xml
===================================================================
diff -u -r30386 -r33868
--- vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/GeefImageCodeVoorIngegevenKenmerken/TestTAOR.cls.xml	(.../TestTAOR.cls.xml)	(revision 30386)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/GeefImageCodeVoorIngegevenKenmerken/TestTAOR.cls.xml	(.../TestTAOR.cls.xml)	(revision 33868)
@@ -1,68 +1,19 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.PM.Maatwerk.impl.AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken.TestTAOR">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.Maatwerk.impl.AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken.TestTAOR")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="TestTAORGewoneLade">
+<Method name="Test: AfbeeldingCodeBepaler wordt opgeroepen">
 <Implementation><![CDATA[
-	#dim VerwachteImageCode As %String = "M"
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefIngegevenKenmerken()
+	#dim AfbeeldingCodeBepalerMock As vhTest.Mock.APPS.PM.Maatwerk.AfbeeldingCodeBepaler = ##class(vhTest.Mock.APPS.PM.Maatwerk.AfbeeldingCodeBepaler).%New()
+	#dim AfbeeldingService As APPS.PM.Maatwerk.AfbeeldingService = ##class(APPS.PM.Maatwerk.impl.AfbeeldingService).%New("", AfbeeldingCodeBepalerMock)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 	
-	Do ..AssertImageCodeVoorIngegevenKenmerken(TAORKenmerken,VerwachteImageCode)
+	Do AfbeeldingCodeBepalerMock.VerwachtMethodCall("Bepaal", TAORKenmerken)
+	Do AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken(TAORKenmerken)
+	Do AfbeeldingCodeBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
-
-<Method name="TestTAORBinnenladeM">
-<Implementation><![CDATA[
-	#dim VerwachteImageCode As %String = "M_Z"
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefIngegevenKenmerken()
-	Set TAORKenmerken.IsBinnenlade=$$$True
-	
-	Do ..AssertImageCodeVoorIngegevenKenmerken(TAORKenmerken,VerwachteImageCode)
-]]></Implementation>
-</Method>
-
-<Method name="TestTAORLosseComponent">
-<Implementation><![CDATA[
-	#dim VerwachteImageCode As %String = "C_B"
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk())
-	
-	Do ..AssertImageCodeVoorIngegevenKenmerken(TAORKenmerken,VerwachteImageCode)
-]]></Implementation>
-</Method>
-
-<Method name="TestTAORLosseComponentBinnenlade">
-<Implementation><![CDATA[
-	#dim VerwachteImageCode As %String = "C_Z_B"
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk())
-	
-	Do ..AssertImageCodeVoorIngegevenKenmerken(TAORKenmerken,VerwachteImageCode)
-]]></Implementation>
-</Method>
-
-<Method name="AssertImageCodeVoorIngegevenKenmerken">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteImageCode:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set AfbeeldingService=##class(APPS.PM.Maatwerk.impl.AfbeeldingService).%New()
-	#dim ImageCode As %String = AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken(IngegevenKenmerken)
-	
-	Do $$$AssertEquals(ImageCode,VerwachteImageCode)
-]]></Implementation>
-</Method>
-
-<Method name="GeefIngegevenKenmerken">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
-<Implementation><![CDATA[
-	Set TAORKenmerken=##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set TAORKenmerken.LadeHoogte=##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set TAORKenmerken.IsBinnenlade=$$$False
-	Quit TAORKenmerken
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/TAX/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/TAX/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/TAX/Test.cls.xml	(revision 33868)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.AfbeeldingCodeBepaler.TAX.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="AfbeeldingCodeBepaler">
+<Type>APPS.PM.Maatwerk.AfbeeldingCodeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..AfbeeldingCodeBepaler = ##class(APPS.PM.Maatwerk.impl.TAX.AfbeeldingCodeBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCode voor StandaardLade">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+
+	Do ..AssertAfbeeldingCode(TAORKenmerken, "C")
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCode voor StandaardBinnenlade">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade()
+
+	Do ..AssertAfbeeldingCode(TAORKenmerken, "C_Z")
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCode voor LosseComponent">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..Enum.VerpakkingType.LosseComponentenInBulk)
+
+	Do ..AssertAfbeeldingCode(TAORKenmerken, "C_B")
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCode voor LosseComponent Binnenlade">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(..Enum.VerpakkingType.LosseComponentenInBulk)
+
+	Do ..AssertAfbeeldingCode(TAORKenmerken, "C_Z_B")
+]]></Implementation>
+</Method>
+
+<Method name="AssertAfbeeldingCode">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteAfbeeldingCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(..AfbeeldingCodeBepaler.Bepaal(TAORKenmerken), VerwachteAfbeeldingCode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>