WBS项目内码转换例程