Query & Dialog Örnekleri 5

Merhaba

static void query5(Args _args)
{
    CustTable   cust;

    Query                   q = new Query();
    QueryRun                qr;
    QueryBuildDataSource    qbdsCustTable;
    QueryBuildRange         qbrCurrency;
    QueryBuildRange         qbrRiskAmount;
    CurrencyCode            currency;
    Amount                  riskAmount;

    dialog                  d = new Dialog(“Müşteriler”);
    dialogField             dfCurrency;
    dialogField             dfRiskAmount;

    ;
    //Dialog
    dfCurrency = d.addField(typeId(CurrencyCode));
    dfRiskAmount = d.addField(typeId(Amount), “Max risk tutarı :”);

    if(d.run())
    {
        //getFromDialog
        currency    = dfCurrency.value();
        riskAmount  = dfRiskAmount.value();

        //fetch
        qbdsCustTable   = q.addDataSource(tableNum(CustTable));
        qbrCurrency     = qbdsCustTable.addRange(fieldNum(CustTable, Currency));
        qbrRiskAmount   = qbdsCustTable.addRange(fieldNum(CustTable, RiskAmount));

        if(currency)
            qbrCurrency.value(sysQuery::value(currency));

        qbrRiskAmount.value(sysQuery::range(0.01, riskAmount));
        //super ben yazmam
        qr = new QueryRun(q);

        while(qr.next())
        {
            cust = qr.get(tableNum(CustTable));
            info(strFmt(“%1     %2      %3 “,
                        cust.Name,
                        cust.Currency,
                        cust.RiskAmount));
        }

    }
}

 
Comment are closed.