Query & Dialog Örnekleri 4

Merhaba
static void query4(Args _args)
{
CustTable   cust;
Query                   q = new Query();
QueryRun                qr;
QueryBuildDataSource    qbdsCustTable;
QueryBuildRange         qbrCurrency;
CurrencyCode            currency;
dialog                  d = new Dialog(“Müşteriler”);
dialogField             dfCurrency;
;
dfCurrency = d.addField(typeId(CurrencyCode));
if(d.run())
{

currency = dfCurrency.value();
qbdsCustTable = q.addDataSource(tableNum(CustTable));
qbrCurrency = qbdsCustTable.addRange(fieldNum(CustTable, Currency));
if(currency)
qbrCurrency.value(sysQuery::value(currency));
qr = new QueryRun(q);
while(qr.next())
{
cust = qr.get(tableNum(CustTable));
info(strFmt(“%1”, cust.Name));
}
}
}