UDO update not automatic?

Question

Hi All,
I have a form with a UDO linked to it. The add, find and browse part works fine. When I change something on an existing record and press the update key, it does not save it. It works if I change something in the header, but not if I change a value in the matrix. I looked at the MasterDataUDO example, but can still not figure out what the problem is.
Any help appreciated,
Adele.

Answer 1

Hi All,
I have figured out that if I register the UDO manually (in SBO) it works perfectly. If not, my update does not work (everything else works). Herewith my code for creating UDO. Can anyone tell me where the problem is? The registration in SBO looks the same of both (manual and auto).
Thanks,
Adele
        Dim oUserObjectMD As SAPbobsCOM.UserObjectsMD
        oUserObjectMD = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserObjectsMD)
        If oUserObjectMD.GetByKey("My_UDO") = 0 Then
            oUserObjectMD.Code = "My_UDO"
            oUserObjectMD.Name = "My_UDO"
            oUserObjectMD.ObjectType = SAPbobsCOM.BoUDOObjType.boud_MasterData
            oUserObjectMD.TableName = TForm
            oUserObjectMD.CanCancel = SAPbobsCOM.BoYesNoEnum.tYES
            oUserObjectMD.CanDelete = SAPbobsCOM.BoYesNoEnum.tYES
            oUserObjectMD.CanFind = SAPbobsCOM.BoYesNoEnum.tYES
            oUserObjectMD.FindColumns.ColumnAlias = "Code"
            oUserObjectMD.FindColumns.Add()
            oUserObjectMD.FindColumns.SetCurrentLine(1)
            oUserObjectMD.FindColumns.ColumnAlias = "Name"
            oUserObjectMD.ChildTables.TableName = TItem
            If oUserObjectMD.Add() <> 0 Then
                Dim ErrMsg As String
                Dim ErrCode As Long
                oCompany.GetLastError(ErrCode, ErrMsg)
                MessageBox.Show("Error: " & ErrMsg)
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserObjectMD)
                oUserObjectMD = Nothing
            End If
        End If
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserObjectMD)
        oUserObjectMD = Nothing