采购订单->外购入库/收料通知单->外购入库,带到入库的单价和金额不准

sourceInterId = o.BillPackage.GetValue("FSourceInterId","",False,o.Row)
sourceEntryId = o.BillPackage.GetValue("FSourceEntryID","",False,o.Row)
sourceTranType = o.BillPackage.GetValue("FSourceTranType","",False,o.Row)
auxqQty = o.BillPackage.GetValue("Fauxqty",0,False,o.Row)
if sourceTranType = 72 then
    Call o.GetData("dsData", "select Fauxprice from POInstockEntry where FInterID='" & sourceInterId & "' and FEntryID='" & sourceEntryId & "'")
    s = o.Data("dsData")(1)("Fauxprice")
    o.Result = s
end if
if sourceTranType = 71 then
    Call o.GetData("dsData", "select Fauxprice from POOrderEntry where FInterID='" & sourceInterId & "' and FEntryID='" & sourceEntryId & "'")
    s = o.Data("dsData")(1)("Fauxprice")
    o.Result = s
end if

1. 打开配置账套,按以下步骤操作

1. 点确定后,保存后测试
2. 上传账套模板