Вывод лога обработки табельных номеров

Для использования лога обработки табельных номеров нужно использовать логическую базу данных PNP.

Все необходимые объекты для работы с логом содержатся в инклюде pulogru0.

  1. TABLES: pernr.
  2.  
  3. ** log forms and data
  4. INCLUDE pulogru0.
  5.  
  6. * LOG initialization
  7. PERFORM init_log USING ''.
  8.  
  9. GET pernr.
  10. * сообщение или ошибка
  11. CALL METHOD g_log->add_message_to_log_and_table
  12. EXPORTING
  13. im_pernr = pernr
  14. im_msg_id = 'HRPADRUREPORTS'
  15. im_msg_type = 'S'
  16. im_msg_number = '215'.
  17.  
  18. * конец обработки табельного, добавляется в общий список
  19. CALL METHOD g_log->add_employee_node
  20. EXPORTING
  21. im_pernr = pernr.
  22.  
  23.  
  24. * проверка филд каталога таблица
  25. ** field catalog and layout
  26. DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
  27. wa_fieldcat LIKE LINE OF gt_fieldcat,
  28. gs_layout TYPE slis_layout_alv.
  29.  
  30. CALL FUNCTION 'HR_PAL_CREATE_NODE_CATEG'
  31. EXPORTING
  32. i_categ_id = 'CPER'
  33. i_save = 'A'
  34. is_layout = gs_layout
  35. it_fieldcat = gt_fieldcat
  36. EXCEPTIONS
  37. program_error = 1
  38. OTHERS = 2.
  39. *
  40. DATA: ls_smp_dyntxt TYPE smp_dyntxt,
  41. lv_button1 TYPE bal_s_push,
  42. lv_button2 TYPE bal_s_push,
  43. lv_button3 TYPE bal_s_push,
  44. lv_button4 TYPE bal_s_push.
  45.  
  46. ls_smp_dyntxt-quickinfo = 'Отчёт'.
  47. ls_smp_dyntxt-icon_id = icon_display.
  48. ls_smp_dyntxt-icon_text = 'Отчёт'.
  49. lv_button1-active = 'X'.
  50. lv_button1-def = ls_smp_dyntxt.
  51. lv_button1-position = space.
  52. * display
  53. CALL METHOD g_log->display_log2
  54. EXPORTING
  55. im_add_statistics = 'X'
  56. im_tree_ontop = 'N'
  57. im_main_form = 'LOG_PROCESS_COMMAND'
  58. im_button1 = lv_button1
  59. im_button2 = lv_button2
  60. im_button3 = lv_button3
  61. im_button4 = lv_button4.
  62.  
  63. *&---------------------------------------------------------------------*
  64. *& Form log_process_command
  65. *&---------------------------------------------------------------------*
  66. * text
  67. *----------------------------------------------------------------------*
  68. * -->LS_DISPLAY_PROFILE text
  69. *----------------------------------------------------------------------*
  70. FORM log_process_command CHANGING ls_display_profile TYPE bal_s_cbuc.
  71. IF ls_display_profile-ucomm EQ '%EXT_PUSH1'.
  72. * отрабатывает после нажатия кнопки отчёт
  73. ENDFORM. "log_process_command

Категория: