REPORT  zrs_prec_plan.
*
DATA: l_email TYPE rsprec_s_workbook-email,
      dest LIKE rsprec_s_workbook-logsys,
      s_address TYPE bapiaddr3,
      t_return TYPE bapiret2 OCCURS 0.
*WBID   Рабочая папка
PARAMETERS: wbid LIKE rsprec_s_workbook-workbookid
            MEMORY ID wbid.
*VARIANT  Вариант
PARAMETERS: variant TYPE variant MEMORY ID variant.
*DEST   Сервер предв. расчета
*PARAMETERS: dest LIKE rsprec_s_workbook-logsys
*            MEMORY ID dest.
SELECTION-SCREEN SKIP.
*TEMPLATE   Web-шаблон
PARAMETERS: template TYPE rstemplate_maintain_01-tmplid
   MEMORY ID template.
SELECTION-SCREEN SKIP.
*EMAIL  Адреса EMail (отд. знач.)
SELECT-OPTIONS email FOR l_email NO INTERVALS LOWER CASE MEMORY ID email.
*
*Определяем отдел, в котором работает пользователь
CALL FUNCTION 'BAPI_USER_GET_DETAIL'
  EXPORTING
    username = sy-uname
  IMPORTING
    address  = s_address
  TABLES
    return   = t_return.
*Из таблицы ZT_LOGSYS c  полями
*DEPARTAMENT - отдел(ключ)
*LOGSYS - сервер
*определяем сервер, на котором
*должна быть рассчитана книга
SELECT SINGLE logsys FROM zt_logsys
INTO dest
WHERE department = s_address-department.
*Запускаем стандартную программу
*для расчета книг RS_PREC_PLAN
SUBMIT rs_prec_plan
WITH dest = dest
WITH email = email
WITH template = template
WITH variant = variant
WITH wbid  = wbid.