08 октября 2021

Добавление поля в тр. QA32

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

Комментариев нет:

Отправить комментарий