Добавление пользовательского поля в вывод в транзакции 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.
Комментариев нет:
Отправить комментарий