Програма: LAB01F00
после кода
....
IF NOT ld_freesel IS INITIAL.
MOVE-CORRESPONDING t_anek TO v_anepk.
MOVE t_anek-augln TO v_anepk-anek_augln.
MOVE t_anek-belnr TO v_anepk-anek_belnr.
MOVE t_anek-buzei TO v_anepk-anek_buzei.
MOVE t_anek-bzdat TO v_anepk-anek_bzdat.
MOVE-CORRESPONDING t_anep TO v_anepk.
PERFORM check_selopt USING v_anepk ld_rc.
CHECK ld_rc IS INITIAL.
ENDIF.
PERFORM fill_rlab01 USING zab01 t_anek t_anep t_anea.
APPEND zab01.
ENDLOOP.
DESCRIBE TABLE zab01 LINES tfill-zab01.
вставляем фильтр движений:
if sy-uname = 'VasyaPupkin' and sy-tcode = 'AB08'.
loop at zab01.
if zab01-bwasl ne '897'.
delete zab01.
endif.
endloop.
endif.
В даном примере - если пользователь Вася Пупкин и он попал сюда работая с транзакцией AB08 то выводим только строки с 897 видом движения.
А дальше все просто - пакетник, и нет проблем с выбором нужной строки...
Потом конечно вернуть нужно все как было
