Skip to Content
0
Former Member
Nov 01, 2005 at 09:05 AM

first row is empty in draft document

41 Views

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