Bir Query Örneği

Merhaba
Emre arkadaşımın göndermiş olduğu örnek joblar içinden query ile alakalı olan bir tanesi paylaşmak istedim.

static void query2(Args _args)
{
CustTable   cust;
Query                   q = new Query();
QueryRun                qr;
QueryBuildDataSource    qbdsCustTable;
QueryBuildRange         qbrCurrency;
CurrencyCode            currency;
;
currency = “USD”;
warning(“select ile”);
while select cust
where cust.Currency == currency
{
info(strFmt(“%1”, cust.Name));
}
//————————————–
warning(“Query ile”);
qbdsCustTable = q.addDataSource(tableNum(CustTable));
qbrCurrency = qbdsCustTable.addRange(fieldNum(CustTable, Currency));
qbrCurrency.value(sysQuery::value(currency));
qr = new QueryRun(q);
if(qr.prompt())
{
while(qr.next())
{
cust = qr.get(tableNum(CustTable));
info(strFmt(“%1”, cust.Name));
}
}
}