ZBlog学习笔记

FUNCTION ZFM_GET_DUTY_RATE.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_MWSKZ) TYPE  MWSKZ
*"  EXPORTING
*"     VALUE(E_KBETR) TYPE  STRING
*"----------------------------------------------------------------------

  TABLES: A003,KONP.
  CLEAR A003.
  SELECT SINGLE * FROM A003 WHERE KAPPL = 'TX' AND ALAND = 'CN' AND MWSKZ = I_MWSKZ.
  IF SY-SUBRC = 0.
    CLEAR KONP.
    SELECT SINGLE * FROM KONP WHERE KNUMH = A003-KNUMH AND KOPOS = 1.
    IF SY-SUBRC = 0.
      E_KBETR = KONP-KBETR / 1000.
    ENDIF.
  ENDIF.
ENDFUNCTION.