Хитрый ФМ для BPS

HIman

Привет всем!

Встала задача повесить вплывающее окно с предупреждением о возможном исправлении данных. С двумя кнопками "да", "нет", "ещё подумаю". На кнпоку выполняющую преобразование данных на Fox.
Возможное решение было сделать на ФМ необходимое окошко, а ответ пользователя записать в BPS переменную. Которую в дальнейшем и учитывать при расчетах, т.е. считать дальше или нет.

Собственно вопорс как записать значение "1" и "2" в числовую переменную BPS, если сам ФМ будет вызывать непосредственно из последовательности планирования первым в очереди. Тем самым разрешая или предотвращая исполнения всех остальных преобразований на Fox.

EVK

Как вариант: попробуйте ФМ-ом своим писать нужное значение либо в табличину какую-нибудь, либо в память, либо export to database. А сама переменная - вид замены "программа пользователя", и читайте там в ФМе оттуда, куда записали...

HIman

Ок, в память не плохой выход, но вот ещё одим небольшой нюанс, как это окно с кнопками убрать после нажатия ДА/НЕТ.

Как убрать подэкран в экране?

EVK

Гм... Странный вопрос. Если экран модальный - он сам уберется.

А вообще зачем свой экран рисовать и показывать? Есть же ФМы стандартные с выводом вопросов типа "Спасти мир?: Да/Нет/Отмена" и т.п.

HIman

Вот тут как раз и затычка, это стандартное окно само не убирается.
Были испробованы:
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
CALL FUNCTION 'POPUP_TO_CONFIRM'
Ну и собственного приготовление модального окна с GUI статусом.
Во всех случаях окно не закрывается.
Комбинация:
SET SCREEN 0.
LEAVE SCREEN.
Выдает ошибку SET SCREEN недопустимо в подэкранах(экран SAPLUPB_PM_XL2002) и вываливается в SAP GUI.

HIman

Для наглядности сам ФМ

Code:

FUNCTION ZMES_BN.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"----------------------------------------------------------------------

  DATA: ans TYPE c.
  DATA:
  parameter TYPE spar,
  parameters TYPE TABLE OF spar.

  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      text_question  = 'Внимание! Данные будут изменены автоматически. Продолжить?'
    IMPORTING
      answer         = ans
    TABLES
      parameter      = parameters
    EXCEPTIONS
      text_not_found = 1
      OTHERS         = 2.

  if sy-subrc <> 0.
    message i000(000) with 'Ошибка в ФМ'.
    stop.
  endif.
  if ans ne '1'.
  set parameter id 'ans' field ans.
  endif.
  if ans eq '1'.
  set parameter id 'ans' field ans.
  endif.
ENDFUNCTION.

Может я его не верно пишу, или заканчиваю обработку.
Т

EVK

Сорри, затупил маленько :oops:

Экранчик по идее и не пропадет, пока не закончится LUW, в данном случае вся ваша цепочка. До этого управление вообще гую не передается.
Ну и пусть себе висит, это что, сильно напрягает?

HIman

В том то и дело пока никакой обработки нет.
ФМ повешен на кнопку и по нажатию окно появляется,
только вот из обработки его не выходит.
т.е. ФМ не завершается.

EVK

HIman написал(а):

В том то и дело пока никакой обработки нет.
ФМ повешен на кнопку и по нажатию окно появляется,
только вот из обработки его не выходит.
т.е. ФМ не завершается.

Скорее всего не так.
ФМ то завершается, и дальше идет выполняться вся ваша цепочка. А экранчик в это время висит. Поставьте брейкпоинт и проверьте.

HIman

В обработчике экрана стоит,

Code:

MODULE USER_COMMAND_0100 INPUT.
*              SET SCREEN 0.
              SET SCREEN sy-dynnr.
              LEAVE SCREEN.
ENDMODULE.                 " USER_COMMAND_0100  INPUT

Даже после отработки кода экран не закрывается.

Добавлено...
Этот код в случае если в вызываемом ФМ стоит не выше приведенный код а:

Code:

CALL SCREEN 0100 STARTING AT 10 10 ENDING AT 50 20.
IF sy-ucomm = 'SET'. ENDIF.

EVK

Он закроется, когда к гую вернется управление

В общем, сюда пофтыкайте:
http://help.sap.com/saphelp_nw04/helpda ... ontent.htm

Crimson

Только что попробовал этот код - все закрывается :shock:

HIman

В общем, помагает только LEAVE PROGRAM. С закрытием папки планирования.
Причем ладно бы на кнопку ок не отрабатывало, так оно не отрабатывает и на кнопку отмена и на закрыть окно и на выход из транзакции через контекстное меню в углу окошка.

EVK

Crimson написал(а):

Только что попробовал этот код - все закрывается :shock:

Вот шайтан :lol:

Это все потому, что вы запускали просто один ФМ. А у хаймена этот ФМ вызывается из последовательности, после него, как я подозреваю, еще куча формул на фоксе вовсю колбасятся. Вот поэтому у него и управление к SAPgui возвращается позже.

EVK

HIman написал(а):

В общем, помагает только LEAVE PROGRAM. С закрытием папки планирования.
Причем ладно бы на кнопку ок не отрабатывало, так оно не отрабатывает и на кнопку отмена и на закрыть окно и на выход из транзакции через контекстное меню в углу окошка.

Ну зайдите же в отладку наконец :-)

И рисуночек в моей ссылке посмотрите внимательно, и текст под ним:

The screen display is prepared in the PBO event. The flow logic calls the corresponding ABAP dialog modules. Then, the screen is displayed. When this happens, control passes from the application server to the SAPgui. The screen accepts user input until the user triggers the PAI event. The control then returns to the application server. The program processes user input by calling the corresponding ABAP dialog modules. After the PAI processing is complete, the PBO processing of the next screen starts. The PAI processing and the PBO processing of the next screen form a single dialog step on the application server. The current screen remains visible until the PBO of the next screen is complete, but is not ready for input.

Хитрый ФМ для BPS

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