Index: vhTest/Mock/DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler.cls.xml	(revision 55594)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.Maatwerk.TAX.impl.ZijkantLogoKorttekstCodeBepaler">
+<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>DOM.PM.Maatwerk.TAX.impl.ZijkantLogoKorttekstCodeBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefZijkantLogoKorttekstCode">
+<FormalSpec>ZijkantLogoID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefZijkantLogoKorttekstCode",ZijkantLogoID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler.cls.xml	(revision 55594)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.PM.Maatwerk.TAX.impl.ZijkantLogoKorttekstCodeBepaler">
+<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>DOM.PM.Maatwerk.TAX.impl.ZijkantLogoKorttekstCodeBepaler</Super>
+
+<Method name="GeefZijkantLogoKorttekstCode">
+<FormalSpec>ZijkantLogoID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler/Test.cls.xml	(revision 55594)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.TAX.impl.ZijkantLogoKorttekstCodeBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Een leeg ZijkantLogoID geeft niets terug">
+<Implementation><![CDATA[	Do ..Asserter("", "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID 0 geeft niets terug">
+<Implementation><![CDATA[	Do ..Asserter(0, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID 1 =&gt; spatie 1">
+<Implementation><![CDATA[	Do ..Asserter(1, " 1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID 2 =&gt; spatie 2">
+<Implementation><![CDATA[	Do ..Asserter(2, " 2")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID 10 =&gt; spatie 0">
+<Implementation><![CDATA[	Do ..Asserter(10, " 0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID 11 =&gt; spatie A">
+<Implementation><![CDATA[	Do ..Asserter(11, " A")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID 36 =&gt; spatie Z">
+<Implementation><![CDATA[	Do ..Asserter(36, " Z")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID 37 =&gt; 11">
+<Implementation><![CDATA[	Do ..Asserter(37, "11")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID 73 =&gt; 21">
+<Implementation><![CDATA[	Do ..Asserter(73, "21")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID 100 =&gt; 2R">
+<Implementation><![CDATA[	Do ..Asserter(100, "2R")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID 1000 =&gt; QR">
+<Implementation><![CDATA[	Do ..Asserter(1000, "QR")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID 1332 =&gt; ZZ">
+<Implementation><![CDATA[	Do ..Asserter(1332, "ZZ")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZijkantLogoID hoger dan 1333 =&gt; Exceptie =&gt; range voor 2 karakters is op">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De range voor ZijkantLogoKorttekstCode is op. Met 2 karakters in de Korttekst is de range maximaal 1332")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	Do ..Asserter(1333, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Alle ZijkantLogoKorttekstCodes zijn uniek">
+<Implementation><![CDATA[
+	#dim ZijkantLogoID As %Integer
+	#dim ZijkantLogoKorttekstCode As %String
+	#dim ZijkantLogoKorttekstCodeLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim UniekeZijkantLogoKorttekstCodeLijst As %ListOfDataTypes
+	
+	For ZijkantLogoID=1:1:1332 {
+		Set ZijkantLogoKorttekstCode = ..GeefZijkantLogoKorttekstCodeBepaler().GeefZijkantLogoKorttekstCode(ZijkantLogoID)
+		Do ZijkantLogoKorttekstCodeLijst.Insert(ZijkantLogoKorttekstCode)
+	}
+	
+	Set UniekeZijkantLogoKorttekstCodeLijst = ##class(TECH.ListUtils).RemoveDuplicateItems(ZijkantLogoKorttekstCodeLijst)
+	
+	Do $$$AssertEquals(UniekeZijkantLogoKorttekstCodeLijst.Count(), ZijkantLogoKorttekstCodeLijst.Count())
+]]></Implementation>
+</Method>
+
+<Method name="Asserter">
+<FormalSpec>ZijkantLogoID:%String,VerwachtteWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefZijkantLogoKorttekstCodeBepaler().GeefZijkantLogoKorttekstCode(ZijkantLogoID), VerwachtteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefZijkantLogoKorttekstCodeBepaler">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.TAX.impl.ZijkantLogoKorttekstCodeBepaler</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.TAX.impl.ZijkantLogoKorttekstCodeBepaler).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/TAX/impl/ZijkantLogoKorttekstCodeBepaler.cls.xml	(revision 55594)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.TAX.impl.ZijkantLogoKorttekstCodeBepaler">
+<Super>TECH.Mockable</Super>
+
+<Method name="GeefZijkantLogoKorttekstCode">
+<FormalSpec>ZijkantLogoID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ZijkantLogoKorttekstCode As %String = ""
+	#dim Code As %String = ##class(VHSys.Library).AlfaKey(+ZijkantLogoID,"NA")
+	
+	If (+ZijkantLogoID > 1332) {
+		Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("De range voor ZijkantLogoKorttekstCode is op. Met 2 karakters in de Korttekst is de range maximaal 1332")
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	} Else {
+		Set ZijkantLogoKorttekstCode = $$$If(($Length(Code) = 1), " "_Code, Code)
+	}
+	
+	Quit ZijkantLogoKorttekstCode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>