Index: vhUnitTest/DOM/VKP/Order/impl/OrderKlantService/GeefKlantID/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/Order/impl/OrderKlantService/GeefKlantID/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/Order/impl/OrderKlantService/GeefKlantID/Test.cls.xml	(revision 33359)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.Order.impl.OrderKlantService.GeefKlantID.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="OrderID">
+<Type>%String</Type>
+<Default>199999</Default>
+</Parameter>
+
+<Method name="OnBeforeAllTests">
+<Description>
+/ Parameter Type As %String = "I";</Description>
+<Implementation><![CDATA[
+	Do ..VerwijderTestData()
+	Do ..MaakTestData()
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ..VerwijderTestData()
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefKlantID">
+<Implementation><![CDATA[
+	Set OrderKlantService = ##class(DOM.VKP.Order.impl.OrderKlantService).%New()
+	Do $$$AssertEquals(OrderKlantService.GeefKlantID(..#OrderID),"K||1000")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefKlantNummer">
+<Implementation><![CDATA[
+	Set OrderKlantService = ##class(DOM.VKP.Order.impl.OrderKlantService).%New()
+	Do $$$AssertEquals(OrderKlantService.GeefKlantNummer(..#OrderID),"1000")
+]]></Implementation>
+</Method>
+
+<Method name="Test Order Bestaat Niet Verwacht Exceptie">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Order "_"UT_OnbestaandeOrderID"_" bestaat niet!")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+
+	Set OrderKlantService = ##class(DOM.VKP.Order.impl.OrderKlantService).%New()
+	Do OrderKlantService.GeefKlantID("UT_OnbestaandeOrderID","")
+]]></Implementation>
+</Method>
+
+<Method name="MaakTestData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OrderID As %String = ..#OrderID
+
+	Set ^KOD(1000,"F",OrderID,0) = 102
+	;Set ^KOD(1000,"F",OrderID,101) = "703000 \UT_ProductID\1\\\619\0#0\8\619\619\703000 \L\\\100\619\KF0\\\\E1\EUR\\\63981\\\\\\\\\\\\\\\\\\\\\1"
+
+	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(1000,OrderID)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderTestData">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>