Добавление пользовательского поля в вывод в транзакции QA32.
1. Добавить APPEND-структуру с ZZ-полями в структуру QALS_D02.
2. Создать реализацию расширения для программы RQEEAL10.
2.1. Добавить неявное расширение в начало подпрограммы CALL_LISTVIEWER_F14, где заполнить ZZ-поля в таблице OBJECT_TAB.
IF sy-tcode = 'QA32' OR sy-tcode = 'QA33'.
LOOP AT object_tab ASSIGNING FIELD-SYMBOL(<zls_object_tab>).
" Заполнение ZZ-полей
ENDLOOP.
ENDIF.
2.2. Аналогичное заполнение добавить в расширении в конце подпрограммы AKTUALISIEREN_F14.
IF sy-tcode = 'QA32' OR sy-tcode = 'QA33'.
LOOP AT object_tab ASSIGNING FIELD-SYMBOL(<zls_object_tab>).
" Заполнение ZZ-полей
ENDLOOP.
ENDIF.
2.3. Если нужно внести изменения в параметры каталога полей, это можно сделать в расширении в конце подпрограммы CREATE_FIELDCAT_L.
IF sy-tcode = 'QA32' OR sy-tcode = 'QA33'.
READ TABLE g_fieldcat_tab ASSIGNING FIELD-SYMBOL(<zls_fieldcat>)
WITH KEY fieldname = 'ZZFIELD1'.
IF sy-subrc = 0.
<zls_fieldcat>-outputlen = 40.
ENDIF.
ENDIF.
2.4. В точке RQEEAL10_03 расширения ES_RQEEAL10 добавить реализацию для исключения из выборки ZZ-полей, которых нет в таблице QALS для избежания дампа.
READ TABLE select_fields ASSIGNING FIELD-SYMBOL(<zfs_select_fields>)
WITH KEY tablename = 'QALS'.
IF sy-subrc = 0.
DELETE <zfs_select_fields>-fields
WHERE line = 'ZZFIELD01'.
ENDIF.
GET qals FIELDS prueflos
obtyp
objnr
aufpl
art "for authorization
werk "for authorization
offennlzmk "for monitor
offen_lzmk "for monitor
pastrterm "for monitor
paendterm "for monitor
lmengezub "for monitor
aufnr_co
plnty
stat02
stat07
stat35
stat36.
Комментариев нет:
Отправить комментарий