среда, 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[ ]
          msgv2 l_error_text[ ]
        ).
        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.

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

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