а где смотреть, не могу понять из каких таблиц и как это реализовано, чтобы по аналогии создал, поменяв лишь обращение к таблицам
код
http://xmage.ru/images/3bqb.jpgкогда проваливаюсь в метод
method IF_EX_HR_INDVAL~DO_INDIRECT_VALUATION.
DATA: ls_valuation TYPE padiv_valuation_strct.
DESCRIBE TABLE if_ex_hr_indval~wgtp_stack.
ls_valuation = valuation_input.
CASE module_spec.
when 'N' or 'M'.
clear a_subrc.
free a_container.
a_pernr = pernr.
a_tclas = tclas.
a_MODULE_SPEC = module_spec.
a_molga = molga.
a_infty = infty.
a_lgart = lgart.
a_begda = begda.
a_endda = endda.
me->BONUS_MODEL( changing ps_valuation = ls_valuation ).
free a_container.
subrc = a_subrc.
if subrc eq 0.
valuation_output = ls_valuation.
endda = a_endda.
endif.
WHEN OTHERS.
CALL FUNCTION 'HR_RU_RP_PERFORM_MODULE'
EXPORTING
MODULE = FLT_VAL
MODULE_SPEC = MODULE_SPEC
MOLGA = MOLGA
BEGDA = BEGDA
TCLAS = TCLAS
PERNR = PERNR
INFTY = INFTY
LGART = LGART
CHANGING
amount = ls_valuation-amount
currency = ls_valuation-currency
number = ls_valuation-number
unit = ls_valuation-unit
ENDDA = ENDDA
EXCEPTIONS
ERROR_AT_INDIRECT_EVALUATION = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
SUBRC = 8.
CALL FUNCTION 'HR_INDVAL_MESSAGE_HANDLE'
EXPORTING
MODUL = FLT_VAL
MSGTY = SY-MSGTY
MSGID = SY-MSGID
MSGNO = SY-MSGNO
MSGV1 = SY-MSGV1
MSGV2 = SY-MSGV2
MSGV3 = SY-MSGV3
MSGV4 = SY-MSGV4.
ELSE.
SUBRC = 0.
valuation_output = ls_valuation.
ENDIF.
ENDCASE.
endmethod.