Вызов транзакции (проги) со своей и последующий забор данных

[Паганель]

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

по аналогии с ASSIGN ('(SAPMM07M)xmseg[]') TO <fs_mseg>.

для RM07MLBD_FORM_02
G_T_BELEGE1

не подскажете возможно ли это, и как это сделать?

[Паганель]

Откуда начать копать? Это типа продолжение темы http://sapforum.biz/index.php/topic,543.new.html

[Uukrul]

В общем случае задача не имеет решения, так как вызов ASSIGN ('(SAPMM07M)xmseg[]') TO <fs_mseg> работает в контексте транзакции из экзита и к этому моменту данные есть в памяти. В твоем же случае ситуация такая что программа уже отработала и локальных и прочих данных уже нет. Для MB51 например при правильном вызове эта транзакция сохраняет данные через IMPORT TO MEMORY поэтому ее результат можно считать. Можно ли для MB5B такое же... ну при беглом просмотре кода, ничего похожего не найдено.

[Паганель]

Жаль конечно  :(
Тогда переходим к обсуждению темы про подлом стандартных транзакций ....тока где-то нету ее

[Паганель]

Жаль конечно  :(
Тогда переходим к обсуждению темы про подлом стандартных транзакций ....тока где-то нету ее

А ее перенесли сюда, ну что же тогда тут и продолжаем

[Uukrul]

Жаль конечно  :(
Тогда переходим к обсуждению темы про подлом стандартных транзакций ....тока где-то нету ее

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

[Паганель]

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

Это то же решение, правда один недостаток: если будут обновления (изменения логики выбора, исправления ошибок), и они затронут mb5b, твою прогу они не затронут.

[Dmitriy]

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

[Dmitriy]

Это то же решение, правда один недостаток: если будут обновления (изменения логики выбора, исправления ошибок), и они затронут mb5b, твою прогу они не затронут.

Поэтому нужно разбираться в mb5b.

[Паганель]

Поэтому нужно разбираться в mb5b.

Не понял ..... что ты имел ввиду?

[Dmitriy]

Тебе же в своем отчете нужны данные mb5b? Вот если разобраться в коде и написать в своем отчете его, то и получишь нужные тебе результаты. Можно готовое вставлять, можно п/п использовать, даже не копируя. Варианты, в общем, есть!

[Uukrul]

Это то же решение, правда один недостаток: если будут обновления (изменения логики выбора, исправления ошибок), и они затронут mb5b, твою прогу они не затронут.

Если ты сломаешь любую стандартную транзакцию, то обновления ей уже не грозят...

[Паганель]

Если ты сломаешь любую стандартную транзакцию, то обновления ей уже не грозят...

Я имел ввиду расширение, т.е. UserExit или что-то подобное ....

[Dmitriy]

Я имел ввиду расширение, т.е. UserExit или что-то подобное ....

Для подобного вида транзакций это можно сделать только через неявную точку расширения, где воткнуть EXPORT, а потом в своем отчете IMPORT.

[Uukrul]

Ну где-то так как написал тут: http://sapforum.biz/index.php/topic,546.0.html

[Паганель]

Для MB51 например при правильном вызове эта транзакция сохраняет данные через IMPORT TO MEMORY поэтому ее результат можно считать. Можно ли для MB5B такое же... ну при беглом просмотре кода, ничего похожего не найдено.

То есть речь идет об SUBMIT *** AND RETURN EXPORTING LIST TO MEMORY?

ну при беглом просмотре кода, ничего похожего не найдено.

А по каким критериям определяется можно ли использовать EXPORTING LIST TO MEMORY ?

Кстати вот нашел (для другой транз. правда) http://www.sapnet.ru/viewtopic.php?t=1893&highlight=syucomm+list

[Uukrul]

Ну так экспорт через память можно только тогда, когда формирование отчета выполняется через операторы WRITE, т.е. абап списком. Если, же отчет ALV, то и экспортировать нечего. В твоем случае MB5B таки можно экспортировать в память.

[Паганель]

Ураааааааааа .........  :)

[Паганель]

Следующий вопрос: может кто знает как потом значения вытянуть после того как експортировали в память?
Нашел только ф-ию LIST_FROM_MEMORY но .....

Делаю так:

Код Виділити Розширити


FORM call_mb5b
      USING
             zwerks LIKE  z_mkpf_mseg-werks
             zmatnr LIKE mara-matnr
             bdate_rest TYPE sy-datum.
           "  edate_rest TYPE sy-datum.
*      CHANGING
*        brest_menge TYPE z_mkpf_mseg-menge " остаток на начало
*        brest_dmbtr TYPE z_mkpf_mseg-dmbtr
*        erest_menge TYPE z_mkpf_mseg-menge " остаток на конец
*        erest_dmbtr TYPE z_mkpf_mseg-dmbtr.

  SUBMIT RM07MLBD
  WITH MATNR = zmatnr
  WITH WERKS = zwerks
  WITH BUDAT = bdate_rest
  EXPORTING LIST TO MEMORY AND RETURN.

  DATA: ABAPLIST LIKE ABAPLIST OCCURS 0.
  CALL FUNCTION 'LIST_FROM_MEMORY'
  TABLES
    LISTOBJECT = ABAPLIST
  EXCEPTIONS
    NOT_FOUND = 1
    OTHERS = 2.

*if sy-batch = space.
  CALL FUNCTION 'DISPLAY_LIST'
  EXPORTING
    FULLSCREEN = 'X'
  IMPORTING
    USER_COMMAND = SY-UCOMM
  TABLES
    LISTOBJECT = ABAPLIST
  EXCEPTIONS
    EMPTY_LIST = 1
    OTHERS = 2.
ENDFORM.


[Uukrul]

Нашел только ф-ию LIST_FROM_MEMORY но .....

Что но?

[Паганель]

Что-что  :), таким образом как в примере выше, я могу просто вывести ALV List такой же как и в mb5b

[Uukrul]

А дальше типа так, получаешь вменяемый текст и из него пытаешься выцепить нужные тебе данные...

Код Виділити Розширити


DATA: BEGIN OF lt_list OCCURS 1,
  str(1000) TYPE c,
END OF lt_list.

CALL FUNCTION 'LIST_TO_ASCI'
* EXPORTING
*   LIST_INDEX               = -1
*   WITH_LINE_BREAK          = ' '
* IMPORTING
*   LIST_STRING_ASCII        =
*   LIST_DYN_ASCII           =
TABLES
   listasci                 = lt_list
   listobject               = abaplist
EXCEPTIONS
   empty_list               = 1
   list_index_invalid       = 2
   OTHERS                   = 3.


[Uukrul]

Парсинг строк отчета думаю сам напишешь? Если задавать как у тебя завод, материал... то там вообще будет все просто, с вытаскиванием запаса.

[Паганель]

Парсинг строк отчета думаю сам напишешь? Если задавать как у тебя завод, материал... то там вообще будет все просто, с вытаскиванием запаса.

Сложновато будет, нет какого-то у тебя примерчика, да и не понятно как к строке достучатся, там как я понял какая то табличка непонятной структуры

[Uukrul]

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

Код Виділити Розширити


DATA: l_start LIKE mseg-menge,
      l_plus LIKE mseg-menge,
      l_minus  LIKE mseg-menge,
      l_end LIKE mseg-menge,
      l_index LIKE sy-tabix.
LOOP AT lt_list.
  IF lt_list-str(8) = 'Запас на'.
    l_start = lt_list-str+20(25).

    l_index = sy-tabix + 1.
    READ TABLE lt_list INDEX l_index.
    l_plus = lt_list-str+20(25).

    l_index = sy-tabix + 1.
    READ TABLE lt_list INDEX l_index.
    l_minus = lt_list-str+20(25).

    l_index = sy-tabix + 1.
    READ TABLE lt_list INDEX l_index.
    l_end = lt_list-str+20(25).

    EXIT.
  ENDIF.
ENDLOOP.

WRITE: / l_start,
       / l_plus,
       / l_minus,
       / l_end.