sourceInterId = o.BillPackage.GetValue("FSourceInterId","",False,o.Row)
sourceEntryId = o.BillPackage.GetValue("FSourceEntryID","",False,o.Row)
sourceTranType = o.BillPackage.GetValue("FSourceTranType","",False,o.Row)
auxQty = o.BillPackage.GetValue("Fauxqty",0,False,o.Row)
if sourceTranType = 83 then
Call o.GetData("dsData", "select Fauxprice from SEOutStockEntry where FInterID='" & sourceInterId & "' and FEntryID='" & sourceEntryId & "'")
s = o.Data("dsData")(1)("Fauxprice")
o.Result = s
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
- 打开配置账套,按以下步骤操作
- 点确定后,保存后测试