1. sourceInterId = o.BillPackage.GetValue("FSourceInterId","",False,o.Row)
    2. sourceEntryId = o.BillPackage.GetValue("FSourceEntryID","",False,o.Row)
    3. sourceTranType = o.BillPackage.GetValue("FSourceTranType","",False,o.Row)
    4. auxqQty = o.BillPackage.GetValue("Fauxqty",0,False,o.Row)
    5. if sourceTranType = 83 then
    6.     Call o.GetData("dsData", "select Fauxprice from SEOutStockEntry where FInterID='" & sourceInterId & "' and FEntryID='" & sourceEntryId & "'")
    7.     s = o.Data("dsData")(1)("Fauxprice")
    8.     o.Result = s
    9. end if
    1. 打开配置账套,按以下步骤操作

    image.png

    1. 点确定后,保存后测试