Узнать откуда был вызван SubDynpro

Konstantin Anikeev

Подскажите, как можно узнать, откуда (Dynpro, Report и т.д.) был вызван текущий subdynpro. И можно ли это сделать?
Нужно найти "цепочку вызовов до самого верха".

VitalkaFS

Можно поставить брейк-поинт в логике обработке субэкрана. При вызове новго отладчика на закладке "стандарт" есть последователность вызова программ. Там можно все глянуть.

sy-uname

Konstantin Anikeev написал:

Подскажите, как можно узнать, откуда (Dynpro, Report и т.д.) был вызван текущий subdynpro. И можно ли это сделать?
Нужно найти "цепочку вызовов до самого верха".

Через поиск можно найти неоднократное упоминание ФМ, возвращающего стек вызовов.
Вот только непонятно - что имеется ввиду под subdynpro? Если это подэкран и хочется полуить текущую вложенность подэкранов, то это, боюсь, невозможно.

Konstantin Anikeev

Дело в том, что одни "молодцы" из очень крупной и уважаемой конторы. Сделали концепт клиентских полей так, что невозможно определить из какого экрана "тебя вызывают". Т.е. один и тот же подэкран показывается в основных данных позиции и в данных контировки (не знаю как по-русски, там где кост, контракт и прочие данные задаются).
А некоторые поля должны показываться только на одном экране, ну и соответственно не показываться на другом...

К сожалению концепт изменить не могу, вот и приходится вертеться как уж на сковородке...

Сергей Королев

Konstantin Anikeev написал:

Т.е. один и тот же подэкран показывается в основных данных позиции и в данных контировки (не знаю как по-русски, там где кост, контракт и прочие данные задаются).

Стек экранов, боюсь, никак не получить. Но ведь скорее всего эти подэкраны показываются на каких-нибудь закладках? Может быть через динамический assign к TABSTRIP'у обратиться?

Konstantin Anikeev

Сергей Королев написал:

Konstantin Anikeev написал:

Т.е. один и тот же подэкран показывается в основных данных позиции и в данных контировки (не знаю как по-русски, там где кост, контракт и прочие данные задаются).

Стек экранов, боюсь, никак не получить. Но ведь скорее всего эти подэкраны показываются на каких-нибудь закладках? Может быть через динамический assign к TABSTRIP'у обратиться?

Не-а... не тот модуль... Дикая вложенность экранов - ступеней на 6...
Придется делать модификацию...

Konstantin Anikeev

Вопрос вдогонку...

Можно ли при вызове формы из функции

Code:

PERFORM (lv_formdynfieldcond) IN PROGRAM (lv_dynprog) IF FOUND.

получить внутри этой формы ловальные переменные этой функции?

Сергей Королев

Konstantin Anikeev написал:

получить внутри этой формы ловальные переменные этой функции?

локальные нельзя

Sergo

Сергей Королев написал:

локальные нельзя

А что, волшебный assign уже отменили? Он на глобальные только?

Сергей Королев

Sergo написал:

А что, волшебный assign уже отменили? Он на глобальные только?

Дык попробуйте

Sergo

Сергей Королев написал:

Дык попробуйте

Дык лень. Хотел по быстрому

Сергей Королев

Sergo написал:

Дык лень. Хотел по быстрому

А-а, тогда канешна. В общем, тока глобальные можно через assign, т.е. те, которые глобально описаны в программе (или группе функций). Для локальных переменных такое не получится.

SPikARD

выдержка из saphelp'а

Цитата:

If the name of the field to be assigned is in the form (program_name)feld_name, the system searches for the field field_name in the global fields of program_name.

Konstantin Anikeev

Жаль... Однако на "утреннем посту" пришла в голову другая мысль... Благо модуль SRM - т.е. с Web-оболочкой... Сделаем все через JavaScript

John Doe

И еще одна "дурная" идея - попробовать использовать DYNP_VALUES_READ для определения вызывающего экрана/подэкрана. Что-нибудь типа этого:

Code:

DATA: g_dynnr TYPE sy-dynnr.
CONSTANTS: cs_dynnr100 TYPE sy-dynnr VALUE '0100',
           cs_dynnr200 TYPE sy-dynnr VALUE '0200'.

START-OF-SELECTION.
  g_dynnr = cs_dynnr100.
  CALL SCREEN cs_dynnr100.

*&---------------------------------------------------------------------*
*&      Module  SET_STATUS  OUTPUT
*&---------------------------------------------------------------------*
*       PBO модуль экранов 100 и 200
*       В логике экранов стоит вызов подэкрана 050
*----------------------------------------------------------------------*
MODULE set_status OUTPUT.
  SET PF-STATUS 'MAIN'.
ENDMODULE.                 " SET_STATUS  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  LEAVE_PROGRAM  INPUT
*&---------------------------------------------------------------------*
*       PAI модуль экранов 100 и 200
*----------------------------------------------------------------------*
MODULE user_command INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE PROGRAM.
    WHEN 'CHANGE'.
      IF g_dynnr EQ cs_dynnr100.
        LEAVE TO SCREEN cs_dynnr200.
      ELSE.
        LEAVE TO SCREEN cs_dynnr100.
      ENDIF.
  ENDCASE.
ENDMODULE.                 " LEAVE_PROGRAM  INPUT

*&---------------------------------------------------------------------*
*&      Module  READ_CALLED_DYNNR  OUTPUT
*&---------------------------------------------------------------------*
*       PBO модуль подэкрана 050
*----------------------------------------------------------------------*
MODULE read_called_dynnr OUTPUT.
  DATA: t_dynpfields TYPE TABLE OF dynpread.
  DATA: v_dyname TYPE progname.

  v_dyname = sy-cprog.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = v_dyname
      dynumb               = cs_dynnr100
    TABLES
      dynpfields           = t_dynpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield  = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription  = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
  IF sy-subrc <> 0.
    g_dynnr = cs_dynnr200.
  ELSE.
    g_dynnr = cs_dynnr100.
  ENDIF.

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

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

Узнать откуда был вызван SubDynpro

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