嗨，

1。 检索文档document.getbykey（...）

2。 document.cancel（0

3。ready。

Dim RetVal as long

Dim ErrCode as long

Dim ErrMsg as String

将vItem设置为SAPbobsCOM.Items

设置vItem = vCmp.GetBusinessObject（oItems）

'从数据库中检索要取消的记录

RetVal = vItem.GetByKey（" A00023"）

如果RetVal <> 0则

vCmp.GetLastError ErrCode，ErrMsg

MsgBox"无法检索 记录"＆ErrCode＆"＆＆ErrMsg

退出子

结束如果

'取消记录

RetVal = vItem.Cancel

如果RetVal <> 0，则

vCmp.GetLastError ErrCode，ErrMsg

MsgBox"未能取消记录"＆ErrCode＆""和ErrMsg

结束

关于

Ad

///创建新的Documents对象
Documents doc = comp .GetBusinessObject（BoObjectTypes.oDeliveryNotes）;

//通过键获取将被取消的文档
doc.GetByKey（19）;

//创建对象 代表基于doc的新取消文档的文档。documentscancelDoc = doc.CreateCancellationDocument（）;

//我们可以在取消文档中修改某些值，例如：cancelDoc.DocDate = new DateTime（2012，4，8）;

//然后我们可以添加此取消文档，同时基本文档的状态将更改为"已取消"


cancelDoc.Add（）;