Роли
(su-21, su-01)
1 2 3 4 5 6 7 8 9 10 |
PERFORM retrieve_name. AUTHORITY-CHECK OBJECT 'ZR2' ID 'ZFIRSTLET' FIELD tab2-name(1). IF sy-subrc = 0. PERFORM lock_cell. SET SCREEN 200. ELSE. MESSAGE |ERR AUTH:| TYPE 'E'. ENDIF. |
Генератор ведения таблиц
Заходим на таблицу SE-11. Поставка и ведение ставим ‘X’. Далее Se-54. Там генерируется диалог ведения. После чего можно пойти на sm-30.
События
В окне генерации диалога ведения – Среда -> Модификация -> события. Там новое поле и Нажать F4
Ракурс ввода
То же что и генератор ведения. Ракурс -> создание ракурса ведения
Пакетный ввод данных
на транзакции SHDB писалась транзакция mm42. Далее код через макрос был проеобразован в ABAP
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
REPORT z_user_values. DATA t_bdcdata TYPE TABLE OF bdcdata WITH HEADER LINE. DATA options TYPE ctu_params. options-dismode = 'N'. options-defsize = 'X'. DATA t_message TYPE TABLE OF bdcmsgcoll WITH HEADER LINE. REFRESH t_bdcdata. DEFINE dynpro. clear t_bdcdata. t_bdcdata-program = &1. t_bdcdata-dynpro = &2. t_bdcdata-dynbegin = 'X'. append t_bdcdata. clear t_bdcdata. t_bdcdata-fnam = 'BDC_OKCODE'. t_bdcdata-fval = &3. append t_bdcdata. END-OF-DEFINITION. DEFINE set_field. clear t_bdcdata. t_bdcdata-fnam = &1. if not &2 is initial. write &2 to t_bdcdata-fval. shift t_bdcdata-fval left deleting leading space. else. clear t_bdcdata-fval. endif. append t_bdcdata. END-OF-DEFINITION. dynpro 'SAPLMGMW' '0100' '/00'. set_field 'RMMW1-MATNR' '3'. set_field 'MSICHTAUSW-KZSEL(01)' 'X'. dynpro 'SAPLMGMW' '4008' '=BU'. set_field 'MAKT-MAKTX' 'Корм pedigree 1_1377'. CALL TRANSACTION 'MM42' USING t_bdcdata[] OPTIONS FROM options MESSAGES INTO t_message. LOOP AT t_message . MESSAGE ID t_message-msgid TYPE t_message-msgtyp NUMBER t_message-msgnr INTO DATA(mtext) WITH t_message-msgv1 t_message-msgv2 t_message-msgv3 t_message-msgv4. WRITE: / mtext. ENDLOOP. |