Архивы ABAP - Страница 5 из 8

Найти пересечения периодов. Оператор PROVIDE

Очень часто в HR необходимо найти все пересечения ИТ т.е. те периоды в которых данные ТН остаются неизменны. Для этого существует оператор PROVIDE .

PROVIDE FIELDS {*|{comp1 comp2 ...}}
               FROM itab1 INTO wa1 VALID flag1
               BOUNDS intliml1 AND intlimu1
               [WHERE log_exp1]
        FIELDS {*|{comp1 comp2 ...}}
               FROM itab2 INTO wa2 VALID flag2
               BOUNDS intliml2 AND intlimu2
               [WHERE log_exp2]
               ...
        BETWEEN extliml AND extlimu
        [INCLUDING GAPS].
  ...
ENDPROVIDE.

Читать далее «Найти пересечения периодов. Оператор PROVIDE»

Совместно используемые объекты ABAP Shared Object

В ABAP существует инструмент, позволяющий создавать объекты в Общей памяти.

Общая память - это область памяти на сервере приложений, к которой обращаются все программы написанные на ABAP данного сервера. Существует возможность создавать экземпляры объектов в общей памяти и обращаться к ним из разных программ.

Помните, что объекты общей памяти существуют до тех пор, пока существует экземпляр SAP. Любые действия по перезапуску сервера, обновлению системы и т.д. могут удалить экземпляр. Кроме того, любое изменение корневого класса требует удаления и обновления существующих объектов памяти.

Транзакция SHMA - работа с областями Общей памяти.

Читать далее «Совместно используемые объекты ABAP Shared Object»

Дамп по тайм ауту

Если программа вываливается по тайм ауту, то один из способов устранения проблемы( считаем, что оптимизация не возможна) является использование ФМ TH_REDISPATCH .

Также можно изменить параметр 'rdisp/max_wprun_time' в транзакции RZ11. Параметр применяется без перезагрузке сервера.

Пробежать по одинаковым столбцам структуры. Оператор DO – VARYING

Порой возникает необходимость пробежаться по повторяющимся столбцам структуры. Особенно часто эта необходимость бывает при обработке ИТ 0008 и 0041. В таком случае можем использовать оператор DO - VARYING
Для разработчиков в HR это довольно привычный оператор, в других модулях используются гораздо реже. Собственно поэтому и делаю заметку, может быть для кого-нибудь будет полезным.

Много писать не буду, вот пример кода:

          DO 12 TIMES 
            VARYING lv_type FROM ls_p0041-dar01 NEXT ls_p0041-dar02
            VARYING lv_date FROM ls_p0041-dat01 NEXT ls_p0041-dat02.
          
  " тут делаем что нам надо

          ENDDO.

DO 12 TIMES

VARYING lv_type FROM ls_p0041-dar01 NEXT ls_p0041-dar02

VARYING lv_date FROM ls_p0041-dat01 NEXT ls_p0041-dat02.

" тут делаем что нам надо

ENDDO.

Остальное легко найдете в справке.

Ошибка в отладчике при одинаковом наименовании глобальных и локальных переменных.

Сегодня прилетел дамп по одной старой разработке. Собственно ошибка была понятна по описанию, суть не в ней. Но чтобы убедиться точно, в правильности выводов по ошибке, решил поставить точку в коде недалеко от строки дампа и посмотреть что да как.
Каково же было мое удивление, что находясь внутри цикла LOOP AT gt_data ASSIGNING <fs_data>. Field-symbol в отладчике отображался как еще не присвоенный, при этом было видно, что на самом деле с ним было все в порядке. Т.е. проблема была именно в отладчике и именно с <fs_data>. Остальные Field-symbol работали корректно, инклуд активировался без ошибок.

Читать далее «Ошибка в отладчике при одинаковом наименовании глобальных и локальных переменных.»

Пустая таблица в FOR ALL ENTRIES IN

Не все знают и не все помнят, что случается когда таблица указанная в FOR ALL ENTRIES IN окажется пустой. А этот момент очень важно учитывать, как в целях корректной выборки данных, так и в целях оптимизации. Собственно, вся информация есть в справке, но кто ее читает))

Читать далее «Пустая таблица в FOR ALL ENTRIES IN»

JOIN Трех таблиц. Небольшая особенность

Предположим, что нужно выбрать данные из таблицы 1 и дополнить их данными из таблиц 2 и 3. Причем таблица 3 относиться к таблице 2.

Прикинув получаем вот такой запрос:

"Запрос 1
SELECT
  mspr~matnr,
  mspr~charg,
  vepo~vemng,
  vepo~venum,
  vepo~altme,
  vepo~wdatu,
  vepo~vbeln
  FROM mspr
  LEFT JOIN   vepo ON  vepo~matnr = mspr~matnr
                   AND vepo~werks = mspr~werks
                   AND vepo~lgort = mspr~lgort
                   AND vepo~charg = mspr~charg
       LEFT JOIN   vekp ON  vekp~venum = vepo~venum
  INTO TABLE @DATA(ltd_result_1)
  WHERE
      mspr~matnr = '000000001300000160'
  AND mspr~lgort = '6101'
  AND mspr~werks = '3100'
 .

"Запрос 1

SELECT

mspr~matnr,

mspr~charg,

vepo~vemng,

vepo~venum,

vepo~altme,

vepo~wdatu,

vepo~vbeln

FROM mspr

LEFT JOIN vepo ON vepo~matnr = mspr~matnr

AND vepo~werks = mspr~werks

AND vepo~lgort = mspr~lgort

AND vepo~charg = mspr~charg

LEFT JOIN vekp ON vekp~venum = vepo~venum

INTO TABLE @DATA(ltd_result_1)

WHERE

mspr~matnr = '000000001300000160'

AND mspr~lgort = '6101'

AND mspr~werks = '3100'

Получаем вот такую выборку:

Как видно из выборки, для строки 8 мы не нашли запись в таблице VEPO. Но так как у нас LEFT JOIN она все равно попала в выборку.

Теперь, допустим, нам необходимо немного ограничить выборку из таблицы VEPO и мы делаем INNER JOIN таблиц VEPO И VEKP. При этом, казалось бы строка 8 должна остаться в выборке т.к. соединение таблиц MSPR и VEPO осталось без изменений и в данном случае, что там у нас случилось с VEPO, вообще не должно играть роли. Однако это не так. Как мы видим в результате, запись с пустым не найденным VEPO не выбралась.

"Запрос 2
SELECT
  mspr~matnr,
  mspr~charg,
  vepo~vemng,
  vepo~venum,
  vepo~altme,
  vepo~wdatu,
  vepo~vbeln
  FROM mspr
  LEFT JOIN   vepo ON  vepo~matnr = mspr~matnr
                   AND vepo~werks = mspr~werks
                   AND vepo~lgort = mspr~lgort
                   AND vepo~charg = mspr~charg
       INNER JOIN   vekp ON  vekp~venum = vepo~venum
  INTO TABLE @DATA(ltd_result_2)
  WHERE
      mspr~matnr = '000000001300000160'
  AND mspr~lgort = '6101'
  AND mspr~werks = '3100'
 .

"Запрос 2

SELECT

mspr~matnr,

mspr~charg,

vepo~vemng,

vepo~venum,

vepo~altme,

vepo~wdatu,

vepo~vbeln

FROM mspr

LEFT JOIN vepo ON vepo~matnr = mspr~matnr

AND vepo~werks = mspr~werks

AND vepo~lgort = mspr~lgort

AND vepo~charg = mspr~charg

INNER JOIN vekp ON vekp~venum = vepo~venum

INTO TABLE @DATA(ltd_result_2)

WHERE

mspr~matnr = '000000001300000160'

AND mspr~lgort = '6101'

AND mspr~werks = '3100'

AMC – ABAP Messaging Channels

ABAP Messaging Channels - метод связи между ABAP программами с помощью сообщений.

Каналы обмена сообщениями ABAP реализованы в виде объектов репозитория, к которым можно обращаться в программах отправителя и получателя с использованием интерфейса на основе классов (API). Классы и интерфейсы API используют соглашение об именах CL_AMC _... и IF_AMC _... соответственно.

Любой объект данных может быть отправлен путем сериализации в XML отправителем и десериализации получателем.

Длина сообщений, которые могут быть отправлены ограничена примерно 30000 байтами. Символьные строки преобразуются в формат UTF-8.

Читать далее «AMC – ABAP Messaging Channels»

cl_reca_gui_f4_popup – класс для создания справки

cl_reca_gui_f4_popup - класс обертка позволяющая быстро выводить средство поиска. Можно использовать как один из вариантов для f4

"
"Example:
 DATA lo_f4          TYPE REF TO cl_reca_gui_f4_popup.

        SELECT   mara~matnr,
                 mara~meins,
                 makt~maktx,
                 mara~ergew,
                 mara~ervol,
                 mara~ergei,
                 mara~ervoe
          FROM mara
            INNER JOIN makt ON mara~matnr = makt~matnr
             INTO CORRESPONDING FIELDS OF TABLE @DATA(lt_mara)
               WHERE
            mtart = 'ZZZZ'
          AND ( ergei = 'KG' )
          AND spras =  @sy-langu
          AND lvorm <> @abap_true.

            DATA lt_res_tab LIKE lt_mara.

        IF lo_f4 IS NOT BOUND.
              lo_f4 = cl_reca_gui_f4_popup=>factory_grid(
                id_title   = 'Заголовок'  " Заголовок окна
                if_multi   = abap_false   " Единичный выбор
                it_f4value = lt_mara     " Вн. таблица с данными
              ).
            ENDIF.

              lo_f4->display( IMPORTING et_result = lt_res_tab
                                        ef_cancelled = DATA(lv_cancelled) ).

              IF lv_cancelled = abap_true.
                RETURN.
              ENDIF.

    IF line_exists( lt_res_tab[ 1 ] ).
     ...
    ENDIF.

"Example:

DATA lo_f4 TYPE REF TO cl_reca_gui_f4_popup.

SELECT mara~matnr,

mara~meins,

makt~maktx,

mara~ergew,

mara~ervol,

mara~ergei,

mara~ervoe

FROM mara

INNER JOIN makt ON mara~matnr = makt~matnr

INTO CORRESPONDING FIELDS OF TABLE @DATA(lt_mara)

WHERE

mtart = 'ZZZZ'

AND ( ergei = 'KG' )

AND spras = @sy-langu

AND lvorm <> @abap_true.

DATA lt_res_tab LIKE lt_mara.

IF lo_f4 IS NOT BOUND.

lo_f4 = cl_reca_gui_f4_popup=>factory_grid(

id_title = 'Заголовок' " Заголовок окна

if_multi = abap_false " Единичный выбор

it_f4value = lt_mara " Вн. таблица с данными

ENDIF.

lo_f4->display( IMPORTING et_result = lt_res_tab

ef_cancelled = DATA(lv_cancelled) ).

IF lv_cancelled = abap_true.

RETURN.

ENDIF.

IF line_exists( lt_res_tab[ 1 ] ).

...

ENDIF.

cl_salv_table – быстрый вывод ALV

Для быстрого вывода ALV, например для произвольного справочника, можем использовать класс cl_salv_table. Очень удобно и быстро.

Пример:

"
"
DATA lo_alv TYPE REF TO cl_salv_table.
DATA lr_functions TYPE REF TO cl_salv_functions_list.
DATA lr_selections TYPE REF TO cl_salv_selections.
DATA lt_select TYPE salv_t_row.
DATA lt_data_tab LIKE lcl_get_data=>gt_data_tab[]." Таблица с данными

*"----------------------------------------------------------------------
    "Вызов окна для выбора записей

    TRY.
        cl_salv_table=>factory(
          IMPORTING
            r_salv_table = lo_alv
          CHANGING
            t_table      = lt_data_tab[] ).

      CATCH cx_salv_msg.
    ENDTRY.

    lr_functions = lo_alv->get_functions( ).
    lr_functions->set_all( 'X' ).

    IF lo_alv IS BOUND.

      lo_alv->set_screen_popup(
        start_column = 30
        end_column  = 120
        start_line  = 20
        end_line    = 50 ).

      lr_selections = lo_alv->get_selections( ).
      lo_alv->display( ).
      lt_select = lr_selections->get_selected_rows( ).

    ENDIF.

    "Используем выделенные строки как хотим
    READ TABLE lt_select ASSIGNING FIELD-SYMBOL(<ls_select>) INDEX 1.
.......

DATA lo_alv TYPE REF TO cl_salv_table.

DATA lr_functions TYPE REF TO cl_salv_functions_list.

DATA lr_selections TYPE REF TO cl_salv_selections.

DATA lt_select TYPE salv_t_row.

DATA lt_data_tab LIKE lcl_get_data=>gt_data_tab[]." Таблица с данными

*"----------------------------------------------------------------------

"Вызов окна для выбора записей

TRY.

cl_salv_table=>factory(

IMPORTING

r_salv_table = lo_alv

CHANGING

t_table = lt_data_tab[] ).

CATCH cx_salv_msg.

ENDTRY.

lr_functions = lo_alv->get_functions( ).

lr_functions->set_all( 'X' ).

IF lo_alv IS BOUND.

lo_alv->set_screen_popup(

start_column = 30

end_column = 120

start_line = 20

end_line = 50 ).

lr_selections = lo_alv->get_selections( ).

lo_alv->display( ).

lt_select = lr_selections->get_selected_rows( ).

ENDIF.

"Используем выделенные строки как хотим

READ TABLE lt_select ASSIGNING FIELD-SYMBOL(<ls_select>) INDEX 1.

.......