***批次生成方法

最新推荐文章于 2024-09-02 14:10:04 发布

阿土sap

最新推荐文章于 2024-09-02 14:10:04 发布

阅读量4.1k

点赞数

分类专栏： SAP 文章标签：批次生成方法

本文链接：https://blog.csdn.net/chfeijj/article/details/12572483

版权

SAP 专栏收录该内容

181 篇文章 50 订阅

订阅专栏

***批次生成方法

固定值

采购组织 EKORG WYPO

工厂 WERKS SH01

SAPLV01ZCFCs for internal batch number assignment

EXIT_SAPLV01Z_002

DATA: l_num(10) TYPE c,
      l_ind     TYPE c,
      l_len     TYPE i,
      l_begin   TYPE i.

CASE x_bncom-auart.

  WHEN 'BS01'.
    l_ind = 'B'.

  WHEN 'BXG1'.
    l_ind = 'C'.

  WHEN 'CG01'.
    l_ind = 'D'.

  WHEN 'CG02'.
    l_ind = 'E'.

  WHEN 'CJ01'.
    l_ind = 'F'.

  WHEN 'CJ02'.
    l_ind = 'G'.

  WHEN 'HJ01'.
    l_ind = 'H'.

  WHEN 'JC01'.
    l_ind = 'J'.

  WHEN 'JS01'.
    l_ind = 'K'.

  WHEN 'SY01'.
    l_ind = 'L'.

  WHEN 'TL01'.
    l_ind = 'M'.

  WHEN 'WW01'.
    l_ind = 'N'.

  WHEN 'XC01'.
    l_ind = 'P'.

  WHEN 'ZS01'.
    l_ind = 'Q'.

  WHEN 'ZZ01'.
    l_ind = 'R'.

ENDCASE.

IF x_bncom-bstyp = 'F'.
  l_ind = 'A'.
ENDIF.

l_len = strlen( new_charg ).
l_begin = l_len - 3.

CONCATENATE sy-datum+2(2)  sy-datum+4(2)  sy-datum+6(2) new_charg+l_begin(3) INTO new_charg.