Malzeme Birim Fiyat : a540 tablosu

  select single * into ls_a540  from a540
    where kappl = `V`
      and kschl =  `ZT00`
      and matnr = ls_malzeme-matnr
      and datbi =  `99991231`.
  check sy-subrc eq 0.



  select single * into ls_konp from konp
         where knumh = ls_a540-knumh.
  check sy-subrc eq 0.

  e_MALZEME-waers = ls_konp-KONWA.
  if ls_konp-kpein eq 0.
    e_MALZEME-netwr =  ls_konp-kbetr.
  else.
    e_MALZEME-netwr =  ls_konp-kbetr / ls_konp-kpein.
  endif.