Здравствуйте!!!! У меня такой вопрос:

вот код программы, здесь модифиц. и.т. 2006. через фм HR_INFOTYPE_OPERATION. Но не модифиц. и.т. подскажите пж где ошибка(Данных для 2006 (в выбранном периоде) не существует)
form ins_2006.
data: start_date type p0416-begda,
end_date type p0416-endda.
data: i2006 type p2006." occurs 0 with header line. .

data: ipspar like pspar,
nkaltg like p2001-kaltg,
zsubty type p2001-subty,
sum type i,
itog type p decimals 2,
i2001 like p2001,
retcd like bapireturn1,
subrc like sy-subrc,

record_key like bapipakey.
DATA: G_RETURN TYPE bapireturn1.

select * from pa2001 where pernr = pspar-pernr and begda <= pspar-begda and endda >= pspar-begda and subty = 'OTP4'.
nkaltg = pa2001-kaltg.
endselect.

select * from pa2006 where pernr = pspar-pernr and ktart = '14' and begda <= pspar-begda and endda >= pspar-begda.
move-corresponding pa2006 to i2006.
endselect.
sum = 365 - nkaltg.
itog = ( 30 * sum ) / 365.
i2006-anzhl = itog.
zsubty = '0014'.



call function 'ENQUEUE_EPPRELE'
exporting
mode_prel = 'E'
mandt = sy-mandt
pernr = i2006-pernr
infty = '2006'
subty = '0014'
exceptions
foreign_lock = 1
system_failure = 2
others = 3.
if sy-subrc eq 0.

call function 'HR_INFOTYPE_OPERATION'
exporting
infty = '2006'
SUBTYPE = zsubty
number = i2006-pernr
validityend = i2006-endda
validitybegin = i2006-begda
record = i2006
operation = 'MOD'
tclas = 'A'
dialog_mode = '1'
nocommit = ' '
importing
return = retcd
key = record_key.
endif.
COMMIT WORK and wait.
call function 'DEQUEUE_EPPRELE'
exporting
mode_prel = 'E'
mandt = sy-mandt
pernr = i2006-pernr
infty = '2006'
subty = zsubty.

А данные на самом деле есть? Если нету, то наверное нужно делать INS, а не MOD...

Оформляйте код тегом [code].

А они существуют???
Вы хотя бы для приличия после select endselect sy-subrc проверяйте, а то неизвестно что пытаетесь поменять и удивляетесь.

Там данные есть, когда MOD меняю на INS у меня в дамп вылетает

Краткий текст
Invalid COMMIT WORK in a COMMIT WORK or ROLLBACK WORK.



Что произошло?
Error in the ABAP Application Program

The current ABAP program "SAPUP50R" had to be terminated because it has
come across a statement that unfortunately cannot be executed.



Что Вы можете сделать?
Note down which actions and inputs caused the error.


To process the problem further, contact you SAP system
administrator.

Using Transaction ST22 for ABAP Dump Analysis, you can look
at and manage termination messages, and you can also
keep them for a long time.



Анализ ошибки
The call of a COMMIT WORK in a FORM, that will not be executed until
the commit or rollback point of the caller using the variant
PERFORM ... ON COMMIT or PERFORM ... ON ROLLBACK is not permitted.

Ассалау муалейкум Нуржан
Может быть, потому что есть такие уже записи? Ведь INS означает вставку

Операция - инфо-типы

COP Скопировать
DEL Удалить
DIS Просмотреть
EDQ Блокировать/Разблокировать
INS Создать
LIS9 Ограничить
MOD Изменить
INSS "Cоздать" для мероприятий не преобразовано в "Изменить".

уалейкум ассалам matik!!! когда MOD то пишеть что данные не в заданном периоде

Зачем вообще писать COMMIT WORK. ФМ прекрасно это делает и без этого служебного слова.
Это же HR господа =)

все равно в дамп вылетает я проверял))))

А где Вы вообще пытаетесь реализовать приведенный Вами код? не в каком нибудь бади случаем?

я создал дин. мероп. и через настройку в НР настр. Когда мероприятия создается на отпуск без с\з то вызывается вот этот программа и там расчет идет. этот программа вызывается но не пишет в и.т. 2006