Отпуск по контракту

Galka

Подскажите пожалуйста, как можно вести и на основании чего генерить ежегодно отпуска (оценкой или программой), которые назначаются персонально каждому за красивые глаза. И таких отпусков у меня 3 штуки - по контракту, за ненормированный рабдень, за счёт прибыли. - тут думаю забить 9* инфо-типчик вид лимита-количество, в базовом праве всем прописать по нулям, в правиле выбора их всех переччислить, а в генерации лимитов rptqta00 найти какое-то расширение (какое).
Но мне кажется, что не может не быть стандартного решения без абапа

Как сделать отпуск за стаж работы в отрасли (правило стажа есть)? У него особенность - срок действия начинается в момент "юбилея" стажа

Galka

наверное, никто не знает как стандартно прописать персонально человеку полагающиеся дни отпуска

- сделала свой 9005 инфотипчик, вклинила расчёт и перерасчёт (пропорционально, если были изменения за год) в exit_saplhrlv_004. В базовом праве отпуска по контракту происала по нулям

Единственная проблема - у всех отпусков интервал действия для значений по умолчанию один для группы выбора типа лимита, а у меня есть отпуска, которые даются с другими датами действия, например, одни со дня начала отпускного периода в ИТ0041 на год, другие (учебные) с 1 сентября на 10 месяцев, самый сложный вариант - со дня юбилея стажа на год. А они генерятся все с одними и теми же датами действия/использования, хотя и в базовом прописала "со ссылкой на период" другой период "учебный год", и в правиле выбора период кумуляции другой период "учебный год" (с сентября).

Никакой из екзитов вроде не подходит для изменения дат действия/использования. Мож кто знает где подменить даты? Самое обидное, где-то в середине кода в некоторых екзитах даты правильные (xbabeg xbaend), но под конец они уже насильно забиваются датами из интервала действия по умолчанию. Как это побороть?

Proforg

А вообще был смысл эти самые отпуска за красивые глаза генерить? Их в любом случае тогда в пользовательский ИТ заносить. Пусть сразу в 2006 колотят, тем более, все эти отпуска за красивые глаза имеют тренд изменяться в зависимости от должности и т.п.
Лимиты имеет смысл только в привязке к шт.должности/раб.месту хранить, имхо.
А касательно инклюда - PBAS0001 расширение называлось, оччень приятсвенное в части второго экзита

Galka

Ну да, всем этим тысячам работников колотить отпуска в 2006 - такое решение я уже предлагала. И никак у нас к должности не привязано. Некоторые отпуска дают потому что нет других финансовых рычагов, позволенных законодательством, чтобы подсластить некоторым особо ценным кадрам.

Proforg написал:

А касательно инклюда - PBAS0001 расширение называлось, оччень приятсвенное в части второго экзита

предлагаете менять дату в пбо PBAS0001? И даты самим в пбо 2006 вытаскивать и рассчитывать? Неудобно, можно взять только от полной безысходности.
Мой екзит HRPTIM03 (4 екзит я использую для изменения базового значения) местами хранит правильные даты, но не даёт их менять
Пытаюсь менять в 12 екзите (но там нет правильных дат) - вылетает в дамп, но и так и так он не удобен
в 11 не совсем удобно - XDDATE равна концу нужного интервала, меняю XENDDA XENDDE XBEGDA XBEGDE - но программа ругается - не меняйте даты в екзите
и т.д. пока нормального не нашла

Proforg

Цитата:

Ну да, всем этим тысячам работников колотить отпуска в 2006 - такое решение я уже предлагала

Тысячи особо ценных работников???? :lol:

А касательно дат - то еще 9ый экзит HRPTIM03 можно поюзать.

Bully

EXIT_SAPLHRLV_007 - Customer Enhancement for Quota Generation: Defaults for Validity Interval
EXIT_SAPLHRLV_011 - Customer Enhancement for Quota Generation: Validity and Deduction Interval

Расширение HRPTIM03 (Группа функций XPLA) - там еще много полезного.

Galka

Proforg написал:

Тысячи особо ценных работников???? :lol:

да, и доходит до смешного - куча главных и старших специалистов (некоторые со звездочкой, палочкой), начинаешь копать - это по сути бухгалтера, кассиры и т.п., но только как специалистам им можно дать зарплату повыше.

Proforg написал:

А касательно дат - то еще 9ый экзит HRPTIM03 можно поюзать.

ничего екзит, но нет дат нужных, откуда взять данные.
Например, в 6 екзите XBABEG XBAEND для нужного учебного отпуска с сентября по август - то что надо, но потом эта дата портится - я поняла что сама дальше не справлюсь в рамках дозволенного консультанту, так что подключила разработчиков - предлагают засунуть в мемори а потом достать.
посмотрим...

OlegDm

Поднимаю старую тему. Galka, может подскажите как вам удалось разрулить описанную вами ситуацию? Может в добавок к экзитам БАДИ какие-нибудь можно использовать?

VirVit

OlegDm написал(а):

Поднимаю старую тему. Galka, может подскажите как вам удалось разрулить описанную вами ситуацию? Может в добавок к экзитам БАДИ какие-нибудь можно использовать?

У нас стандартный экзит EXIT_SAPLHRLV_004 и в нем читается значение атрибута (ИТ1222 с ОМ) с днями отпуска за ненормированный день. Вроде проблем нет.

OlegDm

Мы тоже используем ИТ 1222 для хранения базового значения. Вот только вопрос с датами, вернее с интервалами действий.
Интервалы для того же отпуска за вредность могут не совпадать с интервалами осн.отпуска. Плюс еще парочка подобных доп.отпусков есть. Собственно в этом основной вопрос - в датах и интервалах действия.

Galka

одними екзитами не обошлось - пришлось кое-где енхансмент поинт использовать - перед выходом из функции генерации. Завтра гляну в системе, не помню. Искала дебагом.

VirVit

OlegDm написал(а):

Мы тоже используем ИТ 1222 для хранения базового значения. Вот только вопрос с датами, вернее с интервалами действий.
Интервалы для того же отпуска за вредность могут не совпадать с интервалами осн.отпуска. Плюс еще парочка подобных доп.отпусков есть. Собственно в этом основной вопрос - в датах и интервалах действия.

По вредности есть указания в законе, что отпуск начисляется по фактически отработанному времени исходя из 7 (условно) дней за год работы во вредных условиях. Я считаю его ежедневно в оценке времени как долю от годового значения. Как только накапливается полный день, он переносится в лимит.

OlegDm

VirVit натолкнул на мысль, а так уж важно какие периоды будут в ИТ 2006? - пусть будут те, что присваиваются группе правил выбора типа лимита. Главное ведь - чтоб корректно рассчиталось количество лимитов на требуемую дату. Поэтому сделал просто - в EXIT_SAPLHRLV_004 проверяю релевантность требуемых ИТ (для вредности - ИТ 1222, для инвалидности ИТ 0004, и т.п.) дате оценки XGDATE. Нерелевантно - уменьшаю базовое право до 0, релевантно - оставляю, условно говоря, без изменений. Вроде :roll:

все считает корректно.

VirVit

OlegDm написал(а):

VirVit натолкнул на мысль, а так уж важно какие периоды будут в ИТ 2006? - пусть будут те, что присваиваются группе правил выбора типа лимита. Главное ведь - чтоб корректно рассчиталось количество лимитов на требуемую дату. Поэтому сделал просто - в EXIT_SAPLHRLV_004 проверяю релевантность требуемых ИТ (для вредности - ИТ 1222, для инвалидности ИТ 0004, и т.п.) дате оценки XGDATE. Нерелевантно - уменьшаю базовое право до 0, релевантно - оставляю, условно говоря, без изменений. Вроде :roll:

все считает корректно.

Именно так и сделано. Причем по закону, если не ошибаюсь, периодом считается календарный год с 1 января по 31 декабря). Так как эти отпуска не переносятся на будущий период, то жестко прописан в настройке лимита один календарный год.

Galka

может, и не сильно красиво, но:

REPORT rptqta00 .

Code:

FORM append_bdcdata USING fnam fval.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1 ) FORM APPEND_BDCDATA, Начало                                                                                                                  D
*$*$-Start: (1 )--------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZHR_QUOTA_CHANGE_CHANGE_BDC.    "active version
 PERFORM ZZZ_CHANGE_DATA TABLES p_default
                          USING fnam fval. " расширение - подмена дат
                                           " специфических отпусков
ENDENHANCEMENT.
*$*$-End:   (1 )--------------------------------------------------------------------------------$*$*
  CLEAR bdcdata.
  bdcdata-fnam     = fnam.
  bdcdata-fval     = fval.
  APPEND bdcdata.
ENDFORM.                    "append_bdcdata

в INCLUDE RPTQTA01 - прописать инклюд ZIHR_QUOTA_CHANGE с формой ZZZ_CHANGE_DATA
Include ZIHR_QUOTA_CHANGE

Code:

*&---------------------------------------------------------------------*
*&      Form  ZZZ_CHANGE_DATA
*&---------------------------------------------------------------------*
*       Форма сохраняет значение текущего типа лимита в глобальную
*       переменную ZZZ_GL_KTART.
*       Заполнение полей дат идёт позже заполнения поля подтипа (он же
*       тип лимита). Подпрограмма читает запись из таблицы сгенериро-
*       ванных типов лимита и соответственно подменяет даты
*----------------------------------------------------------------------*
*      -->P_FNAM  Имя поля
*      -->P_FVAL  Значение поля
*----------------------------------------------------------------------*
FORM zzz_change_data TABLES    p_def STRUCTURE z_hrqta_default
                      USING    p_fnam
                               p_fval.

  DATA: l_data(10) TYPE c.

* сохраняем актуальный тип лимита
  IF p_fnam = 'RP50G-SUBTY'.
    zzz_gl_ktart = p_fval.
    EXIT.
  ENDIF.

* для анализа важны только сл. поля:
  CHECK p_fnam = 'RP50G-BEGDA'
     OR p_fnam = 'RP50G-ENDDA'
     OR p_fnam = 'P2006-DESTA'
     OR p_fnam = 'P2006-DEEND'.

  CHECK zzz_gl_ktart = '55' "перерасчёт отпуска за стаж
     OR zzz_gl_ktart = '12' "учебный отпуск
     OR zzz_gl_ktart = '13'."дипломный отпуск

  READ TABLE p_def WITH KEY ktart = zzz_gl_ktart.

  CASE p_fnam.
    WHEN 'RP50G-BEGDA'.
      WRITE p_def-begda TO l_data.
    WHEN 'RP50G-ENDDA'.
      WRITE p_def-endda TO l_data.
    WHEN 'P2006-DESTA'.
      WRITE p_def-desta TO l_data.
    WHEN 'P2006-DEEND'.
      WRITE p_def-deend TO l_data.
  ENDCASE.

  p_fval = l_data.

ENDFORM.                    " ZZZ_CHANGE_DATA

INCLUDE ZXPLATOP

Code:

* табличка глобальная, заполняется в EXIT_SAPLHRLV_004, читается в ZXPLAU10
* нужна для подмены дат
DATA: BEGIN OF it_qta_tab_gl OCCURS 0,
         ktart LIKE p2006-ktart,
         anzhl LIKE p2006-anzhl,
         begda LIKE p2006-begda,
         endda LIKE p2006-endda,
         desta LIKE p2006-desta,
         deend LIKE p2006-deend,
      END   OF it_qta_tab_gl.

Include ZXPLAU05

Code:

PERFORM get_pernr_9005. " расчёт полагающихся дней дополнительного
                        " отпуска на базе 9005 инфотипа

ZXPLAU10

Code:

...
        xdef_value_tab-begda = it_qta_tab_gl-begda.
        xdef_value_tab-endda = it_qta_tab_gl-endda.
        xdef_value_tab-desta = it_qta_tab_gl-begda.
        xdef_value_tab-deend = it_qta_tab_gl-endda.
...

Отпуск по контракту

Кто сейчас на конференции