Error while validating business partner

Question

I needed to make some fields mandatory in business partner.I coded as,
Dim objForm As SAPbouiCOM.Form
objForm = SBO_Application.Forms.GetFormByTypeAndCount(134, 1)
If objForm.Visible = True Then
                btnSave = objForm.Items.Item("1").Specific
                If btnSave.Caption = "Update" Or btnSave.Caption = "Add" Then
                                  txtEmail = objForm.Items.Item("60").Specific
                    If txtEmail.Value = "" Then
                        strMessage = "Please enter Email"
                    Else
                        intIndex = txtEmail.Value.IndexOf("@")
                        If intIndex = -1 Then
                            strMessage = "Please enter valid Email address"
                        Else
                            intIndex = txtEmail.Value.IndexOf(".")
                            If intIndex = -1 Then
                                strMessage = "Please enter valid Email address"
                            End If
                        End If
                    End If
                End If
If strMessage.Length > 0 Then
                        SBO_Application.MessageBox(strMessage)
                    End If
End If
The email fields is geeting validated correctly.The screen gets locked after certain time.After re-login this fields creates problem.Sometimes it fires even though email is entered.I can not track at what instance this problem occurs.

Answer 1

Dilip,
for this you may easy use transaction notification withour coding. Add to your procedure code
if @object_type = '2'
     begin
          if 0 = (select count(cardcocde) from ocrd where cardcode = @list_of_cols_val_tab_del  and coalesce(E_mail,'') <> '' and charindex('@', E_mail) > 0 and charindex('.', E_mail) > 0 )
               begin
                    select @error =1
                    select @error_message = N'Bad email.'
               end
     end