Я имел в виду, что это не будет работать, т.к. есть ошибка - отсутствует ENCASE, или это примерные наброски кода? Можно поподробнее (и на счёт FI тоже).

Работать будет, так как это всего лишь __фрагмент__ кода, определяющий место вставки инклюда.

Извините многоуважаемый sy-uname - если знаете решение проблемы - опишите, если нет не пишите вообще, а так Ваш ответ не о чем...

sy-uname все правильно написал.
Алгоритм действия (надеюсь, последний раз):
1. Ищется место (фрагмент, контекст, как угодно) в стандартном коде.
2. Вставляется INCLUDE.
3. В инклюде пишется указанная обработка.

Так вот для описания МЕСТА совершенно необязательно указывать весь код, достаточно указать фрагмент.

Если и после такого объяснения непонятно - забудьте, это не для вас.

Решил все-таки не умничать, а пальцем ткнуть )

Контекст:

Customer modification of RPCIPP00:
FORM POST_DOCUMENT.
.......
IT_RWIN_ACCGL_AR[] = DOCUMENT_TAB-ACCGL_AR_TAB[].
*{ INSERT RU7K900123 1
INCLUDE Z_CIPP00 .
*} INSERT
CASE L_PPDHD-DOCTYP.
WHEN '1'.

Все, контекст кочился!
Т.е. надо вставить (путем модификации стандартной программы RPCIPP00) строчку:

INCLUDE Z_CIPP00.

после строчки

IT_RWIN_ACCGL_AR[] = DOCUMENT_TAB-ACCGL_AR_TAB[].

и перед строчкой:

CASE L_PPDHD-DOCTYP.

Далее идет содержание инклюда Z_CIPP00:

*INCLUDE Z_CIPP00 .
if not p_rev is initial.
loop at IT_RWIN_ACCGL .
IT_RWIN_ACCGL-ITEM_TEXT = 'storno'.
modify IT_RWIN_ACCGL.
endloop.
endif.
.......

Все.

*INCLUDE Z_CIPP00 .
if not p_rev is initial.
loop at IT_RWIN_ACCGL .
IT_RWIN_ACCGL-ITEM_TEXT = 'storno'.
modify IT_RWIN_ACCGL.
endloop.
endif.
.......

Это полное содержимое Инклуда или ...... подразумевает продолжение кода?

А кто-нибудь делал то, что обсуждали в этой ветке?

Я создал всё как написано, но при анализе документов никаких изменений не заметил...
Скажите, какой эффект ожидать? Где это "storno" должно прописаться?

Спасибо.

"storno" появится в тексте позиции документа.

Скажите, а что-нибудь надо делать с параметром "P_REV"?
Дело в том, что этот параметр проверяется в Z-инклюде: "if not p_rev is initial.", но в самой программе он объявляется как:
PARAMETERS P_REV(1) DEFAULT SPACE NO-DISPLAY.

То есть, по умолчанию он SPACE и Z-инклюд не срабатывает.

В программе RPCIPR00 Проводка в Учет и отчетность: сторнирование документов расчета есть код:

Я правильно понимаю, что это не будет срабатывать автоматически при возникновении перерасчетов?

Есть вариант реализации "красного" сторно, не требующий модификации стандартных инклудов. Необходимо в FI написать замещение. Предпосылка для него это абап-подпрограмма, которая анализирует код статус прогона(номер прогона берём из текста документа) и если его первый символ равен "6", то значит идёт сторнирование и предпосылка возвращает True. Далее, если предпосылка срабатывает, то пишем в признак сторнирования документа "X". Проверено - работает...

Да действительно можно и так если у вас и FI и HR на одном сервере и в одном манданте. А если в разных ? А часто HR установлен отдельно. Можно конечно и свою RFC функцию написать ...

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

А можно поподробнее: в каком месте( в какой программе, подпрограмме) нужно все это смотреть и делать?

Это делается на стороне и средствами FI - пусть этот пост прочитает консультант из FI - он должен понять.