LOOP AT SCREEN, работа с экраном — новая идея

ivan 03.07.201913.07.2019 1 Comment

Устав от простыней в стиле:

  LOOP AT SCREEN.
    IF screen-name = 'ZSS-PERID'.
      screen-input = 0.
    ENDIF.
    IF zss-pernr IS NOT INITIAL.
      IF screen-name = 'ZSS-PERNR' OR
         screen-name = 'ZSS-LNAME' OR
         screen-name = 'ZSS-FNAME'.
        screen-input = 0.
      ENDIF.
    ENDIF.

    IF screen-name = 'ZSS-STELL'.
      screen-input = 0.
    ENDIF.

...

    IF screen-name = 'ZSS-TAXNM'.
      IF ... .
        screen-required = 0. 
      ELSE.
        screen-required = 1. 
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

...

  LOOP AT SCREEN.
    IF screen-group1 = 'M1'.
      IF ...
        screen-input = 0.
      ELSE.
        screen-input = 1.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.


...

LOOP AT SCREEN.

IF screen-name = 'ZSS-PERID'.

screen-input = 0.

ENDIF.

IF zss-pernr IS NOT INITIAL.

IF screen-name = 'ZSS-PERNR' OR

screen-name = 'ZSS-LNAME' OR

screen-name = 'ZSS-FNAME'.

screen-input = 0.

ENDIF.

IF screen-name = 'ZSS-STELL'.

screen-input = 0.

ENDIF.

...

IF screen-name = 'ZSS-TAXNM'.

IF ... .

screen-required = 0.

ELSE.

screen-required = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

...

LOOP AT SCREEN.

IF screen-group1 = 'M1'.

IF ...

screen-input = 0.

ELSE.

screen-input = 1.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

...

я решил обкатать новый подход.

Первым делом декларативное определение, например:

    mt_profile_readonly = VALUE #(
       ( mask = '*'              action = zcl_screen=>readonly )
    ).

    mt_profile_employee = VALUE #(
       ( mask = '*'              action = zcl_screen=>readonly )
       ( mask = '*QKTGR*'        action = zcl_screen=>obligatory )
       ( mask = '*POSID*'        action = zcl_screen=>input )
    ).

    mt_profile_contractor = VALUE #(
        ( mask = '*'             action = zcl_screen=>readonly )
        ( mask = '*QKTGR*'       action = zcl_screen=>input )
        ( mask = '*TAXNM*'       action = zcl_screen=>obligatory )
        ( mask = '*TDATE*'       action = zcl_screen=>input )
    ).

    mt_profile_visitor = VALUE #(
        ( mask = '*'             action = zcl_screen=>input )
        ( mask = '*PERID*'       action = zcl_screen=>invisible )
        ( mask = '*PERNR*'       action = zcl_screen=>invisible )
        ( mask = '*STELL*'       action = zcl_screen=>invisible )
    ).

mt_profile_readonly = VALUE #(

( mask = '*' action = zcl_screen=>readonly )

mt_profile_employee = VALUE #(

( mask = '*' action = zcl_screen=>readonly )

( mask = '*QKTGR*' action = zcl_screen=>obligatory )

( mask = '*POSID*' action = zcl_screen=>input )

mt_profile_contractor = VALUE #(

( mask = '*' action = zcl_screen=>readonly )

( mask = '*QKTGR*' action = zcl_screen=>input )

( mask = '*TAXNM*' action = zcl_screen=>obligatory )

( mask = '*TDATE*' action = zcl_screen=>input )

mt_profile_visitor = VALUE #(

( mask = '*' action = zcl_screen=>input )

( mask = '*PERID*' action = zcl_screen=>invisible )

( mask = '*PERNR*' action = zcl_screen=>invisible )

( mask = '*STELL*' action = zcl_screen=>invisible )

Применение на практике сводится к следующему:

  MODULE screen_3000 OUTPUT.
    go_person_controller->process_screen( ).
  ENDMODULE.

...

  METHOD process_screen.

    IF m_mode = mc_display.
      zcl_screen=>apply_profile( mt_profile_readonly ).
    ELSE.
      IF m_data-pernr IS NOT INITIAL.
        IF is_employee( EXPORTING iv_pernr = m_data-perid ).
          zcl_screen=>apply_profile( mt_profile_employee ).
        ELSE.
          zcl_screen=>apply_profile( mt_profile_contractor ).
        ENDIF.
      ELSE.
        zcl_screen=>apply_profile( mt_profile_visitor ).
      ENDIF.
    ENDIF.

  ENDMETHOD.

MODULE screen_3000 OUTPUT.

go_person_controller->process_screen( ).

ENDMODULE.

...

METHOD process_screen.

IF m_mode = mc_display.

zcl_screen=>apply_profile( mt_profile_readonly ).

ELSE.

IF m_data-pernr IS NOT INITIAL.

IF is_employee( EXPORTING iv_pernr = m_data-perid ).

zcl_screen=>apply_profile( mt_profile_employee ).

ELSE.

zcl_screen=>apply_profile( mt_profile_contractor ).

ENDIF.

ELSE.

zcl_screen=>apply_profile( mt_profile_visitor ).

ENDIF.

ENDMETHOD.

Пробую пока покатать-проверить, насколько такой подход применим в условиях, приближенным к боевым. Нужно больше мест применения, чтобы определить какой подход даст лучшую читаемость, компактность и проверяемость. И потихотньку можно добавить мяса.

(далее…)

Про перекладывание плитки

ivan 28.06.201913.07.2019 1 Comment

Раннее утро. Птички чирикают.

Сижу, никого не трогаю, читаю утреннюю газету.

SAP вещает:

сморите как всё было плохо, какое всё разное, инконсистенси, то да сё, фу-фу-фу

вот мы вам сделаем Fiori 3, там будет всё такое консистентное, прям ух-ты-красота

современные технологии, двадцать первый век, а о цене давайте не будем говорить

И неожиданно нахлынуло чувство какой-то органичной целостности этого мира.
(далее…)

Телега впереди лошади

ivan 13.03.201928.06.2019 Leave a comment

Простая иллюстрация подхода при передаче параметра в виде ссылки:

DATA lt_messages TYPE bapiret2_tab.

DATA(lo_messages) = NEW zcl_message_collection( ir_messages = REF #( lt_messages ) ).

if ...
  MESSAGE e011(zca_test) 
    INTO lo_messages->new_message
    WITH '#1V1'
         '#1V2'.
  lo_messages->add( ).
  RETURN.
endif.

if ...
  MESSAGE w012(zca_test) INTO lo_messages->new_message.
  lo_messages->add( ).
endif. 

if ...
  MESSAGE i013(zca_test) INTO lo_messages->new_message.
  lo_messages->add( ).
endif.

DATA lt_messages TYPE bapiret2_tab.

DATA(lo_messages) = NEW zcl_message_collection( ir_messages = REF #( lt_messages ) ).

if ...

MESSAGE e011(zca_test)

INTO lo_messages->new_message

WITH '#1V1'

'#1V2'.

lo_messages->add( ).

RETURN.

endif.

if ...

MESSAGE w012(zca_test) INTO lo_messages->new_message.

lo_messages->add( ).

endif.

if ...

MESSAGE i013(zca_test) INTO lo_messages->new_message.

lo_messages->add( ).

endif.

Чего можно таким добиться?

Например: это маленькое ухищрение позволяет однократно указывать обрабатываемую таблицу. Это делает код чуть менее многословным. Альтернатива:

APPEND lo_messages->convert_sy2bapi( ) INTO lt_messages.
...или...
lo_messages->add( CHANGING messages = lt_messages).

APPEND lo_messages->convert_sy2bapi( ) INTO lt_messages.

...или...

lo_messages->add( CHANGING messages = lt_messages).

Насколько это красиво? Чисто и просто… Впрочем, есть тут некоторая неочевидность. Мы запускаем метод в классе без указния локальной переменной в качестве параметра, а эта локальная переменная меняется.

Если собирать ошибки внутри вспомогательного класса, а потом их получать вместе, то становится сложнее прекратить обработку немедленно. Выглядит как-то корявенько:

DATA(lo_messages) = NEW zcl_message_collection( ).

IF ...
  MESSAGE e011(zca_test) INTO lo_messages->new_message.
  lo_messages->add( ).
  lt_messages = lo_messages->get( ).
  RETURN.
ENDIF.

IF ...
  MESSAGE w012(zca_test) INTO lo_messages->new_message.
  lo_messages->add( ).
ENDIF.

"finally
lt_messages = lo_messages->get( ).

DATA(lo_messages) = NEW zcl_message_collection( ).

IF ...

MESSAGE e011(zca_test) INTO lo_messages->new_message.

lo_messages->add( ).

lt_messages = lo_messages->get( ).

RETURN.

ENDIF.

IF ...

MESSAGE w012(zca_test) INTO lo_messages->new_message.

lo_messages->add( ).

ENDIF.

"finally

lt_messages = lo_messages->get( ).

Пример реализации:

(далее…)

Достигая невозможного, пьеса

ivan 18.02.201908.12.2020 1 Comment

Все события и герои вымышлены. Любые совпадения с реальными личностями случайны.

Акт первый

Консультант: Нам нужно массово списать материалы, но так чтобы в оборотах это было отражено в особом периоде.

Старый фрилансер: Ну дело житейское, разработчика своего попросите.

Консультант: Мы спрашивали, но он сказал, что это невозможно.

Старый фрилансер: Поверь мне, милая, если разработчик говорит, что нечто невозможно, то это значит, что он ленивая жопа.

Консультант: Посмотри, пожалуйста!

Старый фрилансер: Не вопрос, но задачку-то поставь. (далее…)

Быстрый способ получить данные из XML-файла

ivan 17.01.201918.01.2019 Leave a comment

Как это часто бывает, есть много разных способов решить одну и ту же задачу. И на этот счет тоже есть варианты:

Разбирать текст руками или регулярными выражениями: плохой подход сходу, не обсуждается
CL_XML_DOCUMENT: классический подход, но несколько муторный на мой вкус
CALL TRANSFORMATION: стандартный подход, но меня всегда смущает небходимость наличия отдельного артефакта. Кроме того, если работать с этим раз в год, то синтаксис трансформаций выпадает из памяти и необходимо снова обращаться к примерам и/или документации

Новый для меня способ — использовать функциональный модуль SMUM_XML_PARSE, у которого очень простой синтаксис: (далее…)

Грязные трюки при работе с ALV

ivan 16.01.201913.07.2019 1 Comment

Дано: есть вывод отчета в ALV, в котором стандартными средствами включен расчет среднего значения.

Итоговое среднее значение стандартно расчитывается так:

( 30 + 40 + 50 + 0 ) / 4 = 30

Предположим для примера, что в четвёртой строке нулевое значение связано не с нулевым значением, а с его отсутствием.

Соответственно от заказчика есть задание: требуется выводить среднее значение, не учитывающее пустые (нулевые) значения:

Один из способов решения задачи — грязно вторгнуться во внутреннюю кухню ALV. Приступим?

(далее…)

RTCM, UPL, SQLM и всё такое про мониторинг ABAP-систем

ivan 19.12.201813.07.2019 Leave a comment

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

RTCM

Транзакция SRTCM — Runtime Check Monitor.

Тут можно активировать пару проверок, которые можно упустить в статических проверках ATC (ABAP Test Cockpit). Одна из них — пустая таблица в FOR ALL ENTRIES.

Пишут, что оверхед не такой большой и можно оставить на несколько недель в продуктивной среде.

Мало ли, вдруг иногда бывает, но никто не знает. А быть такого не должно в обычной жизни.

UPL

Usage & Procedure Logging. Такая штука, которая должна по-хорошему работать через Solution Manager и SAP Custom Code Management. Там много данных и без BW-обвеса, который связан с SM, данные непросто анализировать, особенно не нагружая продуктивную систему.

Однако, при некотором желании его можно подёргать напрямую в системе. Но только в тестовых церях на свой страх и риск. Для этого необходимо запустить программу /SDF/UPL_CONTROL. Транзакции, видимо, не предусмотрено в виду означенных выше обстоятельств.

Затем требуется подождать какое-то время и вам выпадет ошеломляющее количество инфромации:

Все ходы записаны, например: можно проследить, сколько кастомного кода реально работает в каких-то обозначенных ситуациях. И это не совсем то же самое что и ST03N.

SQLM

Насчет мониторинга SQL-запросов тоже есть полезные штуки. Прямо так и называется транзакция SQLM, то есть SQL Monitor, легко запомнить.

И если её оставить на какое-то время, то можно получить много полезной информации:

SFW5

В переключателях бизнес-функций SFW5 можно найти кроме всего прочего:

/SDF/WS_MON (Web Service Monitoring) — может и полезно будет когда-нибудь, но пока не буду активировать, ибо отключить потом нельзя, так как Non-Reversible
SRIS_SOURCE_SEARCH (ABAP Source Search) — пишут, что активирует построение полнотекстового индекса для исходного кода, однако работает только на HANA. Кроме того, запускать в рабочее время нежелательно, так что на заметку берём, но пока хватит старых инструментов.

PS.

SWLT

SQL Performance Tuning Worklist. А это уже маленькая вишенка на торте, в которой пытаются свести все концы с концами, а именно сопоставляют данные ATC и SQLM. Поэтому новых тайных знаний вы там не найдете, но есть небольшой шанс подхватить инсайт при сопоставлении.

Ещё одно место для хранения файлов — SBWP

ivan 26.11.201826.11.2018 2 комментария

Навеяно предыдущей записью. Не все ещё места хранения файлов исследованы. Например, вполне возможно хранить Excel-файлы в так называемом Business Workplace (транзакция SBWP, доступная всем с главного экрана).

Сохранённый файл можно прочитать из программы примерно таким кодом: (далее…)

Ещё один способ работы с файлами — теперь Base64

ivan 23.11.201823.11.2018 Leave a comment

Есть много неочевидных способов хранить файлы. Вот ещё один из примерно двадцати семи.

Есть такой cпособ представления двоичного контента в виде текста: Base64.

Следовательно, любой файл можно представить в виде длинной константы типа string. Чем больше файл, тем длиннее будет строка символов.

DATA lv_base64 TYPE string.
DATA lv_xstring TYPE xstring.

lv_base64 =
'UEsDBBQABgAIAAAAIQCM6YyMfgEAAIwFAAAnRlbnRfVHlwZXNdLnhtbCCi2AEooAAC' &&
'pBt1eSERI0lZjxXtYhzuGcOmA2ewCAP4pLyBjBtNgBRNezkvNb5oz1lDRh8jHtvaZk' &&
'8vZ9godfsKJKolUyquedZFFJdp5+yEHvH3ODG9fzke6typd7qeda5EIcqi5GKd27dL' &&
'9tclyNNJxbnjLu/4a58p/Oa/jFhQWPqE+gYwMEFAAGAAgAAAAhANZUUvOrAQAAQQMA' &&
'iv7jxP56s/Zu87L95Ts5q6ihwqQw1avwiyIj/hnjnGJ+4AtVn63DdqG7gYMZvhhPUU' &&
'zne1zRqIaLwr2HSSswyc9qVxm4Jdrz+evWMfaA7Fy+fiWW0QeIZACzFOGwYFuiMOcc' &&
'Z3MvcHJpbnRlclNldHRpbmdzMS5iaW5QSwEAAAACEAycnEUkoBAAB1AgAAEQAAAAAA' &&
'AAAAAAAAAACFHAAAZG9jUHJvcHMvY29yZS5QAUAAYACAAAACEANbpi6akBAAAzAwAA' &&
'EAAAAAAAAAAAAAAAAAAGHwAAZG9jUHJvcHMFBLBQYAAAAADQANAGwDAADlIQAAAAA='.

lv_xstring = cl_http_utility=>decode_x_base64( encoded = lv_base64 ).

DATA lv_base64 TYPE string.

DATA lv_xstring TYPE xstring.

lv_base64 =

'UEsDBBQABgAIAAAAIQCM6YyMfgEAAIwFAAAnRlbnRfVHlwZXNdLnhtbCCi2AEooAAC' &&

'pBt1eSERI0lZjxXtYhzuGcOmA2ewCAP4pLyBjBtNgBRNezkvNb5oz1lDRh8jHtvaZk' &&

'8vZ9godfsKJKolUyquedZFFJdp5+yEHvH3ODG9fzke6typd7qeda5EIcqi5GKd27dL' &&

'9tclyNNJxbnjLu/4a58p/Oa/jFhQWPqE+gYwMEFAAGAAgAAAAhANZUUvOrAQAAQQMA' &&

'iv7jxP56s/Zu87L95Ts5q6ihwqQw1avwiyIj/hnjnGJ+4AtVn63DdqG7gYMZvhhPUU' &&

'zne1zRqIaLwr2HSSswyc9qVxm4Jdrz+evWMfaA7Fy+fiWW0QeIZACzFOGwYFuiMOcc' &&

'Z3MvcHJpbnRlclNldHRpbmdzMS5iaW5QSwEAAAACEAycnEUkoBAAB1AgAAEQAAAAAA' &&

'AAAAAAAAAACFHAAAZG9jUHJvcHMvY29yZS5QAUAAYACAAAACEANbpi6akBAAAzAwAA' &&

'EAAAAAAAAAAAAAAAAAAGHwAAZG9jUHJvcHMFBLBQYAAAAADQANAGwDAADlIQAAAAA='.

lv_xstring = cl_http_utility=>decode_x_base64( encoded = lv_base64 ).

Вот только файл размером 10кб займёт примерно 200 строк текста.

Когда такое может пригодиться?

Например: для юнит-тестов с небольшим исходным файлом. Тестовый класс получается более самодостаточным, переносимым и независимым от внешних обстоятельств.

В моём случае инсайт пришёл при работе с Excel-файлом в моём предыдущем посте «Ещё один способ прочитать содержимое Excel-файла». Не всегда есть смысл изобретать какое-то особое место хранения файла, если можно положить файл напрямую в код.

Ещё один способ прочитать содержимое Excel-файла

ivan 23.11.201826.11.2018 Leave a comment

Иногда просто удивительно, какой стоянкой велосипедов может быть SAP.

Есть в целом типичная задача — прочитать содержимое Excel-файла. И есть примерно двадцать семь способов её решить. В моём недавнем случае были ограничения: должно работать не только в SAP-GUI, должно уметь работать с несколькими листами, не должно требовать установки отдельных громоздких библиотек. Это отсекло большинство моих предыдущих подходов, и я отправился на поиски новых велосипедов.

И найденный велосипед имеет имя CL_FDT_XL_SPREADSHEET. Работать с ним проще простого: (далее…)

Иван Болховитинов

Рубрика: SAP

LOOP AT SCREEN, работа с экраном — новая идея

Про перекладывание плитки

Телега впереди лошади

Достигая невозможного, пьеса

Быстрый способ получить данные из XML-файла

Грязные трюки при работе с ALV

RTCM, UPL, SQLM и всё такое про мониторинг ABAP-систем

RTCM

UPL

SQLM

SFW5

SWLT

Ещё одно место для хранения файлов — SBWP

Ещё один способ работы с файлами — теперь Base64

Ещё один способ прочитать содержимое Excel-файла