点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

我当前正在制作一个引用AP良好收据订单项的附件来创建AP发票。

下面是我必须添加前5个订单项的代码

 oAP_Inv = oCompany.GetBusinessObject（SAPbobsCOM.BoObjectTypes.oPurchaseInvoices）

 oAP_Inv.CardCode = cardCode
 oAP_Inv.DocDate =" 2018-10-01"
 oAP_Inv.DocDueDate =" 2018-10-01"
 oAP_Inv.TaxDate =" 2018-10-01"
 oAP_Inv.NumAtCard =" 1515165"
 oAP_Inv.Comments ="通过William Grant"

 oAP_Inv.Lines.SetCurrentLine（0）
 oAP_Inv.Lines.BaseType = 20'这是用于GR
 oAP_Inv.Lines.BaseEntry = grDocEntry
 oAP_Inv.Lines.BaseLine = 0
 oAP_Inv.Lines.Add（）

 oAP_Inv.Lines.SetCurrentLine（1）
 oAP_Inv.Lines.BaseType = 20'这是用于GR
 oAP_Inv.Lines.BaseEntry = grDocEntry
 oAP_Inv.Lines.BaseLine = 1
 oAP_Inv.Lines.Add（）

 oAP_Inv.Lines.SetCurrentLine（2）
 oAP_Inv.Lines.BaseType = 20'这是用于GR
 oAP_Inv.Lines.BaseEntry = grDocEntry
 oAP_Inv.Lines.BaseLine = 2
 oAP_Inv.Lines.Add（）

 oAP_Inv.Lines.SetCurrentLine（3）
 oAP_Inv.Lines.BaseType = 20'这是用于GR
 oAP_Inv.Lines.BaseEntry = grDocEntry
 oAP_Inv.Lines.BaseLine = 3
 oAP_Inv.Lines.Add（）

 oAP_Inv.Lines.SetCurrentLine（4）
 oAP_Inv.Lines.BaseType = 20'这是用于GR
 oAP_Inv.Lines.BaseEntry = grDocEntry
 oAP_Inv.Lines.BaseLine = 4
 oAP_Inv.Lines.Add（）

 如果retVal <> 0然后
 oCompany.GetLastError（retVal，retStr）
 MsgBox（retStr）
 万一
 

添加文档后，这就是GR收据的样子，其中我添加的5个订单项已关闭。

接下来，当我尝试使用以下代码添加上面第6行中显示的项目时，出现此错误

 oAP_Inv = oCompany.GetBusinessObject（SAPbobsCOM.BoObjectTypes.oPurchaseInvoices）

 oAP_Inv.CardCode = cardCode
 oAP_Inv.DocDate =" 2018-10-01"
 oAP_Inv.DocDueDate =" 2018-10-01"
 oAP_Inv.TaxDate =" 2018-10-01"
 oAP_Inv.NumAtCard =" 1515166"
 oAP_Inv.Comments ="通过William Grant"

 oAP_Inv.Lines.SetCurrentLine（0）
 oAP_Inv.Lines.BaseType = 20'这是用于GR
 oAP_Inv.Lines.BaseEntry = grDocEntry
 oAP_Inv.Lines.BaseLine = 5
 oAP_Inv.Lines.Add（）

 如果retVal <> 0然后
 oCompany.GetLastError（retVal，retStr）
 MsgBox（retStr）
 万一

 

但是，如果我使用下面的代码，那么第6行将毫无问题地添加

 oAP_Inv = oCompany.GetBusinessObject（SAPbobsCOM.BoObjectTypes.oPurchaseInvoices）

 oAP_Inv.CardCode = cardCode
 oAP_Inv.DocDate =" 2018-10-01"
 oAP_Inv.DocDueDate =" 2018-10-01"
 oAP_Inv.TaxDate =" 2018-10-01"
 oAP_Inv.NumAtCard =" 1515166"
 oAP_Inv.Comments ="通过William Grant"

 oAP_Inv.Lines.SetCurrentLine（0）
 oAP_Inv.Lines.BaseType = 20'这是用于GR
 oAP_Inv.Lines.BaseEntry = grDocEntry
 oAP_Inv.Lines.BaseLine = 6
 oAP_Inv.Lines.Add（）

 如果retVal <> 0然后
 oCompany.GetLastError（retVal，retStr）
 MsgBox（retStr）
 万一
 

您知道为什么我在添加第6行时遇到问题吗？

oAP_Inv.Lines.BaseLine = 5

似乎有些原因，当我想将基本参考编号用于"良好收据"时，索引就是其他原因。 这是我写的一个查询，用VisOrder查找行号