采购发票调用组件生成 12.0版本提示下标越界
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
推荐阅读