Запуск функции планирования при сохранении

VoiD

В наследство досталась форма планирования с 4 признаками и двумя показателями: сумма в валюте (готов к вводу) и сумма в рублях (ввод запрещё, нерелевантно для блокирования).

При вводе строки заполняется первый показатель, второй вычисляется на основании первого и текущего курса валют. Функцию планирования я нашёл для нужного мне уровня агрегации, но вот когда она запускается - я не пойму.

Дело вот в чём: сохранение повешено на нарисованную кнопку, повешено через макрос.
Содержание макроса:

Code:

Public Sub CMD_SAVE_AREA()
'Сохранить
Dim BexParam As Object
Dim BexConn As Object
Set BexConn = Application.Run("BExAnalyzer.xla!GetBEx")
Set BexParam = CreateObject("com.sap.bi.et.analyzer.api.BExParameter")
BexParam.Add "WORKBOOK_NAME", BexConn.Name
BexParam.Add "CMD", "SAVE_AREA"

Call BexConn.Process(BexParam)
Call BexConn.FrontendUpdate
Call BexConn.Render

End Sub

Лично я в этом куске кода вызова функции не вижу. Но при нажатии "Сохранить" выходит сообщение, что функция запущено и успешно отработала.

Вставить обычную кнопку, выбрать провайдер данных и тип "сохранить данные планирования", добавив позже в Static Parameters нужную функцию планирования я могу без проблем. Также я могу в код выше прописать вызов нужной функции планирования, но как это сделано сейчас, почему запускается функция?

Исследовал все доступные макросы рабочей книги, они все простые, вызовов функций там не наблюдается.

P.S.: Честно говоря, я не уверен, что запуск осуществляется через макрос. На форме висит Rounded Triangle, а как дальше осуществляется весь механизм - я не знаю. При сохранении выскакивает окошко с информацией. Если создать просто кнопку сохранения - его нет.

Может кто сталкивался?

G

Проверьте вот этот вариант с программой RSPLS_PLSEQ_MAINTAIN

VoiD

Запустил, получил экран:

Выбрал свой инфо-куб реального времени, запустил, получил 2 строчки

Списка прикрепленных к нему последовательностей планирования я не нашёл.
Я даже для своего инфо-куба просмотрел практически все последовательности (уже не первый раз), там встречаются 2 последовательности с маркировкой test в имени, но они завязаны на фильтр с жёстко указанным 2011 годом.

Нашёл вот ещё такую статью, но - 7.30.

По-прежнему в поиске.

Кнопки у меня выглядят так:

Как и что к этим чудо-кнопка привязано - понять не могу. Но работают.

Что-то запускают, как-то сохраняют.

Как происходит привязка к той же "Изменить переменные" - также неясно.

G

Информацию можно увидеть в RSPLAN в свойствах инфопровайдера. До 7.30 это будет WEB, начиная с 7.30 -- GUI (это я по Вашей ссылке прочёл).

А вид кнопок в design mode BEx'а меняется? Если нет, перейдите в режим конструктора (нужно в соотвествующей панельке Excel "утопить" кнопку), тогда двойное нажатие должно показать событие, привязанное к кнопке.
Также можно щёлкнуть правой кнопкой на ярлычке листа внизу и в меню выбрать "Исходный текст"

VoiD

G написал:

Информацию можно увидеть в RSPLAN в свойствах инфопровайдера. До 7.30 это будет WEB, начиная с 7.30 -- GUI (это я по Вашей ссылке прочёл).

Информацию можно, только вот последовательность планирования для сохранения там не видна, как в 7.30.

G написал:

А вид кнопок в design mode BEx'а меняется? Если нет, перейдите в режим конструктора (нужно в соотвествующей панельке Excel "утопить" кнопку), тогда двойное нажатие должно показать событие, привязанное к кнопке.

Это если кнопка стандартная. Про это я уже говорил, кнопку создать, привязать любую функцию проблем не составляет. Но тут в роли кнопок выступает нарисованная средствами MS фигура Rounded Triangle, к которой, судя по контекстному меню, ничего не привязно. Я уже всю ленту меню исследовал в 2010 Excel - бесполежно.
По этим нарисованным кнопкам как не тыкай - срабатывает нажатие одиночное и - сохранение (или вызов переменных).

Кстати, если вывести кнопку средствами "Надстроек" - кнопка отображается обычным образом, это не стилями кнопка изменена, я думаю.

[quote="G"]Также можно щёлкнуть правой кнопкой на ярлычке листа внизу и в меню выбрать "Исходный текст"

Code:

Public Sub BUTTON_9_Click()
  Dim BEx1 As Object
  Set BEx1 = Application.Run("BExAnalyzer.xla!GetBEx")
  Call BEx1.RaiseButtonClick(Parent.Name, "BUTTON_9")
End Sub

Public Sub BUTTON_6_Click()
  Dim BEx1 As Object
  Set BEx1 = Application.Run("BExAnalyzer.xla!GetBEx")
  Call BEx1.RaiseButtonClick(Parent.Name, "BUTTON_6")
End Sub

Public Sub BUTTON_5_Click()
  Dim BEx1 As Object
  Set BEx1 = Application.Run("BExAnalyzer.xla!GetBEx")
  Call BEx1.RaiseButtonClick(Parent.Name, "BUTTON_5")
End Sub

Public Sub BUTTON_4_Click()
  Dim BEx1 As Object
  Set BEx1 = Application.Run("BExAnalyzer.xla!GetBEx")
  Call BEx1.RaiseButtonClick(Parent.Name, "BUTTON_4")
End Sub

Sub filterA_click()
      If (ActiveSheet.ProtectContents = True) Then
            MsgBox "Protected Worksheet: This Option is not availabe"
      Else
           DefaultWorkbook.SetFilterInvisible
           DefaultWorkbook.AdjustCells
           DefaultWorkbook.AdjustButtons
      End If
End Sub
Sub filter_click()
      If (ActiveSheet.ProtectContents = True) Then
            MsgBox "Protected Worksheet: This Option is not availabe"
      Else
           DefaultWorkbook.SetFilterVisible
           DefaultWorkbook.AdjustCells
           DefaultWorkbook.AdjustButtons
      End If
End Sub


Sub Info_click()
      If (ActiveSheet.ProtectContents = True) Then
            MsgBox "Protected Worksheet: This Option is not availabe"
      Else
        DefaultWorkbook.SetInfoVisible
        DefaultWorkbook.AdjustCells
        DefaultWorkbook.AdjustButtons
      End If
End Sub
Sub InfoA_click()
      If (ActiveSheet.ProtectContents = True) Then
            MsgBox "Protected Worksheet: This Option is not availabe"
      Else

             DefaultWorkbook.SetInfoInvisible
             DefaultWorkbook.AdjustCells
             DefaultWorkbook.AdjustButtons
      End If
End Sub
Sub Graph_click()
If ActiveSheet.Name <> "Table" Then
   MsgBox "Not possible with Sheet Drill"
Else
   If ActiveWorkbook.ProtectStructure = True Then
      MsgBox "Protected Workbook: This Option is not available"
   Else
      If (ActiveSheet.ProtectContents = True) Then
            MsgBox "Protected Worksheet: This Option is not availabe"
      Else
            DefaultWorkbook.SetTableInVisible
            DefaultWorkbook.adjustSheets
      End If
    End If
End If
End Sub

Совершенно обычный код, имхо.

G

"Кнопки" в группе? Если да, то попробуйте разгруппировать

VoiD

G написал:

"Кнопки" в группе? Если да, то попробуйте разгруппировать

Нет, не в группе, работают же раздельно и раздельно же перетаскиваются.
Да и кнопками их называть язык не поворачивается.

Картинки с событиями.

G

Сдаюсь.
Найдёте исходники событий, срабатывающих по нажатию этих кнопок -- будем думать дальше.

VoiD

G написал:

Сдаюсь.
Найдёте исходники событий, срабатывающих по нажатию этих кнопок -- будем думать дальше.

В любом случае - спасибо.

Исходники найду - там уже несложно.

Запуск функции планирования при сохранении

Кто сейчас на конференции