网转 mm IOS 报表

女爷i 2022-07-14 14:45 110阅读 0赞

B01 正常库存 8 8  
B02 订单库存 8 8  
E01 查询条件 8 8  
E04 会计期间 8 8

P\_DD 订单库存  
P\_JS 重新运算  
P\_LGORT 库存地点  
P\_MATKL 物料组  
P\_MATNR 物料  
P\_MONTH 过帐期间  
P\_MTART 物料类型  
P\_WERKS 工厂  
P\_YEAR ?...  
P\_ZC 正常库存

\*&---------------------------------------------------------------------\*  
\*& Report  YMMR0108  
\*&  
\*&---------------------------------------------------------------------\*  
\*&  
\*&  
\*&---------------------------------------------------------------------\*

REPORT  ymmr0108 MESSAGE-ID 1000.  
INCLUDE y\_alv\_func.  
INCLUDE zabap\_public.

TABLES:mara,marc,mard,mkpf,mseg,mbew,s032,s031,mardh,mska.

DATA : it\_show LIKE TABLE OF yios WITH HEADER LINE.  
\*TYPES:BEGIN OF t\_mseg,  
\* matnr LIKE mseg-matnr,  
\* lgort LIKE mseg-lgort,  
\* shkzg LIKE mseg-shkzg,  
\* menge LIKE mseg-menge,  
\* maxbudat LIKE mkpf-budat,  
\*  minbudat LIKE mkpf-budat,  
\*END OF t\_mseg.  
DATA:it\_s032 TYPE HASHED TABLE OF s032 WITH UNIQUE KEY mandt  
ssour  
vrsio  
werks  
lgort  
matnr.  
DATA:wa\_s032 TYPE s031.  
\*\*最近24月用量  
DATA:dat24 LIKE sy-datum.  
\*DATA: it\_mseg TYPE  HASHED TABLE OF t\_mseg  WITH UNIQUE KEY   matnr lgort .  
\*DATA: wa\_mseg TYPE t\_mseg.  
DATA:it\_s031 TYPE HASHED TABLE OF s031 WITH UNIQUE KEY matnr  .  
DATA:wa\_s031 TYPE s031.  
\*\*最近库存结余期间到本月的业务量总和  
DATA:it\_s031b TYPE HASHED TABLE OF s031 WITH UNIQUE KEY matnr lgort.  
DATA:wa\_s031b TYPE s031.  
\*\*物料所有期间的收发量  
DATA:it\_s031c TYPE HASHED TABLE OF s031 WITH UNIQUE KEY matnr lgort.  
\*\*上月结余库存  
DATA:it\_mardh TYPE HASHED TABLE OF mardh WITH UNIQUE KEY matnr lgort.  
DATA:wa\_mardh TYPE mardh.  
\*\*订单库存  
DATA:BEGIN OF it\_mska OCCURS 0.  
        INCLUDE STRUCTURE  yios .  
DATA:  
kalab LIKE  mska-kalab,"非限制使用的估价的库存  
kains LIKE  mska-kains,"质量检验中的库存  
kaspe LIKE  mska-kaspe."冻结的库存  
DATA:END OF it\_mska.  
\*\*本月订单库存  
DATA:it\_mska1 TYPE HASHED TABLE OF mska WITH UNIQUE KEY matnr lgort.  
\*\*本月前所有库存  
DATA:it\_mska2 TYPE HASHED TABLE OF mska WITH UNIQUE KEY matnr lgort.  
DATA:wa\_mska TYPE   mska  .  
\*\*物料评估历史  
DATA:wa\_mbew TYPE mbew.  
DATA: v\_waers   LIKE t001-waers,  
      v\_fr\_date TYPE d,     "查询期间第一天  
      v\_to\_date TYPE d,     "查询期间月底日  
      v\_edate   TYPE d.     "上月最后一天,用于取上月期初  
DATA: e\_buper LIKE  t009b-poper,                            "24个期间前月  
e\_gjahr LIKE  t009b-bdatj.                                  "24个期间前度  
DATA: p\_buper LIKE  t009b-poper," 上期间月  
p\_gjahr LIKE  t009b-bdatj. " 上期间年度  
DATA:datnow LIKE sy-datum."当前日期  
\*\*最后收发时间  
\*DATA: it\_mseg1 TYPE  HASHED TABLE OF t\_mseg  WITH UNIQUE KEY   matnr lgort shkzg.  
\*it\_mska  
\*\*当前订单评估

SELECTION-SCREEN BEGIN OF BLOCK erblock WITH FRAME TITLE text-e01.  
SELECTION-SCREEN BEGIN OF LINE.  
SELECTION-SCREEN COMMENT 1(31) text-e04 FOR FIELD p\_year.  
PARAMETERS: p\_year LIKE t009b-bdatj OBLIGATORY DEFAULT sy-datum(4).  
PARAMETERS: p\_month LIKE bkpf-monat OBLIGATORY DEFAULT sy-datum+4(2).  
SELECTION-SCREEN END   OF LINE.  
PARAMETERS: p\_werks LIKE s032-werks DEFAULT 'LN01' OBLIGATORY .  
SELECT-OPTIONS:p\_lgort FOR  s032-lgort.  
SELECT-OPTIONS:p\_mtart FOR mara-mtart.  
SELECT-OPTIONS:p\_matkl FOR mara-matkl.  
SELECT-OPTIONS:p\_matnr FOR mara-matnr.

SELECTION-SCREEN BEGIN OF LINE.

\*正常库存  
PARAMETERS:p\_zc TYPE c RADIOBUTTON GROUP g1  .  
SELECTION-SCREEN COMMENT 3(15) text-b01 FOR FIELD p\_zc .  
SELECTION-SCREEN POSITION 20.  
\*订单库存  
PARAMETERS:p\_dd TYPE c RADIOBUTTON GROUP g1     .  
SELECTION-SCREEN COMMENT 23(15) text-b02 FOR FIELD p\_dd.  
SELECTION-SCREEN POSITION 40.  
SELECTION-SCREEN END   OF LINE.  
.  
PARAMETERS: p\_js TYPE c AS CHECKBOX.  
SELECTION-SCREEN END   OF BLOCK erblock.

INITIALIZATION .  
  p\_zc = 'X'.

AT SELECTION-SCREEN .

\*  IF p\_month < 1 OR p\_month > 12.  
\*    MESSAGE '月份错误' TYPE 'E'.  
\*    EXIT.  
\*  ENDIF.

AT SELECTION-SCREEN OUTPUT.

START-OF-SELECTION.  
  PERFORM check\_authority\_value.  
  IF p\_zc = 'X'."正常库存  
    CLEAR it\_show\[\].  
    IF p\_js <> 'X'.  
      SELECT \* FROM yios INTO CORRESPONDING FIELDS OF TABLE it\_show  
        WHERE matnr IN p\_matnr  
      AND mtart IN p\_mtart  
      AND lgort IN p\_lgort  
      AND werks = p\_werks  
      AND bdatj = p\_year  
      AND bumon = p\_month.  
    ENDIF.  
    IF it\_show\[\] IS INITIAL.  
      PERFORM get\_data.  
      PERFORM pro\_data.  
    ENDIF.  
    PERFORM show\_data.  
  ELSE."订单库存  
    my\_exit '此功能尚未开发' 'I' .  
\*    PERFORM  get\_dd\_data.

ENDIF.  
\*

\*&---------------------------------------------------------------------\*  
\*&      Form  GET\_DATA  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM get\_data .  
  DATA: fr\_spmon LIKE s031-spmon.  
  DATA: to\_spmon LIKE s031-spmon.  
  DATA:month LIKE p\_month.  
  month = e\_buper+1(2).  
  CONCATENATE e\_gjahr e\_buper INTO fr\_spmon.  
  CONCATENATE p\_year p\_month INTO to\_spmon.  
  SELECT  
  marc~werks  
  s032~lgort  
  mara~matkl  
  mara~mtart  
  mara~matnr  
  s032~basme  
  s032~letztzug  
  s032~letztabg  
  s032~letztbew  
  s032~letztver  
  marc~loggr  
  marc~lgfsb  
  marc~lgpro  
  mara~mstae  
  mara~ersda  
  makt~maktx  
  mbew~vprsv  
  mbew~verpr  
  mbew~stprs  
  mbew~peinh  
  INTO CORRESPONDING FIELDS OF TABLE it\_show  
  FROM  s032  
  INNER JOIN mara ON s032~matnr = mara~matnr  AND s032~mandt = mara~mandt  
  INNER JOIN marc ON  s032~matnr = marc~matnr AND     s032~werks = marc~werks AND s032~mandt = marc~mandt  
  INNER JOIN mbew ON  s032~matnr = mbew~matnr AND  s032~werks =  mbew~bwkey AND s032~mandt = mbew~mandt  
  INNER JOIN makt ON mara~matnr = makt~matnr AND spras = 1  AND s032~mandt = makt~mandt  
   WHERE mara~matnr IN p\_matnr  
  AND mara~mtart IN p\_mtart  
  AND mara~matkl IN p\_matkl  
  AND marc~werks = p\_werks  
  AND s032~lgort IN p\_lgort  
  AND mara~lvorm NE 'X'  
  AND marc~lvorm NE 'X'  
\*  AND s032~lgort NE ''

IF it\_show\[\] IS INITIAL .  
    my\_exit '没有找到物料信息' ''.  
  ENDIF.

\*\*查询所有物料的收发历史  
  SELECT  matnr lgort  
  SUM( mzubb ) AS mzubb"评估的库存收货数  
  SUM( wzubb ) AS wzubb"估价的库存收货值  
  SUM( magbb ) AS magbb"估价库存发货的数量  
  SUM( wagbb ) AS wagbb"已发货的估价的库存值  
  SUM( magkb ) AS magkb"已发出的寄售库存数量  
  SUM( mgvbr ) AS mgvbr"全部使用数量  
  SUM( wgvbr ) AS wgvbr"总使用值  
  SUM( muvbr ) AS muvbr"未计划的用途数量  
  SUM( wuvbr ) AS wuvbr"未计划的用途数值  
  FROM  s031  INTO CORRESPONDING FIELDS OF TABLE   it\_s031c  
   WHERE matnr   IN p\_matnr  
  AND werks = p\_werks  
  AND lgort IN p\_lgort  
\*  AND mandt = sy-mandt  
\*      AND spmon BETWEEN fr\_spmon AND to\_spmon  
  AND spmon <= to\_spmon  
    GROUP BY matnr lgort.  
\*  
\*\*\*\*\*\*本月业务量  
\*\*  
  SELECT matnr lgort  
  mzubb"评估的库存收货数  
  wzubb"估价的库存收货值  
  magbb"估价库存发货的数量  
  wagbb"已发货的估价的库存值  
  magkb"已发出的寄售库存数量  
  mgvbr"全部使用数量  
  wgvbr"总使用值  
  muvbr"未计划的用途数量  
  wuvbr"未计划的用途数值  
  FROM  s031  INTO CORRESPONDING FIELDS OF TABLE it\_s031b  
  WHERE matnr   IN p\_matnr  
  AND werks = p\_werks  
  AND lgort IN p\_lgort  
  AND spmon = to\_spmon  
  .

\*\*\*\*最近24个月用量

SELECT matnr "lgort  
  SUM( mzubb ) AS mzubb"评估的库存收货数  
  SUM( wzubb ) AS wzubb"估价的库存收货值  
  SUM( magbb ) AS magbb"估价库存发货的数量  
  SUM( wagbb ) AS wagbb"已发货的估价的库存值  
  SUM( magkb ) AS magkb"已发出的寄售库存数量  
  SUM( mgvbr ) AS mgvbr"全部使用数量  
  SUM( wgvbr ) AS wgvbr"总使用值  
  SUM( muvbr ) AS muvbr"未计划的用途数量  
  SUM( wuvbr ) AS wuvbr"未计划的用途数值

FROM  s031  INTO CORRESPONDING FIELDS OF TABLE it\_s031  
  WHERE matnr   IN p\_matnr  
  AND werks = p\_werks  
  AND lgort IN p\_lgort  
  AND spmon BETWEEN fr\_spmon AND to\_spmon  
  GROUP BY matnr. "lgort.

CLEAR:it\_mska1\[\],it\_mska2\[\].  
\*\*\*总订单库存  
\*  SELECT  
\*   mska~lgort  
\*   mska~matnr  
\*   SUM(  kalab ) AS kalab "非限制使用的估价的库存  
\*   SUM(  kains ) AS kains "质量检验中的库存  
\*   SUM(  kaspe ) AS kaspe "冻结的库存  
\*   INTO CORRESPONDING FIELDS OF TABLE it\_mska1  
\*   FROM  mska  
\*   WHERE mska~matnr IN p\_matnr  
\*   AND  mska~werks = p\_werks  
\*   AND  mska~lgort IN p\_lgort  
\*  
\*   AND mska~lfgja <= p\_year  
\*   AND mska~lfmon <= p\_month  
\*    GROUP BY lgort matnr  
\*   .  
\*\*本月订单库存  
\*  SELECT  
\*   mska~lgort  
\*   mska~matnr  
\*   mska~kalab"非限制使用的估价的库存  
\*   mska~kains"质量检验中的库存  
\*   mska~kaspe"冻结的库存  
\*   INTO CORRESPONDING FIELDS OF TABLE it\_mska2  
\*   FROM  mska  
\*   WHERE mska~matnr IN p\_matnr  
\*   AND  mska~werks = p\_werks  
\*   AND  mska~lgort IN p\_lgort  
\*   AND mska~lfgja = p\_year  
\*   AND mska~lfmon = p\_month  
  .  
ENDFORM.                    " GET\_DATA

\*&---------------------------------------------------------------------\*  
\*&      Form  PRO\_DATA  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM pro\_data .  
  DATA:date1 TYPE d.  
  DATA:itemp TYPE int4.  
  LOOP AT it\_show.  
    it\_show-bdatj =  p\_year.  
    it\_show-bumon =  p\_month.  
    CLEAR: wa\_s031,wa\_s031b,itemp,wa\_mardh,wa\_mska .  
\*    DATA: fr\_spmon LIKE s031-spmon.  
\*    DATA: to\_spmon LIKE s031-spmon.  
\*\*    CONCATENATE wa\_mardh-lfgja wa\_mardh-lfmon INTO fr\_spmon.  
\*    CONCATENATE p\_year p\_month INTO to\_spmon.  
\*\*\*begin 查询期间库存  
\*\* 查询上月结余  
\*    READ TABLE it\_mardh WITH TABLE KEY  matnr = it\_show-matnr lgort = it\_show-lgort  INTO wa\_mardh.  
\*    IF sy-subrc <> 0."如果上月没有结余说明本月没有业务移动，库存=最近一次月结库存（冻结库存+非限制+质检库存）  
\*      SELECT \* FROM mardh  
\*      UP TO 1 ROWS  
\*      INTO CORRESPONDING FIELDS OF wa\_mardh  
\*      WHERE matnr  = it\_show-matnr  
\*      AND werks = p\_werks  
\*      AND lgort  = it\_show-lgort  
\*      AND (  
\*        lfgja < p\_gjahr OR ( lfgja = p\_gjahr AND  lfmon < p\_buper ) )  
\*      ORDER BY lfgja DESCENDING lfmon DESCENDING  
\*      .  
\*      ENDSELECT.  
\*      IF sy-subrc <> 0.  
\*        DELETE it\_show.  
\*        CONTINUE.  
\*      ENDIF.  
\*      it\_show-mbwbest =  wa\_mardh-labst + wa\_mardh-insme + wa\_mardh-speme.  
\*      SELECT  
\*      SUM( mzubb ) AS mzubb"评估的库存收货数  
\*      SUM( wzubb ) AS wzubb"估价的库存收货值  
\*      SUM( magbb ) AS magbb"估价库存发货的数量  
\*      SUM( wagbb ) AS wagbb"已发货的估价的库存值  
\*      SUM( magkb ) AS magkb"已发出的寄售库存数量  
\*      SUM( mgvbr ) AS mgvbr"全部使用数量  
\*      SUM( wgvbr ) AS wgvbr"总使用值  
\*      SUM( muvbr ) AS muvbr"未计划的用途数量  
\*      SUM( wuvbr ) AS wuvbr"未计划的用途数值  
\*      FROM  s031  INTO CORRESPONDING FIELDS OF   wa\_s031  
\*      WHERE matnr  = it\_show-matnr  
\*      AND werks = p\_werks  
\*      AND lgort  = it\_show-lgort  
\*\*      AND spmon BETWEEN fr\_spmon AND to\_spmon  
\*      AND spmon <= to\_spmon  
\*       .  
    IF it\_show-lgort IS INITIAL.  
\*      SELECT SUM( lbkum )  
\*       SUM( salk3 ) FROM ebew  
\*      INTO (it\_show-LBKUM,it\_show-SALK3)  
\*      WHERE matnr = it\_show-matnr .  
\*      IF sy-subrc <> 0 .  
\*        DELETE it\_show.  
\*        CONTINUE.  
\*      ENDIF.  
\*  
\*      it\_show-mbwbest = it\_show-LBKUM.  
\*      it\_show-wbwbest = it\_show-SALK3.

EXEC SQL .  
        select SUM( case when SHKZG = 'S' THEN MENGE ELSE -1\*MENGE END ) as LBKUM  
       ,SUM( case when SHKZG = 'S' THEN DMBTR ELSE -1\*DMBTR END )  as salk3  
        from mseg  
        into :it\_show-LBKUM,:it\_show-salk3  
        WHERE matnr = :it\_show-matnr  
        and exists (  
        select mblnr from mkpf  
        where BUDAT <= :v\_to\_date  
        and mkpf.mblnr = mseg.mblnr  
        and mkpf.MJAHR = mseg.MJAHR  
        and mkpf.mandt = mseg.mandt  
        )  
        and SOBKZ = 'E'  
        and mseg.mandt  = :sy-mandt  
      ENDEXEC.  
\*      IF sy-subrc <> 0 .  
\*        DELETE it\_show.  
\*        CONTINUE.  
\*      ENDIF.  
\*      it\_show-mbwbest = it\_show-lbkum.  
\*      it\_show-salk3 =   it\_show-lbkum \* it\_show-verpr / it\_show-peinh.

\*      it\_show-wbwbest =  it\_show-salk3 .  
    ENDIF.

\*     READ TABLE   it\_mska1 WITH TABLE KEY matnr = it\_show-matnr lgort = it\_show-lgort  INTO wa\_mska.

READ TABLE  it\_s031c WITH TABLE KEY matnr = it\_show-matnr lgort = it\_show-lgort  INTO wa\_s031.  
    IF sy-subrc = 0 .  
      it\_show-mbwbest =   wa\_s031-mzubb - wa\_s031-magbb  ."+ wa\_mska-kalab + wa\_mska-kains + wa\_mska-kaspe..  
      it\_show-wbwbest =   wa\_s031-wzubb - wa\_s031-wagbb .  
    ENDIF.  
    CLEAR  wa\_mska.  
\*    READ TABLE   it\_mska2 WITH TABLE KEY matnr = it\_show-matnr lgort = it\_show-lgort  INTO wa\_mska.  
\*    READ TABLE  it\_s031b WITH TABLE KEY matnr = it\_show-matnr lgort = it\_show-lgort  INTO wa\_s031b.  
\*    IF sy-subrc = 0 .  
\*      it\_show-sqkc  =   wa\_s031b-mzubb + wa\_s031b-magbb .  
\*    ENDIF.  
\*    IF  it\_show-mbwbest IS INITIAL AND  it\_show-lbkum IS INITIAL.

IF it\_show-lgort IS INITIAL.  
      IF it\_show-lgfsb IS NOT INITIAL.  
        it\_show-lgort = it\_show-lgfsb.  
      ELSE.  
        it\_show-lgort = it\_show-lgpro.

ENDIF.  
\*      DELETE it\_show.  
\*      CONTINUE.  
    ENDIF.  
\*    ELSE."如果上月有结余库存，库存 = 上月结余（冻结库存+非限制+质检库存） + 本月收货总数 - 本月发货总数。  
\*\*上期库存 = 当前库存 - 减去本月收 + 减去本月发  
\*    CLEAR:wa\_s031b.  
\*    READ TABLE  it\_s031b WITH TABLE KEY matnr = it\_show-matnr lgort = it\_show-lgort  INTO wa\_s031b.  
\*    it\_show-mbwbest =  wa\_mardh-labst + wa\_mardh-insme + wa\_mardh-speme + wa\_s031b-mzubb - wa\_s031b-magbb.  
\*    it\_show-sqkc = wa\_mardh-labst + wa\_mardh-insme + wa\_mardh-speme.  
    IF  it\_show-mbwbest = 0 AND  it\_show-lbkum  = 0  AND  it\_show-wbwbest = 0.  
      DELETE it\_show.  
      CONTINUE.  
    ENDIF.  
\*    ENDIF.  
\*\*\* 期间库存价值  
\*    SELECT SINGLE vprsv  
\*      verpr  
\*      stprs  
\*      peinh  
\*      bklas FROM mbew  
\*    INTO CORRESPONDING FIELDS OF wa\_mbew  
\*    WHERE matnr  = it\_show-matnr  
\*      AND bwkey = p\_werks  
\*      AND lfmon = wa\_mardh-lfmon  
\*      AND lfgja = wa\_mardh-lfgja  
    .  
\*    IF sy-subrc <> 0 .  
\*      DELETE it\_show.  
\*      CONTINUE.  
\*    ENDIF.

\*    IF it\_show-vprsv = 'S'.  
\*      it\_show-wbwbest = it\_show-wbwbest +  it\_show-mbwbest \* it\_show-stprs / it\_show-peinh .  
\*\*      it\_show-sqkcje =  it\_show-sqkcje  + it\_show-sqkc \* it\_show-stprs / it\_show-peinh.  
\*  
\*    ELSE.  
\*      it\_show-wbwbest =  it\_show-wbwbest + it\_show-mbwbest \* it\_show-verpr / it\_show-peinh .  
\*\*      it\_show-sqkcje =  it\_show-sqkcje +  it\_show-sqkc \* it\_show-verpr / it\_show-peinh.  
\*\*  
\*    ENDIF.

\*    READ TABLE  it\_s031b WITH TABLE KEY matnr = it\_show-matnr lgort = it\_show-lgort  INTO wa\_s031.

\*\*\*end 查询期间库存  
\*\*\* 最近24个月用量  
    CLEAR: wa\_s031,itemp .  
    READ TABLE  it\_s031 WITH TABLE KEY matnr = it\_show-matnr  INTO wa\_s031. "lgort = it\_show-lgort  
\*   SUM( mgvbr ) AS mgvbr"全部使用数量  
\*   SUM( wgvbr ) AS wgvbr"总使用值  
    it\_show-l24u = wa\_s031-mgvbr .  
    it\_show-l24v = wa\_s031-wgvbr.  
\*\*新物料  
    itemp = datnow - it\_show-ersda.  
    IF itemp < 365 .  
      it\_show-xwl = 'X'.  
    ENDIF.  
\*\* 收货呆滞天数  
    IF  it\_show-letztzug IS INITIAL OR  it\_show-letztzug = '99991231'.  
      it\_show-shdzts = 366.  
    ELSE.  
      it\_show-shdzts = datnow  - it\_show-letztzug.  
    ENDIF.  
\*\*发货呆滞天数  
    IF  it\_show-letztabg IS INITIAL OR  it\_show-letztabg = '99991231'.  
      IF it\_show-xwl = 'X'.

it\_show-fhdzts = 1.  
      ELSE.  
        IF  it\_show-shdzts > 365.  
          it\_show-fhdzts = 365.  
        ELSE.  
          it\_show-fhdzts = it\_show-shdzts.  
        ENDIF.  
      ENDIF.  
    ELSE.  
      it\_show-fhdzts = datnow  - it\_show-letztabg.  
    ENDIF.  
\*\*呆滞天数取收货和发货呆滞天数中小的减一天  
    IF it\_show-shdzts >  it\_show-fhdzts .  
      it\_show-dzts =     it\_show-fhdzts - 1.  
    ELSE.  
      it\_show-dzts =     it\_show-shdzts - 1.  
    ENDIF.  
\*\*obsolete  
    PERFORM sub\_obsolete.  
\*\*inactive  
    PERFORM sub\_inactive.  
\*\*surplus  
    PERFORM sub\_surplus.  
    SHIFT it\_show-matnr LEFT DELETING LEADING '0'.  
    MODIFY it\_show.  
  ENDLOOP.  
ENDFORM.                    " PRO\_DATA  
\*&---------------------------------------------------------------------\*  
\*&      Form  SUB\_OBSOLETE

\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM sub\_obsolete .

DATA:mbwbest LIKE it\_show-mbwbest,  
  wbwbest LIKE it\_show-wbwbest.  
  mbwbest = it\_show-mbwbest + it\_show-lbkum.  
  wbwbest = it\_show-wbwbest + it\_show-salk3  .  
  IF it\_show-mstae IS NOT INITIAL"停用标志  
    OR  it\_show-maktx CA '停用'"描述中有停用  
    OR it\_show-lgort = '1002' "电工材料坏料仓  
    OR it\_show-lgort = '1010' "电工OEM不良品专  
    OR it\_show-lgort = '1102' "照明材料坏料仓  
    OR it\_show-lgort = '1203' "变卖废品专用仓  
    .  
\*oqty TYPE p LENGTH 12 DECIMALS 3   ,"  Obsolete Qty  
\*oamt TYPE p LENGTH 12 DECIMALS 3   ,"   Obsolete Amount  
    it\_show-oqty =  mbwbest.  
    it\_show-oamt =  wbwbest.  
  ENDIF.  
ENDFORM.                    " SUB\_OBSOLETE  
\*&---------------------------------------------------------------------\*  
\*&      Form  sub\_inactive  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
FORM sub\_inactive.  
\*iqty TYPE p LENGTH 12 DECIMALS 3   ,"  Inactive Qty  
\*iamt TYPE p LENGTH 12 DECIMALS 3   ,"  Inactive Amount  
  DATA:mbwbest LIKE it\_show-mbwbest,  
  wbwbest LIKE it\_show-wbwbest.  
  mbwbest = it\_show-mbwbest + it\_show-lbkum.  
  wbwbest = it\_show-wbwbest + it\_show-salk3  .  
  IF  it\_show-xwl IS NOT INITIAL  
  AND it\_show-oqty = 0  
  AND it\_show-oamt = 0  
  AND  
  ( it\_show-dzts > 365  
  OR it\_show-lgort = '1003'"电工物料呆滞仓  
  OR it\_show-lgort = '1014'"电工成品呆滞仓  
  OR it\_show-lgort = '1103'"照明物料呆滞仓  
  OR it\_show-lgort = '1114'"照明成品呆滞仓  
  OR it\_show-lgort = '1205'"OEM成品呆滞仓  
  )  
  .  
    it\_show-iqty =  mbwbest.  
    it\_show-iamt =  wbwbest.  
  ENDIF.  
ENDFORM.                    "sub\_inactive  
\*&---------------------------------------------------------------------\*  
\*&      Form  SUB\_SURPLUS  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM sub\_surplus .  
  DATA:mbwbest LIKE it\_show-mbwbest,  
  wbwbest LIKE it\_show-wbwbest.  
  mbwbest = it\_show-mbwbest + it\_show-lbkum.  
  wbwbest = it\_show-wbwbest + it\_show-salk3  .  
\* New Material is only calculate quatity.  
  IF  it\_show-xwl = 'X'.  
\*splusqty TYPE p LENGTH 12 DECIMALS 3   ,"  surplus qty  
\*splusrsv TYPE p LENGTH 12 DECIMALS 3   ,"   surplus reserve  
    it\_show-splusqty =   mbwbest.  
  ENDIF.  
\* store-quantity - obsolate - inactive > 24mUes  
  IF it\_show-oqty = 0 AND it\_show-iqty = 0 AND  mbwbest > it\_show-l24u.  
    it\_show-splusqty  =  mbwbest.  
  ENDIF.

IF it\_show-oamt = 0 AND it\_show-iamt = 0 AND  wbwbest > it\_show-l24v.  
    it\_show-splusrsv  =  wbwbest.  
  ENDIF.

ENDFORM.                    " SUB\_SURPLUS  
\*&---------------------------------------------------------------------\*  
\*&      Form  SHOW\_DATA  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM show\_data .

DATA:v\_title TYPE string.

v\_title = LINES( it\_show ).  
  CONCATENATE '数据条数：' v\_title INTO v\_title.  
  alv\_set\_status.  
\*  alv\_set\_title  v\_title.  
  alv\_clear\_data.  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'WERKS' '工厂' ."工厂  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'LGORT' '实际仓位' ."仓位  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'MTART' '物料类型' ."物料类型  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'MATNR' '物料' ."物料  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'MAKTX' '物料描述' ."物料描述  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'BASME' '单位' ."单位  
\*  alv\_add\_data 'IT\_SHOW'  'X' ' ' '' 'X' 'CHAR' 'SQKC' '上前库存数量' ."  
\*  alv\_add\_data 'IT\_SHOW'  'X' ' ' '' 'X' 'CHAR' 'SQKCJE' '上前库存金额' .  
  alv\_add\_data 'IT\_SHOW'  'X' ' ' '' 'X' 'CHAR' 'MBWBEST' '当前库存数量' ."  
  alv\_add\_data 'IT\_SHOW'  'X' ' ' '' 'X' 'CHAR' 'WBWBEST' '当前库存金额' .  
\*  
  alv\_add\_data 'IT\_SHOW'  'X' ' ' '' 'X' 'CHAR' 'LBKUM' '订单库存' ."  
  alv\_add\_data 'IT\_SHOW'  'X' ' ' '' 'X' 'CHAR' 'SALK3' '订单库存金额' .  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR'  'LETZTBEW' '最近移动'  ."最后一次收货  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'LETZTZUG' '最后一次收货' ."最后一次收货  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'LETZTABG' '最后一次发货' ."最后一次发货  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'LETZTVER' '最后一次消耗' ."最后一次消耗  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'DZTS' '呆滞天数' ."呆滞天数  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'XWL' 'New 物料' ."New 物料  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'SHDZTS' 'Aging Days(收）' ."Aging Days(收）  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'FHDZTS' 'Aging Days(发)' ."Aging Days(发)  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'OQTY' 'Obsolete Qty' ."Obsolete Qty  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'OAMT' 'Obsolete Amount' ."Obsolete Amount  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'IQTY' 'Inactive Qty' ."Inactive Qty  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'IAMT' 'Inactive Amount' ."Inactive Amount  
  alv\_add\_data 'IT\_SHOW'  'X' ' ' '' 'X' 'CHAR' 'L24U' '最近24个月用量' ."Last 24m Usage  
  alv\_add\_data 'IT\_SHOW'  'X' ' ' '' 'X' 'CHAR' 'L24V' '最近24个月用值' ."Last 24m Usage  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'AFTIOQTY' 'Qty After IO' ."Qty After IO  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'SPLUSQTY' 'surplus qty' ."surplus qty  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'SPLUSRSV' 'surplus reserve' ."surplus reserve  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'LSTPRC' 'Latest Price' ."Latest Price  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'PRCCST' 'Price vs. Cost' ."Price vs. Cost  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'LCM' 'LCM' ."LCM  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'ZP' '展品(Y)' ."展品(Y)  
  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'RMK(200)' 'Remark' ."Remark  
\*  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'VPRSV' '价格控制' ."  
\*  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'VERPR' '移动平均价' ."  
\*  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'STPRS' '标准价' .  
\*  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'PEINH' '价格单位' ."  
\*  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'LGFSB' '采购仓位' ."  
\*  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'LGPRO' '自制仓位' ."  
\*  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'LVORM' '删除标记' ."删除  
\*  alv\_add\_data 'IT\_SHOW'  '' ' ' '' 'X' 'CHAR' 'MSTAE' '停用状态' ."  
  alv\_show\_data it\_show.  
ENDFORM.                    " SHOW\_DATA

\*&---------------------------------------------------------------------\*  
\*&      Form  user\_command  
\*&---------------------------------------------------------------------\*  
\*       text  处理双击事件  
\*----------------------------------------------------------------------\*  
\*      -->R\_UCOMM      text  
\*      -->RS\_SELFIELD  text  
\*----------------------------------------------------------------------\*  
FORM user\_command  USING r\_ucomm LIKE sy-ucomm  
                           rs\_selfield TYPE slis\_selfield.  
\*

CASE r\_ucomm.  
    WHEN '&IC1'.  
\*      CASE rs\_selfield-sel\_tab\_field.  
\*        WHEN  'ITAB-VBELN'.  
\*          SET PARAMETER ID 'AUN' FIELD rs\_selfield-value.  
\*          CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.  
\*        WHEN  'ITAB2-VBELN'.  
\*          SET PARAMETER ID 'AUN' FIELD rs\_selfield-value.  
\*          CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.  
\*      ENDCASE.  
    WHEN '&SAV'.  
      IF p\_dd = 'X'.  
        my\_exit '订单库存查询时不能保存！' 'I'.  
      ENDIF.  
      DATA count TYPE i.  
      SELECT COUNT( \* ) FROM yios INTO count  
      WHERE   bdatj = p\_year  
        AND bumon = p\_month.  
      IF  count > 0 .  
        CALL FUNCTION 'POPUP\_TO\_CONFIRM\_STEP'  
          EXPORTING  
            defaultoption  = 'Y'  
            textline1      = '此期间存在数据，保存将覆盖，点击"是"确认保存，点击"否" 取消保存'  
            textline2      = ''  
            titel          = '保存提示'  
            start\_column   = 25  
            start\_row      = 6  
            cancel\_display = ''  
          IMPORTING  
            answer         = ucomm.  
        IF ucomm NE 'N'.  
          PERFORM save\_data.  
        ELSE.  
          MESSAGE '操作被取消' TYPE 'S'.  
        ENDIF.  
      ELSE.  
        PERFORM save\_data.  
      ENDIF.

WHEN OTHERS.  
  ENDCASE.

ENDFORM.                    "user\_command

\*  
FORM set\_pf\_status USING rt\_extab TYPE slis\_t\_extab.  
  SET PF-STATUS 'ZSTANDARD' .  
ENDFORM.                    "set\_pf\_status  
\*&---------------------------------------------------------------------\*  
\*&      Form  SAVE\_DATA  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM save\_data .

MODIFY yios FROM TABLE   it\_show.  
  msg = LINES( it\_show ).  
  CONCATENATE '成功保存：' msg '条数据!' INTO msg.  
  MESSAGE msg TYPE 'S'.  
ENDFORM.                    " SAVE\_DATA

\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*< 以下是过程 >\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

\*&---------------------------------------------------------------------\*  
\*&      Form  CHECK\_AUTHORITY\_VALUE  
\*&---------------------------------------------------------------------\*  
FORM check\_authority\_value .  
  DATA: lv\_monat(3) TYPE n, v\_periv LIKE t001-periv.

AUTHORITY-CHECK OBJECT 'YREPORT'  
    ID 'BUKRS' FIELD 'HL01'  
    ID 'WERKS' FIELD 'LN01'.  
  IF sy-subrc NE 0.  
    MESSAGE e005(ymess) WITH 'No Authorization!'.  
  ENDIF.

\*  CONCATENATE p\_gjahr p\_monat '01' INTO v\_fr\_date.       "得到本期间第一天   ZHOUXU V1.0 DEL  
  lv\_monat = p\_month.  
  SELECT SINGLE waers periv FROM t001  
         INTO (v\_waers,v\_periv)  
         WHERE bukrs = 'HL01'.  
\*------------------ 得到期间第一天--------------------  
  CALL FUNCTION 'FIRST\_DAY\_IN\_PERIOD\_GET'                 "取本月期间第一天  
    EXPORTING  
      i\_gjahr = p\_year                                     "会计年度  
      i\_periv = v\_periv                                     "会计年度变式K4  
      i\_poper = lv\_monat                                    "期间(3位N)''  
    IMPORTING  
      e\_date  = v\_fr\_date.

\*----------------begin 得到24个月的前的会计年度和月份-----------  
  v\_edate = v\_fr\_date - 1.  
  DATA:dat TYPE d,     "上个月的第一天，临时变量  
  i TYPE i.

dat = v\_edate.  
  CALL FUNCTION 'DATE\_TO\_PERIOD\_CONVERT'                 "得到上期间会计年度和月份  
     EXPORTING  
         i\_date  = dat  
         i\_periv = v\_periv  
     IMPORTING  
         e\_buper = p\_buper  
         e\_gjahr = p\_gjahr.

WHILE i < 24.  
    i  = i + 1 .

CALL FUNCTION 'DATE\_TO\_PERIOD\_CONVERT'                 "得到上期间会计年度和月份  
     EXPORTING  
         i\_date  = dat  
         i\_periv = v\_periv  
     IMPORTING  
         e\_buper = e\_buper  
         e\_gjahr = e\_gjahr.

CALL FUNCTION 'FIRST\_DAY\_IN\_PERIOD\_GET'                 "取本月期间第一天  
    EXPORTING  
      i\_gjahr =  e\_gjahr                                     "会计年度  
      i\_periv = v\_periv                                     "会计年度变式K4  
      i\_poper = e\_buper                                     "期间(3位N)''  
    IMPORTING  
      e\_date  = dat.  
    dat  = dat - 1 .  
  ENDWHILE.  
\*----------------END   得到24个月的前的会计年度和月份-----------  
  CALL FUNCTION 'LAST\_DAY\_IN\_PERIOD\_GET'                 "取本月最后一天  
    EXPORTING  
      i\_gjahr = p\_year                                   "会计年度  
      i\_periv = v\_periv                                     "会计年度变式K4  
      i\_poper = lv\_monat                                    "期间(3位N)''  
    IMPORTING  
      e\_date  = v\_to\_date.  
  IF v\_edate = 0.  
    MESSAGE '\[会计年度\] 或 \[会计期间\] 输入错误, 请检查输入!' TYPE  'S' .  
    STOP.  
  ENDIF.  
  "得到上月末  
  IF v\_edate(6) < '200808'.  
    MESSAGE '\[会计年度\] 或 \[会计期间\] 不能早于上线时间:2008年9月, 请检查输入!' TYPE  'S' .  
    STOP.  
  ENDIF.  
  IF v\_to\_date > sy-datum.  
    datnow =  sy-datum.  
  ELSE.  
    datnow =  v\_to\_date .  
  ENDIF.  
  CALL FUNCTION 'SAPGUI\_PROGRESS\_INDICATOR'  
    EXPORTING  
      text = '程序正在运行中，请稍候...'.

ENDFORM.                    " CHECK\_AUTHORITY\_VALUE  
\*&---------------------------------------------------------------------\*  
\*&      Form  APPEND\_MSEG  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
\*FORM append\_mseg .  
\*  INSERT wa\_mseg INTO TABLE it\_mseg   .  
\*ENDFORM.                    " APPEND\_MSEG