l_error_text = value #(
( |Не заполнен Материал: | )
( |BAL_ACC = { SOURCE_FIELDS-BAL_ACC }| )
).
monitor_rec = value #(
msgid = 'RSRMON'
msgty = 'E'
msgno = '000'
msgv1 = l_error_text[ 1 ]
msgv2 = l_error_text[ 2 ]
).
append monitor_rec to MONITOR.
или
DATA(l_error_text) = |Повторная загрузка. Calday = {
<fs_rez>-calday+6(2)
}.{
<fs_rez>-calday+4(2)
}.{
<fs_rez>-calday(4)
}|.
APPEND VALUE #(
msgid = 'RSRMON'
msgty = 'E'
msgno = '000'
msgv1 = l_error_text
) TO monitor.
*******
if l_error = abap_true.
"Обнаружены ошибки в данных.
raise exception type CX_RSROUT_SKIP_RECORD.
или
RAISE EXCEPTION TYPE cx_rsrout_abort.
endif.
( |Не заполнен Материал: | )
( |BAL_ACC = { SOURCE_FIELDS-BAL_ACC }| )
).
monitor_rec = value #(
msgid = 'RSRMON'
msgty = 'E'
msgno = '000'
msgv1 = l_error_text[ 1 ]
msgv2 = l_error_text[ 2 ]
).
append monitor_rec to MONITOR.
или
DATA(l_error_text) = |Повторная загрузка. Calday = {
<fs_rez>-calday+6(2)
}.{
<fs_rez>-calday+4(2)
}.{
<fs_rez>-calday(4)
}|.
APPEND VALUE #(
msgid = 'RSRMON'
msgty = 'E'
msgno = '000'
msgv1 = l_error_text
) TO monitor.
*******
if l_error = abap_true.
"Обнаружены ошибки в данных.
raise exception type CX_RSROUT_SKIP_RECORD.
или
RAISE EXCEPTION TYPE cx_rsrout_abort.
endif.
Комментариев нет:
Отправить комментарий