核算项目赋值SetBillDataInput

Public WithEvents m_Bill As k3BillTransfer.Bill

'设置核算项目的值

'改变外购入库单新增后的采购方式为“现购”

    Dim tmpItemInfo As KFO.Dictionary

    Set tmpItemInfo = New KFO.Dictionary

    tmpItemInfo("Name") = "现购"        '核算项目名称

    tmpItemInfo("Number") = "PO01"      '核算项目代码

    tmpItemInfo(