Пример программы для чтения результатов расчета заработной платы с помощью GET PAYROLL (ЛБД PNP)

В системе есть стандартная программа пример в которой для чтения результатов расчета зарплаты используется операция GET PAYROLL

Название программы:EXAMPLE_PNP_GET_PAYROLL

Ниже исходный код программы:

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

Расшифровка кодов инфотипов HR (HCM)

C По Модуль
0 999 PA (Менеджмент персонала)
1000 1999 OM (Организационный менеджмент)
2000 2999
inikolax  Черкашин Николай  ENRC BTS

Вызов любой ABAP программы из внешней системы посредством RFC

Задача:
Вызывать, из удаленной системы посредством RFC на выполнение любую SAP транзакцию (ABAP отчет) и возвратить данные, которые эта программа (отчет) должна была выводить на экран пользователю в SAP GUI, в удаленную систему в виде XML.
Ниже рассмотрен полный пример решения подобной задачи. Как со стороны ABAP части, так и пример вызова ABAP отчета из внешней системы.
Решение (альтернатива для SAP WEB Services):
ABAP часть:
0) Используем класс ZCL_CLST_CMD описанный здесь: http://www.sapboard.ru/forum/viewtopic.php?f=13&t=68638&view=previous

NX     SAPBW.ru

FI планирование бюджета

KP06 - планирование бюджета по МВЗ
KPF6 - планирование бюджета по заказам
S_ALR_87012993 - стандартный отчет для просмотра действий по статье затрат

elfilika     

Необязательные узлы в XSLT трансформации

Если нужно воспользоваться XSLT трансформацией (как для парсинга, так и создания xml). Юзаем транзашку XSLT_TOOL.
Как обозначить опциональные элементы через сам визард - я так и не узнала, так что просто редактируем код :)

elfilika     

Последний день месяца

Чтобы потом самой не вспоминать.

  1. PARAMETERS: last type datum OBLIGATORY.
  2. last+6(2) = '01'.
  3. last = last + 31. "перепрыгиваем на след месяц
  4. last+6(2) = '01'.
  5. last = last - 1.
  6. write: last+6(2), '.', last+4(2), '.', last(4).
elfilika     

Разбиваем дату на структуру 

  1. DATA: BEGIN OF now_date,
  2.             year(4),
  3.             month(2),
  4.             day(2),
  5.           END OF now_date.
  6.  
  7. now_date = SY-DATUM.
  8.  
  9. WRITE now_date-year.
inikolax  Черкашин Николай  ENRC BTS

Таблица в которой хранятся параметры ФМ

В таблице FUPARAREF,хранятся параметры функциональных модулей

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

Быстрая функция расстояния Левенштейна

Здравствуйте.

Мне удалось значительно оптимизировать свою процедуру нахождения расстояния Левенштейна.
Я добился двукратного увеличения производительности.

Далее прикладываю код оптимизированной процедуры. Пользуйтесь на здоровье.

  1.  form dist using s1 type csequence s2 type csequence CHANGING res TYPE i.
  2.   data:
  3.     ntab TYPE table OF i,
  4.     otab TYPE table of i,
  5.     ls1 type i, ls2 type i,
  6.     t1 type i, t2 type i,
  7.     tt2 type i,
  8.     x1 type i, x2 type i,
  9.     x type i,
  10.     inp type i.
  11.  
  12.   ls1 = strlen( s1 ) - 1.
  13.   ls2 = strlen( s2 ) - 1.
  14.   do.
  15.     do.
  16.       if s1+t1(1) = s2+t2(1).
  17.         if t1 = 0.
  18.           inp = t2.
  19.         elseif t2 = 0.
  20.           inp = t1.
  21.         else.
  22.           read table otab into inp index t2.
  23.         endif.
  24.         insert inp into table ntab.
  25.       else.
  26.         if t1 = 0.
  27.           inp = t2 + 1.
  28.         elseif t2 = 0.
  29.           inp = t1 + 1.
  30.         else.
  31.           tt2 = t2 + 1.
  32.           read table ntab into x index t2.
  33.           read table otab into x1 index t2.
  34.           read table otab into x2 index tt2.
  35.           if x < x1.
  36.             if x < X2.
  37.               inp = x + 1.
  38.             else.
  39.               inp = x2 + 1.
  40.             endif.
  41.           else.
  42.             if x1 < x2.
  43.               inp = x1 + 1.
  44.             else.
  45.               inp = x2 + 1.
  46.             endif.
  47.           endif.
  48.         endif.
  49.         insert inp into table ntab.
  50.       endif.
  51.       if t2 = ls2.
  52.         t2 = 0.
  53.         exit.
  54.       endif.
  55.       t2 = t2 + 1.
  56.     enddo.
  57.     refresh otab.
  58.     otab[] = ntab[].
  59.     refresh ntab.
  60.     if t1 = ls1.
  61.       exit.
  62.     endif.
  63.     t1 = t1 + 1.
  64.   enddo.
  65.   res = inp.
  66. endform.
kenzhemax  Кенжебаев Максим  CBS ERP

Правильная функция расстояния Левенштейна

Здравствуйте.

На нашем сайте недавно публиковался материал посвященный алгоритму определения похожести строк - расстоянию Левенштейна: http://abap.kz/blog/74/user/inikolax . Автор материала inikolax

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

Чтобы исправить ошибку я переписал функцию, заодно оптимизировал выполнение с помощью хэшированной таблицы.

Мне удалось добиться прироста производительности в 6%. Что сэкономило час времени для массовой обработки.
Я использовал для удобства составной ключ хэшированной таблицы, думаю, что если переписать алгоритм так, чтобы для ключа использовалось одно поле, можно добиться ещё большего прироста.

Далее прикладываю исходный код процедуры, вы можете его оптимизировать ещё больше, и опубликовать на нашем сайте.

Спасибо за внимание.

  1. form dist using s1 type csequence s2 type csequence CHANGING res TYPE i.
  2.   types:
  3.     BEGIN OF rec,
  4.       i1 type i,
  5.       i2 type i,
  6.       d type i,
  7.     end of rec.
  8.   data:
  9.     ztab type HASHED TABLE OF rec WITH UNIQUE key i1 i2,
  10.     rtab type rec,
  11.     mtab type rec,
  12.     mtab1 type rec,
  13.     mtab2 type rec,
  14.     ls1 type i, ls2 type i, t1 type i, t2 type i, tt1 type i, tt2 type i.
  15.  
  16.   ls1 = strlen( s1 ).
  17.   ls2 = strlen( s2 ).
  18.   t1 = 1.
  19.   t2 = 1.
  20.   do.
  21.     do.
  22.       tt1 = t1 - 1.
  23.       tt2 = t2 - 1.
  24.       rtab-i1 = t1.
  25.       rtab-i2 = t2.
  26.       if s1+tt1(1) = s2+tt2(1).
  27.         if tt1 = 0.
  28.           rtab-d = tt2.
  29.         elseif tt2 = 0.
  30.           rtab-d = tt1.
  31.         else.
  32.           read table ztab WITH TABLE KEY i1 = tt1 i2 = tt2 into mtab.
  33.           rtab-d = mtab-d.
  34.         endif.
  35.         insert rtab into table ztab.
  36.       else.
  37.         if tt1 = 0.
  38.           rtab-d = t2.
  39.         elseif tt2 = 0.
  40.           rtab-d = t1.
  41.         else.
  42.           read table ztab WITH TABLE KEY i1 = tt1 i2 = tt2 into mtab.
  43.           read table ztab WITH TABLE KEY i1 = tt1 i2 = t2 into mtab1.
  44.           read table ztab WITH TABLE KEY i1 = t1 i2 = tt2 into mtab2.
  45.           if mtab-d < mtab1-d.
  46.             if mtab-d < mtab2-d.
  47.               rtab-d = mtab-d + 1.
  48.             else.
  49.               rtab-d = mtab2-d + 1.
  50.             endif.
  51.           else.
  52.             if mtab1-d < mtab2-d.
  53.               rtab-d = mtab1-d + 1.
  54.             else.
  55.               rtab-d = mtab2-d + 1.
  56.             endif.
  57.           endif.
  58.         endif.
  59.         insert rtab into table ztab.
  60.       endif.
  61.       if t2 = ls2.
  62.         t2 = 1.
  63.         exit.
  64.       endif.
  65.       t2 = t2 + 1.
  66.     enddo.
  67.     if t1 = ls1.
  68.       exit.
  69.     endif.
  70.     t1 = t1 + 1.
  71.   enddo.
  72.   res = rtab-d.
  73. endform.
kenzhemax  Кенжебаев Максим  CBS ERP

Страницы