Чтение Инфо-типа 0008 с учетом косвенной оценки

Довольно часто ВО не хранятся на прямую в ИТ 0008, поэтому, чтение таблицы pa0008 нам ничего не даст. В таких случаях можно использовать ФМ 'RP_FILL_WAGE_TYPE_TABLE'.

 CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE'
          EXPORTING
            appli                        = 'E'
            begda                        = uv_endda
            endda                        = uv_endda
            infty                        = '0008'
            objps                        = '  '
            pernr                        = pernr-pernr
            seqnr                        = '   '
*           SUBTY                        = '    '           "N0507085
            subty                        = '0   '           "N0507085
          TABLES
            ppbwla                       = lv_ppbwla
            pp0001                       = lt_p0001         "pp0001
*           PP0007                       =
            pp0008                       = lt_p0008
          EXCEPTIONS
            error_at_indirect_evaluation = 1
            OTHERS                       = 2.

CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE'

EXPORTING

appli = 'E'

begda = uv_endda

endda = uv_endda

infty = '0008'

objps = ' '

pernr = pernr-pernr

seqnr = ' '

* SUBTY = ' ' "N0507085

subty = '0 ' "N0507085

TABLES

ppbwla = lv_ppbwla

pp0001 = lt_p0001 "pp0001

* PP0007 =

pp0008 = lt_p0008

EXCEPTIONS

error_at_indirect_evaluation = 1

OTHERS = 2.

Добавить комментарий Отменить ответ