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. auxQty = 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

    金额:s = CDbl(o.Data(“dsData”)(1)(“Fauxprice”)) * CDbl(auxQty)

    如上VB代码,其中 sourceInterId为源单id, sourceEntryId为源单分录id,sourceTranType为源单类型
    sourceTranType = 83 意思是源单为 发货通知的时候处理
    第6行,是查到源单的单价,其中 SEOutStockEntry 为发货通知单的表体表名
    上面的VB,是发货通知单源单,获取不了单价和金额的处理,如果其它路线,请按以下截图调整:
    83红框的为源单类型,例如采购订单这里改为71
    SEOutStockEntry红框的为发货通知单的分录表名,例如采购订单这里改为POOrderEntry
    image.png

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

    image.png

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