SUBMIT в новой сессии и возврат

r00xus

здравствуйте уважаемые коллеги.
из программы требуется запустить стандартный отчет заполнив поля его экрана выбора в новой сессии. ничего лучше не придумал как завернуть запуск в собственный фм вида:

Code:

CALL FUNCTION 'ZSUBMIT' STARTING NEW TASK 'NEW'
DESTINATION 'NONE'
      EXPORTING
        iv_repid  = lv_repid
      TABLES
        it_selopt = lt_selopt.

отчет запускается в новой сессии пропуская экран выбора как и ожидалось. но после того как пользователь нажимает кнопку возврата на его экран выбора, он как и полагается на него возвращается. как сделать так чтобы при таком действии пользователя сессия закрывалась. ну как при CALL TRANSACTION AND SKIP FIRS SCREEN. и вообще возможно ли это? :shock:

ArmAnn

submit выполняете с дополнением and return? Покажите код

nicky555

Прикольная задачка

Не спрашиваю, для чего это нужно

Шаги такие:
1) В вызываемом отчете делаем так:

Code:

DATA: x_first TYPE c.

INITIALIZATION.
  GET PARAMETER ID 'TMP' FIELD x_first.
  IF x_first = 'X'.
    SET PARAMETER ID 'TMP' FIELD space.
    LEAVE PROGRAM.
  ELSE.
    SET PARAMETER ID 'TMP' FIELD 'X'.
  ENDIF.

2) В RFC-модуле делаем так:

Code:

submit <report>
  VIA SELECTION-SCREEN AND RETURN.

  CALL FUNCTION 'SAPGUI_SET_FUNCTIONCODE'
   EXPORTING
     FUNCTIONCODE                 = '=I'
   EXCEPTIONS
     FUNCTION_NOT_SUPPORTED       = 1
     OTHERS                       = 2.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

3) Ну, и в вызывающей программе так:

Code:

CALL FUNCTION 'Z_SUBMIT' STARTING NEW TASK 'SUB' destination 'NONE'.

Детали с передачей параметров опустил

Режим закрывает

r00xus

Да конечно RETURN там есть. Вот код

Code:

SUBMIT (iv_repid) WITH SELECTION-TABLE it_selopt AND RETURN.

Запускаю отчет RFTS6500 там AVL-list после селекционного экрана. Видимо отчет построен так что при нажатии на кнопку "Выход" программа закрывается совсем, а когда "Назад" или "Отмена", то происходит возврат на экран выбора.
Есть ли какой-то вариант сделать так чтобы всегда был выход из программы? По идее тогда и сессия тоже должна закрыться...

ArmAnn

r00xus написал:

Да конечно RETURN там есть. Вот код

Code:

SUBMIT (iv_repid) WITH SELECTION-TABLE it_selopt AND RETURN.

Запускаю отчет RFTS6500 там AVL-list после селекционного экрана. Видимо отчет построен так что при нажатии на кнопку "Выход" программа закрывается совсем, а когда "Назад" или "Отмена", то происходит возврат на экран выбора.
Есть ли какой-то вариант сделать так чтобы всегда был выход из программы? По идее тогда и сессия тоже должна закрыться...

Тут вероятно придется расширять RFTS6500, чтоб слегка доработать - селекционный экран там явно вызывается (perform submit_ff65_via)
Самое простое - неявное расширение в подпрограмме submit_ff65_via, где вместо submit'a будет leave program (например по флагу в памяти)

Code:

    if g_exit_caused_by_caller = xtrue.
*     forced Exit by calling program
      leave.
    else.
*     User left list via F3, F12 or F15
      if gs_exit_caused_by_user-back   = xtrue              "F3
      or gs_exit_caused_by_user-cancel = xtrue.             "F12
        if sy-tcode = 'FF70'
        or sy-tcode = 'FF71'           "see RFTS7099
        or sy-tcode = 'FF72'.
*         called via cash management/cash forecast
          leave.
        else.
          perform submit_ff65_via.     "-> show selection screen
        endif.
      else.
        if gs_exit_caused_by_user-exit = xtrue.             "F15
          leave.
        else.
*         should not occur!
          leave.
        endif.
      endif.
    endif.

r00xus

Если пользователей не утроит жать желтенький "Выход" для выхода, то видимо придется расширять RFTS6500... Спасибо.

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

SUBMIT в новой сессии и возврат

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