Unable to use User Fields

Question

Hello,
I'm using SAP2005A SP01 PL36.
I can create UserTables with UserFields (other than Code and Name standard fields) by DI API.
But every time I try to set data in these UserFields I got the error "Invalid Field Name", and no error when I set data in Code and Name standard fields.
Code is like this:
Dim oTable As SAPbobsCOM.UserTable
' THIS WORKS FINE
oTable = SBO_Company.UserTables.Item("MyTable")
oTable.Code = "000001"
oTable.Name = "Addon 000001"
If oTable.Add() = 0 Then
   Me.txtLog.AppendText("Ok" & vbCrLf)
Else
   Me.txtLog.AppendText("Error" & vbCrLf)
   Return False
End If
' THIS GIVES ERROR "Invalid Field Name"
oTable = SBO_Company.UserTables.Item("MyTable2")
oTable.Code = "000000"
oTable.Name = "000000"
oTable.UserFields.Fields.Item("U_ParName").Value = "Param0"   'Here I got the error
oTable.UserFields.Fields.Item("U_ParValue").Value = "Value0"
If oTable.Add() = 0 Then
   Me.txtLog.AppendText("Ok" & vbCrLf)
Else
   Me.txtLog.AppendText("Error" & vbCrLf)
   Return False
End If
In debug mode, I can see that <b>oTable.UserFields.Fields</b> collection is always empty.
Already open a message in SAP, but no feedback.
Anyone got this error too? (or can reproduce this error?)
Regards,
Andrea

Answer 1

Use this function While Saving,
Function KeyGen(ByVal TableName As String, Optional ByVal Prefix As String = "DOC") As String()
        Dim rs As SAPbobsCOM.Recordset
        Dim Qry As String
        Dim s(2) As String
        Dim str As String = Prefix & "-"
        Dim i As Integer
        rs = com.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
        Qry = "SELECT MAX(CAST(Code AS int)) code FROM [@" & TableName & "]"
        rs.DoQuery(Qry)
        If rs.RecordCount <> 0 Then
            For i = 5 To Len(CStr(rs.Fields.Item("Code").Value)) Step -1
                str &= "0"
            Next
            str &= (CInt(rs.Fields.Item("Code").Value) + 1)
            s(0) = CStr(rs.Fields.Item("Code").Value + 1)
            s(1) = str
        Else
            str = Prefix & "000001"
            s(0) = "1"
            s(1) = str
        End If
        Return s
    End Function
If it is helpful give reward points,
Regards,
Anitha