IQC质检库存数量的计算

转载

103收货到GR冻结库存时，该库存数量并没有存放在某个表格里，而是需要计算出来。

MMBE（库存概览）查看物料ATAA0062-22S当前的收货冻结库存为598PCS，也就是当前IQC数量为598PCS

获取物料的IQC数量方式：

*&---------------------------------------------------------------------*

*& Report ZQMRTEST

*&---------------------------------------------------------------------*

*&

*&---------------------------------------------------------------------*

REPORT ZQMRTEST.

DATA: l_iqc LIKE mseg-menge,

      l_iqc_in LIKE mseg-menge,

      l_iqc_out LIKE mseg-menge.

"103 采购进入冻结库存

"106 冻结库存过账到未限制回转

"125 退货冻结库存回转

SELECT SUM( menge ) INTO l_iqc_in

          FROM mseg

          WHERE werks = '2000'

          AND matnr = 'ATAA0062-22S'

          AND bwart IN ('103','106','125').

"104 采购进入冻结库存回转

"105 冻结库存过账到未限制

"124 退货冻结库存

SELECT SUM( menge ) INTO l_iqc_out

          FROM mseg

          WHERE werks = '2000'

          AND matnr = 'ATAA0062-22S'

          AND bwart IN ('104','105','124').

l_iqc = l_iqc_in - l_iqc_out.

cl_demo_output=>write( l_iqc ).

cl_demo_output=>display(  ).