Dumer написал(а):
Каким образом найти типовую месячную амортизацию за текущий год?
Пока пользуемся функцией AM_SHOW_POST_DEPR, но слишком медленно работает. Может есть у кого-нибудь идеи?
можно использовать функцию 'RA_AFABUCHEN'
где l_afbper = период '001', '002' итд
так-же создать и заполнить данными lt_* таблицы
Пример:
l_afbper = '001'.
l_refresh = 'X'.
DO.
CALL FUNCTION 'RA_AFABUCHEN'
EXPORTING
i_afbgjr = v_gjahr
i_afbper = l_afbper
i_anla = v_anla
i_fehler = ' '
i_xanep = 'X'
i_next = 'X'
i_nocheck = 'X'
i_refresh = l_refresh
TABLES
t_093d = lt_t093d
t_anfm = lt_anfm
t_anlb = lt_anlb
t_anlc = lt_anlc
t_anlp = lt_anlp
t_anlz = lt_anlz
t_anep = lt_anep
t_anea = lt_anea
EXCEPTIONS
OTHERS = 8.
ENDIF.
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
LOOP AT lt_anlp WHERE peraf = l_afbper.
CLEAR ut_dpost.
MOVE-CORRESPONDING lt_anlp TO ut_dpost.
COLLECT ut_dpost. " собрать по периодам
ENDLOOP.
CLEAR l_refresh. " нужен тлк. на перв запуск
REFRESH lt_anlp.
l_afbper = l_afbper + 1. " сл. период
ENDDO.
ut_dpost ( структура FIAA_DPOST ) содержит необх. данные по всем обл. оценки