method DB_SELECT.
SELECT * from zs213_artikel into  table mt_artikel
        where art_nr in IM_ART_NR_RT
        and  KUERZEL in IM_ART_KUERZEL_RT.
ASSERT sy-subrc = 0 or mt_artikel is initial.





endmethod.

method DB_SELECT_SINGLE.
  data: l_art_nr_rz TYPE zs213_art_nr_rz,
        l_art_nr_rt TYPE zs213_art_nr_rt.

  l_art_nr_rz-sign = 'I'.
  l_art_nr_rz-option = 'EQ'.
  l_art_nr_rz-low = im_art_nr.

  insert l_art_nr_rz into l_art_nr_rt INDEX 1.
  ASSERT sy-subrc = 0.
  db_select( im_art_nr_rt = l_art_nr_rt ).

endmethod.
method DB_SAVE.
  MODIFY zs213_artikel from table MT_ARTIKEL.
  "Fehlerbehandlung fehlt noch



endmethod.

method GET_ALL.

    et_artikel = mt_artikel.

endmethod.

method GET_FIRST.

  read table mt_artikel index 1 INTO ex_artikel.
  if sy-subrc <> 0.
    "Es gibt keinen ersten Artikel, liefere Ex_ARTIKEL ler zurüc:
    clear ex_artikel.
   ENDIF

endmethod.
method SET.


FIELD-SYMBOLS <g_artikel> TYPE zs213_artikel.

READ TABLE mt_artikel with KEY art_nr = IM_ARTIKEL-art_nr ASSIGNING <g_artikel>.

if sy-subrc <> 0 .
  "Ich enthalte den Artikel noch nicht, füge ihn ein
  insert IM_Artikel INTO mt_artikel index 1.
  assert sy-subrc = 0.

 else.
   "Ich enthalte den Artikel. Artikel wird geändert
   <g_artikel> = IM_ARTIKEL.

 endif.

endmethod.

METHOD contains.

  FIELD-SYMBOLS <l_artikel> TYPE zs213_artikel.

  re_contains = zcl_xfeld=>false.


  READ TABLE mt_artikel WITH KEY art_nr = im_artikel-art_nr ASSIGNING <l_artikel>.

  IF sy-subrc EQ 0.
    IF im_only_key EQ  zcl_xfeld=>true.
      re_contains = zcl_xfeld=>true.
    ELSE.
      IF <l_artikel> EQ im_artikel.
        re_contains = zcl_xfeld=>true.
      ENDIF.
    ENDIF.


  ENDIF.

ENDMETHOD.