Рубрика: Основы ABAP

Введение в основные понятия необходимые для понимания процессов разработки на языке ABAP

MOVE-CORRESPONDING для внутренних таблиц

29.02.2012 от Astrafox·5 комментариев

TYPES:

BEGIN OF ty_one,

a TYPE char2,

b TYPE char2,

C TYPE char2,

END OF ty_one,

BEGIN OF ty_two,

b TYPE char2,

C TYPE char2,

END OF ty_two.

DATA:

lt_tab1 TYPE STANDARD TABLE OF ty_one,

lt_tab2 TYPE STANDARD TABLE OF ty_two.

FIELD-SYMBOLS: <fs_struct> TYPE ty_one,

<fs_struct1> TYPE ty_two.

APPEND INITIAL LINE TO lt_tab1 ASSIGNING <fs_struct>.

<fs_struct>-a = 'a1'.

<fs_struct>-b = 'b1'.

<fs_struct>-C = 'c1'.

APPEND INITIAL LINE TO lt_tab1 ASSIGNING <fs_struct>.

<fs_struct>-a = 'a2'.

<fs_struct>-b = 'b2'.

<fs_struct>-C = 'c2'.

APPEND INITIAL LINE TO lt_tab2 ASSIGNING <fs_struct1>.

<fs_struct1>-b = 'z1'.

<fs_struct1>-C = 'z2'.

" MOVE-CORRESPONGING для внутренних таблиц не работает,

" простая альтернатива:

cl_reca_data_services=>move_corresponding_table(

EXPORTING

IT_SRC = lt_tab1

CHANGING

CT_TRG = lt_tab2 ).

Upd Для ABAP версии 7.40, оператор move-corresponding работает с таблицами, см справку по F1.

Индикатор выполнения задачи

22.02.2012 от Astrafox·Нет комментариев

REPORT ZPROGRESS_INDICATOR.

DATA:

go_progress TYPE REF TO CL_AKB_PROGRESS_INDICATOR.

CONSTANTS:

co_max_times TYPE I VALUE 100000.

INITIALIZATION.

IF go_progress IS NOT BOUND.

go_progress = CL_AKB_PROGRESS_INDICATOR=>get_instance( ).

ENDIF.

START-OF-SELECTION.

WRITE 'TEST'.

DO co_max_times TIMES.

go_progress->display(

EXPORTING

total = co_max_times

processed = sy-INDEX

MESSAGE = 'В процессе..' ).

ENDDO.

SALV Table — Обработка системных команд

19.02.2012 от Astrafox·Нет комментариев

Недавно столкнулся с проблемой невозможности отловить нажатие &F03 (BACK) при использовании полно-экранного режима SALV таблицы. Выход оказался весьма простым: в скопированном GUI статусе вместо стандартного кода &F03 поставить EXIT. Все, при этом в событии ADDED_FUNCTION стало возможно обработать данную команду. Как альтернативу можно использовать получение экземпляра класса cl_gui_alv_greed через ФМ:

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

e_grid = go_grid.

И назначение обработчика событию BEFORE_USER_COMMAND.

SALV Table — Checkbox поля

19.02.2012 от Astrafox·2 комментария

В настоящее время SALV объекты не предоставляют стандартных средств для подключения возможности редактирования. Но в некоторых случаях можно исхитриться и получить желаемый результат. Рассмотрим небольшой пример. Необходимо предоставить пользователю возможность обработки записей в таблице. Пользователь выделяет нужные записи в таблице и нажимает кнопку обработки, которую мы заранее добавили в GUI статус. Таким образом он совершает два действия: выделение и нажатие на кнопку обработки. А что если попробовать сократить его действия до одной операции? В этом случае мы можем использовать checkbox поля.

Удобный выбор значений из внутренних таблиц

15.02.2012 от Astrafox·8 комментариев

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

REPORT zf4_gui_help.

DATA:

gt_spfli TYPE spfli_tab, " Вн. таблица из которой происходит выбор данных

gt_res_tab TYPE spfli_tab, " Данные с выбранными значениями

go_f4 TYPE REF TO CL_RECA_GUI_F4_POPUP.

PARAMETERS: p_test TYPE spfli-connid.

INITIALIZATION.

SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE gt_spfli.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_test.

PERFORM get_help.

FORM get_help.

FIELD-SYMBOLS: <fs_rec> TYPE spfli.

CLEAR gt_res_tab.

IF go_f4 IS NOT BOUND.

go_f4 = cl_reca_gui_f4_popup=>factort_grid(

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

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

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

ENDIF.

go_f4->display( IMPORTING ET_RESULT = gt_res_tab ).

READ TABLE gt_res_tab INDEX 1 ASSIGNING <fs_rec>.

CHECK sy-subrc EQ 0 AND <fs_rec> IS ASSIGNED.

p_test = <fs_rec>-connid.

ENDFORM.

Шаблон прототип

15.02.2012 от Astrafox·Нет комментариев

Задаёт виды создаваемых объектов с помощью экземпляра-прототипа и создаёт новые объекты путём копирования этого прототипа.

Проще говоря, это паттерн создания объекта через клонирование другого объекта вместо создания через конструктор.

SALV Table — Объединение полей в группы

13.02.2012 от Astrafox·Нет комментариев

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

SALV Table — Настройка колонок

12.02.2012 от Astrafox·Нет комментариев

Для настройки колонок в ALV первым делом необходимо получить ссылку на объект класса: CL_SALV_COLUMNS. Данный класс отвечает за общие для всех колонок настройки, такие как: оптимизация ширины, порядок колонок. Получить ссылку на объект можно методом get_columns главного объекта ALV. Для изменения индивидуальных колонок необходимо получить ссылку на объект требуемой колонки. Для этого воспользоваться методом get_column( ‘ИмяКолонки’ ) из объекта отвечающего за все колонки, полученного ранее.

SALV Table — Настройка внешнего вида

12.02.2012 от Astrafox·Нет комментариев

Настроить внешний вид ALV объекта можно используя класс: cl_salv_display_settings. C его помощью можно задать: отображение вертикальных/горизонтальных линий, заголовок таблицы, включить отображение в полоску и т.п. Пример того как с ним работать ниже:

REPORT ZALV_DISPLAY_SETTINGS.

DATA:

gt_data TYPE spfli_tab, " Таблица с данными

go_settings TYPE REF TO cl_salv_display_settings,

go_alv TYPE REF TO cl_salv_table.

START-OF-SELECTION.

SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE gt_data.

TRY.

cl_salv_table=>factory(

IMPORTING

r_salv_table = go_alv

CHANGING

t_table = gt_data ).

CATCH cx_salv_msg .

MESSAGE 'Ошибка при создании ALV' TYPE 'E'.

ENDTRY.

go_alv->set_screen_status( EXPORTING

REPORT = 'SAPLSALV_METADATA_STATUS'

pfstatus = 'SALV_TABLE_STANDARD'

set_functions = CL_SALV_MODEL_BASE=>C_FUNCTIONS_ALL ).

" Получение ссылки на объект

go_settings = go_alv->get_display_settings( ).

" Включение зебры

go_settings->set_striped_pattern( abap_true ).

" Установка заголовка

go_settings->set_list_header( 'Заголовок' ).

" Отключение вертикальных линий

go_settings->set_vertical_lines( abap_false ).

" Отобразить ALV представление

go_alv->display( ).

Альтернативой данному способу настройки внешнего вида может служить использование форматов.

SALV Table — Настройка формата

12.02.2012 от Astrafox·Нет комментариев

Формат ALV определяет: сортировки, группировки, внешний вид, настройку оптимизации колонок и т.п. Для выбора форматов служит класс cl_salv_layout_service. Для настройки сохранения и привязки к ALV объекту класс cl_salv_layout. Первое что необходимо при работе с форматами дать пользователю возможность его выбрать на экране выбора.

ABAP Blog

Все о разработке в решениях от SAP

ABAP Blog

Все о разработке в решениях от SAP

Рубрика: Основы ABAP

MOVE-CORRESPONDING для внутренних таблиц

Индикатор выполнения задачи

SALV Table — Обработка системных команд

SALV Table — Checkbox поля

Удобный выбор значений из внутренних таблиц

Шаблон прототип

SALV Table — Объединение полей в группы

SALV Table — Настройка колонок

SALV Table — Настройка внешнего вида

SALV Table — Настройка формата