采购发票调用组件生成 12.0版本提示下标越界
云社区用户5vd20722
443次浏览
编辑于2017年03月06日 15:59:38
目前遇到一个问题，从第三方软件将采购发票导入金蝶K3系统，并且需要将不同源单的相同的物料进行合并，我这边实现方式是调用金蝶的单据保存组件BillDataAccess。
目前有两个产品K3 10.3 和K312.0 精益版 需要使用该功能 ，我开发的接口在10.3 上成功生成，但是在12.0 环境下提示”下标越界” ，我跟踪了下，发现如果我把物料合并功能去掉，就能成功运行，但是一旦加上，就提示下标越界，所以我怀疑是高版本传入的参数有改变，特发来代码，想请教高手老师们帮忙看看，尽快解决问题，验收项目，多多感谢！
这个vctBillRelations的赋值是否正确
（1）
Set dctSource =New KFO.Dictionary
dctSource("FSourceTranType") = 1
dctSource("FSourceInterID") = re("FSourceInterID2")
dctSource("FSourceEntryID") = re("FSourceEntryID2")
dctSource("FMultiInterID") = re("FMultiInterID")
dctSource("FMultiEntryID") =re("FMultiEntryID")
dctSource("FItemID") = re("FItemID")
dctSource("FQty") = re("FQty")
dctSource("FSecQty") = 0
vctBillRelations.Add dctSource
（2）
Set dicBill("BillRelations") =vctBillRelations
目前有两个产品K3 10.3 和K312.0 精益版 需要使用该功能 ，我开发的接口在10.3 上成功生成，但是在12.0 环境下提示”下标越界” ，我跟踪了下，发现如果我把物料合并功能去掉，就能成功运行，但是一旦加上，就提示下标越界，所以我怀疑是高版本传入的参数有改变，特发来代码，想请教高手老师们帮忙看看，尽快解决问题，验收项目，多多感谢！
这个vctBillRelations的赋值是否正确
（1）
Set dctSource =New KFO.Dictionary
dctSource("FSourceTranType") = 1
dctSource("FSourceInterID") = re("FSourceInterID2")
dctSource("FSourceEntryID") = re("FSourceEntryID2")
dctSource("FMultiInterID") = re("FMultiInterID")
dctSource("FMultiEntryID") =re("FMultiEntryID")
dctSource("FItemID") = re("FItemID")
dctSource("FQty") = re("FQty")
dctSource("FSecQty") = 0
vctBillRelations.Add dctSource
（2）
Set dicBill("BillRelations") =vctBillRelations
推荐阅读