RecordInsertList 和 RecordSortList用法示例



RecordInsertList:
static void CopyItemInfoRIL(Args _args)

{

    InventTableinventTable;

    InventSuminventSum;

    InsertInventTableInventSumRTinsertInventTableInventSumRT;

    RecordInsertListril;

    ttsBegin;

    ril = newRecordInsertList(tableNum(InsertInventTableInventSumRT));

    while selectItemId,AltItemid from inventTable where inventTable.ItemId == '1001'

        joinPhysicalValue,PostedValue from inventSum

        whereinventSum.ItemId == inventTable.ItemId

    {

        insertInventTableInventSumRT.ItemId= inventTable.ItemId;

        insertInventTableInventSumRT.AltItemId= inventTable.AltItemId;

        insertInventTableInventSumRT.PhysicalValue= inventSum.PhysicalValue;

        insertInventTableInventSumRT.PostedValue= inventSum.PostedValue;

        // Insertrecords if package is full

        ril.add(insertInventTableInventSumRT);

    }

    ril.insertDatabase();

    ttsCommit;

    selec tcount(RecId) from insertInventTableInventSumRT;

    info(int642str(insertInventTableInventSumRT.RecId));

}

RecordSortList:
public static server void CopyItemInfoRSL()

{

    InventTable inventTable;

    InventSum inventSum;

    InsertInventTableInventSumRT insertInventTableInventSumRT;

    RecordSortedList rsl;

    ttsBegin;

    rsl = new RecordSortedList(tableNum(InsertInventTableInventSumRT));

    rsl.sortOrder(fieldNum(InsertInventTableInventSumRT,PostedValue));

    while select ItemId,AltItemid from inventTable where inventTable.ItemId == '1001'

    join PhysicalValue,PostedValue from inventSum

    where inventSum.ItemId == inventTable.ItemId

    {

        insertInventTableInventSumRT.ItemId = inventTable.itemId;

        insertInventTableInventSumRT.AltItemId = inventTable.AltItemId;

        insertInventTableInventSumRT.PhysicalValue = inventSum.PhysicalValue;

        insertInventTableInventSumRT.PostedValue = inventSum.PostedValue;

        rsl.ins(insertInventTableInventSumRT);

    }

    rsl.insertDatabase();

    ttsCommit;

    select count(RecId) from insertInventTableInventSumRT;

    info(int642str(insertInventTableInventSumRT.RecId));

}