本程序在MB5B的基础上,根据物料库存的特性标准定制了一些新的特性
程序实现
2.2.1 根据选择条件获取数据
SELECT MF~MBLNR MF~MJAHR MG~ZEILE MG~MATNR MG~WERKS MG~LGORT MG~CHARG MG~SOBKZ MG~SHKZG MG~MENGE MG~MEINS MG~BWART MG~XAUTO
INTO CORRESPONDING FIELDS OF TABLE IT_MSEG
FROM MKPF AS MF INNER JOIN MSEG AS MG
ON MF~MBLNR = MG~MBLNR AND MF~MJAHR = MG~MJAHR
WHERE MF~BUDAT >= S_DATE
AND MF~BUDAT <= E_DATE
AND MG~MATNR IN S_MATNR
AND MG~WERKS IN WERKS
AND MG~LGORT IN LGORT
AND MG~SOBKZ IN SOBKZ
"AND MG~XAUTO = ''
" AND ( MG~INSMK = '' OR MG~INSMK = 'F' )
.
SELECT MF~MBLNR MF~MJAHR MG~ZEILE MG~MATNR MG~WERKS MG~LGORT MG~CHARG MG~SOBKZ MG~SHKZG MG~MENGE MG~MEINS MG~BWART MG~XAUTO
INTO CORRESPONDING FIELDS OF TABLE SS_MSEG
FROM MKPF AS MF INNER JOIN MSEG A