Практически в каждом отчете мы используем Select-options. При этом по умолчанию нам доступны все опции выбора.
Но что делать если нам нужен только четкое равенство? Постоянно проверять ввод с экрана? Нет, можно убрать ненужные опции выбора.
для этого напишем следующий код:
Читать далее «Изменение доступности опций выбора в Select-Options.»
Регулярные выражения - это шаблоны для поиска в строках. Их можно
использовать для поиска, замены в строках или проверки входных данных. ABAP разработчики не очень часто используют данный функционал, хотя иногда это довольно удобно. К сожалению, и сам язык поддерживает далеко не все возможности регулярных выражений.
Нет смысла лишний раз описывать операторы, ознакомится с ним можно в документации.
Рассмотрим несколько простых примеров для поиска на конкретных примерах. Так будет немного понятнее.
При создании экрана ведения для таблицы ширина блока вывода по умолчанию составляет 80 колонок. Что составляет примерно половину экрана. Это далеко не всегда удобно.
При необходимости увеличить область вывода первое, что делает разработчик, заходит в редактор экрана и меняет ширину в ручную. Такой подход часто достаточен, но при перегенерации ракурса ведения, все ручные изменения исчезают, экран приобретает свой стандартный размер. Мелочь, а неприятно.
Недавно наткнулся на способ, позволяющий каждый раз не восстанавливать размер экрана руками, а единожды прописать ФМ, который будет сравнивать текущий размер области с необходимым и в случае несовпадения перегенерировать его с заданным размером на лету.
Читать далее «Ракурс ведения таблицы. Изменить размер экрана.»
Оператор GROUP BY позволяет группировать значения в цикле по ключу. В чем-то это похоже на оператор AT NEW.
Давайте попробуем обработать записи таблицы splfi по уникальным значениям carrid. Для этого пропишем следующий код:
|
1 2 3 4 5 6 7 8 9 10 11 |
DATA: lt_splfi TYPE TABLE OF spfli. SELECT * FROM spfli INTO TABLE lt_splfi. LOOP AT lt_splfi INTO DATA(ls_splfi) GROUP BY ( carrid = ls_splfi-carrid size = GROUP SIZE index = GROUP INDEX ) ASCENDING REFERENCE INTO DATA(rv_group). write: / rv_group->carrid. ENDLOOP. |
ABAP 7.4 вышел уже очень давно, однако, его операторы мало кто использует. Рассмотрим сегодня оператор FILTER который позволяет выбирать данные из одной внутренней таблицы в другую по ключам.
Читать далее «Оператор FILTER»
Продолжаю рассказывать основы разработки в HCM, для разработчиков из других модулей. Недавно зашел в код программы, которую писал не HR абапер, и у меня чуть не случился приступ. Селекты, конечно, красивые...
Вводная информация.
Объект ОМ - это сущность в организационном менеджменте, которая отображает некий объект реального мира или абстракцию. Различаются они типом объектов. Например S - Штатная должность, O - Организационная единица, A -Рабочее место и так далее. Существование объекта означает наличие записи в инфо-типе 1000 в определенном временном периоде. Остальные инфо-типы хранят свойства этого объекта. Исключение Табельный номер, данные объекты являются объектами PA и ведутся немного в других ИТ.
Читать далее «Путь анализа. Получение объектов по пути анализа.»
Mesh - это специальный тип который представляет собой связанные внутренние таблицы(узлы). Структура в целом похожа на структуру БД.
Mesh появился в ABAP 7.40 бла-бла-бла... Основная проблема в том ,что он не прижился, возможно из-за слабой осведомленности разработчиков, возможно из-за не перспективности подхода. Однако, в некоторых случаях данная концепция ложится довольно хорошо.
В abap давно уже есть функциональные операторы SWITH и COND которые являются альтернативой CASE и IF соответственно.
Операторы умеют определять возвращаемый тип из контекста. Если это не возможно, необходимо указать его в ручную.
Также возможно использование LET.
Пример с IF:
|
1 2 3 4 5 6 7 |
if lv_a > 0. data(lv_result_1) = 1. elseif lv_a < 0. lv_result_1 = 2. else. lv_result_1 = 0. endif. |
Заменим на COND:
|
1 2 3 |
data(lv_result_1_new) = cond i( when lv_a > 0 then 1 when lv_a < 0 then 2 else 0 ) . |
Пример с CASE:
|
1 2 3 4 5 6 7 8 |
case lv_b. when 'A'. data(lv_result_2) = 'First'. when 'B'. lv_result_2 = 'Second'. when others. lv_result_2 = 'Others'. endcase. |
Замена на SWITH:
|
1 2 3 4 5 |
DATA(lv_result_2_new) = switch #( lv_b when 'A' then 'First' when 'B' then 'Second' else 'Others' ). |
В abap 7.40 появились новые логические функции boolc() и xsdbool() они определяют истинность логического выражения в аргументе boolc( логическое выражение )/ xsdbool ( логическое выражение ).
Отличаются тем, что boolc( ) имеет тип данных "С" в качестве возвращаемого параметра, а xsdbool() возвращает тип abap_bool.
Пример:
|
1 2 3 4 5 6 7 8 9 |
" method example. ...... if sy-subrc = 0 and lv_a = lv_b. rv_result = abap_true. endif. endmethod. |
Тоже самое с использованием xsdbool():
|
1 2 3 4 5 6 7 8 |
" method example_xsdbool. ...... rv_result = xsdbool( sy-subrc = 0 and lv_a = lv_b ). endmethod. |
Еще удобно можно передавать результат на вход метода.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
report zhr_pau_test. class lcl_example definition. public section. methods example importing iv_bool_par type abap_bool. endclass. class lcl_example implementation. method example. ".....text module endmethod. endclass. start-of-selection. data(go_obj_example) = new lcl_example( ). go_obj_example->example( iv_bool_par = xsdbool( sy-subrc = 0 ) ). |
Для создания типа таблицы диапазонов выполним следующую последовательность действий:
1. Перейти в транзакцию se11
2. Вводим название нового типа
