Index: vhUnitTest/APPS/common/impl/KlantInstellingenService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/common/impl/KlantInstellingenService/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/common/impl/KlantInstellingenService/Test.cls.xml	(revision 59013)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.common.impl.KlantInstellingenService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="KlantInstellingService">
+<Type>APPS.common.impl.KlantInstellingenService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	Set ..KlantInstellingService = ##class(APPS.common.impl.KlantInstellingenService).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test VhossID op leverbon voor VanhoutPro">
+<Implementation><![CDATA[
+	#dim klantVanhoutPro =  ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).VanhoutPro())
+	#dim resultVanhoutPro As %Boolean = ..KlantInstellingService.MoetVhossNummerOpLeveringBon(klantVanhoutPro)
+	
+	Do $$$AssertTrue(resultVanhoutPro)
+]]></Implementation>
+</Method>
+
+<Method name="Test VhossID op leverbon voor GroupNivelles">
+<Implementation><![CDATA[
+	#dim klantGroupNivelles = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).GroupNivelles())
+	#dim resultGroupNivelles As %Boolean = ..KlantInstellingService.MoetVhossNummerOpLeveringBon(klantGroupNivelles)
+	
+	Do $$$AssertTrue(resultGroupNivelles)
+]]></Implementation>
+</Method>
+
+<Method name="Test VhossID niet op leverbon voor SFS">
+<Implementation><![CDATA[
+	#dim klantSFS = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).SFS())
+	#dim resultSFS As %Boolean = ..KlantInstellingService.MoetVhossNummerOpLeveringBon(klantSFS)
+	
+	Do $$$AssertFalse(resultSFS)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>