Problem in creating a new entry in Goods Issue via DI

Question

Good Day Experts,
Im having trouble creating Goods Issue Document Entry via DI API. The code works fine,
it just returns "-1150 (Invelid Index)" after adding the GI Document. I would like to know
if there's something i missed out?
Below is my sample code for the creation of GI :
        Dim goodsIssue As SAPbobsCOM.Documents = Nothing
        Dim lRetCode As Long
        Try
            goodsIssue = _company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInventoryGenExit)
            With goodsIssue
                '// HEADER
                .DocNum = GetDocEntry()
                .Reference1 = _InventoryTransferLOBO.DocNumber
                .HandWritten = SAPbobsCOM.BoYesNoEnum.tNO
                .DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items
                .DocDate = _InventoryTransferLOBO.CreatedDate
                .DocDueDate = _InventoryTransferLOBO.CreatedDate
                '// DETAILS
                For x As Integer = 0 To _InvTransLOItems.Rows.Count - 1
                    .Lines.ItemCode = _InvTransLOItems.Rows(x).Item("U_ItemNo")
                    .Lines.ItemDescription = _InvTransLOItems.Rows(x).Item("U_ItemDesc") 'drITLOItems("U_ItemDesc")
                    .Lines.WarehouseCode = _InvTransLOItems.Rows(x).Item("U_FWhse") 'drITLOItems("U_FWhse")
                    .Lines.Quantity = _InvTransLOItems.Rows(x).Item("U_Qty") 'drITLOItems("U_Qty")
                    .Lines.AccountCode = GetAccountCode(_InvTransLOItems.Rows(x).Item("U_FWhse")) 'drITLOItems("U_FWhse"))
                    If x < _InvTransLOItems.Rows.Count - 1 Then .Lines.Add()
                Next x
                lRetCode = .Add()
            End With
            If Not lRetCode = 0 Then
                _sboInventoryTransferLO.MessageBox("Error: " & lRetCode & ", " & _company.GetLastErrorDescription)
            End If
        Catch ex As Exception
        End Try
Thanks in advenced
Tyron James Gono

Answer 1

Hi Sir Owen,
Thank you so much for your reply, it still doesn't solved the problem. In my code below
i repositioned the Line.Add Property and also added the "Lines.SetCurrentLine(Index)".
It still returns the message "-1150 Invalid Index".
Is it the row items im having a problem with? or the header itself?
                For x As Integer = 0 To _InvTransLOItems.Rows.Count - 1
                    If x > 0 Then .Lines.Add()
                    .Lines.SetCurrentLine(x)
                    .Lines.ItemCode = _InvTransLOItems.Rows(x).Item("U_ItemNo")
                    .Lines.ItemDescription = _InvTransLOItems.Rows(x).Item("U_ItemDesc") 'drITLOItems("U_ItemDesc")
                    .Lines.WarehouseCode = _InvTransLOItems.Rows(x).Item("U_FWhse") 'drITLOItems("U_FWhse")
                    .Lines.Quantity = _InvTransLOItems.Rows(x).Item("U_Qty") 'drITLOItems("U_Qty")
                    .Lines.AccountCode = GetAccountCode(_InvTransLOItems.Rows(x).Item("U_FWhse")) 'drITLOItems("U_FWhse"))
                Next x
                lRetCode = .Add()
Regards,
Tyron