这应该将新出版物上载。 这是一个多版本，我尝试了各种方法，只写了一篇文章，一个项目没有批处理，几个项目，几个项目没有批处理，就像我记得的那样，多次重写了代码。
我试图 更改文档类型，我尝试更改项目处理方式，等等。当出现错误提示"没有完整选择项目就无法添加行"时，通常不应该返回。 （ret = 0）

SAP B1 9.2

qry ="从--0中选择H.U_U_from

H.U_U_end，

A.CardCode，

A.CardName，

C.ZipCode，-4

C.City，

C.Street，

A.CntctCode，

H.Phone1，-8

H.Fax，

A.ShipToCode，

A.TrnspCode，

A.Comments，-12

A.U_EKAER，

A.NumAtCard，

H.CardCode，-15

H.CardName，-16

A.AgentCode，

A.SlpCode，

A. [地址]

A.address2--20

来自ORDR A

在A.DocEntry = B.DocEntry上加入RDR1 B

在H.CardCode = A.CardCode上加入Ocrd H

在C.Address = COALESCE（A.ShipToCode，A.PayToCode）和C.CardCode = H.CardCode上加入Crd1 C

其中A.DocEntry ="＆.OrderNumber＆""

尝试

recordsett.DoQuery（qry）

order.CardCode = recordsett.Fields.Item（2）.Value.ToString

order.CardName = recordsett.Fields.Item（3）.Value.ToString

order.Address = recordsett.Fields.Item（19）.Value.ToString

order.Address2 = recordsett.Fields.Item（20）.Value.ToString

order.AgentCode = recordsett.Fields.Item（17）.Value.ToString

order.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items

order.DocumentSubType = SAPbobsCOM.BoDocumentSubType.bod_None

order.HandWritten = SAPbobsCOM.BoYesNoEnum.tNO

'order.SalesPersonCode = recordsett.Fields.Item（18）.Value.ToString

'Dim datte As String = .TranDate.ToString（" yyyy/MM/dd HH：mm：ss"）

"按日期将dim dattte更改

'Date.TryParseExact（datte，" yyyy/MM/dd HH：mm：ss"，CultureInfo.CurrentCulture，DateTimeStyles.AssumeLocal，dattte）

order.DocDueDate = .TranDate'dattte

order.StartDeliveryDate = .TranDate'DateTime.ParseExact（.TranDate，" MM/dd/yyyy hh：mm：ss tt"，没什么）

例外捕获

结束尝试

结尾为

尝试

Dim Counterr As Integer = 0

昏暗的行被添加为布尔值=假

对于ii。作为cc.WebItems中的WebInterfacesCore.BaseClasses.ShapeClassesResponseMessageItem

使用ii

m + =" --Item--"＆vbCr＆

"商品编号："和.Articlenumber.ToString和vbCr＆

"批处理："＆.Batch.ToString＆vbCr＆

" BB日期："和.BBDate.ToString＆vbCr＆

"错误代码："和.ErrorCode.ToString和vbCr＆

"执行数量："和.ExecutedQuantity.ToString和vbCr＆

"项目行ID："和.ItemLineId.ToString和vbCr＆

"订购数量："和.OrderedQuantity.ToString和vbCr＆

"拒绝数量："和.RefusedQuantity.ToString和vbCr＆

" Sscc："＆.Sscc.ToString＆vbCr＆

"状态："和.Status.ToString和vbCr＆

" Unit："＆.Unit.ToString＆vbCr＆

"-/Item--"＆vbCr

如果没有elozoitemcode，那么

elozoitemcode =。商品编号

eddigiqty + = .ExecutedQuantity

elozobbdatum = .BBDate

elozobatch =。批量

recordsett.DoQuery（"从oibt A中选择前1个*

在B.DistNumber = A.BatchNum和A.usersign = B.usersign和A.itemcode = B.itemcode上加入对象B

其中A.itemcode ='"＆.Articlenumber＆"'

按B.SysNumber desc排序

"）

ElseIf .Articlenumber = elozoitemcode和elozobatch = .Batch和Counterr

eddigiqty + = .ExecutedQuantity

其他

recordsett.DoQuery（"从oibt A中选择前1个batchnum，A.expdate，A.BaseLinNum，A.InDate

在B.DistNumber = A.BatchNum和A.usersign = B.usersign和A.itemcode = B.itemcode上加入obtn B

其中A.itemcode ='"＆elozoitemcode＆"'

通过B.SysNumber desc排序"）

'order.Lines.BaseType = SAPbobsCOM.BoAPARDocumentTypes.bodt_DeliveryNote

order.Lines.Quantity = eddigiqty

order.Lines.ItemCode = elozoitemcode

如果recordsett.Fields.Item（0）.Value.ToString = String.Empty然后

order.Lines.BatchNumbers.BatchNumber =无

其他

order.Lines.BatchNumbers.BatchNumber = recordsett.Fields.Item（0）.Value.ToString

order.Lines.BatchNumbers.ExpiryDate = CDate（recordsett.Fields.Item（1）.Value.ToString）

order.Lines.BatchNumbers.Quantity = eddigiqty

order.Lines.BatchNumbers.BaseLineNumber = CInt（recordsett.Fields.Item（2）.Value.ToString）

order.Lines.BatchNumbers.AddmisionDate = CDate（recordsett.Fields.Item（3）.Value.ToString）

如果结束

尝试

如果已添加行，则

order.Lines.Add（）

其他

lineadded = True

如果结束

例外捕获

SBO_Application.SetStatusBarMessage（ex.Message.ToString）

结束尝试

eddigiqty = 0

eddigiqty + = .ExecutedQuantity

elozoitemcode =。商品编号

elozobbdatum = .BBDate

如果结束

'order.Lines.Add（）

结尾为

计数器+ = 1

下一步

order.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items

Dim ret As Integer = order.Add（）

如果ret <> 0那么

长期错误的错误代码

Dim errormsg as String

company.GetLastError（errorcode，errormsg）

如果结束