Public WithEvents m_Bill As k3BillTransfer.Bill

'设置核算项目的值

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

    Dim tmpItemInfo As KFO.Dictionary

    Set tmpItemInfo = New KFO.Dictionary

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

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

    tmpItemInfo("Value") = "251"        '核算项目内码

    m_Bill.BillForm.SetBillDataInput tmpItemInfo, "FPOStyle", 0

    'SetBillDataInput 字典包，字段名，单据体（0：单据头；1：单据体），行号

    Set tmpItemInfo = Nothing