Form freezing after a doquery

Question

Hi all,
I've got a bit of a strange code that does not want ro properly.
When the user creates a business partner, I check that one of my UDF is not empty (that bit works). Then, when, the user click on add, the code will create a new project code and update the business partner record to link it with this new project code. That bit does not work. It just freeze the screen and nothing happens.
Can anyone help me and check the code that is commented?
Thanks for your help
Vincent
Case et_CLICK:
        If pVal.ItemUID = "1" And pVal.Before_Action = True Then
            Set oItem = frm.Items.Item("1")
            Set oButton = oItem.Specific
            If oButton.Caption = "Add" Then
                Set frm = SBO_Application.Forms.GetFormByTypeAndCount(-134, 1)
                Set oItem = frm.Items.Item("U_LiqLic")
                If oItem.Specific.Value = "" Then
                    BubbleEvent = False
                    SBO_Application.SetStatusBarMessage "Liquor license is a mandatory field", SAPbouiCOM.BoMessageTime.bmt_Short, True
                Else
                    BubbleEvent = True
                End If
            End If
        End If
        'If pVal.ItemUID = "1" And pVal.Before_Action = False Then
        '    If frm.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE Then
        '        ' Item 5 is the BP Code
        '        Set oItem = frm.Items.Item("5")
        '        Set oTextField = oItem.Specific
        '        Set oRecordSet = oCompany.GetBusinessObject(BoRecordset)
        '        ' Check that the Project code soes not exist already
        '        stext = "SELECT PrjCode FROM OPRJ WHERE PrjCode='" & oTextField.String & "' "
        '        oRecordSet.DoQuery (stext)
        '        frm.Freeze (True)
        '        ' If not, we can create the new project code
        '        If oRecordSet.RecordCount = 0 Then
        '            stext = "INSERT INTO OPRJ VALUES ('" & oTextField.String & "' ,'" & oTextField.String & "','N','I',1)"
        '            oRecordSet.DoQuery (stext)
                    ' Update the record with the DI API
        '            stext = "UPDATE OCRD SET ProjectCod='" & oTextField.String & "' WHERE CardCode='" & oTextField.String & "'"
        '            oRecordSet.DoQuery (stext)
        '            SBO_Application.SetStatusBarMessage "Project Code upgraded", bmt_Short
        '        Else
        '            SBO_Application.SetStatusBarMessage "Code already exists", bmt_Short
        '        End If
        '    End If
        ' End If

Answer 1

Hi,
I think what happens is that you freeze the form, and then an unmanaged error happens in your code. This exits the procedure, and the form remains frozen.
Try to debug your code, add error management, and perhaps would be a good idea to remove the frm.Freeze(True) statement, in order to have more control on what happens in the form, untill you are sure it works.
Hope helps,
Ibai Peñ