Парсер XML с использованием ФМ SMUM_XML_PARSE

Ниже привожу пример кода который позволяет парсить xml при помощи функционального модуля SMUM_XML_PARSE

inikolax  Черкашин Николай  ENRC BTS

Вакансия

Ребята, есть вакансия на ABAP программиста в Астане в иностранную компанию. Если кому интересно, отправляйте e-mail на dmasionyte@redcommerce.com
Почта не моя, просто пришло приглашение, но сам не могу. Вот решил, может кого заинтересует.

P.S. Резюме и текст письма пишите на английском.

TairKuanyshev     

Вывод диаграмм на abap

Ниже кусок кода который выводит диаграммы с помощью функционального модуля GRAPH_MATRIX_3D который выводит вот такую диаграмму

graph_3d.jpg

inikolax  Черкашин Николай  ENRC BTS

Создание REST (HTTP) клиента на ABAP

Сейчас я вас расскажу как создать REST клиент на abap, то есть сейчас мы научимся отправлять HTTP запросы на ABAP.
Для примера мы возьмем готовый REST сервис который предоставляет курс валюты на указанную дату.

inikolax  Черкашин Николай  ENRC BTS

загрузка файла на сервер SAP

Программа для загрузки файла на сервер SAP. аналог транзакции CG3Y, CG3Z, только с возможностью создать файл. посмотреть загруженный файл можно в транзакции AL11.

  1. PARAMETERS: p_file TYPE rlgrap-filename.
  2. PARAMETERS: sap_file(250) TYPE c.
  3.  
  4. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  5.   CALL FUNCTION 'F4_FILENAME'
  6.     EXPORTING
  7.       field_name = 'P_FILE'
  8.     IMPORTING
  9.       file_name  = p_file.
  10.  
  11. START-OF-SELECTION.
  12.  
  13.   TYPES: BEGIN OF txt_line,
  14.            data(8192) TYPE c,
  15.          END OF txt_line.
  16.  
  17.   DATA: txt_table      TYPE TABLE OF txt_line WITH HEADER LINE,
  18.         txt_tablesize  TYPE i.
  19.   DATA: s_file TYPE string.
  20.  
  21.   s_file = p_file.
  22.  
  23.   CALL FUNCTION 'GUI_UPLOAD'
  24.     EXPORTING
  25.       filename     = s_file
  26.       filetype     = 'ASC'
  27.       read_by_line = 'X'
  28.     IMPORTING
  29.       filelength   = txt_tablesize
  30.     TABLES
  31.       data_tab     = txt_table
  32.     EXCEPTIONS
  33.       OTHERS       = 11.
  34.  
  35.   OPEN DATASET sap_file FOR OUTPUT IN TEXT MODE ENCODING UTF-8.
  36.   LOOP AT txt_table .
  37.     TRANSFER txt_table TO sap_file.
  38.   ENDLOOP.
  39.   CLOSE DATASET sap_file.
kenzhemax  Кенжебаев Максим  CBS ERP

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

Привожу пример кода который позволяет выводить индикатор выполнения задачи

  1.  
  2. DATA:
  3.   go_progress TYPE REF TO CL_AKB_PROGRESS_INDICATOR.
  4.  
  5. CONSTANTS:
  6.   co_max_times TYPE I VALUE 100000.
  7.  
  8. INITIALIZATION.
  9.   IF go_progress IS NOT BOUND.
  10.     go_progress = CL_AKB_PROGRESS_INDICATOR=>get_instance( ).
  11.   ENDIF.
  12.  
  13. START-OF-SELECTION.
  14.   WRITE 'TEST'.
  15.  
  16.   DO co_max_times TIMES.
  17.     go_progress->display( 
  18.       EXPORTING 
  19.         total = co_max_times
  20.         processed = sy-INDEX 
  21.         MESSAGE = 'В процессе..' ).
  22.   ENDDO.
inikolax  Черкашин Николай  ENRC BTS

Добавление ведущих нулей

Привожу пример кода в котором используется функциональный модуль (CONVERSION_EXIT_ALPHA_INPUT) для добавления ведущих нулей

  1.  
  2. DATA:
  3.       zmatnr type MATNR.
  4.  
  5. zmatnr = '123'.
  6. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  7.      EXPORTING
  8.           INPUT  = zmatnr
  9.      IMPORTING
  10.           OUTPUT = zmatnr. "На выходе получим 000000000000000123
inikolax  Черкашин Николай  ENRC BTS

Таймштамп

Таймштамп, удобно записывать в таблицу БД, например с логами, помещается в поле чар размером 20, или num. Есть 2 варианта, доли секунды с 5 знаками после запятой, и с 7-ю, в зависимости от типа данных timestampl и timestamps.

  1. DATA: BEGIN OF wa,
  2.         ...
  3.         time_stamp TYPE timestampl,
  4.         ...
  5.       END OF wa.
  6. ...
  7. GET TIME STAMP FIELD wa-time_stamp.
  8. INSERT dbtab FROM wa.
kenzhemax  Кенжебаев Максим  CBS ERP

Страницы