ChooseFrom List do not change the form mode

Question

Dear Sir,
I have crated a form (using xml) based on a UDO.
In  this form I have a chooseformlist box for the client code. WHen I am in OK mode and I modify the client code the form does not goes to UPDATE mode. To resolse this issue I ahve added the following ling and the choosefromlist event occur:
If pVal.FormMode = "1" Then
   oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE
End If
Now I am facing another problem is that When I modify the cleint code and the form goes to UPDATE mode and I go to a new record the system does not notify me that the data entered will be deleted if i continue the action without saving. You know the standard behavior of SAP BO
Kindly help me with this isssue.
Best Regards

Answer 1

Hi!
I use the MenuEvent-Handler to solve this.
Code in MenuHandler:
            ' Switching to add, find and the yellow arrows
            If _
                pVal.MenuUID = "1281" Or _
                pVal.MenuUID = "1282" Or _
                pVal.MenuUID = "1288" Or _
                pVal.MenuUID = "1289" Or _
                pVal.MenuUID = "1290" Or _
                pVal.MenuUID = "1291" _
            Then
                If pVal.BeforeAction Then
                    If Not OkLooseChangedData() Then BubbleEvent = False
                End If
            End If
And the called function is:
Private Shared Function OkLooseChangedData() As Boolean
        Dim retVal As Int16
        OkLooseChangedData = False
        If oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE Then
            retVal = _
                SboCon.SboUI.MessageBox( _
                    "Changed data will be lost!" & vbCrLf & _
                    "Continue?", _
                    2, _
                    AddOnMain.GetResourceManager(AddOnMain.AddOnResources.Common).GetString("MSG_YES"), _
                    AddOnMain.GetResourceManager(AddOnMain.AddOnResources.Common).GetString("MSG_NO") _
            If retVal = 2 Then Return False
        End If
        OkLooseChangedData = True
    End Function
No guarantee that it works for ALL cases
Cheers,
Roland