取收货冻结库存的函数

最新推荐文章于 2023-08-28 08:38:41 发布

yong325

最新推荐文章于 2023-08-28 08:38:41 发布

阅读量365

点赞数

分类专栏： SAP Function 文章标签： SAP Stock

本文链接：https://blog.csdn.net/yong325/article/details/8734970

版权

SAP 同时被 2 个专栏收录

433 篇文章 4 订阅

订阅专栏

Function

23 篇文章 1 订阅

订阅专栏

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.