取收貨凍結庫存的函數

 FUNCTION zget_receiving_frozen_stocks.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(MATNR) TYPE  MATNR
*"     VALUE(WERKS) TYPE  WERKS_D
*"  EXPORTING
*"     VALUE(LABST) TYPE  LABST
*"----------------------------------------------------------------------
  DATA:BEGIN OF it_ekbe OCCURS 0,
       belnr LIKE ekbe-belnr,
       gjahr LIKE ekbe-gjahr,
       bwart LIKE ekbe-bwart,
       wesbs  LIKE ekbe-wesbs,
       menge LIKE ekbe-menge,
  END OF it_ekbe.
  SELECT belnr gjahr bwart wesbs menge
  INTO TABLE it_ekbe
  FROM ekbe
  WHERE ekbe~matnr = matnr
    AND ekbe~werks = werks
    AND bwart IN ('103','104','105','106').

*  LOOP AT it_ekbe.
*    CASE it_ekbe-bwart.
*      WHEN '103'.
*        labst = labst + it_ekbe-wesbs.
*      WHEN '104'.
*        labst = labst - it_ekbe-wesbs.
*      WHEN '105'.
*        labst = labst - it_ekbe-menge.
*      WHEN '106'.
*        labst = labst + it_ekbe-menge.
*    ENDCASE.
*  ENDLOOP.
  LOOP AT it_ekbe.
    IF it_ekbe-bwart = '104' OR it_ekbe-bwart = '106'.
      labst = labst - it_ekbe-wesbs.
    ELSE.
      labst = labst + it_ekbe-wesbs.
    ENDIF.
  ENDLOOP.


ENDFUNCTION.