Архивы Примеры кода - Страница 3 из 4

ABAP сохранение файла в папку на сервере

Небольшой пример:

"""""""" это только кусочек кода
 private section.

    types:
      begin of gty_s_text_tab,
        line(1024) type c,
      end of gty_s_text_tab.

    types: gty_t_text_tab type table of gty_s_text_tab.
    data gt_text_tab type gty_t_text_tab.
"""""""""""""""""""""""""""""""""""""

    methods: 
      open_dataset importing iv_filename type string.


"""""реализация метода
  method open_dataset.

    try.
        open dataset iv_filename for output in text mode encoding utf-8 .
        loop at gt_text_tab assigning field-symbol(<ls_text>).
          transfer <ls_text> to iv_filename.
        endloop.
        close dataset iv_filename.
      catch cx_root.
        message 'Доступ к файлу не разрешен'(010) type 'I'.
    endtry.

  endmethod.

"""""""" это только кусочек кода

private section.

types:

begin of gty_s_text_tab,

line(1024) type c,

end of gty_s_text_tab.

types: gty_t_text_tab type table of gty_s_text_tab.

data gt_text_tab type gty_t_text_tab.

"""""""""""""""""""""""""""""""""""""

methods:

open_dataset importing iv_filename type string.

"""""реализация метода

method open_dataset.

try.

open dataset iv_filename for output in text mode encoding utf-8 .

loop at gt_text_tab assigning field-symbol(<ls_text>).

transfer <ls_text> to iv_filename.

endloop.

close dataset iv_filename.

catch cx_root.

message 'Доступ к файлу не разрешен'(010) type 'I'.

endtry.

endmethod.

ABAP Отправка email с вложением DOC\DOCX пример

Пример отправки email из программы.
При отправке обязательно надо указать размер вложения. Без этого будет ошибка при открытии.
Читать далее «ABAP Отправка email с вложением DOC\DOCX пример»

Парсер xml пример

Пример небольшого парсера для разбора xml вида:

<root>
   <ls fio="Ivanov Ivan" pernr="11112222">
       <row param1="10" param2="20" param3="30" param4="40"/>
       <row param1="11" param2="21" param3="31" param4="41"/>
       <row  param3="32" param4="42"/>
   </ls>
</root>

<root>

</ls>

</root>

Читать далее «Парсер xml пример»

cl_gui_alv_grid средство поиска

Если нам необходимо средство поиска для cl_gui_alv_grid и нас не устраивает средство поиска, которое мы можем задать при создании каталога полей, мы можем использовать событие onf4

Порядок действия при этом следующий:

Читать далее «cl_gui_alv_grid средство поиска»

ABAP2XLSX Чтение шаблона из SMW0. Копирование Листов. Использование сохраненных стилей.

В российских проектах для выгрузки в EXCEL применяется разработка ZWWW в большинстве случаев. Но она имеет несколько проблем как с быстродействием, так и с тем, что используется технология OLE. Основное неудобство на мой взгляд, это не возможность получить документ в фоне, и, например, сразу отправить его как вложение в письме и т.д.
Данную проблему можно решить используя другую разработку под названием ABAP2XLSX. Однако, из-за редкого использования многие не считают, что применяя ее невозможно использовать ранее сохраненные шаблоны. Это не так.
Рассмотрим небольшой пример в котором получим шаблон из репозитория состоящего из одного листа:
1. Скопируем этот лист со всем оформлением в новый.
2. Сохраним документ с двумя листами на локальный компьютер.

Читать далее «ABAP2XLSX Чтение шаблона из SMW0. Копирование Листов. Использование сохраненных стилей.»

Arсhivelink пример

Транзакции:

OAAD - «Документы администрирования ArchiveLink» можно использовать для просмотра документов.
OAOH - «ArchiveLink архивация и присвоение» можно сохранить свой документ
SWO1 - Построитель бизнес объектов

В системе есть несколько групп функций для работы с ArchiveLink. Я использовал следующие:

Читать далее «Arсhivelink пример»

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

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

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

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

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

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

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.

.......

ABAP радиокнопки. Скрыть отобразить поля по нажатию. Пример.

"
"
TABLES: mara, mard, mspr, eban, aufk, afpo, afih.
DATA: gv_ucomm  TYPE sy-ucomm.

SELECT-OPTIONS: s_mtart FOR mara-mtart.
SELECT-OPTIONS: s_matnr FOR mara-matnr.
SELECT-OPTIONS: s_mfrpn FOR mara-mfrpn.

PARAMETERS: p_alg_1 TYPE c RADIOBUTTON GROUP gr1 USER-COMMAND com1 DEFAULT 'X'.
PARAMETERS: p_alg_2 TYPE c RADIOBUTTON GROUP gr1 .
PARAMETERS: p_alg_3 TYPE c RADIOBUTTON GROUP gr1.
PARAMETERS: p_alg_4 TYPE c RADIOBUTTON GROUP gr1.
PARAMETERS: p_alg_5 TYPE c RADIOBUTTON GROUP gr1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002 .
SELECT-OPTIONS: s_werks2 FOR mard-werks MODIF ID sc2,
                s_lgort2 FOR mard-lgort MODIF ID sc2,
                s_sobkz2 FOR mspr-sobkz MODIF ID sc2,
                s_pspnr2 FOR mspr-pspnr MODIF ID sc2.
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003 .
SELECT-OPTIONS: s_ekgrp3 FOR eban-ekgrp MODIF ID sc3,
                s_matkl3 FOR eban-matkl MODIF ID sc3,
                s_bsart3 FOR eban-bsart MODIF ID sc3,
                s_banfn3 FOR eban-banfn MODIF ID sc3,
                s_bnfpo3 FOR eban-bnfpo MODIF ID sc3.
SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-004 .
SELECT-OPTIONS: s_auart4 FOR aufk-auart MODIF ID sc4,
                s_aufnr4 FOR afpo-aufnr MODIF ID sc4,
                s_projn4 FOR afpo-projn MODIF ID sc4,
                s_equnr4 FOR afih-equnr MODIF ID sc4.
SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-005 .
PARAMETERS: p_req_T TYPE text20 MODIF ID sc5.
PARAMETERS: p_req   TYPE text20 MODIF ID sc5.
SELECTION-SCREEN END OF BLOCK b5.

AT SELECTION-SCREEN.
" событие срабатывает, когда нажимаем кнопку
  gv_ucomm = sy-ucomm.

AT SELECTION-SCREEN OUTPUT.
" Данное событие срабатывает после AT SELECTION-SCREEN
" но sy-ucomm очищается, поэтому используем ранее сохраненное значение 
  CHECK gv_ucomm = 'COM1'.
  lcl_get_data=>user_comand_1( EXPORTING iv_alg_1 = p_alg_1
                                         iv_alg_2 = p_alg_2
                                         iv_alg_3 = p_alg_3
                                         iv_alg_4 = p_alg_4
                                         iv_alg_5 = p_alg_5
                              ).

"Опишем класс
CLASS lcl_get_data DEFINITION.
  PUBLIC SECTION.
  user_comand_1 IMPORTING iv_alg_1 TYPE abap_bool
                              iv_alg_2 TYPE abap_bool
                              iv_alg_3 TYPE abap_bool
                              iv_alg_4 TYPE abap_bool
                              iv_alg_5 TYPE abap_bool.

 PRIVATE SECTION.
 visible_on_off IMPORTING iv_modif   TYPE char3
                               iv_visible TYPE abap_bool.   
ENDCLASS.


CLASS lcl_get_data IMPLEMENTATION.

METHOD user_comand_1.
    visible_on_off( EXPORTING iv_modif = 'SC1' iv_visible = iv_alg_1 ).
    visible_on_off( EXPORTING iv_modif = 'SC2' iv_visible = iv_alg_2 ).
    visible_on_off( EXPORTING iv_modif = 'SC3' iv_visible = iv_alg_3 ).
    visible_on_off( EXPORTING iv_modif = 'SC4' iv_visible = iv_alg_4 ).
    visible_on_off( EXPORTING iv_modif = 'SC5' iv_visible = iv_alg_5 ).
  ENDMETHOD.


 METHOD visible_on_off.

    DATA lv_invisible TYPE c.
    DATA lv_active    TYPE c.
    DATA lv_output    TYPE c.
    DATA lv_input     TYPE c.

    IF iv_visible = abap_true.
      lv_invisible = 0.
      lv_active    = 1.
      lv_output    = 1.
      lv_input     = 1.
    ELSE.
      lv_invisible = 1.
      lv_active    = 0.
      lv_output    = 0.
      lv_input     = 0.
    ENDIF.

    LOOP AT SCREEN.
      IF screen-group1 = iv_modif.
        screen-invisible = lv_invisible.
        screen-active    = lv_active.
        screen-output    = lv_output.
        screen-input     = lv_input.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.

  ENDMETHOD.

  

ENDCLASS.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

TABLES: mara, mard, mspr, eban, aufk, afpo, afih.

DATA: gv_ucomm TYPE sy-ucomm.

SELECT-OPTIONS: s_mtart FOR mara-mtart.

SELECT-OPTIONS: s_matnr FOR mara-matnr.

SELECT-OPTIONS: s_mfrpn FOR mara-mfrpn.

PARAMETERS: p_alg_1 TYPE c RADIOBUTTON GROUP gr1 USER-COMMAND com1 DEFAULT 'X'.

PARAMETERS: p_alg_2 TYPE c RADIOBUTTON GROUP gr1 .

PARAMETERS: p_alg_3 TYPE c RADIOBUTTON GROUP gr1.

PARAMETERS: p_alg_4 TYPE c RADIOBUTTON GROUP gr1.

PARAMETERS: p_alg_5 TYPE c RADIOBUTTON GROUP gr1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002 .

SELECT-OPTIONS: s_werks2 FOR mard-werks MODIF ID sc2,

s_lgort2 FOR mard-lgort MODIF ID sc2,

s_sobkz2 FOR mspr-sobkz MODIF ID sc2,

s_pspnr2 FOR mspr-pspnr MODIF ID sc2.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003 .

SELECT-OPTIONS: s_ekgrp3 FOR eban-ekgrp MODIF ID sc3,

s_matkl3 FOR eban-matkl MODIF ID sc3,

s_bsart3 FOR eban-bsart MODIF ID sc3,

s_banfn3 FOR eban-banfn MODIF ID sc3,

s_bnfpo3 FOR eban-bnfpo MODIF ID sc3.

SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-004 .

SELECT-OPTIONS: s_auart4 FOR aufk-auart MODIF ID sc4,

s_aufnr4 FOR afpo-aufnr MODIF ID sc4,

s_projn4 FOR afpo-projn MODIF ID sc4,

s_equnr4 FOR afih-equnr MODIF ID sc4.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-005 .

PARAMETERS: p_req_T TYPE text20 MODIF ID sc5.

PARAMETERS: p_req TYPE text20 MODIF ID sc5.

SELECTION-SCREEN END OF BLOCK b5.

AT SELECTION-SCREEN.

" событие срабатывает, когда нажимаем кнопку

gv_ucomm = sy-ucomm.

AT SELECTION-SCREEN OUTPUT.

" Данное событие срабатывает после AT SELECTION-SCREEN

" но sy-ucomm очищается, поэтому используем ранее сохраненное значение

CHECK gv_ucomm = 'COM1'.

lcl_get_data=>user_comand_1( EXPORTING iv_alg_1 = p_alg_1

iv_alg_2 = p_alg_2

iv_alg_3 = p_alg_3

iv_alg_4 = p_alg_4

iv_alg_5 = p_alg_5

"Опишем класс

CLASS lcl_get_data DEFINITION.

PUBLIC SECTION.

user_comand_1 IMPORTING iv_alg_1 TYPE abap_bool

iv_alg_2 TYPE abap_bool

iv_alg_3 TYPE abap_bool

iv_alg_4 TYPE abap_bool

iv_alg_5 TYPE abap_bool.

PRIVATE SECTION.

visible_on_off IMPORTING iv_modif TYPE char3

iv_visible TYPE abap_bool.

ENDCLASS.

CLASS lcl_get_data IMPLEMENTATION.

METHOD user_comand_1.

visible_on_off( EXPORTING iv_modif = 'SC1' iv_visible = iv_alg_1 ).

visible_on_off( EXPORTING iv_modif = 'SC2' iv_visible = iv_alg_2 ).

visible_on_off( EXPORTING iv_modif = 'SC3' iv_visible = iv_alg_3 ).

visible_on_off( EXPORTING iv_modif = 'SC4' iv_visible = iv_alg_4 ).

visible_on_off( EXPORTING iv_modif = 'SC5' iv_visible = iv_alg_5 ).

ENDMETHOD.

METHOD visible_on_off.

DATA lv_invisible TYPE c.

DATA lv_active TYPE c.

DATA lv_output TYPE c.

DATA lv_input TYPE c.

IF iv_visible = abap_true.

lv_invisible = 0.

lv_active = 1.

lv_output = 1.

lv_input = 1.

ELSE.

lv_invisible = 1.

lv_active = 0.

lv_output = 0.

lv_input = 0.

ENDIF.

LOOP AT SCREEN.

IF screen-group1 = iv_modif.

screen-invisible = lv_invisible.

screen-active = lv_active.

screen-output = lv_output.

screen-input = lv_input.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDMETHOD.

ENDCLASS.