Архивы Основы

Убрать двойные полосы прокрутки у АЛВ

При создании экрана может произойти задвоение полос прокрутки. Или же наоборот, целевая область будет непропорционально мала.

Для примера создадим экран следующего вида:

При этом если ваш монитор мал, можно увидеть следующую ситуацию:

Отобразилось по одной полосе прокрутки для каждого элемента. На большом экране, наоборот, элементы могут занимать только малу часть экрана.

Хранение файлов в MIME репозитории

Для хранения файлов в SAP используется mime репозиторий. Работать с репозиторием осуществляется в транзакции se80.

Первым делом создадим папку, в которой планируем хранить файлы.

Читать далее «Хранение файлов в MIME репозитории»

Типы RFC в SAP

Remote Function Call (RFC) - стандартный интерфейс связи между SAP системами. RFC функцию можно выполнить в другой системе.

Существует несколько видов RFC функций.

sRFC

sRFC - синхронные RFC. Данный вид RFC выполняется на принципах синхронной связи. Т.е. целевая система должна быть доступна в данный момент, а система из которой вызывается RFC ожидает выполнения. Применение данных RFC целесообразно когда требуется получить данные из целевой системы. Например, при работе в ERP требуется чтение данных какой-либо таблицы в HR системе.
ФМ должен иметь тип выполнения - "Дистанционный модуль".

Читать далее «Типы RFC в SAP»

Дружба ABAP Objects. Получить доступ к приватному атрибуту

Обычно доступ к приватным и защищенным атрибутам объекта запрещен из-за пределов класса. Но порой необходимо нарушить эту концепцию по тем или иным причинам. Для этого в ABAP существует "дружба".
Класс может предоставить дружбу другим классам и интерфейсам. Этим друзьям предоставляется доступ ко всем компонентам класса, предлагающего дружбу, независимо от их раздела видимости или добавления READ-ONLY.

Пример:

CLASS lcl_friend DEFINITION.
  PUBLIC SECTION.
    METHODS access.
ENDCLASS.

CLASS lcl_class_one DEFINITION FRIENDS lcl_friend.
  PRIVATE SECTION.
    DATA mv_variable TYPE string VALUE 'Private Attribute'.
ENDCLASS.

CLASS lcl_friend IMPLEMENTATION.
  METHOD access.
    DATA(lo_obj) = NEW lcl_class_one( ).
    cl_demo_output=>display( lo_obj->mv_variable ).
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.

  DATA(lo_object) = NEW lcl_friend( ).
  lo_object->access( ).

CLASS lcl_friend DEFINITION.

PUBLIC SECTION.

METHODS access.

ENDCLASS.

CLASS lcl_class_one DEFINITION FRIENDS lcl_friend.

PRIVATE SECTION.

DATA mv_variable TYPE string VALUE 'Private Attribute'.

ENDCLASS.

CLASS lcl_friend IMPLEMENTATION.

METHOD access.

DATA(lo_obj) = NEW lcl_class_one( ).

cl_demo_output=>display( lo_obj->mv_variable ).

ENDMETHOD.

ENDCLASS.

START-OF-SELECTION.

DATA(lo_object) = NEW lcl_friend( ).

lo_object->access( ).

Читать далее «Дружба ABAP Objects. Получить доступ к приватному атрибуту»

Маски в ABAP и SQL

	Файловая система	Open SQL	ABAP
Любое кол-во символов	*	%	*
Один любой символ	?	_	+

Давайте рассмотрим примеры поиска
SQL используется оператор LIKE

SELECT *
       FROM doktl
       WHERE id      = 'SD'      AND
             object  LIKE 'AB%'  AND
             langu   = @sy-langu AND
             typ     = 'E'       
       INTO TABLE @DATA(text_tab)
       UP TO 100 ROWS.

SELECT *

FROM doktl

WHERE id = 'SD' AND

object LIKE 'AB%' AND

langu = @sy-langu AND

typ = 'E'

INTO TABLE @DATA(text_tab)

UP TO 100 ROWS.

Внутренние таблицы ABAP используем оператор CP и NP для:
Чтение по маске:

TYPES: BEGIN OF lty_s_tmp,
    id   type i,
    line type string,
       END OF lty_s_tmp,

    lty_t_tmp TYPE TABLE OF lty_s_tmp WITH DEFAULT KEY.

DATA(lt_data) = VALUE lty_t_tmp(
                        ( id = 1 line = 'data 100 data' )
                        ( id = 2 line = 'data 100* data' )
                        ( id = 3 line = 'data 100##' )
                               ).

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data0>) WHERE line CP '*100*' .

ENDLOOP.

TYPES: BEGIN OF lty_s_tmp,

id type i,

line type string,

END OF lty_s_tmp,

lty_t_tmp TYPE TABLE OF lty_s_tmp WITH DEFAULT KEY.

DATA(lt_data) = VALUE lty_t_tmp(

( id = 1 line = 'data 100 data' )

( id = 2 line = 'data 100* data' )

( id = 3 line = 'data 100##' )

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data0>) WHERE line CP '*100*' .

ENDLOOP.

Удаление по маске(проверить возможность установить CP NP)
и использовать RANGE

types:
begin of lty_itab,
   str type string,
    other_fields type string,
end of lty_itab.

data:
lt_itab type standard table of lty_itab,
lr_str type range of string,
ls_str like line of lr_str.

ls_str-sign = 'I'.
ls_str-option = 'CP'.
ls_str-low = 'sap*'.
append ls_str to lr_str.

delete lt_itab where str in lr_str.

types:

begin of lty_itab,

str type string,

other_fields type string,

end of lty_itab.

data:

lt_itab type standard table of lty_itab,

lr_str type range of string,

ls_str like line of lr_str.

ls_str-sign = 'I'.

ls_str-option = 'CP'.

ls_str-low = 'sap*'.

append ls_str to lr_str.

delete lt_itab where str in lr_str.

Эскейп символ.

Немного усложним задачу, что если в искомой строке уже будет специальный
символ. Например, мы хотим выбрать строку "В молоке 30% жирности"
Для этого и существуют дополнение ESCAPE. SAP рекомендует использоать символ "#"

Пример:

SELECT  * 
     FROM ZZZ_TEST_TAB INTO TABLE @DATA(lt_result) 
                   WHERE FIELD_1 LIKE '%30#%%' ESCAPE '#'.

SELECT *

FROM ZZZ_TEST_TAB INTO TABLE @DATA(lt_result)

WHERE FIELD_1 LIKE '%30#%%' ESCAPE '#'.

Для внутренних таблиц аналогично, но работает без дополнения:

TYPES: BEGIN OF lty_s_tmp,
    id   type i,
    line type string,
       END OF lty_s_tmp,

    lty_t_tmp TYPE TABLE OF lty_s_tmp WITH DEFAULT KEY.

DATA(lt_data) = VALUE lty_t_tmp(
                        ( id = 1 line = 'data 100 data' )
                        ( id = 2 line = 'data 100* data' )
                        ( id = 3 line = 'data 100##' )
                               ).

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data0>) WHERE line CP '*100#**' .

ENDLOOP.

"где #* означает символ *, а последняя * - любое количество символов

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data1>) WHERE line CP '*100####' .

ENDLOOP.

TYPES: BEGIN OF lty_s_tmp,

id type i,

line type string,

END OF lty_s_tmp,

lty_t_tmp TYPE TABLE OF lty_s_tmp WITH DEFAULT KEY.

DATA(lt_data) = VALUE lty_t_tmp(

( id = 1 line = 'data 100 data' )

( id = 2 line = 'data 100* data' )

( id = 3 line = 'data 100##' )

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data0>) WHERE line CP '*100#**' .

ENDLOOP.

"где #* означает символ *, а последняя * - любое количество символов

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data1>) WHERE line CP '*100####' .

ENDLOOP.

Блокировки SAP. Позитивные\Негативные. Пример блокировок

Блокировка - отметка записи в базе данных на время проведения операции(INSERT, UPDATE и т.д.). Служит для предотвращения коллизий при доступе к записи и устанавливается на время операции на уровне БД. SAP для своей системы позволяет создал свою концепцию блокировок, которая позволяет блокировать определенные данные на все время работы транзакции.

Читать далее «Блокировки SAP. Позитивные\Негативные. Пример блокировок»

Виртуальная сортировка внутренней таблицы

В abap 7.52 появилась возможность получить порядок записи внутренней таблицы не меняя исходные данные. Т.е., например, можно виртуально отсортировать таблицу в import параметре по интересующему нас ключу.
Для этого был добавлен метод VIRTUAL_SORT класса cl_abap_itab_utilities.
Рассмотрим пример:

Читать далее «Виртуальная сортировка внутренней таблицы»

TRY … RETRY, CLEANUP, RESUME

Разберем несколько операторов в блокe TRY... ENDTRY.

Retry - позволяет выполнить блок TRY еще раз. Перед перезапуском блока необходимо исправить ситуацию, из-за которой случилась ошибка. В противном случае, попадем в бесконечный цикл.

types: begin of gty_s_fio,
         pernr type text8, "в тестовой системе нет hr  типов
         fio   type text100,
         bukrs type bukrs,
       end of gty_s_fio.

data gt_fio type table of gty_s_fio.

try.
    data(gs_data) = gt_fio[ bukrs = '0001' ].
  catch cx_root.
    append value #( pernr = '90000001' fio = 'Ivanov I.I.'  bukrs = '0001'     ) to gt_fio.
    retry.
endtry.

types: begin of gty_s_fio,

pernr type text8, "в тестовой системе нет hr типов

fio type text100,

bukrs type bukrs,

end of gty_s_fio.

data gt_fio type table of gty_s_fio.

try.

data(gs_data) = gt_fio[ bukrs = '0001' ].

catch cx_root.

append value #( pernr = '90000001' fio = 'Ivanov I.I.' bukrs = '0001' ) to gt_fio.

retry.

endtry.

RESUME - возобновляемое исключение. Программа возвращается к работе после исключения.

Читать далее «TRY … RETRY, CLEANUP, RESUME»

Оператор FILTER

ABAP 7.4 вышел уже очень давно, однако, его операторы мало кто использует. Рассмотрим сегодня оператор FILTER который позволяет выбирать данные из одной внутренней таблицы в другую по ключам.
Читать далее «Оператор FILTER»