Exception on read or set UDF document lines value

Question

Hi All,
have a big problem...
I'm creating invoice documents from many and many delivery documents via DI API.
In some cases, my addon gives an exception reading or setting UDF line fields.
Here is the exception message:
System.Runtime.InteropServices.COMException (0x80010105): The server has rise an exception. (Eccezione da HRESULT: 0x80010105(RPC_E_SERVERFAULT))
in SAPbobsCOM.FieldClass.get_Value() in Morato.CreaDocFatturazioneMassiva.CopyUDFLineFields(String)
or
System.Runtime.InteropServices.COMException (0x80010105): The server has rise an exception. (Eccezione da HRESULT: 0x80010105(RPC_E_SERVERFAULT))
in SAPbobsCOM.FieldClass.set_Value() in Morato.CreaDocFatturazioneMassiva.CopyUDFLineFields(String)
The strange thing is that if I create an invoices from a little quantity of deliveries, there is no problem. The error seems to rise when I create an invoice from a huge quantity of deliveries.
The code is:
Private Function CopyUDFLineFields(ByVal oLineNum As String) As Boolean
        Dim i As Integer
        oDocFrom.Lines.SetCurrentLine(oLineNum)
        Try
            With oDocFrom.Lines.UserFields
                For i = 0 To .Fields.Count - 1
                    Select Case .Fields.Item(i).Type
                        Case SAPbobsCOM.BoFieldTypes.db_Date
                            '// campi di tipo data
                            Select Case .Fields.Item(i).SubType
                                Case SAPbobsCOM.BoFldSubTypes.st_Time
                                    '// campi di tipo ora
                                    If Hour(.Fields.Item(i).Value) <> "0" Or Minute(.Fields.Item(i).Value) <> "0" Then
                                        oDocTo.Lines.UserFields.Fields.Item(i).Value = .Fields.Item(i).Value
                                    End If
                                Case Else
                                    If Year(oDocFrom.Lines.UserFields.Fields.Item(i).Value) <> "1899" And Year(.Fields.Item(i).Value) <> "1999" Then
                                        oDocTo.Lines.UserFields.Fields.Item(i).Value = .Fields.Item(i).Value
                                    End If
                            End Select
                        Case SAPbobsCOM.BoFieldTypes.db_Float
                            '// campi di tipo unità e totale
                            If .Fields.Item(i).SubType = SAPbobsCOM.BoFldSubTypes.st_Measurement Or .Fields.Item(i).SubType = SAPbobsCOM.BoFldSubTypes.st_Percentage Or .Fields.Item(i).SubType = SAPbobsCOM.BoFldSubTypes.st_Price Or .Fields.Item(i).SubType = SAPbobsCOM.BoFldSubTypes.st_Quantity Then
                                oDocTo.Lines.UserFields.Fields.Item(i).Value = CDbl(.Fields.Item(i).Value)
                            End If
                        Case SAPbobsCOM.BoFieldTypes.db_Alpha
                            '// campi di tipo stringa
                            If Not String.IsNullOrEmpty(oDocFrom.Lines.UserFields.Fields.Item(i).Value) Then
                                oDocTo.Lines.UserFields.Fields.Item(i).Value = .Fields.Item(i).Value.ToString
                            End If
                        Case SAPbobsCOM.BoFieldTypes.db_Numeric
                            oDocTo.Lines.UserFields.Fields.Item(i).Value = Val(.Fields.Item(i).Value)
                        Case SAPbobsCOM.BoFieldTypes.db_Memo
                            oDocTo.Lines.UserFields.Fields.Item(i).Value = .Fields.Item(i).Value.ToString
                        Case Else
                            '// altri tipi stringa
                            If Not String.IsNullOrEmpty(oDocFrom.Lines.UserFields.Fields.Item(i).Value) Then
                                oDocTo.Lines.UserFields.Fields.Item(i).Value = .Fields.Item(i).Value.ToString
                            End If
                    End Select
                Next i
            End With
            Return True
        Catch ex As Exception
            SBO_Application.MessageBox(ex.ToString & " - " & oDocFrom.Lines.UserFields.Fields.Item(i).Name.ToString)
            Return False
        End Try
    End Function
Anyone have experienced something similar?
Kind Regards,
Paolo Caricasole.
Edited by: Rui Pereira on Dec 23, 2008 4:26 PM

Answer 1

Please refer to note#1235603
SAP Notes: [http://service.sap.com/notes|http://service.sap.com/notes]
Replace:
oDocTo.Lines.UserFields.Fields.Item(i).Value
with:
Document_Lines oLines = oDocTo.Lines
oLines.UserFields.Fields.Item(i).Value
Regards, Yatsea