I have created a DI addon for posting a draft delivery document. However, in each document there's a empty blank row. I know that you only need to invoke the lines.add function for second plus rows so I have already made sure that I am not adding a new line on first add. Any advice for you would much be appreciated.
Regards
Dim retVal As Object
Dim i As Integer = 0
Dim oDeliveryDoc As SAPbobsCOM.Documents
oDeliveryDoc = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDrafts)
oDeliveryDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oDeliveryNotes
oDeliveryDoc.CardCode = selectedBPCode
oDeliveryDoc.DocDueDate = Today
Dim row As Object
While i < CType(DataGrid1.DataSource, DataTable).Rows.Count
If DataGrid1.IsSelected(i) Then
If i > 0 Then
oDeliveryDoc.Lines.Add()
End If
oDeliveryDoc.Lines.BaseType = SAPbobsCOM.BoObjectTypes.oOrders
oDeliveryDoc.Lines.BaseEntry = CInt(DataGrid1.Item(i, 8))
oDeliveryDoc.Lines.BaseLine = DataGrid1.Item(i, 9)
End If
i = i + 1
End While
retVal = oDeliveryDoc.Add
If retVal <> 0 Then
oCompany.GetLastError(lErrCode, sErrMsg)
MsgBox(lErrCode & " " & sErrMsg)
End If