分割采购订单

将采购订单分割为数量为1的行：

static void SplitPurchLine(Args _args)

{

    PurchQty    qty;

    PurchTable  purchTable;

    PurchLine   purchLine;

    

    purchTable = PurchTable::find("PO-0001");

    

    while select forUpdate purchLine

        where  purchLine.PurchId == purchTable.PurchId  && purchLine.PurchQty > 1

    {

        qty = purchLine.PurchQty;

        while (qty > 1)

        {

            PLPurchLineSplit::update(purchLine, 1);

            qty -= 1;

        }

    }

}