Автор: Astrafox

Транзакция для запуска BSP приложения

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

Допустим у Вас есть BSP приложение и необходимо создать транзакцию для его запуска. Данную проблему можно решить скопировав транзакцию START_BSP и настроив подходящий вариант. В случае если в вашей системе нет START_BSP, поможет следующий код:

REPORT zbsp_start.

DATA: lv_url TYPE STRING,

lv_urlc(4096) TYPE C,

lt_parms TYPE tihttpnvp.

START-OF-SELECTION.

PARAMETER: p_app TYPE STRING.

PARAMETER: p_page TYPE STRING.

PARAMETER: p_parms TYPE STRING.

END-OF-SELECTION.

*-- Получаем URL для BSP приложения

CALL METHOD cl_http_ext_webapp=>create_url_for_bsp_application

EXPORTING

bsp_application = p_app

bsp_start_page = p_page

bsp_start_parameters = lt_parms

IMPORTING

abs_url = lv_url.

*-- Вызываем браузер по нашему URL'у

lv_urlc = lv_url.

CALL FUNCTION 'CALL_BROWSER'

EXPORTING

url = lv_urlc

window_name = 'BSP'

new_window = ' '

EXCEPTIONS

frontend_not_supported = 1

frontend_error = 2

prog_not_found = 3

no_batch = 4

unspecified_error = 5

OTHERS = 6.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

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.

Получение списка объектов используемых в программе

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

REPORT ZDYN_SELECTIONS.

PARAMETERS:pa_prog TYPE tadir-obj_name.

DATA: environment_selection TYPE envi_types,

source_searched TYPE TABLE OF rsfind,

output_list TYPE TABLE OF senvi.

START-OF-SELECTION.

environment_selection-prog = ' '. "Программы

environment_selection-fugr = ' '. "Группы функций

environment_selection-ldba = ' '. "Логические базы данных

environment_selection-msag = ' '. "Классы сообщений

environment_selection-tran = ' '. "Транзакции

environment_selection-func = 'X'. "Функциональные модули

environment_selection-dial = ' '. "Диалоговые модули

environment_selection-tabl = ' '. "Таблицы базы данных

environment_selection-shlp = ' '. "Средства поиска

environment_selection-doma = ' '. "Домены

environment_selection-dtel = 'X'. "Элементы данных

environment_selection-view = ' '. "Курсоры

environment_selection-mcob = ' '. "Matchcode object

environment_selection-mcid = ' '. "Matchcode ID

environment_selection-para = ' '. "SET/GET параметры

environment_selection-conv = ' '. "Conversion exit

environment_selection-suso = ' '. "Объекты авторизации

environment_selection-TYPE = ' '. "Группы типов

environment_selection-ttyp = ' '. "Типы таблиц

environment_selection-stru = ' '. "Структуры

environment_selection-enqu = ' '. "Объекты блокировок

environment_selection-sqlt = ' '. "SQL tables

environment_selection-clas = ' '. "Классы

environment_selection-intf = ' '. "Интерфейсы

environment_selection-udmo = ' '. "Data model

environment_selection-ueno = ' '. "Entity type

environment_selection-shi3 = ' '. "Area menu

environment_selection-cntx = ' '. "Context

environment_selection-ttab = ' '. "Типы таблиц

CALL FUNCTION 'REPOSITORY_ENVIRONMENT_SET_RFC'

EXPORTING

obj_type = 'PROG'

environment_types = environment_selection

object_name = pa_prog

TABLES

ENVIRONMENT = output_list

source_objects = source_searched.

Качество есть совокупность свойств

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

Качество программного обеспечения можно определить массой способов. Здесь я хочу представить определение, прошедшее самое долгое испытание временем.

Требования, которых нет — самая сложная ошибка

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

Как может получиться, что требований нет? Для этого надо, чтобы в процессе их сбора что-то пошло не так. Сбор требований состоит в определении задачи, которую предстоит решить. Возникает законный вопрос: «Как собирают требования?» Сбор требований нередко, но не всегда, представляет собой процесс взаимодействия одних людей с другими. Те, кто ставит задачу, – заказчики, пользователи или их «бизнес-аналитики» – опрашиваются представителями организации, разрабатывающей ПО.

Плохая оценка — одна из причин неуправляемости проекта

23.02.2012 от Astrafox·1 комментарий

Неуправляемые проекты — это проекты, которые выходят из-под контроля. Слишком часто их не удается завершить выдачей хоть какого-то продукта. А если все же удается, то с большим отставанием от бюджета. Их выполнение сопровождается массой потерь, как корпоративных, так и людских. Некоторые проекты известны как «путь камекадзе». Другие проходят в «авральном режиме». Как бы они не назывались, какими бы ни были результаты, неуправляемые проекты — это невеселое зрелище.

Закон Брукса

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

Если проект не укладывается в сроки, то добавление рабочей силы задержит его еще больше.

Интуиция подсказывает, что если проект отстает от графика, то нужно увеличить людские ресурсы, чтобы наверстать упущенное. Но, как говорит данный факт, здесь интуиции доверять нельзя. Беда в том, что люди, начиная работать в новом проекте, какое-то время «разгоняются». Они должны многое узнать, прежде чем станут приносить пользу. Но еще важнее, что эти знания им приходится получать от других участников проекта. Поэтому новые члены команды очень нескоро становятся эффективными работниками, а до тех пор они расходуют время своих коллег и отвлекают их.

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

(с) Роберт Гласс.

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

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 поля.

ABAP Blog

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

ABAP Blog

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

Автор: Astrafox

Транзакция для запуска BSP приложения

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

Получение списка объектов используемых в программе

Качество есть совокупность свойств

Требования, которых нет — самая сложная ошибка

Плохая оценка — одна из причин неуправляемости проекта

Закон Брукса

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

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

SALV Table — Checkbox поля