SELECT * FROM ckmlhd INNER JOIN mara ON ckmlhd~matnr = mara~matnr INTO CORRESPONDING FIELDS OF wa_journal WHERE bwkey = '1000' AND prdha IN p_prdha.
  CHECK wa_journal-matnr IN p_matnr.
  SELECT SINGLE maktx FROM makt INTO wa_journal-maktx WHERE matnr = wa_journal-matnr AND spras = 'RU'.
  SELECT SINGLE ntgew FROM mara INTO wa_journal-ntgew WHERE matnr = wa_journal-matnr.
  SELECT SINGLE pvprs FROM ckmlcr INTO wa_journal-pvprs WHERE kalnr = wa_journal-kalnr AND bdatj = p_bdatj AND poper = p_poper AND curtp = '10' AND vprsv = 'V'.
  SELECT SINGLE losgr FROM ckmlprkeko INTO wa_journal-losgr WHERE kalnr = wa_journal-kalnr AND bdatj = p_bdatj AND poper = p_poper AND curtp = '10' AND prtyp = 'V'.
  SELECT SINGLE kst001 kst003 kst005 kst007 FROM ckmlprkeph INTO (wa_journal-kst001,  wa_journal-kst003,  wa_journal-kst005,  wa_journal-kst007 )
     WHERE kalnr = wa_journal-kalnr AND bdatj = p_bdatj AND poper = p_poper AND curtp = '10' AND prtyp = 'V' AND keart = 'N' AND kkzst = ''.

  IF wa_journal-losgr NE 0.
    wa_journal-kst001 = wa_journal-kst001 / wa_journal-losgr.
    wa_journal-kst003 = wa_journal-kst003 / wa_journal-losgr.
    wa_journal-kst005 = wa_journal-kst005 / wa_journal-losgr.
    wa_journal-kst007 = wa_journal-kst007 / wa_journal-losgr.
  ENDIF.