VirVit написал:
А сильно нагло с мой стороны попросить текст этого zx_hruipfp3_getlservice?
Да не проблема, тем более так нам САП отвечал на месидж, когда мы обнаружили, что данная функциональность не обрабатывается отчетом HRULPFP5.
добавить в include zx_hruipfp2.
data: t_psen_sel_rule_peak like psen_sel_rule_peak_dec
occurs 0 with header line.
добавить процесс на селекционый экран в include zx_hruipfp5.
parameters: p_proce like t525p-proce default 'RUPF'.
include zx_hruipfp3_getlservice.
...
Скопировать содержимое getlservice в zx_hruipfp3_getlservice.
добавить определение
data: s_pfr_wc type pru_pfr_wc.
сформировать память
s_pfr_wc-plvar = p_plvar.
s_pfr_wc-rsign = rsign.
s_pfr_wc-relat = relat.
s_pfr_wc-utype = utype.
export s_pfr_wc to memory id 'RUWC'.
Заменить вызов HR_RU_EVALUATE_DURATION на
call function 'HR_RU_SEN_CALCULATE_COMPLETE'
exporting
id_pernr = pernr-pernr
id_molga = '33'
id_proce = p_proce
id_sel_date = ld_endda
id_begda = ld_begda
id_endda = ld_endda
tables
ll_srule_wperiod = t_psen_sel_rule_wght_period
ll_srule_peak = t_psen_sel_rule_peak
exceptions
wrong_import_parameter = 1
wrong_calculation_type = 2
process_not_found = 3
process_pstep_not_found = 4
no_result_for_calty = 5
error_of_other_functions = 6
others = 7.
Заменить вызов HR_RU_PF_PERIODS на
call function 'HR_RU_PF_PERIODS2'
exporting
p_proce = p_proce
p_pernr = pernr-pernr
p_begda = pn-begda
p_endda = pn-endda
tables
ll_srule_wperiod = t_psen_sel_rule_wght_period
pf_period = t_pfperiod
ll_srule_peak = t_psen_sel_rule_peak.
в конце не забыть выйти из процедуры.
Вообще я думал, что это уже стандартно обрабатывается отчетом, так как САП говорил, что планирует поставить данную функциональность, но по-видимому время еще не пришло
На вашем месте я бы конечно его потряс. У нас уже давно работает, поэтому смысла нет.