Index: vhTest/Fake/APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler.cls.xml	(revision 65656)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler</Super>
+
+<Method name="BepaalMatAfbeelding">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler.cls.xml	(revision 65656)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BepaalMatAfbeelding">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalMatAfbeelding",IngegevenKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler/BepaalMatAfbeelding/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler/BepaalMatAfbeelding/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler/BepaalMatAfbeelding/Test.cls.xml	(revision 65656)
@@ -0,0 +1,122 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler.BepaalMatAfbeelding.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: zwart flock geeft resultaat">
+<Implementation><![CDATA[
+	#dim MatImageCodeBepaler = ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler).%New()
+	#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MatKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).FlockZwartMat()
+	
+	#dim AfbeeldingCode = MatImageCodeBepaler.BepaalMatAfbeelding(MatKenmerken)
+	
+	Do $$$AssertEquals(AfbeeldingCode,"MAT_AZ_S-AZ")
+]]></Implementation>
+</Method>
+
+<Method name="Test: antraciet flock geeft resultaat">
+<Implementation><![CDATA[
+	#dim MatImageCodeBepaler = ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler).%New()
+	#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MatKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).FlockAntracietMat()
+	
+	#dim AfbeeldingCode = MatImageCodeBepaler.BepaalMatAfbeelding(MatKenmerken)
+	
+	Do $$$AssertEquals(AfbeeldingCode,"MAT_AZ_ANTR-AZ")
+]]></Implementation>
+</Method>
+
+<Method name="Test: wit antislip geeft resultaat">
+<Implementation><![CDATA[
+	#dim MatImageCodeBepaler = ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler).%New()
+	#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MatKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardMat()
+	Set MatKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
+	Set MatKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit()
+	
+	#dim AfbeeldingCode = MatImageCodeBepaler.BepaalMatAfbeelding(MatKenmerken)
+	
+	Do $$$AssertEquals(AfbeeldingCode,"MAT_AF_FW")
+]]></Implementation>
+</Method>
+
+<Method name="Test: zwart antislip geeft resultaat">
+<Implementation><![CDATA[
+	#dim MatImageCodeBepaler = ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler).%New()
+	#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MatKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardMat()
+	Set MatKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
+	Set MatKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberZwart()
+	
+	#dim AfbeeldingCode = MatImageCodeBepaler.BepaalMatAfbeelding(MatKenmerken)
+	
+	Do $$$AssertEquals(AfbeeldingCode,"MAT_AF_FS")
+]]></Implementation>
+</Method>
+
+<Method name="Test: antraciet antislip geeft resultaat">
+<Implementation><![CDATA[
+	#dim MatImageCodeBepaler = ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler).%New()
+	#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MatKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardMat()
+	Set MatKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
+	Set MatKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberAntraciet()
+	
+	#dim AfbeeldingCode = MatImageCodeBepaler.BepaalMatAfbeelding(MatKenmerken)
+	
+	Do $$$AssertEquals(AfbeeldingCode,"MAT_AF_FA")
+]]></Implementation>
+</Method>
+
+<Method name="Test: quartz vinylfiberglass geeft resultaat">
+<Implementation><![CDATA[
+	#dim MatImageCodeBepaler = ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler).%New()
+	#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MatKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardMat()
+	Set MatKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
+	Set MatKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).QuartzZilverBruin()
+	
+	#dim AfbeeldingCode = MatImageCodeBepaler.BepaalMatAfbeelding(MatKenmerken)
+	
+	Do $$$AssertEquals(AfbeeldingCode,"MAT_CF_QZ")
+]]></Implementation>
+</Method>
+
+<Method name="Test: bister vinylfiberglass geeft resultaat">
+<Implementation><![CDATA[
+	#dim MatImageCodeBepaler = ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler).%New()
+	#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MatKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardMat()
+	Set MatKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
+	Set MatKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).BisterBruinLichtDonker()
+	
+	#dim AfbeeldingCode = MatImageCodeBepaler.BepaalMatAfbeelding(MatKenmerken)
+	
+	Do $$$AssertEquals(AfbeeldingCode,"MAT_CF_BS")
+]]></Implementation>
+</Method>
+
+<Method name="Test: onbekende mat-kleur combinatie">
+<Implementation><![CDATA[
+	#dim MatImageCodeBepaler = ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler).%New()
+	#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MatKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).FlockZwartMat()
+	Set MatKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
+	
+	#dim AfbeeldingCode = MatImageCodeBepaler.BepaalMatAfbeelding(MatKenmerken)
+	
+	Do $$$AssertEquals(AfbeeldingCode,"")
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+	{
+		Do ..CreateOneMAT("MAT_AZ_ANTR-AZ",		"GENERIEK\MAT\Flock_Antraciet.jpg",			999,"",999,"","")
+		Do ..CreateOneMAT("MAT_AZ_S-AZ",		"GENERIEK\MAT\Flock_Zwart.jpg",				999,"",999,"","")
+		Do ..CreateOneMAT("MAT_AF_FW",			"GENERIEK\MAT\AntislipFiber_Wit.JPG",		999,"",999,"","")
+		Do ..CreateOneMAT("MAT_AF_FA",			"GENERIEK\MAT\AntislipFiber_Antraciet.JPG",	999,"",999,"","")
+		Do ..CreateOneMAT("MAT_CF_QZ",			"GENERIEK\MAT\Fiberglass_X.JPG",			999,"",999,"","")
+		Do ..CreateOneMAT("MAT_CF_BS",			"GENERIEK\MAT\Fiberglass_X.JPG",			999,"",999,"","")
+		Do ..CreateOneMAT("MAT_AF_FS",			"GENERIEK\MAT\AntislipFiber_Zwart.JPG",		999,"",999,"","")
+	*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/AfbeeldingService/impl/MATImageCodeBepaler.cls.xml	(revision 65656)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.AfbeeldingService.impl.MATImageCodeBepaler">
+<Super>TECH.Mockable</Super>
+
+<Method name="BepaalMatAfbeelding">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AfbeeldingCode As %String = ""
+	#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = IngegevenKenmerken
+	
+	#dim Kleur As %String = MATKenmerken.Kleur
+	#dim Materiaal As %String = MATKenmerken.Materiaal
+	#dim TeGebruikenCode As %String = "MAT_"_Materiaal_"_"_Kleur
+	
+	If Materiaal = ##class(DOM.PM.enu.MATMateriaal).Flock() {
+		If Kleur = ##class(DOM.PM.enu.MATKleur).FlockZwart() {
+			Set AfbeeldingCode = TeGebruikenCode
+		} ElseIf Kleur = ##class(DOM.PM.enu.MATKleur).FlockAntraciet(){
+			Set AfbeeldingCode = TeGebruikenCode
+		}
+	} ElseIf Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber(){
+		If Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit() {
+			Set AfbeeldingCode = TeGebruikenCode
+		} ElseIf Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberAntraciet(){
+			Set AfbeeldingCode = TeGebruikenCode
+		} ElseIf Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberZwart(){
+			Set AfbeeldingCode = TeGebruikenCode
+		}
+	} ElseIf Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass(){
+		If Kleur = ##class(DOM.PM.enu.MATKleur).QuartzZilverBruin() {
+			Set AfbeeldingCode = TeGebruikenCode
+		} ElseIf Kleur = ##class(DOM.PM.enu.MATKleur).BisterBruinLichtDonker(){
+			Set AfbeeldingCode = TeGebruikenCode
+		}
+	}
+	
+	Quit AfbeeldingCode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>