Index: vhUnitTest/AXimpl/Admin/VKP/OrderLookup/GeefLaatstBekendeKlantNummerVoorAXSalesId/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/VKP/OrderLookup/GeefLaatstBekendeKlantNummerVoorAXSalesId/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/VKP/OrderLookup/GeefLaatstBekendeKlantNummerVoorAXSalesId/Test.cls.xml	(revision 49172)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.VKP.OrderLookup.GeefLaatstBekendeKlantNummerVoorAXSalesId.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test standaard gedrag geeft klantnummer voor salesid">
+<Implementation><![CDATA[
+	Set OrderLookup = ##class(vhUnitTest.AXimpl.Admin.VKP.OrderLookup.GeefLaatstBekendeKlantNummerVoorAXSalesId.OrderLookupFake).%New()
+	
+	#dim KO1Data As TECH.MultiDim  
+ 	do ##class(vhUnitTest.AXimpl.Admin.VKP.OrderLookup.GeefLaatstBekendeKlantNummerVoorAXSalesId.OrderLookupFake).ZetTestData(.KO1Data)
+	Do OrderLookup.Setup(.KO1Data)
+	
+	Do $$$AssertEquals(OrderLookup.GeefLaatstBekendeKlantNummerVoorAXSalesId("VO180501001"),"7587")
+]]></Implementation>
+</Method>
+
+<Method name="Test exceptie wordt gegooid indien niets te vinden is voor AX salesid">
+<Implementation><![CDATA[
+	
+	Set OrderLookup = ##class(vhUnitTest.AXimpl.Admin.VKP.OrderLookup.GeefLaatstBekendeKlantNummerVoorAXSalesId.OrderLookupFake).%New()
+	
+	#dim KO1Data As TECH.MultiDim  
+ 	do ##class(vhUnitTest.AXimpl.Admin.VKP.OrderLookup.GeefLaatstBekendeKlantNummerVoorAXSalesId.OrderLookupFake).ZetTestData(.KO1Data)
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen order of order op bon gevonden voor SalesID 'VO180501001'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+
+	#dim klantnummer as %String = OrderLookup.GeefLaatstBekendeKlantNummerVoorAXSalesId("VO180501001")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Admin/VKP/OrderLookup/GeefLaatstBekendeKlantNummerVoorAXSalesId/OrderLookupFake.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/VKP/OrderLookup/GeefLaatstBekendeKlantNummerVoorAXSalesId/OrderLookupFake.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/VKP/OrderLookup/GeefLaatstBekendeKlantNummerVoorAXSalesId/OrderLookupFake.cls.xml	(revision 49172)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.VKP.OrderLookup.GeefLaatstBekendeKlantNummerVoorAXSalesId.OrderLookupFake">
+<Super>AXimpl.Admin.VKP.OrderLookup</Super>
+
+<Parameter name="GlobalnameOrderIndex">
+<Default>..MultiDim</Default>
+</Parameter>
+
+<Property name="MultiDim">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Method name="Setup">
+<FormalSpec>MultiDim:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ..MultiDim
+	Merge ..MultiDim = MultiDim
+]]></Implementation>
+</Method>
+
+<Method name="ZetTestData">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Data(101001,"F") = "7587\323422"
+	Set Data(101001,"F",323422) = ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Admin/VKP/OrderLookup.cls.xml
===================================================================
diff -u -r49025 -r49172
--- AXimpl/Admin/VKP/OrderLookup.cls.xml	(.../OrderLookup.cls.xml)	(revision 49025)
+++ AXimpl/Admin/VKP/OrderLookup.cls.xml	(.../OrderLookup.cls.xml)	(revision 49172)
@@ -3,6 +3,10 @@
 <Class name="AXimpl.Admin.VKP.OrderLookup">
 <Super>TECH.Mockable</Super>
 
+<Parameter name="GlobalnameOrderIndex">
+<Default>^KO1</Default>
+</Parameter>
+
 <Property name="QueryAPI">
 <Type>TECH.Query.QueryAPI</Type>
 <Private>1</Private>
@@ -47,8 +51,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim OrderID as %String = "1" _ $Extract(SalesId,*-4,*)
-	If $Data(^KO1(OrderID,"F")) {
-		Quit $Piece(^KO1(OrderID,"F"),"\",1)  
+	If $Data(@..#GlobalnameOrderIndex(OrderID,"F")) {
+		Quit $Piece(@..#GlobalnameOrderIndex(OrderID,"F"),"\",1)  
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen order of order op bon gevonden voor SalesID '"_SalesId_"'."))
 	}