Здравствуйте.
Столкнулся с такой ситуацией, при создании записей компенсации программно.
Набросал простенький кусочек кода...
Code:
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
* TCLAS = 'A'
PERNR = <2006>-pernr
INFTY = '2006'
BEGDA = <2006>-begda
ENDDA = <2006>-endda
BYPASS_BUFFER = 'X'
* LEGACY_MODE = ' '
* IMPORTING
* SUBRC =
TABLES
INFTY_TAB = i2006tmp[]
EXCEPTIONS
INFTY_NOT_FOUND = 1
OTHERS = 2.
if lines( i2006tmp ) > 0.
read table i2006tmp assigning <2006tmp> index 1.
<0416>-pernr = <2006>-pernr.
<0416>-infty = '0416'.
<0416>-subty = 'UA20'.
<0416>-begda = begda.
<0416>-endda = begda.
<0416>-qctyp = 'UA20'.
<0416>-stype = 'A'. " лимит отсутствия
<0416>-numbr = <2006tmp>-anzhl - qrest.
<0416>-quonr = <2006tmp>-quonr.
CALL FUNCTION 'ENQUEUE_EPPRELE' ...
clear return2.
pDialMd = '0'.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
INFTY = '0416'
NUMBER = <0416>-pernr
VALIDITYEND = <0416>-endda
VALIDITYBEGIN = <0416>-begda
RECORD = <0416>
OPERATION = 'INS'
DIALOG_MODE = pDialMd
IMPORTING
RETURN = return2 .
CALL FUNCTION 'DEQUEUE_EPPRELE' ...
endif.
В результате запись в 416ИТ не создаётся, но и сообщение об ошибке никакое не возвращается. Когда переключил pDialMd в значение "2", чтобы увидеть всё на экране, обратил внимание что значение из поля <0416>-numbr не было передано. Т.е. все остальные значения переданы были правильно. И если вручную ввести число дней компенсации и сохранить, то все прекрасно срабатывает. Кто-то сталкивался с такой ситуацией?
Вход
Регистрация
FAQ пользователя
Поиск
