Немного NoSQL или что-то взамен SM30
При разработке часто бывает необходимость вести некоторые настройки или конфигурации.
На первом уровне это хардкод внутри программы:
- написанный напрямую в тексте программы;
- вынесенный в константы или блок инициализации;
- оформленный в виде статического атрибута глобального класса.
Хардкод вполне оправдан, если:
- в течении всего жизненного цикла эти настройки не будут меняться;
- не будет кейсов, когда именение настройки может быть сделано без изменения связанного исходного кода.
Вторым уровнем может возникнуть классическая настроечная таблица + сгенерированное ведение в транзакции SM30. Впрочем тут тоже можно сделать шаг вправо и влево:
- кучу таблиц можно объединить в кластер SM34;
- ведение можно привязать к коду транзакции;
- ведение можно добавить в SPRO;
- таблицы могут быть зависимые/независимые от манданта;
- таблицы могут быть частью настройки или вестить непосредственно в продуктивной системе.
Такие настройки уже вполне можно передать в руки настройщиков и пользователей.
Доходит иногда до смешного, даже в стандарте можно наблюдать целые настроечные таблицы в виде одной колонки («Активировать»), соответственно в таблице только одна строка со значеним — флажок стоит или нет.
Третьим уровнем могут часто возникать разные велосипеды для организации небольших настроек.
Часто можно заметить, что в системе есть много разных стандартных узкоспециализированных хранилищ, которые можно использовать в собственных корыстных целях, например:
- глобальные переменные STVARV;
- рабочие списки (OB55 и похожие);
- версии баланса (почему бы и не);
- деривация (ну если уж так);
- кастомные атрибуты объектов, если позволено.
Но некоторые приходят к мысли, что следует разработать некоторое универсальное хранилище настроек (Z-разработка), вроде большой таблицы в стиле ключ-значение или даже нечто похожего на реестр Windows, навскидку:
- ZSPRO (https://quelquepart.biz/article5/zspro-parametrage-specifique)
- ABAP quick options (https://github.com/bizhuka/aqo)
Добро пожаловать под кат, представляю вам свой велосипед, там есть пара занятных моментов. Почему свой? Да потому что у остальных есть фатальный недостаток, очевидно. (далее…)
Черное зеркало S05E02, Осколки
Два момента, которые меня особенно зацепили. Профессиональная деформация?
Блокировка аккаунта на сутки после трёх неверных попыток входа
В чистом виде — очень сомнительное решение. Таким образом можно очень просто блокировать аккаунты неугодных людей (так называемая DoS-атака). В реальной жизни такое можно встретить только во внутренних корпоративных системах, потому что источник атаки легко локализуется в локальной сети.
Но в сети Интернет атакующего найти гораздо сложнее. Разумная практика — блокировать IP-адрес на сутки, но тогда по сюжету героиня могла бы подбирать пароли с десятков устройств плюс подключить VPN-сервисы. Но вот это было бы уже не так интересно для развития сюжета, потому что у человека не было бы Проблемы.
Восстановление пароля в открытом виде
В конце сюжетной линии героине присылают пароль от аккаунта в открытом виде.
Разумная практика — не хранить пароли в открытом виде, использовать только солёные хеши и всё такое. В реальной жизни администратор может сбросить пароль, то есть просто установить новый, но старый пароль никто узнать не может.
Но по сюжету героине прислали «значащий» пароль для владельца аккаунта, следовательно совершенно очевидно, что это реальный старый пароль.
Для завершения сюжетной линии — красивый штрих, но IRL такого не бывает.
Бонус — запись звука с мобильного телефона
Администратор социальной сети активирует закладку в мобильном приложении и запускает трансляцию звука с устройства преступника на терминал администратора.
А вот это уже более реальный сценарий. Очевидно, что приложение скорее всего запросило права на запись звука при установке, так как запись звука нужна для отправки звуковых сообщений — обычная практика в мессенджерах/социальных сетях.
Реально ли такие закладки встретить в реальной жизни — вопрос непростой. Об этом открыто никто никогда не расскажет, а болтовне анонимов в интернете верить нельзя. Разве что умные парни сделают реверс-инжиниринг и вскроют фичу доказательно.
Могу только утверждать следующее. Звук не записывается и не передаётся в сколько-нибудь значимых объёмах. Ограничивает авторов приложений и связывает руки примерно следующее:
- вероятность публичного скандала может нанести значительный ущерб репутации
- постоянная запись звука сказывается на ресурсе аккумулятора
- постоянная отправка данных легко детектируется
- звук требует расшифровки speech-to-text, а это дорогое удовольствие
- запись звука требует разрешений на уровне операционной системы, что сразу вызывает вопросы к приложениям, которым незачем это делать
- известны случаи, когда приложения записывали действия рандомных пользователей (экран и звуки); сообщалось, что это проводилось только в рамках системы качества
LOOP AT SCREEN, работа с экраном — новая идея
Устав от простыней в стиле:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
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. ... |
я решил обкатать новый подход.
Первым делом декларативное определение, например:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
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 ) ). |
Применение на практике сводится к следующему:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
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. |
Пробую пока покатать-проверить, насколько такой подход применим в условиях, приближенным к боевым. Нужно больше мест применения, чтобы определить какой подход даст лучшую читаемость, компактность и проверяемость. И потихотньку можно добавить мяса.
Про перекладывание плитки
Раннее утро. Птички чирикают.
Сижу, никого не трогаю, читаю утреннюю газету.
SAP вещает:
сморите как всё было плохо, какое всё разное, инконсистенси, то да сё, фу-фу-фу
вот мы вам сделаем Fiori 3, там будет всё такое консистентное, прям ух-ты-красота
современные технологии, двадцать первый век, а о цене давайте не будем говорить
И неожиданно нахлынуло чувство какой-то органичной целостности этого мира.
(далее…)
Прощай, Сергей!
Не стало великого человека. Очень жаль. Он был актуален для меня прямо сейчас.
* * *
Я слушал Подъём каждый день, но редко в прямом эфире. Часто в тот же день, иногда накапливалось недосмотренного на целый месяц. У него было своё мнение по миллиону разных вещей, и часто я с ним не согласен. Остр, резок, груб, самолюбив. И это было его право.
* * *
Он рассказал мне важные вещи, например:
- В России нет коррупции
- Любое послание содержит три компонента: декларируемое, подразумеваемое и скрытое
- Главная валюта нашего времени — внимание
* * *
Он не любил, когда его называют по имени-отчеству.
* * *
PS. Просто удивительно, что бы он делал в 2022 году, мы об этом никогда не узнаем, как и не прочитаем второй том Мёртвых душ.
Телега впереди лошади
Простая иллюстрация подхода при передаче параметра в виде ссылки:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
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. |
Чего можно таким добиться?
Например: это маленькое ухищрение позволяет однократно указывать обрабатываемую таблицу. Это делает код чуть менее многословным. Альтернатива:
1 2 3 |
APPEND lo_messages->convert_sy2bapi( ) INTO lt_messages. ...или... lo_messages->add( CHANGING messages = lt_messages). |
Насколько это красиво? Чисто и просто… Впрочем, есть тут некоторая неочевидность. Мы запускаем метод в классе без указния локальной переменной в качестве параметра, а эта локальная переменная меняется.
Если собирать ошибки внутри вспомогательного класса, а потом их получать вместе, то становится сложнее прекратить обработку немедленно. Выглядит как-то корявенько:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
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( ). |
Пример реализации:
Ни в чём себе не отказывай
Я слышал, что в интернетах есть места, где гендерный классификатор насчитывает несколько десятков записей. И вот наконец, в одной анкете я сам столкнулся с чем-то подобным.
В новой интерпретации это не справочник, а просто поле свободного ввода:
И пусть никто не уйдёт обиженный!
Достигая невозможного, пьеса
Все события и герои вымышлены. Любые совпадения с реальными личностями случайны.
Акт первый
Консультант: Нам нужно массово списать материалы, но так чтобы в оборотах это было отражено в особом периоде.
Старый фрилансер: Ну дело житейское, разработчика своего попросите.
Консультант: Мы спрашивали, но он сказал, что это невозможно.
Старый фрилансер: Поверь мне, милая, если разработчик говорит, что нечто невозможно, то это значит, что он ленивая жопа.
Консультант: Посмотри, пожалуйста!
Старый фрилансер: Не вопрос, но задачку-то поставь. (далее…)
Быстрый способ получить данные из XML-файла
Как это часто бывает, есть много разных способов решить одну и ту же задачу. И на этот счет тоже есть варианты:
- Разбирать текст руками или регулярными выражениями: плохой подход сходу, не обсуждается
- CL_XML_DOCUMENT: классический подход, но несколько муторный на мой вкус
- CALL TRANSFORMATION: стандартный подход, но меня всегда смущает небходимость наличия отдельного артефакта. Кроме того, если работать с этим раз в год, то синтаксис трансформаций выпадает из памяти и необходимо снова обращаться к примерам и/или документации
Новый для меня способ — использовать функциональный модуль SMUM_XML_PARSE, у которого очень простой синтаксис: (далее…)