TECH.Mockable ^KO1 TECH.Query.QueryAPI 1 QueryAPI:TECH.Query.QueryAPI 1 1 %Status 1 AxSalesId:%String %String 109999 and AXSalesid = ?",$ListBuild(AxSalesId)) #dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query) #dim OrderId as %String = "" if ResultSet.Next() { Set OrderId = ResultSet.GetDataByName("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 bevestigde 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,"")) } Quit OrderId ]]> SalesId:%Integer %String AxSalesId:%String %Boolean AxSalesId:%String %String