Добрый день,

При сохранении документа поставки (VL01N) в badi необходимо получить тексты заголовка , функция READ_TEXT не подходит так как поставка еще не сохранена . Подскажите пожалуйста где их можно найти ?

Заранее благодарен .

Попробуйте вызвать READ_TEXT с именем 'XXXXXXXXXX' вместо номера поставки в TDNAME для заголовка. Для позиции к этому имени добавьте номер позиции.

попробовал , также ничего не находит

а временный номер поставки какой в BADI виден при создании ? В бух документах у меня получалось по временному номеру вытаскивать при создании

Добрый день.

Вот так вроде работает.
theader - ид текста
lines - собственно сам текст
тестил в поставке, в бади LE_SHP_TAB_CUST_HEAD

Должно работать.
Я пробовал. Но через мемори ид проще (это из я из READ_TEXT выдрал кусок). Можно вытянуть сразу все тексты которые были заполнены (см пример кода выше).

использую BADI : LE_SHP_DELIVERY_PROC Метод: SAVE_AND_PUBLISH_DOCUMENT
здесь уже вижу чистый (не временный) номер поставки (IT_XLIKP-VBELN)

с тем номером - который видите не получается ?

люди у меня не работает не тот ни другой способ может бади не тот ? таблица t_catalog не заполняется

method IF_EX_LE_SHP_DELIVERY_PROC~SAVE_AND_PUBLISH_DOCUMENT.

BREAK-POINT.

CONSTANTS MEMORY_CAT(8) VALUE 'SAPLSTXD'.

DATA:
theader TYPE THEAD
, lines TYPE STANDARD TABLE OF tline
, t_catalog TYPE STANDARD TABLE OF TCATALOG
, l_catalog LIKE LINE OF t_catalog
, MEMORY_TXT(30)
.

IMPORT CATALOG TO t_catalog FROM MEMORY ID MEMORY_CAT.

IF t_catalog IS NOT INITIAL.
LOOP AT t_catalog INTO l_catalog.
CLEAR MEMORY_TXT.
CONCATENATE MEMORY_CAT l_catalog-id INTO MEMORY_TXT.

IMPORT THEAD TO THEADER
TLINE TO LINES
FROM MEMORY ID MEMORY_TXT.
ENDLOOP.
ENDIF.





* DATA: WA_XLIKP TYPE LINE OF SHP_LIKP_T.
* DATA: L_DELNUMB TYPE VBELN_VL.
* DATA: L_NAME TYPE THEAD-TDNAME.
* DATA: LT_LINE1 TYPE TABLE OF TLINE. " OCCURS 0.
* DATA: G_TRANSPORT TYPE string.
*
*
* BREAK-POINT.
*
*
* LOOP AT IT_XLIKP INTO WA_XLIKP.
* "IF WA_XLIKP-LFART = 'LO'. "and SY-TCODE = 'VL01N'.
*
*
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = WA_XLIKP-VBELN
* IMPORTING
* OUTPUT = L_DELNUMB.
* L_NAME = L_DELNUMB.
* CALL FUNCTION 'READ_TEXT'
* EXPORTING
* CLIENT = SY-MANDT
* ID = '0002'
* LANGUAGE = 'E'
* NAME = 'XXXXXXXXXX' "L_NAME
* OBJECT = 'VBBK'
* TABLES
* LINES = LT_LINE1
* EXCEPTIONS
* ID = 1
* LANGUAGE = 2
* NAME = 3
* NOT_FOUND = 4
* OBJECT = 5
* REFERENCE_CHECK = 6
* WRONG_ACCESS_TO_ARCHIVE = 7
* OTHERS = 8.
* CLEAR G_TRANSPORT.
* IF SY-SUBRC = 0.
* READ TABLE LT_LINE1 INDEX 1 INTO G_TRANSPORT.
* IF G_TRANSPORT(1) = '*'.
* SHIFT G_TRANSPORT LEFT DELETING LEADING '*'.
* ENDIF.
* ENDIF.
*
*
*
* MESSAGE 'Sending SMS!' TYPE 'I' .
*
* "ENDIF.
*
*
* ENDLOOP.
endmethod.

нет все пусто при сохранении , а вот при изменении сохраненной поставки уже получаю тексты

Добрый день.

Действительно в методе SAVE_AND_PUBLISH_DOCUMENT не работает (в старом экзите MV50AFZ1 form USEREXIT_SAVE_DOCUMENT тоже не работает)

Пробуйте метод SAVE_DOCUMENT_PREPARE в том же бади.
Там работает.

зайди в VL01N и добавь текст в заголовок, поставь точку на READ_TEXT_INLINE или READ_TEXT,
перезайди в текст заголовка

Действительно все работает Спасибо огромное !

С этого и надо было начинать.
Перед вызовом этого метода происходит замена номера в памяти и сохранение текстов в in update task:

Поэтому ловить тексты нужно в подпрограмме USEREXIT_SAVE_PREPARE, как написал SDюк

Точно , спасибо большое за помощь !