Index: vhUnitTest/WSimpl/Vhisie4/KlantIdConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/KlantIdConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/KlantIdConverter/Test.cls.xml	(revision 48776)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.KlantIdConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="OrigineleConfigSetting">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantIdConverter">
+<Type>WSimpl.Vhisie4.KlantIdConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VanHoeckePersonality">
+<Type>DOM.common.enu.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="NietVanHoeckePersonality">
+<Type>DOM.common.enu.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+
+	Set ..OrigineleConfigSetting = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A")
+	Set ..KlantIdConverter = ##class(WSimpl.Vhisie4.KlantIdConverter).%New()
+	Set ..VanHoeckePersonality = ##class(DOM.common.enu.Personality).VanHoecke()
+	Set ..NietVanHoeckePersonality = ##class(DOM.common.enu.Personality).SFS()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("KlantIdAx2A", ..OrigineleConfigSetting)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ConvertToVanHoecke converteert in modus 2A een AX KlantId naar een Van Hoecke KlantId">
+<Implementation><![CDATA[
+	Do ..AssertVanHoeckeKlantId($$$False, "00123", ..VanHoeckePersonality, "00123")
+	Do ..AssertVanHoeckeKlantId($$$True, "00123", ..VanHoeckePersonality, "123")
+	Do ..AssertVanHoeckeKlantId($$$False, "00123", ..NietVanHoeckePersonality, "00123")
+	Do ..AssertVanHoeckeKlantId($$$True, "00123", ..NietVanHoeckePersonality, "00123")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ConvertToAx converteert in modus 2A een Van Hoecke KlantId naar een AX KlantId">
+<Implementation><![CDATA[
+	Do ..AssertAxKlantId($$$False, "K||123", ..VanHoeckePersonality, "K||123")
+	Do ..AssertAxKlantId($$$True, "K||123", ..VanHoeckePersonality, "00123")
+	Do ..AssertAxKlantId($$$False, "K||123", ..NietVanHoeckePersonality, "K||123")
+	Do ..AssertAxKlantId($$$True, "K||123", ..NietVanHoeckePersonality, "K||123")
+]]></Implementation>
+</Method>
+
+<Method name="AssertVanHoeckeKlantId">
+<FormalSpec>ConfigFlag:%Boolean,KlantId:%String,PersonalityId:%String,VerwachteKlantId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("KlantIdAx2A", ConfigFlag)
+	Do $$$AssertEquals(..KlantIdConverter.ConvertToVanHoecke(KlantId, PersonalityId), VerwachteKlantId)
+]]></Implementation>
+</Method>
+
+<Method name="AssertAxKlantId">
+<FormalSpec>ConfigFlag:%Boolean,KlantId:%String,PersonalityId:%String,VerwachteKlantId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("KlantIdAx2A", ConfigFlag)
+	Do $$$AssertEquals(..KlantIdConverter.ConvertToAx(KlantId, PersonalityId), VerwachteKlantId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>