MOVE 'SER03'       TO l_rserob-taser.
  MOVE p_mblnr    TO l_rserob-mblnr.
  MOVE p_mjahr    TO l_rserob-mjahr.
  MOVE p_zeile    TO l_rserob-zeile.
  CALL FUNCTION 'GET_SERNOS_OF_DOCUMENT'
    EXPORTING
      key_data            = l_rserob
    TABLES
      sernos              = pt_serials
    EXCEPTIONS
      key_parameter_error = 1
      no_supported_access = 2
      no_data_found       = 3
      OTHERS              = 4."

method if_ex_mb_migo_badi~check_item.

  types:
     begin of ty_s_goserial,
       selected         type xfeld,
       serialno         type gernr,
       uii              type uii_char72,              "EHP603 IUID
       subrk            type xfeld,                   "EHP604 TT 2007.12.21
     end of ty_s_goserial,
     ty_t_goserial      type standard table of ty_s_goserial with
                                              non-unique default key.

  data: oref_kernel     type ref to object,
        wa_return       type bapiret2,
        l_goitem        type goitem,
        lt_goserial     type ty_t_goserial,
        wa_goserial     like line of lt_goserial,
        l_index         type syindex.


  field-symbols:
                 <oref_kernel>        type any,
                 <fs_action>          type any,
                 <ft_goserial>        type any table.

* Определение режима работы
  assign ('(SAPLMIGO)GODYNPRO-ACTION') to <fs_action>.
  check sy-subrc = 0.

* Обработка только для режимов проводки переноса
  check  ( <fs_action>     eq 'A08' or
           <fs_action>     eq 'A09' ).

  assign ('(SAPLMIGO)LCL_MIGO_GLOBALS=>KERNEL') to  <oref_kernel>.
  check sy-subrc = 0.

  oref_kernel = <oref_kernel>.

*   Определение позиции
  clear l_index.
  call method oref_kernel->('LINE_MAPPING')
    exporting
      i_global_counter = i_line_id
    importing
      e_line           = l_index
    exceptions
      others           = 1.

  if sy-subrc <> 0.
    exit.
  endif.

*   Получение подробных данных строки
  clear: l_goitem, lt_goserial.
  call method oref_kernel->('LINE_GET')
    exporting
      i_line             = l_index
      i_dependent_tables = abap_true
    importing
      et_goserial        = lt_goserial
      es_goitem          = l_goitem
    . " TYPE ty_t_goserial
endmethod.