Index: AXimpl/Admin/VKP/OrderLookup.cls.xml =================================================================== diff -u -r43385 -r43421 --- AXimpl/Admin/VKP/OrderLookup.cls.xml (.../OrderLookup.cls.xml) (revision 43385) +++ AXimpl/Admin/VKP/OrderLookup.cls.xml (.../OrderLookup.cls.xml) (revision 43421) @@ -30,7 +30,11 @@ #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"))) + if ResultSet.Next() { + Set Exception = ##class(AXimpl.Admin.DatabaseOutOfSyncException).%New(##class(AXimpl.Admin.EntiteitType).Order(),AxSalesId,OrderId _ "," _ ResultSet.GetDataByName("ID")) + Do Exception.VoegToeExtraInfo("Minstens 2 orders met dezelfde Ax SalesId gevonden") + Do ##class(TECH.ExceptionHandler).Throw(Exception) + } } else { Do ##class(TECH.ExceptionHandler).Throw(##class(AXimpl.Admin.DatabaseOutOfSyncException).%New(##class(AXimpl.Admin.EntiteitType).Order(),AxSalesId,"")) } Index: vhUnitTest/AXimpl/Admin/VKP/OrderLookup/Test.cls.xml =================================================================== diff -u -r43385 -r43421 --- vhUnitTest/AXimpl/Admin/VKP/OrderLookup/Test.cls.xml (.../Test.cls.xml) (revision 43385) +++ vhUnitTest/AXimpl/Admin/VKP/OrderLookup/Test.cls.xml (.../Test.cls.xml) (revision 43421) @@ -30,6 +30,25 @@ #dim OrderId as %String = OrderLookup.GeefOrderId("AxSalesId") ]]> + + + +