SAPCODE - Страница 18 из 18 -

Получение данных из ALV стандартных отчетов

Получим данные из отчета rm07mlbd

    DATA: lr_data TYPE REF TO data.
    FIELD-SYMBOLS: <lt_data> TYPE table.

"Инициация
cl_salv_bs_runtime_info=>set(
              EXPORTING display  = abap_false
                        metadata = abap_false
                        data     = abap_true ).
"Вызов отчета rm07mlbd,  для примера
SUBMIT rm07mlbd
WITH matnr = p_matnr " Номер материала
WITH werks = p_werks  "     Завод
WITH lgort = p_lgort " Склад
WITH datum = p_date "дата
WITH xsum  = abap_false
WITH pa_sumfl = abap_true
WITH pa_sflva = '/ZMB5B_KR'
AND RETURN.

TRY.
"Получаем таблицу значений
cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = lr_data ).
ASSIGN lr_data->* TO <lt_data>.
CATCH cx_salv_bs_sc_runtime_info.
MESSAGE 'Ошибка чтения данных отчета mb5b'(003) TYPE 'E'.
ENDTRY.

cl_salv_bs_runtime_info=>clear_all( ).

DATA: lr_data TYPE REF TO data.

FIELD-SYMBOLS: <lt_data> TYPE table.

"Инициация

cl_salv_bs_runtime_info=>set(

EXPORTING display = abap_false

metadata = abap_false

data = abap_true ).

"Вызов отчета rm07mlbd, для примера

SUBMIT rm07mlbd

WITH matnr = p_matnr " Номер материала

WITH werks = p_werks " Завод

WITH lgort = p_lgort " Склад

WITH datum = p_date "дата

WITH xsum = abap_false

WITH pa_sumfl = abap_true

WITH pa_sflva = '/ZMB5B_KR'

AND RETURN.

TRY.

"Получаем таблицу значений

cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = lr_data ).

ASSIGN lr_data->* TO <lt_data>.

CATCH cx_salv_bs_sc_runtime_info.

MESSAGE 'Ошибка чтения данных отчета mb5b'(003) TYPE 'E'.

ENDTRY.

cl_salv_bs_runtime_info=>clear_all( ).

Вывод нескольких ALV в одном контейнере

Периодически возникает потребность вывести несколько таблиц на одном экране

Все это можно сделать в одном контейнере, при этом обновлять таблицы можно как вместе так и отдельно. Также у каждой таблицы будет своя панель кнопок и заголовок.
Создадим небольшой пример. В верхнюю таблицу выводим материал и по двойному щелчку информация по нему отображается в нижнем окне.

Читать далее «Вывод нескольких ALV в одном контейнере»

SELECT … FOR ALL ENTRIES и DISTINCT

Необходимо было разобраться, почему запрос не получает все записи из БД. Сам запрос довольно простой. Казалось бы, ничего не предвещало беды.

Запрос:

 SELECT
vbelv,
posnv,
vbtyp_n,
rfmng,
FROM vbfa
INTO CORRESPONDING FIELDS OF TABLE @DATA(lt_vbfa)
FOR ALL ENTRIES IN @lt_vbap
WHERE vbfa~vbelv = @lt_vbap-vbeln
AND vbfa~posnv = @lt_vbap-posnr
AND ( vbfa~vbtyp_n = 'R' OR vbfa~vbtyp_n = 'h' ).

SELECT

vbelv,

posnv,

vbtyp_n,

rfmng,

FROM vbfa

INTO CORRESPONDING FIELDS OF TABLE @DATA(lt_vbfa)

FOR ALL ENTRIES IN @lt_vbap

WHERE vbfa~vbelv = @lt_vbap-vbeln

AND vbfa~posnv = @lt_vbap-posnr

AND ( vbfa~vbtyp_n = 'R' OR vbfa~vbtyp_n = 'h' ).

Однако вместо 15-ти записей возвращалось всего 5.

Читать далее «SELECT … FOR ALL ENTRIES и DISTINCT»

HCM отключение проверки полномочий.

Полномочия в HCM бывают двух видов. А именно полномочия PA и OM (структурные). Подробнее можно прочитать в курсе HCM940. Вся работа с данными в HCM, согласно концепции разработки в модуле, должна осуществляться в рамках присвоенных полномочий. Но иногда требуется получить данные на которые их нет.

Читать далее «HCM отключение проверки полномочий.»

BDC – пакетный ввод

BDC - это технология для записи и воспроизведения транзакций. Не всегда известна логика работы транзакции, а провести при помощи нее данные необходимо или нам нужен ввод каких-либо повторяющихся данных.
Транзакция в которой осуществляется запись сеанса пакетного ввода является SHDB или SM35.
Читать далее «BDC – пакетный ввод»

Действия с ведущими нулями\пробелами

Удалить ведущие нули\пробелы(space):

*
SHIFT lv_string LEFT DELETING LEADING '0'.
" Пробелы
SHIFT lv_string LEFT DELETING LEADING '0'.

SHIFT lv_string LEFT DELETING LEADING '0'.

" Пробелы

SHIFT lv_string LEFT DELETING LEADING '0'.

Также можно использовать PACK/UNPACK

DATA lv_line_1(6) TYPE c VALUE '1'.
DATA lv_line_2(16) TYPE c.
DATA lv_line_3(6) TYPE c.
DATA lv_line_4(16) TYPE c.

"Добавили
UNPACK lv_line_1 TO lv_line_2.
"Убрали
PACK lv_line_2 TO lv_line_3.

DATA lv_line_1(6) TYPE c VALUE '1'.

DATA lv_line_2(16) TYPE c.

DATA lv_line_3(6) TYPE c.

DATA lv_line_4(16) TYPE c.

"Добавили

UNPACK lv_line_1 TO lv_line_2.

"Убрали

PACK lv_line_2 TO lv_line_3.

Также можно использовать ФМы

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    input         = lv_line_1
 IMPORTING
   OUTPUT        = lv_line_4
          .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input         = lv_line_4
 IMPORTING
   OUTPUT        = lv_line_5
          .

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = lv_line_1

IMPORTING

OUTPUT = lv_line_4

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = lv_line_4

IMPORTING

OUTPUT = lv_line_5