Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnLookup/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnLookup/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnLookup/Test.cls.xml	(revision 45632)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.SalesOrderIn.Converter.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.Dynamics.SalesOrderIn.Converter.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.Dynamics.SalesOrderIn.Converter.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.Dynamics.SalesOrderIn.Converter.OrderLijnLookup).%New()
+	Do OrderLijnLookup.ValideerOrderLijnOrderID("OrderID","OrderLijn.AnderOrderID")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnLookup.cls.xml
===================================================================
diff -u -r45615 -r45632
--- AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnLookup.cls.xml	(.../OrderLijnLookup.cls.xml)	(revision 45615)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnLookup.cls.xml	(.../OrderLijnLookup.cls.xml)	(revision 45632)
@@ -39,7 +39,7 @@
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
 	#dim OrderLijn As Flow.Order.Lijn = ""
 	if ResultSet.Next() {
-		Set OrderLijn = ##class(Flow.Order.Lijn).%Open(ResultSet.GetDataByName("ID"))
+		;Set OrderLijn = ##class(Flow.Order.Lijn).%Open(ResultSet.GetDataByName("ID"))
 		if ResultSet.Next() {
 			Set Exception  = ##class(AXimpl.Admin.DatabaseOutOfSyncException).%New(##class(AXimpl.Admin.EntiteitType).OrderLijn(), AxInventTransId _ "," _ ResultSet.GetDataByName("ID"))
 			Do Exception.VoegToeExtraInfo("Minstens 2 orderlijnen met dezelfde AxInventTransId gevonden")
@@ -56,8 +56,8 @@
 <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 deze opgegeven offerte.")
+		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>