Index: vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/LBX/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/LBX/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/LBX/Test.cls.xml	(revision 33878)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.AfbeeldingCodeBepaler.LBX.Test">
+<Super>vhUnitTest.APPS.PM.Maatwerk.AfbeeldingCodeBepaler.Base,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..AfbeeldingCodeBepaler = ##class(APPS.PM.Maatwerk.impl.LBX.AfbeeldingCodeBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: NietVolledigeLadeImageCodeBepaler wordt opgeroepen indien ProductieWijze niet volledig">
+<Implementation><![CDATA[
+	#dim NietVolledigeLadeImageCodeBepalerMock As vhTest.Mock.APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler = ##class(vhTest.Mock.APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler).%New()	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front
+	
+	Do NietVolledigeLadeImageCodeBepalerMock.VerwachtMethodCall("BepaalLBXNietVolledigeLadeImageCode", LBXKenmerken)
+	
+	Set ..AfbeeldingCodeBepaler = ##class(APPS.PM.Maatwerk.impl.LBX.AfbeeldingCodeBepaler).%New(NietVolledigeLadeImageCodeBepalerMock)
+	Do ..AfbeeldingCodeBepaler.Bepaal(LBXKenmerken)
+	
+	Do NietVolledigeLadeImageCodeBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCode voor StandaardLade">
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+
+	Do ..AssertAfbeeldingCode(LBXKenmerken, "C")
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCode voor Binnenlade met voorstuk">
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardBinnenlade()
+
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk()
+
+	Do ..AssertAfbeeldingCode(LBXKenmerken, "C_Z_Voorstuk")
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCode voor Binnenlade met glazen front">
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardBinnenlade()
+
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+	Set LBXKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()
+
+	Do ..AssertAfbeeldingCode(LBXKenmerken, "C_Z_Vulling_Hoog")
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCode voor Spoelbaklade">
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
+
+	Do ..AssertAfbeeldingCode(LBXKenmerken, "CS")
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCode voor FrontOnly">
+<Implementation><![CDATA[
+	#define NietVolledigeLadeImageCode "Code"
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Set LBXKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front
+	
+	#dim NietVolledigeLadeImageCodeBepalerStub As vhTest.Mock.APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler = ##class(vhTest.Mock.APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler).%New()
+	Do NietVolledigeLadeImageCodeBepalerStub.IndienMethodCall("BepaalLBXNietVolledigeLadeImageCode", LBXKenmerken).DanReturn($$$NietVolledigeLadeImageCode)
+	
+	Set ..AfbeeldingCodeBepaler = ##class(APPS.PM.Maatwerk.impl.LBX.AfbeeldingCodeBepaler).%New(NietVolledigeLadeImageCodeBepalerStub)	
+	
+	Do ..AssertAfbeeldingCode(LBXKenmerken, "Code")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/Base.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/Base.cls.xml	(revision 33878)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.AfbeeldingCodeBepaler.Base">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="AfbeeldingCodeBepaler">
+<Type>APPS.PM.Maatwerk.AfbeeldingCodeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="AssertAfbeeldingCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteAfbeeldingCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(..AfbeeldingCodeBepaler.Bepaal(IngegevenKenmerken), VerwachteAfbeeldingCode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/impl/LBX/AfbeeldingCodeBepaler.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/LBX/AfbeeldingCodeBepaler.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/LBX/AfbeeldingCodeBepaler.cls.xml	(revision 33878)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.LBX.AfbeeldingCodeBepaler">
+<Super>APPS.PM.Maatwerk.AfbeeldingCodeBepaler,DOM.PM.Maatwerk.LBX.impl.Base</Super>
+
+<Property name="LBXNietVolledigeLadeImageCodeBepaler">
+<Type>APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LBXNietVolledigeLadeImageCodeBepaler:APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler</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())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bepaal">
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AfbeeldingCode As %String = LBXKenmerken.GeefLadeCode()
+
+	If $$$Not(LBXKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
+		Set AfbeeldingCode = ..LBXNietVolledigeLadeImageCodeBepaler.BepaalLBXNietVolledigeLadeImageCode(LBXKenmerken)
+	} Else {
+		If (LBXKenmerken.IsBinnenlade) {
+			Set AfbeeldingCode = $Translate(AfbeeldingCode, "/Z", "_Z")
+			
+			If (LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.C) {
+				Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.VoorWandType 
+				
+				If (LBXKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling) {
+					Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.VoorWandVerhogingHoogte
+				}
+			} ElseIf (LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.M) {
+				Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.VoorWandType 
+			} 
+		}
+		
+		If (LBXKenmerken.ZijWandType = ..Enum.ZijwandType.Free) {
+			Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.ZijWandType
+		}
+	}
+	
+	Quit AfbeeldingCode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/TAX/Test.cls.xml
===================================================================
diff -u -r33870 -r33878
--- vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/TAX/Test.cls.xml	(.../Test.cls.xml)	(revision 33870)
+++ vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/TAX/Test.cls.xml	(.../Test.cls.xml)	(revision 33878)
@@ -1,13 +1,8 @@
 <?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>
+<Super>vhUnitTest.APPS.PM.Maatwerk.AfbeeldingCodeBepaler.Base,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
-<Property name="AfbeeldingCodeBepaler">
-<Type>APPS.PM.Maatwerk.AfbeeldingCodeBepaler</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -59,13 +54,6 @@
 	Do ..AssertAfbeeldingCode(TAORKenmerken, "M_VerlaagdeRug_N")
 ]]></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>
 
 
FishEye: Tag 33878 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/GeefImageCodeVoorIngegevenKenmerken/TestLBX.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Mock/APPS/PM/Maatwerk/AfbeeldingService/impl/LBXNietVolledigeLadeImageCodeBepaler.cls.xml
===================================================================
diff -u -r29059 -r33878
--- vhTest/Mock/APPS/PM/Maatwerk/AfbeeldingService/impl/LBXNietVolledigeLadeImageCodeBepaler.cls.xml	(.../LBXNietVolledigeLadeImageCodeBepaler.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/PM/Maatwerk/AfbeeldingService/impl/LBXNietVolledigeLadeImageCodeBepaler.cls.xml	(.../LBXNietVolledigeLadeImageCodeBepaler.cls.xml)	(revision 33878)
@@ -15,48 +15,6 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalLBXNietVolledigeLadeImageCode",LBXKenmerken)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefRugCode">
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRugCode")
-]]></Implementation>
-</Method>
-
-<Method name="GeefVoorvoegsel">
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVoorvoegsel")
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkBodem">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBodem")
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkBodemEnRug">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBodemEnRug")
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkFront">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkFront")
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkRug">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkRug")
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkRugMetHouders">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkRugMetHouders")
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkVolledig">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkVolledig")
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/GeefImageCodeVoorIngegevenKenmerken/TestTAOR.cls.xml
===================================================================
diff -u -r33868 -r33878
--- vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/GeefImageCodeVoorIngegevenKenmerken/TestTAOR.cls.xml	(.../TestTAOR.cls.xml)	(revision 33868)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/GeefImageCodeVoorIngegevenKenmerken/TestTAOR.cls.xml	(.../Test.cls.xml)	(revision 33878)
@@ -1,16 +1,31 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken.TestTAOR">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: AfbeeldingCodeBepaler wordt opgeroepen">
+<Method name="Test: AfbeeldingCodeBepaler wordt opgeroepen voor LBXKenmerken">
 <Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Do ..VerifieerAfbeeldingCodeBepaler(LBXKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCodeBepaler wordt opgeroepen voor TAORKenmerken">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Do ..VerifieerAfbeeldingCodeBepaler(TAORKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VerifieerAfbeeldingCodeBepaler">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	#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 AfbeeldingCodeBepalerMock.VerwachtMethodCall("Bepaal", TAORKenmerken)
-	Do AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken(TAORKenmerken)
+
+	Do AfbeeldingCodeBepalerMock.VerwachtMethodCall("Bepaal", IngegevenKenmerken)
+	Do AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken(IngegevenKenmerken)
 	Do AfbeeldingCodeBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
FishEye: Tag 33878 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/GeefImageCodeVoorIngegevenKenmerken/TestTAOR.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/PM/Maatwerk/impl/AfbeeldingService.cls.xml
===================================================================
diff -u -r33874 -r33878
--- APPS/PM/Maatwerk/impl/AfbeeldingService.cls.xml	(.../AfbeeldingService.cls.xml)	(revision 33874)
+++ APPS/PM/Maatwerk/impl/AfbeeldingService.cls.xml	(.../AfbeeldingService.cls.xml)	(revision 33878)
@@ -64,28 +64,9 @@
 <Method name="VerwerkLBXKenmerken">
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	#dim ImageCode As %String = LBXKenmerken.GeefLadeCode()
-
-	If LBXKenmerken.ProductieWijze '= ##class(DOM.PM.enu.LBXProductieWijze).Volledig() {
-		Set ImageCode = ..LBXNietVolledigeLadeImageCodeBepaler.BepaalLBXNietVolledigeLadeImageCode(LBXKenmerken)
-	} Else {
-		If LBXKenmerken.IsBinnenlade {
-			Set ImageCode=$TR(ImageCode,"/Z","_Z")
-			If (LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()) {
-				Set ImageCode = ImageCode_"_"_LBXKenmerken.VoorWandType 
-				If (LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()) {
-					Set ImageCode = ImageCode_"_"_LBXKenmerken.VoorWandVerhogingHoogte
-				}
-			} ElseIf (LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()) {
-				Set ImageCode = ImageCode_"_"_LBXKenmerken.VoorWandType 
-			} 
-		}
-		If LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free() {
-			Set ImageCode = ImageCode_"_"_##class(DOM.PM.enu.LBXZijWandType).Free()
-		}
-	}
+	Set ..AfbeeldingCodeBepaler = $$$LazyLoad(..AfbeeldingCodeBepaler, ##class(APPS.PM.Maatwerk.impl.LBX.AfbeeldingCodeBepaler).%New(..LBXNietVolledigeLadeImageCodeBepaler))
 	
-	Set ..ImageCode = ImageCode
+	Set ..ImageCode = ..AfbeeldingCodeBepaler.Bepaal(LBXKenmerken)
 	Set ..AfbeeldingType = "LBX"
 ]]></Implementation>
 </Method>