TECH.RegisteredObject TECH.ResultSet 1 AXimpl.SqlQueryConnection 1 %Integer 1 %String 1 %String 1 SqlQueryConnection:AXimpl.SqlQueryConnection,LastProcessedRecId:%Integer 1 1 %Status 1 InvoiceDate:%String,OrderAccount:%String %String "_..LastProcessedRecId_" AND CustInvoiceTrans.InvoiceDate > '"_..InvoiceDate_"' AND CustInvoiceJour.OrderAccount = '"_..OrderAccount_"'" Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement) #dim ResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(..ResultSet) Quit ResultSetIterator.Next().GetData(1) ;Quit ..ResultSet.Next() ;Quit ..ResultSet.GetDataByName("InvoiceDate") ]]> InvoiceDate:%String,OrderAccount:%String AXimpl.Admin.STAT.Invoice.Line "_..LastProcessedRecId_" AND CustInvoiceTrans.InvoiceDate > '"_..InvoiceDate_"' AND CustInvoiceJour.OrderAccount = '"_..OrderAccount_"'" Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement) #dim ResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(..ResultSet) Do ResultSetIterator.Next() Set InvoiceLine = ##class(AXimpl.Admin.STAT.Invoice.Line).%New() Set InvoiceLine.InventQty = ..ResultSet.GetDataByName("InventQty") Set InvoiceLine.Count = ..ResultSet.GetDataByName("Count") Set InvoiceLine.Revenue = ..ResultSet.GetDataByName("Revenue") Quit InvoiceLine ]]> 1 1 %Status 1