среда, 30 сентября 2015 г.

Сообщение в монитор загрузки

        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.

Комментариев нет:

Отправить комментарий