Новый подэкран в транзакциях mm01/mm02/mm03

NastyaL

Добрый день!
Может кто сталкивался с подобной проблемой...
Создаю новый подэкран для вкладки ОбщДаннЗавода/Складирование 1. На этот экран помещаю экранную таблицу. В нее вводятся данные из Z* таблицы. При нажатии кнопок перемещения вверх/вниз происходит выход из обработки ( как будто срабатывает команда "Назад" ). Что можно сделать, чтобы при перемещении по таблице оставаться на этом же экране?

LinevskiySV

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

...На этот экран помещаю экранную таблицу...

Выложите для начала PBO/PAI логику экрана и желательно сами модули.

NastyaL

Кроме таблицы у меня на экране еще 2 кнопки - удалить и добавить данные в таблицу. При нажатии кнопок вверх/вниз sy-ucomm равен коду предыдущей операции

Code:

PROCESS BEFORE OUTPUT.
  MODULE zstorage_change_tc_attr.
  LOOP AT   gt_storage
       WITH CONTROL zstorage
       CURSOR zstorage-current_line.
    MODULE zstorage_change_field_attr.
  ENDLOOP.

PROCESS AFTER INPUT.
MODULE store_ucomm.
  LOOP AT gt_storage.
    CHAIN.
      FIELD gt_storage-lgpbe.
      FIELD gt_storage-labst.
      MODULE zstorage_modify ON CHAIN-REQUEST.
    ENDCHAIN.
    FIELD gt_storage-ch
      MODULE zstorage_mark ON REQUEST.
  ENDLOOP.

  MODULE process_button.
  MODULE clear_ucomm.

Code:

MODULE zstorage_change_tc_attr OUTPUT.
    SELECT * FROM zpp_tb_storage INTO CORRESPONDING FIELDS OF TABLE gt_storage
                                        WHERE matnr = rmmg1-matnr AND
                                              werks = rmmg1-werks AND
                                              lgort = rmmg1-lgort.
  DESCRIBE TABLE gt_storage LINES zstorage-lines.
ENDMODULE.   
MODULE store_ucomm INPUT.
  lv_ucomm = sy-ucomm.
ENDMODULE.                   

MODULE clear_ucomm INPUT.
  CLEAR lv_ucomm.
ENDMODULE.                  

MODULE process_button INPUT.
  CASE  lv_ucomm.
    WHEN 'ZST_INS'.
      PERFORM storage_add.
    WHEN 'ZST_DEL'.
      PERFORM storage_del.
    WHEN OTHERS.
  ENDCASE.
ENDMODULE.                 

FORM storage_add.
  CLEAR st_storage.
  APPEND st_storage TO  gt_storage.
  zstorage-lines = zstorage-lines + 1.
ENDFORM.    

mzernov

Не очень я уже помню детали, но делал я это так:
1) Добавляем такие инклюды в топ соей программы, в которой сделан сабскрин:

Code:

INCLUDE MMMGTRBB.
INCLUDE MMMGBBAU.

2) В PBO своего сабскрина первым делом вызываем такую последовательность:

Code:

  MODULE INIT_SUB.
  MODULE GET_DATEN_SUB.
  MODULE FELDAUSWAHL.
  MODULE SONDERFAUS.
  MODULE SONFAUSW_IN_FGRUPPEN.
  MODULE FELDHISTORIE.                         "Aenderungsdienst
  MODULE BILDSTATUS.
  MODULE REFDATEN_VORSCHLAGEN.
  MODULE SET_DATEN_SUB.

3) в PAI своего сабскрина (после обработки всех своих команд) вызываем так:

Code:

      CALL FUNCTION 'MAIN_PARAMETER_SET_ZUS_SUB'
        EXPORTING
          WRMMG2            = RMMG2
          WRMMZU            = RMMZU
          RMMG1_SPRAS       = RMMG1-SPRAS
          BILDFLAG          = 'X'
          WRMMW3            = RMMW3
          WRMMW1_BEZ        = RMMW1_BEZ
          WRMMG1            = RMMG1
          .

Это отменяет обработку в основной программе, что не вызовет выхода из обработки сабскрина.
Что там в этих структурах - не могу сказать - забыл.

NastyaL

Спасибо огромное!!!
Правда осталась еще одна проблема... При нажатии кнопок вверх/вниз sy-ucomm так и остается равным коду предыдущей операции. Т.е. если я строку в таблицу добавляю, то при нажатии вниз добавляется еще одна строка.

LinevskiySV

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

При нажатии кнопок вверх/вниз sy-ucomm так и остается равным коду предыдущей операции. Т.е. если я строку в таблицу добавляю, то при нажатии вниз добавляется еще одна строка.

Лучше всего при работе с собственными экранами для хранения кода операции использовать в Списке атрибутов запись с типом элемента ОК. Внесите имя вашей переменной lv_ucomm, которое вы используйте, в пустое поле имени. И тогда sy-ucomm в программе использовать не надо и соответственно чистить его.

Этот модуль будет лишним:

Code:

MODULE store_ucomm INPUT.
  lv_ucomm = sy-ucomm.
ENDMODULE.                   

 

NastyaL

Спасибо большое! Вы мне очень помогли

Правила форума

Новый подэкран в транзакциях mm01/mm02/mm03

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