Problem in showing Message After Save Command

Hello,

I am trying to create a warning message while plan data input via SAP BOA. First of all i have created a planning function for some conditions via RSPLAN . And in this FOX planning function, i used the statement " MESSAGE W00x.." for calling the message if the data is not applicable for some conditions.And it works ok on GUI interface.

Afterwards, i have created an input ready query via SAP BOA and used a button and a macro to call this planning sequence(PS_1)  lie below :

Sub SaveRun()

Dim lResult As long

lResult= Application.Run("SAPExecuteCommand", "Refresh","DS_1")

lResult = Application.Run("SAPExecutePlanningSequence", "PS_1")

Endsub.

And it shows the message perfectly on SAP BOA also. But the problem is, after this check, the applicable data must be saved automatically. So i add the this underlined row to the same macro to save plan data :

Sub SaveRun()

Dim lResult As long

lResult= Application.Run("SAPExecuteCommand", "Refresh","DS_1")

lResult = Application.Run("SAPExecutePlanningSequence", "PS_1")

lResult = Application.Run("SAPExecuteCommand", "PlanDataSave")

Endsub.

But this time, it doesn't show any message and passes to save plan data. I mean, it executes the planning sequence but it skips showing message and passes to plan data saving.

Any idea or is there any other macro statement for that?

PS: My Analysis add-in has the latest patch for SAP BOA 2.3 .

Thanks in advance,

Fatih