Создание записи в 2003 инфотипе (Замещения) через HR_INFOTYPE_OPERATION

divan

Здравствуйте коллеги!
Помогите решить проблему.
Пытаюсь создать замещение таким образом

Code:

  DATA: wa_p2003_ins LIKE p2003 occurs 0 with header line.
  DATA: KEY like BAPIPAKEY.
 
 LOOP AT p2003_ins.

* блокируем таб номер

    CALL FUNCTION 'ENQUEUE_EPPRELE'
      EXPORTING
        mode_prel      = 'E'
        mandt          = sy-mandt
        pernr          = p2003_ins-pernr
        infty          = '2003'
      EXCEPTIONS
        foreign_lock   = 1
        system_failure = 2
        OTHERS         = 3.


    IF sy-subrc EQ 0.

      CLEAR wa_p2003_ins.

      wa_p2003_ins-pernr = p2003_ins-pernr.
      wa_p2003_ins-INFTY = '2003'.
      wa_p2003_ins-begda = p2003_ins-begda.
      wa_p2003_ins-endda = p2003_ins-endda.
      wa_p2003_ins-tprog = p2003_ins-tprog.
      wa_p2003_ins-MOTPR = '33'.
      wa_p2003_ins-UNAME = SY-UNAME.
      wa_p2003_ins-VTART = 'R1'.
      wa_p2003_ins-AEDTM = SY-DATUM.

      CALL FUNCTION 'HR_INFOTYPE_OPERATION'
        EXPORTING
          infty         = '2003'
          subtype       ='1'
          number        = p2001_ins-pernr
          validityend   = SY-DATUM
          validitybegin = SY-DATUM
          record        = wa_p2003_ins
          dialog_mode = '1'
          operation     = 'INS'
        IMPORTING
          return        = retcd
          KEY = key.

      COMMIT WORK AND WAIT.

* разблокировка

      CALL FUNCTION 'DEQUEUE_EPPRELE'
        EXPORTING
          mode_prel = 'E'
          mandt     = sy-mandt
          pernr     = p2003_ins-pernr
          infty     = '2003'.


    ENDIF.
  ENDLOOP.

Все проходит нормально.
retcd - возвращает пустой набор, в ручную замещение с такими же данными чрез pa30 создается.
Но вот эта запись не создается через HR_INFOTYPE_OPERATION.
Почему, не могу понять... хоть бы что нибудь в retcd появилось, так нет же...

Aleqs

А почему в запись 2003-го ИТ пишутся одни даты BEGDA-ENDDA, а при вызове ФМ в параметры VALIDITYBEGIN-VALIDITYEND - пишется SY-DATUM? Они должны быть одинаковы.
Аналогично поле VTART в записи (и поле SUBTY) должны быть равны параметру SUBTYPE в вызове ФМ.

divan

Нет, к сожалению также не работает...

divan

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

OlegDm

Попробуй еще указать:

Code:

wa_p2003_ins-SUBTY = 'R1'.

Правила форума

Создание записи в 2003 инфотипе (Замещения) через HR_INFOTYPE_OPERATION

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