Modification of New Batch Numbers (from Internal Assignment)
Enchancement: EXIT_SAPLV01Z_002
INCLUDE ZXVBZU02.
*&---------------------------------------------------------------------*
*& Include ZXVBZU02 *
*&---------------------------------------------------------------------*
DATA: YY(2) TYPE C,
YYYY(4) TYPE C,
DDD(3) TYPE N,
SSS(3) TYPE N,
BEG_CHARG(10) TYPE C,
XX(6) TYPE C,
ZBEG LIKE SY-DATUM,
BDATE LIKE SY-DATUM.
TABLES: MCH1.
* Default Date Code + Sequene number to batch
IF X_BNCOM-BWART = '101' or X_BNCOM-BWART = '561'
or X_BNCOM-BWART = '501'.
YYYY = SY-DATUM+0(4).
CONCATENATE YYYY '0101' INTO ZBEG.
DDD = ( SY-DATUM - ZBEG ) + 1.
YY = SY-DATUM+2(2).
CONCATENATE YY DDD '%' INTO XX.
SELECT * FROM MCH1 WHERE MATNR = X_BNCOM-MATNR AND
CHARG LIKE XX.
ENDSELECT.
IF SY-SUBRC = 0.
SSS = MCH1-CHARG+5(3).
SSS = SSS + 1.
CONCATENATE YY DDD SSS INTO NEW_CHARG.
ELSE.
CONCATENATE YY DDD '001' INTO NEW_CHARG.
ENDIF.
ENDIF.
Modification of New Batch Numbers (from Internal Assignment)
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/166523/viewspace-153317/ ，如需转载，请注明出处，否则将追究法律责任。
