Service Call Validation

[Former Member]

Hi,

  I had created a validation in service call for blocking updation of service call, if  the user is not 'manager'.It's working fine.But I cant see the status bar text.It's just flashing and disappear. Where is the correction needed.Please help.

Private Sub SBO_Application_FormDataEvent(ByRef BusinessObjectInfo As SAPbouiCOM.BusinessObjectInfo, ByRef BubbleEvent As Boolean) Handles SBO_Application.FormDataEvent

        Dim Oform As SAPbouiCOM.Form

        If SBO_Application.Company.UserName = "manager" Then

            Oform = SBO_Application.Forms.Item(BusinessObjectInfo.FormUID)

            If BusinessObjectInfo.FormTypeEx = "60110" And Oform.Mode = BoFormMode.fm_UPDATE_MODE Then

                If BusinessObjectInfo.BeforeAction = True Then

                    BubbleEvent = False '

                    SBO_Application.SetStatusBarMessage("Cant update the ServiceCall",BoMessageTime.bmt_Long,True)

                End If

            End If

        End If

    End Sub

[edy_simon · Accepted solution]

Hi Rahesh,

No corrections.

You can only see your message in the message list.

Reason is, immediately after your message, SAP System sent out another message that hide your message.

Regards
Edy

[Former Member · Accepted solution]

Hi Edy,

        But can't see any message in status bar.What is message list?.How can i display my status bar text at top of other message.Please explain.

[Former Member]

Hi Edy,

       I had changed my validation from SBO_Application_FormDataEvent  to SBO_Application_ItemEvent.

Now its working Fine.Thanks for your support.

[pvsbprasad]

try this

  Dim Oform As SAPbouiCOM.Form

        If SBO_Application.Company.UserName = "manager" Then

            Oform = SBO_Application.Forms.Item(BusinessObjectInfo.FormUID)

            If BusinessObjectInfo.FormTypeEx = "60110" And Oform.Mode = BoFormMode.fm_UPDATE_MODE Then

                If BusinessObjectInfo.BeforeAction = True Then

                    BubbleEvent = False '

                    SBO_Application.SetStatusBarMessage("Cant update the ServiceCall",BoMessageTime.bmt_Long,True)

EXIT sub

                End If

            End If

        End If

    End Sub

Regards,

prasad

[Former Member]

hi.

Can u try this one

        oApplication.StatusBar.SetText("Connecting Contract Order with The Company.......", SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Success)

or

                    oApplication.StatusBar.SetText("Cant update the ServiceCall",, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)