Index: AXimpl/Admin/VKP/OrderLijnLookup.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(revision 0)
+++ AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(revision 45639)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.VKP.OrderLijnLookup">
+<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="BestaatOrderLijn">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Query = ##class(TECH.DynamicQuery).%New("SELECT ID FROM Flow_Order.Lijn WHERE AxInventTransId = ?",$ListBuild(AxInventTransId))
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
+	Quit ResultSet.Next()
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderLijn">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>Flow.Order.Lijn</ReturnType>
+<Implementation><![CDATA[
+	Set Query = ##class(TECH.DynamicQuery).%New("SELECT ID FROM Flow_Order.Lijn WHERE AxInventTransId = ?",$ListBuild(AxInventTransId))
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
+	#dim OrderLijnID As %String = ""
+	if ResultSet.Next() {
+		Set OrderLijnID = ResultSet.GetDataByName("ID")
+		if ResultSet.Next() {
+			Set Exception  = ##class(AXimpl.Admin.DatabaseOutOfSyncException).%New(##class(AXimpl.Admin.EntiteitType).OrderLijn(), AxInventTransId , OrderLijnID _","_ ResultSet.GetDataByName("ID"))
+			Do Exception.VoegToeExtraInfo("Minstens 2 orderlijnen met dezelfde AxInventTransId gevonden")
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)			
+		}		
+	} else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(AXimpl.Admin.DatabaseOutOfSyncException).%New(##class(AXimpl.Admin.EntiteitType).OrderLijn(),AxInventTransId,""))		
+	}
+	
+	Quit ##class(Flow.Order.Lijn).%Open(OrderLijnID)
+]]></Implementation>
+</Method>
+
+<Method name="ValideerOrderLijnOrderID">
+<FormalSpec>OrderID:%String,OrderLijnOrderID:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $$$Not(OrderID=OrderLijnOrderID) {
+		Set Exception  = ##class(AXimpl.Admin.DatabaseOutOfSyncException).%New(##class(AXimpl.Admin.EntiteitType).OrderLijn(), OrderID , OrderLijnOrderID)
+		Do Exception.VoegToeExtraInfo("Dit OrderLijn hoort niet bij dit Order.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)			
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Admin/VKP/OrderLijnLookup/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/VKP/OrderLijnLookup/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/VKP/OrderLijnLookup/Test.cls.xml	(revision 45639)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.VKP.OrderLijnLookup.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: prepare query statement en OrderLijn 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 OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake)
+	
+	Do $$$AssertTrue(OrderLijnLookup.BestaatOrderLijn("AxInventTransId"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: prepare query statement en OrderLijn bestaat niet">
+<Implementation><![CDATA[
+	#dim Columns as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ID")
+	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New("",Columns)
+	
+	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake)
+	
+	Do $$$AssertFalse(OrderLijnLookup.BestaatOrderLijn("AxInventTransId"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: foutmelding indien OrderLijn_OrderID niet hetzelfde is als het OrderID">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("!!! Ernstig probleem : OrderLijn is niet meer in sync - AxId : 'OrderID' - AdminId : 'OrderLijn.AnderOrderID' !!!!")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(AXimpl.Admin.DatabaseOutOfSyncException).%ClassName($$$True),Substrings))
+
+	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New()
+	Do OrderLijnLookup.ValideerOrderLijnOrderID("OrderID","OrderLijn.AnderOrderID")
+]]></Implementation>
+</Method>
+
+<Method name="Test prepare query statement en meerdere bevestigde OrderLijnen gevonden">
+<Implementation><![CDATA[
+	#dim Columns as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ID")
+	#dim Values as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($ListBuild("1000"),$ListBuild("1001"))
+	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New(Values,Columns)
+	
+	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake)
+	Try {		
+		#dim OrderId as %String = OrderLijnLookup.GeefOrderLijn("AxInventTransId")
+		Do ..Fail("Er werd een exceptie verwacht")
+	} Catch {
+		#dim Exception as TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exception.%ClassName($$$True),##class(AXimpl.Admin.DatabaseOutOfSyncException).%ClassName($$$True))
+		Do $$$AssertEquals(Exception.GeefOmschrijving(),"!!! Ernstig probleem : OrderLijn is niet meer in sync - AxId : 'AxInventTransId' - AdminId : '1000,1001' !!!!")
+		Do $$$AssertContains(Exception.GeefExtraInfo(),"Minstens 2 orderlijnen met dezelfde AxInventTransId gevonden")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test prepare query statement en Bevestigd Order niet gevonden">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("!!! Ernstig probleem : OrderLijn is niet meer in sync - AxId : 'AxInventTransId' - 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 OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake)
+	Do OrderLijnLookup.GeefOrderLijn("AxInventTransId")
+]]></Implementation>
+</Method>
+
+<Method name="aTest prepare query statement en Bevestigd 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 OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake)
+	Do OrderLijnLookup.GeefOrderLijn("AxInventTransId")
+	
+	;Do $$$AssertEquals(OrderId,1000)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(revision 0)
+++ vhTest/Mock/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(revision 45639)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AXimpl.Admin.VKP.OrderLijnLookup">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Admin.VKP.OrderLijnLookup,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BestaatOrderLijn">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatOrderLijn",AxInventTransId)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderLijn">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>Flow.Order.Lijn</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefOrderLijn",AxInventTransId)
+]]></Implementation>
+</Method>
+
+<Method name="ValideerOrderLijnOrderID">
+<FormalSpec>OrderID:%String,OrderLijnOrderID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ValideerOrderLijnOrderID",OrderID,OrderLijnOrderID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(revision 0)
+++ vhTest/Fake/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(revision 45639)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AXimpl.Admin.VKP.OrderLijnLookup">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Admin.VKP.OrderLijnLookup</Super>
+
+<Method name="BestaatOrderLijn">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderLijn">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>Flow.Order.Lijn</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ValideerOrderLijnOrderID">
+<FormalSpec>OrderID:%String,OrderLijnOrderID:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>