Index: AXimpl/Admin/VKP/OrderLookup.cls.xml
===================================================================
diff -u -r43236 -r43385
--- AXimpl/Admin/VKP/OrderLookup.cls.xml	(.../OrderLookup.cls.xml)	(revision 43236)
+++ AXimpl/Admin/VKP/OrderLookup.cls.xml	(.../OrderLookup.cls.xml)	(revision 43385)
@@ -3,10 +3,38 @@
 <Class name="AXimpl.Admin.VKP.OrderLookup">
 <Super>TECH.Mockable</Super>
 
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Inject(QueryAPI, ##class(TECH.Context).Instance().GeefQueryAPI())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefOrderId">
 <FormalSpec>AxSalesId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[		Quit ""
+<Implementation><![CDATA[
+	Set Query = ##class(TECH.DynamicQuery).%New("SELECT ID FROM Flow_Order.Hoofding WHERE AXSalesid = ?",$ListBuild(AxSalesId))
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
+	#dim OrderId as %String = ""
+	if ResultSet.Next() {
+		Set OrderId = ResultSet.GetDataByName("ID")
+		Do:ResultSet.Next() ##class(TECH.ExceptionHandler).Throw(##class(AXimpl.Admin.DatabaseOutOfSyncException).%New(##class(AXimpl.Admin.EntiteitType).Order(),AxSalesId,OrderId _ "," _ ResultSet.Data("ID")))			
+	} else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(AXimpl.Admin.DatabaseOutOfSyncException).%New(##class(AXimpl.Admin.EntiteitType).Order(),AxSalesId,""))		
+	}
+	Quit OrderId
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/AXimpl/Admin/VKP/OrderLookup/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/VKP/OrderLookup/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/VKP/OrderLookup/Test.cls.xml	(revision 43385)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.VKP.OrderLookup.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test prepare query statement en Order bestaat">
+<Implementation><![CDATA[
+	#dim Columns as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ID")
+	#dim Values as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($ListBuild("1000"))
+	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New(Values,Columns)
+	
+	Set OrderLookup = ##class(AXimpl.Admin.VKP.OrderLookup).%New(QueryAPIFake)
+	
+	#dim OrderId as %String = OrderLookup.GeefOrderId("AxSalesId")
+	
+	Do $$$AssertEquals(OrderId,1000)
+]]></Implementation>
+</Method>
+
+<Method name="Test prepare query statement en Order niet gevonden">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("!!! Ernstig probleem : Order is niet meer in sync - AxId : 'AxSalesId' - AdminId : '' !!!!")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(AXimpl.Admin.DatabaseOutOfSyncException).%ClassName($$$True),Substrings))
+	
+	#dim Columns as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ID")
+	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New("",Columns)
+	
+	Set OrderLookup = ##class(AXimpl.Admin.VKP.OrderLookup).%New(QueryAPIFake)
+		
+	#dim OrderId as %String = OrderLookup.GeefOrderId("AxSalesId")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>