Коллеги, нужна ваша консультация, помогите кто сможет.
Пишу программу импорта условий PR00. Используются RV_CONDITION_COPY, RV_CONDITION_SAVE, RV_CONDITION_RESET. Все в общем то как в многочисленных примерах. Возникла проблема - программа стабильно при первом запуске цены не обновляет. Отрабатывает без ошибок, коды возврата 0, а цены остаются без изменения. При втором и последующих запусках все обновляется четко и без проблем. После выхода из системы снова первый запуск вхолостую.
Может знает кто, в чем дело может быть? Помогите пожалуйста.
Цитата:
loop at data.
clear: cr, wa_pispr.
refresh: cr, wa_pispr.
*-----------------------------
key_fields-matnr = data-matnr.
cr-kappl = 'V'.
cr-kschl = pkschl.
cr-kbetr = data-kbetr.
cr-kpein = '1'.
cr-kmein = pkmein.
cr-waers = pwaers.
APPEND cr.
wa_pispr-matnr = data-matnr.
wa_pispr-vkorg = pvkorg.
wa_pispr-vtweg = pvtweg.
wa_pispr-spart = pspart.
append wa_pispr.
CALL FUNCTION 'SPR_KOMK_KOMP_FILL'
EXPORTING
pi_i_spr = wa_pispr
IMPORTING
PE_I_KOMK = komk
PE_I_KOMP = komp
.
CALL FUNCTION 'RV_CONDITION_COPY'
EXPORTING
application = 'V'
condition_table = '304'
condition_type = 'PR00'
date_from = sy-datum
date_to = '99990101'
enqueue = 'X'
i_komk = komk
i_komp = komp
key_fields = key_fields
maintain_mode = 'A'
no_authority_check = 'X'
keep_old_records = 'X'
overlap_confirmed = 'X'
IMPORTING
e_komk = komk
e_komp = komp
new_record = nr
TABLES
copy_records = cr
EXCEPTIONS
enqueue_on_record = 01
invalid_application = 02
invalid_condition_number = 03
invalid_condition_type = 04
no_authority_ekorg = 05
no_authority_kschl = 06
no_authority_vkorg = 07
no_selection = 08
table_not_valid = 09.
CALL FUNCTION 'RV_CONDITION_SAVE'.
CALL FUNCTION 'RV_CONDITION_RESET'.
endloop.
commit work.
Вход
Регистрация
FAQ пользователя
Поиск
COMMIT WORK, COMMIT WORK AND WAIT. 