Анатолий написал(а):
Спасибо! А текста замещения случайно нет ни у кого?

Можно использовать User-exit EXIT_SAPLAISA_001
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(I_ANLA) LIKE ANLA STRUCTURE ANLA
*" EXPORTING
*" VALUE(E_INVNR) LIKE ANLA-INVNR
*"----------------------------------------------------------------------
DATA Count_INVNR type I.
DATA assert_ID type I.
* проверим обновление или вставка новой записи
SELECT count(*) as count INTO assert_ID FROM anla WHERE ANLN1 EQ I_ANLA-ANLN1.
IF SY-SUBRC NE 0.
* нет такого кода - значит новый объект
SELECT COUNT(*) AS count INTO Count_INVNR FROM anla WHERE invnr EQ I_ANLA-invnr.
ELSE .
SELECT COUNT(*) AS count INTO Count_INVNR FROM anla WHERE invnr EQ I_ANLA-invnr and ANLN1 NE I_ANLA-ANLN1.
ENDIF.
IF Count_INVNR NE 0.
MESSAGE W001(Z_AA) With '''' I_ANLA-invnr ''''.
ENDIF.
E_INVNR = I_ANLA-INVNR.