2020-08-23 12:19发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）大家好！ 我有一个Excel，... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
大家好！
我有一个Excel，带有"发票"中的DocEntry列表。 必须取消此发票，为此，我使用了以下代码：
vDoc.GetByKey（inv_docentry）
retcode = vDoc.Cancel
这返回了以下错误： -5006-此对象不支持请求的操作
然后在网上浏览时，我在这个论坛中发现了一个类似的问题：
https://archive.sap.com/discussions/thread/3852956
然后我将代码更改为此：
vDoc.CreateCancellationDocument
retcode = vDoc.Add
现在系统返回此错误：- 5002-无效值[OINV.Netproc]]
我的客户端使用的是9.1 PL 8，Excel是2013版的
有什么想法吗？
非常感谢
K.R
你好，
您应该首先将创建的取消凭证存储到另一个对象，并且应该将其添加。
请参见下面的代码。
将vDoc设为SAPbobsCOM.Documents
将oCancelDoc用作SAPbobsCOM.Documents
设置oCancelDoc = vCmp.GetBusinessObject（oInvoices）
设置vDoc = vCmp.GetBusinessObject（oInvoices）
获取发票：
inv_docentry = Sheet1.Range（" A"＆row_no1＆""）.Value
如果inv_docentry =""然后退出Sub
GoSub取消发票
row_no1 = row_no1 +1
转到发票
取消发票：
设置oCancelDoc = vDoc.CreateCancellationDocument
retcode = oCancelDoc.Add（）
如果重新编码<> 0然后
vCmp.GetLastError lErrCode，sErr
Msg MsgBox（retcode和"-"＆sErrMsg）
如果结束
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 绝不认输! 的问题《通过Excel上的DI API从发票创建取消凭证》','https://www.easysap.com/answer/27236/76938.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
你好，
您应该首先将创建的取消凭证存储到另一个对象，并且应该将其添加。
请参见下面的代码。
将vDoc设为SAPbobsCOM.Documents
将oCancelDoc用作SAPbobsCOM.Documents
设置oCancelDoc = vCmp.GetBusinessObject（oInvoices）
设置vDoc = vCmp.GetBusinessObject（oInvoices）
获取发票：
inv_docentry = Sheet1.Range（" A"＆row_no1＆""）.Value
如果inv_docentry =""然后退出Sub
GoSub取消发票
row_no1 = row_no1 +1
转到发票
取消发票：
vDoc.GetByKey（inv_docentry）
设置oCancelDoc = vDoc.CreateCancellationDocument
retcode = oCancelDoc.Add（）
如果重新编码<> 0然后
vCmp.GetLastError lErrCode，sErr
Msg MsgBox（retcode和"-"＆sErrMsg）
如果结束
一周热门 更多>