Архивы Функциональные модули и классы - Страница 2 из 2

Средство поиска для выбора варианта отображения ALV

"
PARAMETERS: p_alv_v TYPE slis_vari.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_alv_v.

p_alv_v = lcl_get_data=>f4_alv_variant( ).



"Опишем сам класс
CLASS lcl_get_data DEFINITION.

  PUBLIC SECTION.
    CLASS-METHODS:
 f4_alv_variant RETURNING VALUE(rv_alv_v) TYPE slis_vari. 

ENDCLASS.

CLASS lcl_get_data IMPLEMENTATION.

METHOD f4_alv_variant.

DATA ls_variant      TYPE DISVARIANT.
DATA ls_variant_exit TYPE DISVARIANT.
DATA lv_exit         TYPE c.

"Будем искать варианты ALV  для текущего отчета
"если именно под этим именем они были сохранены
   ls_variant-report = sy-repid.

  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = ls_variant
    IMPORTING
      e_exit     = lv_exit
      es_variant = ls_variant_exit
    EXCEPTIONS
      not_found  = 2.

  IF sy-subrc = 2.
    MESSAGE ID sy-msgid TYPE 'S'      NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    IF lv_exit = space.
      rv_alv_v = ls_variant_exit-variant.
    ENDIF.
  ENDIF.

ENDMETHOD.

ENDCLASS.

PARAMETERS: p_alv_v TYPE slis_vari.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_alv_v.

p_alv_v = lcl_get_data=>f4_alv_variant( ).

"Опишем сам класс

CLASS lcl_get_data DEFINITION.

PUBLIC SECTION.

CLASS-METHODS:

f4_alv_variant RETURNING VALUE(rv_alv_v) TYPE slis_vari.

ENDCLASS.

CLASS lcl_get_data IMPLEMENTATION.

METHOD f4_alv_variant.

DATA ls_variant TYPE DISVARIANT.

DATA ls_variant_exit TYPE DISVARIANT.

DATA lv_exit TYPE c.

"Будем искать варианты ALV для текущего отчета

"если именно под этим именем они были сохранены

ls_variant-report = sy-repid.

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

is_variant = ls_variant

IMPORTING

e_exit = lv_exit

es_variant = ls_variant_exit

EXCEPTIONS

not_found = 2.

IF sy-subrc = 2.

MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

IF lv_exit = space.

rv_alv_v = ls_variant_exit-variant.

ENDIF.

ENDMETHOD.

ENDCLASS.

Чтение Инфо-типа 0008 с учетом косвенной оценки

Довольно часто ВО не хранятся на прямую в ИТ 0008, поэтому, чтение таблицы pa0008 нам ничего не даст. В таких случаях можно использовать ФМ 'RP_FILL_WAGE_TYPE_TABLE'.

 CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE'
          EXPORTING
            appli                        = 'E'
            begda                        = uv_endda
            endda                        = uv_endda
            infty                        = '0008'
            objps                        = '  '
            pernr                        = pernr-pernr
            seqnr                        = '   '
*           SUBTY                        = '    '           "N0507085
            subty                        = '0   '           "N0507085
          TABLES
            ppbwla                       = lv_ppbwla
            pp0001                       = lt_p0001         "pp0001
*           PP0007                       =
            pp0008                       = lt_p0008
          EXCEPTIONS
            error_at_indirect_evaluation = 1
            OTHERS                       = 2.

CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE'

EXPORTING

appli = 'E'

begda = uv_endda

endda = uv_endda

infty = '0008'

objps = ' '

pernr = pernr-pernr

seqnr = ' '

* SUBTY = ' ' "N0507085

subty = '0 ' "N0507085

TABLES

ppbwla = lv_ppbwla

pp0001 = lt_p0001 "pp0001

* PP0007 =

pp0008 = lt_p0008

EXCEPTIONS

error_at_indirect_evaluation = 1

OTHERS = 2.

BADI. Поиск и использование

Business Add-Ins

User-Exits позволяют клиентам прикрепить дополнительный код для стандартных SAP исходный код без необходимости изменения исходного объекта. Business Add-Ins SAP методика расширений, основанная на ABAP Objects.

Служат для того, чтобы вносить модификацию в алгоритм обработки объекта и свести к минимуму работы при обновлении системы.

Основным преимуществом данной концепции является возможность повторного использования. BAdI может быть реализован несколько раз.

Изменение системы оригинала объекта словаря ABAP

Для изменения системы оригинала можно использовать отчет - RSWBO_OBJCAT

Преобразование даты из ISO в TIMESTAMP

Для преобразования даты из ISO можно использовать класс CL_XLF_DATE_TIME метод PARSE

Второй класс это - cl_abap_tstmp

Получить данные из JSON в структуру ABAP(десериализация)

Преобразование структуры в строку называется сериализация, обратное преобразование называется десериализация. В ABAP для сериализации и десериализации существует специальный класс.
Для получения данных из JSON необходимо объявить структуру с типом аналогичным типу в JSON и использовать класс /ui2/cl_json метод deserialize

Пример:

Читать далее «Получить данные из JSON в структуру ABAP(десериализация)»

Просмотр изменений в таблицах, сделанных при помощи ФМ SE16N_INTERFACE

Частенько консультанты меняют данные в таблицах, и не всегда эти изменения корректны. Найти виновника можно при помощи программы RKSE16N_CD_DISPLAY, она смотрит логи в таблицах SE16N_CD_*.