参考Dimension的处理的语句

参考Dimension的处理的语句

 

display amount amount()
{
    Dimensions dimensions ;
    str dimensionsstr ;
    LedgerTrans myLedgerTrans ;
    amount myamount;

    Query myQuery;
    QueryBuildDataSource myQueryBuildDataSource;
    QueryBuildRange myQueryBuildRange;
    QueryRun myQueryRun;

    ;

    while select  dimensions
        where   dimensions.prodGroupid == ProdGroup_1.ProdGroupId
           &&   dimensions.DimensionCode == SysDimension::Center
    {
        dimensionsstr = dimensionsstr + '',''+ dimensions.Num ;
    }
    if (dimensionsstr)
    {
       dimensionsstr = strdel(dimensionsstr,1,1);
    }

    myQuery = new Query ();
    myQueryBuildDataSource = myQuery.AddDataSource (TableNum(LedgerTrans));
    myQueryBuildRange = myQueryBuildDataSource.AddRange (fieldNum(LedgerTrans, AccountNum));
    myQueryBuildRange.value(xtCostItem_1.LedgerAccount);
    myQueryBuildRange = myQueryBuildDataSource.AddRange (fieldNum(LedgerTrans, TransDate));
    myQueryBuildRange.value(''>=''+ queryvalue(xtProdGroupFeeSumup.parmFromDate()));
    myQueryBuildRange = myQueryBuildDataSource.AddRange (fieldNum(LedgerTrans, TransDate));
    myQueryBuildRange.value(''<=''+ queryvalue(xtProdGroupFeeSumup.parmToDate()));
    myQueryBuildRange = myQueryBuildDataSource.AddRange (fieldId2Ext(fieldNum(LedgerTrans, Dimension),2));
    myQueryBuildRange.value(dimensionsstr);
    myQueryRun = new QueryRun (myQuery);
    while (myQueryRun.next())
    {
        myLedgerTrans.clear();
        myLedgerTrans = myQueryRun.get(tableNum(LedgerTrans));
        if (myLedgerTrans)
        {
            myamount += myLedgerTrans.AmountMST ;
        }
    }
    return myamount ;
}