SBO 2007a - oInventoryGenEntry .Add() Error -5002

Question

We convert the com-DI to work with the new SBO 2007a after upgrading and this code only stop to
work and return -5002
m_InternalDocObj is of type SAPbobsCOM.BoObjectTypes.oInventoryGenEntry
:(here is the code...)
'region document -add data
MyBase.m_InternalDocObj.CardCode = ""
MyBase.m_InternalDocObj.DocTotal = 1
'Document_Lines is a child object of Documents object and represents the line entries of a
document in the Marketing Documents and Receipts module
'and the Inventory and Production module.
'Region(oInvGenEntry.Lines) - add data
MyBase.m_InternalDocObj.Lines.ItemCode = itemCode
MyBase.m_InternalDocObj.Lines.AccountCode = ""
MyBase.m_InternalDocObj.Lines.ItemDescription = ItemDescription
MyBase.m_InternalDocObj.Lines.WarehouseCode = WHcode '
MyBase.m_InternalDocObj.Lines.Currency = Currency 
MyBase.m_InternalDocObj.Lines.Price = GRTotalPrice
MyBase.m_InternalDocObj.Lines.Quantity = SerialsQuantity
For i = 0 To SerialsQuantity - 1
ManufacturerSerialNumber = ManufacturerSerialNumber + i
MyBase.m_InternalDocObj.Lines.SerialNumbers.ManufacturerSerialNumber =
ManufacturerSerialNumber.ToString() 
MyBase.m_InternalDocObj.Lines.SerialNumbers.InternalSerialNumber = ""
MyBase.m_InternalDocObj.Lines.SerialNumbers.BatchID = BatchID
MyBase.m_InternalDocObj.Lines.SerialNumbers.Notes =
ManufacturerSerialNumber.ToString()
MyBase.m_InternalDocObj.Lines.SerialNumbers.Location = ""
' The last Lines.SerialNumbers should not used Lines.SerialNumbers.Add()
If i = SerialsQuantity - 1 Then
Else : MyBase.m_InternalDocObj.Lines.SerialNumbers.Add()
End If
Next
m_iErr = MyBase.m_InternalDocObj.Add()  - Error ocured here -5002
thanks in advance
yaniv

Answer 1

Hello,
So,
Please decide whihc serial number type you are using
Only the First Row of Serial Numbers collection is not necessary to use the Lines.SerialNumbers.Add()
So,
For i = 0 To SerialsQuantity - 1
' add a new lines to Serial numbers collection
if i > 0 then Lines.SerialNumbers.Add()
Lines.SerialNumbers.SetCurrentLine(i)
' Check the AdministrationSystem Init .. General SettingsInventory TAB for Unique Serial Number type...
ManufacturerSerialNumber = ManufacturerSerialNumber + i
MyBase.m_InternalDocObj.Lines.SerialNumbers.ManufacturerSerialNumber =
ManufacturerSerialNumber.ToString()
MyBase.m_InternalDocObj.Lines.SerialNumbers.InternalSerialNumber = ""
' Not Needed MyBase.m_InternalDocObj.Lines.SerialNumbers.BatchID = BatchID
MyBase.m_InternalDocObj.Lines.SerialNumbers.Notes =
ManufacturerSerialNumber.ToString()
MyBase.m_InternalDocObj.Lines.SerialNumbers.Location = ""
' The last Lines.SerialNumbers should not used
'not needed If i = SerialsQuantity - 1 Then
'Else : MyBase.m_InternalDocObj.Lines.SerialNumbers.Add()
'End If
Next
Regards
János