TECH.RegisteredObject d ##class(AXimpl.Controle.OrdDiff.Query).Test() 1 %Query 1 1 %Status Naam,KlantNr,OrderId," _" AX_AXSalesId,AX_AantalBesteld,AX_AantalGeleverd,AX_AantalOpenstaand,AX_ConfigId,AX_ItemId,AX_Leverdatum,ax_product->KortTekst,AX_ProductNr,AX_SoprContractId," _" Admin_AXSalesId,Admin_Aantal,Admin_ItemId, Admin_Leverdatum,admin_product->KortTekst,Admin_ProductNr,Admin_AantalLijnen" _" from AXimpl_Controle_OrdDiff.ProductOrderLijn where diff_Orderverschillend=1" _" order by orderid, axinventtransid" Set rs=##class(%ResultSet).%New("%DynamicQuery:SQL") Set sc=rs.Prepare(SQLStatement) If $$$ISERR(sc) Quit sc Set sc=rs.Execute() If $$$ISERR(sc) Quit sc Set %ResultIterator=##class(TECH.ResultSetIterator).%New(rs) Quit $$$OK ]]> 1 %Status 1 %Status