SAP盘点清册及打印

快来打我* 2022-05-27 04:47 175阅读 0赞

![70][]

\*&---------------------------------------------------------------------\*

\*& Report ZMMR031  
\*&---------------------------------------------------------------------\*  
\*&  
\*&---------------------------------------------------------------------\*  
REPORT zmmr031 .  
TABLES  : t001l   , mard   , mslb  ,msku  ,marc  .  
  
INCLUDE zmmf031\_top .  
INCLUDE zmmf031\_scr .  
INCLUDE zmmf031\_frm .  
  
  
  
  
START-OF-SELECTION  .  
   "月度 年终  
   IF r\_1  EQ  'X'  OR r\_2  EQ  'X'  .  
     PERFORM : frm\_get\_data . "获取数据  
     PERFORM : frm\_process\_data . "处理数据.  
     PERFORM  frm\_display\_data  .  
   ENDIF  .  
  
   "仓管员  
   IF r\_5  EQ  'X'  OR r\_5A  EQ  'X'  .  " 按仓管员代码  
     PERFORM : frm\_get\_data5 . "获取数据  
     PERFORM : frm\_process\_data5 . "处理数据.  
     PERFORM  frm\_display\_data5  .  
   ENDIF  .  
  
  
   " 供应商  
  
   IF r\_3  EQ  'X'  .  
     PERFORM : frm\_get\_data2 . "获取数据  
     PERFORM : frm\_process\_data2 . "处理数据.  
     PERFORM  frm\_display\_data2  .  
   ENDIF  .  
  
   "客户  
   IF r\_4  EQ  'X'  .  
     PERFORM : frm\_get\_data3 . "获取数据  
     PERFORM : frm\_process\_data3 . "处理数据.  
     PERFORM  frm\_display\_data3  .

ENDIF .

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF031\_TOP  
\*&---------------------------------------------------------------------\*  
  
  
  
DATA: BEGIN OF gs\_mard ,  
        matnr LIKE mard\-matnr,  
        bismt LIKE mara\-bismt,  
        zznme LIKE zmmt002\-zznme,  
        maktx LIKE makt\-maktx,  
        meins LIKE mara\-meins,  
        werks LIKE mard\-werks,  
        lgort LIKE mard\-lgort,  
        lgobe LIKE t001l\-lgobe,  
        labst LIKE mard\-labst,  " 非限制使用库存  
        speme LIKE mard\-speme,  "冻结库存  
        loggr LIKE marc\-loggr,  
  
  
      END OF gs\_mard .  
  
  
  
  
  
DATA: gt\_mard LIKE  TABLE OF gs\_mard .  
  
  
  
DATA: BEGIN OF gs\_mchb ,  
        matnr LIKE mchb\-matnr,  
        bismt LIKE mara\-bismt,  
        zznme LIKE zmmt002\-zznme,  
        maktx LIKE makt\-maktx,  
        meins LIKE mara\-meins,  
        werks LIKE mchb\-werks,  
        lgort LIKE mchb\-lgort,  
        lgobe LIKE t001l\-lgobe,  
        clabs LIKE mchb\-clabs, "非限制  
        cspem LIKE mchb\-cspem, " 冻结  
        loggr LIKE marc\-loggr,  
        charg LIKE mchb\-charg,  
  
      END OF gs\_mchb .  
  
DATA: gt\_mchb LIKE TABLE OF gs\_mchb .  
  
  
  
DATA: BEGIN OF gs\_out ,  
        matnr LIKE mard\-matnr,  
        bismt LIKE mara\-bismt,  
        zznme LIKE zmmt002\-zznme,  
        maktx LIKE makt\-maktx,  
        meins LIKE mara\-meins,  
        werks LIKE mard\-werks,  
        lgort LIKE mard\-lgort,  
        lgobe LIKE t001l\-lgobe,  
        labst LIKE mard\-labst,  " 非限制使用库存  
        speme LIKE mard\-speme,  
        loggr LIKE marc\-loggr,  
        charg LIKE mchb\-charg,  
        zxh   TYPE i,  
        mark ,  
      END OF gs\_out .  
  
DATA: gt\_out LIKE  TABLE OF gs\_out .  
  
  
  
  
  
  
  
DATA: BEGIN OF gs\_mslb ," 供应商外包库存  
        lifnr     LIKE mslb\-lifnr,  
        matnr     LIKE  mslb\-matnr,  
        bismt     LIKE mara\-bismt , " 旧料号  
        zznme     LIKE   zmmt002\-zznme,  
        maktx     LIKE makt\-maktx,  
        meins     LIKE mara\-meins,  
        charg     LIKE mslb\-charg,  
        lblab     LIKE mslb\-lblab,  
        name\_org4 LIKE but000\-name\_org4,  
        zxh       TYPE i,  
        mark,  
      END OF gs\_mslb .  
  
  
  
DATA: gt\_mslb LIKE TABLE OF gs\_mslb .  
  
  
DATA: BEGIN OF gs\_msku ," 客户库存  
        kunnr    LIKE msku\-kunnr,  
        matnr    LIKE  msku\-matnr,  
        bismt    LIKE mara\-bismt,  
        zznme    LIKE   zmmt002\-zznme,  
        maktx    LIKE makt\-maktx,  
        meins    LIKE mara\-meins,  
        charg    LIKE msku\-charg,  
        kulab    LIKE msku\-kulab,  
        bu\_sort1 LIKE but000\-bu\_sort1,  
        zxh      TYPE i,  
        mark,  
      END OF gs\_msku .  
  
  
DATA: gt\_msku LIKE TABLE OF gs\_msku .  
  
  
  
DATA: gt\_fieldcat TYPE TABLE OF  slis\_fieldcat\_alv.  
DATA: gs\_fieldcat TYPE slis\_fieldcat\_alv.  
DATA: gs\_layout TYPE slis\_layout\_alv .  
  
  
DATA: g\_fm\_name TYPE rs38l\_fnam.  
DATA: gw\_options TYPE ssfcompop,  
      gw\_control TYPE ssfctrlop.

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF031\_SCR  
\*&---------------------------------------------------------------------\*  
SELECT-OPTIONS:  s\_werks FOR  t001l\-werks OBLIGATORY ,  
                 s\_lgort FOR  t001l\-lgort ,  
                 s\_matnr FOR  mard\-matnr ,  
                 s\_lifnr FOR mslb\-lifnr ,  
                 s\_kunnr FOR  msku\-kunnr ,  
                 s\_loggr FOR  marc\-loggr .  
  
  
  
PARAMETERS : r\_1 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_5 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_2 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_5a RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_3 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_4 RADIOBUTTON GROUP g1 .

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF031\_FRM  
\*&---------------------------------------------------------------------\*  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_data .  
  SELECT  
 a~matnr  
 d~bismt  
 e~zznme  
 b~maktx  
 d~meins  
 a~werks  
 a~lgort  
 c~lgobe  
 a~labst   " 非限制使用库存  
 a~speme  "冻结  
 f~loggr  
  
INTO TABLE gt\_mard  
FROM mard AS a  
INNER JOIN  makt AS b  ON a~matnr = b~matnr  
INNER JOIN t001l AS c  ON  a~werks = c~werks AND  a~lgort = c~lgort  
INNER JOIN mara  AS d  ON a~matnr = d~matnr  
INNER JOIN zmmt002 AS e ON a~matnr = e~matnr  
INNER JOIN marc AS f ON a~matnr = f~matnr AND a~werks = f~werks  
 WHERE a~lgort IN s\_lgort  
 AND c~werks EQ  s\_werks\-low  
 AND a~matnr IN s\_matnr  
 AND f~loggr IN s\_loggr .  
  
  
  IF gt\_mard IS NOT INITIAL .  
    SELECT  
     a~matnr  
     d~bismt  
      e~zznme  
     b~maktx  
     d~meins  
     a~werks  
     a~lgort  
     c~lgobe  
     a~clabs  "非限制库存  
     a~cspem " 冻结  
     f~loggr  
     a~charg  "评估类  
  
  
     INTO TABLE gt\_mchb  
      FROM mchb AS a  
      INNER JOIN makt AS b  ON a~matnr = b~matnr  
      INNER JOIN t001l AS c  ON  a~werks  = c~werks  AND a~lgort = c~lgort  
      INNER JOIN mara  AS d ON a~matnr = d~matnr  
      INNER JOIN zmmt002 AS e ON a~matnr = e~matnr  
      INNER JOIN marc AS f ON a~matnr = f~matnr  
      FOR ALL ENTRIES IN gt\_mard  
      WHERE a~matnr = gt\_mard\-matnr  
      AND a~lgort = gt\_mard\-lgort  
      AND f~loggr IN s\_loggr  
      AND a~werks EQ  s\_werks\-low  .  
  
  ENDIF.  
  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_PROCESS\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_process\_data .  
  
  SORT  gt\_mchb BY matnr werks  lgort .  
  
  
  DATA lv\_tabix TYPE sy\-tabix .  
  LOOP AT gt\_mard INTO gs\_mard .  
    CLEAR lv\_tabix .  
    lv\_tabix =  sy\-tabix  .  
    " 如果有批次从表中去除  
    READ TABLE gt\_mchb WITH KEY matnr = gs\_mard\-matnr  
                                werks = gs\_mard\-werks  
                                lgort = gs\_mard\-lgort  
                        BINARY SEARCH  
                       TRANSPORTING NO FIELDS .  
    IF sy\-subrc EQ   0 .  
      DELETE gt\_mard INDEX lv\_tabix .  
    ENDIF .  
  
  ENDLOOP .  
  
  CLEAR gs\_mard .  
  
  
  LOOP AT gt\_mard INTO gs\_mard  .  
    APPEND  gs\_mard  TO gt\_out .  
  ENDLOOP .  
  
  " 把带批次的放入GT\_oUT  
  
  LOOP AT gt\_mchb INTO gs\_mchb.  
  
    APPEND gs\_mchb  TO gt\_out .  
  ENDLOOP .  
  
  
  " 去0库存  
  DELETE gt\_out WHERE labst EQ 0 .  
  
  DATA: lv\_i TYPE i .  
  DATA: lv\_lgort LIKE mard\-lgort.  
  lv\_i = 0 .  
  " 加上序号 转换 小数点  
  SORT gt\_out BY   lgort matnr .  
  LOOP AT gt\_out INTO gs\_out .  
    IF lv\_lgort IS INITIAL OR lv\_lgort <> gs\_out\-lgort .  
      lv\_i =  0 .  
    ENDIF .  
    lv\_i = lv\_i + 1 .  
    gs\_out\-zxh = lv\_i .  
    gs\_out\-labst = gs\_out\-labst + gs\_out\-speme .  
    MODIFY gt\_out FROM gs\_out .  
    lv\_lgort = gs\_out\-lgort .  
    CLEAR gs\_out .  
  ENDLOOP .  
  
  
  SORT gt\_out BY lgort zxh.  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DISPLAY\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_display\_data .  
  DEFINE append\_field.  
    gs\_fieldcat\-fieldname = &1.  
    gs\_fieldcat\-seltext\_l = &2.  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  
  append\_field: 'ZXH' '序号' .  
  append\_field: 'MATNR' '物料编号' .  
  append\_field: 'ZZNME' '物料名称' .  
  append\_field: 'MAKTX' '物料描述' .  
  append\_field: 'CHARG' '评估类别' .  
  append\_field: 'LABST' '数量'.  
  append\_field: 'MEINS' '单位' .  
  append\_field: 'LGORT' '仓库代码' .  
  append\_field: 'LGOBE' '仓储地点' .  
  append\_field: 'LOGGR' '仓管员代码' .  
  
  
  gs\_layout\-box\_fieldname = 'MARK'.  
  gs\_layout\-colwidth\_optimize = 'X'.  
  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
    EXPORTING  
      i\_callback\_program       = sy\-repid  
      i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET'  
      i\_callback\_user\_command  = 'FRM\_USER\_COMMAND'  
\*  
\*     I\_GRID\_SETTINGS          =  
      is\_layout                = gs\_layout  
      it\_fieldcat              = gt\_fieldcat  
\*     ES\_EXIT\_CAUSED\_BY\_USER   =  
    TABLES  
      t\_outtab                 = gt\_out  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
  IF sy\-subrc <> 0.  
\* Implement suitable error handling here  
  ENDIF.  
ENDFORM .  
  
  
FORM frm\_status\_set USING ut\_extab TYPE slis\_t\_extab.  
  SET PF-STATUS 'PF\_001'.  
ENDFORM.  
  
  
  
FORM frm\_user\_command USING uv\_ucomm LIKE sy\-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  
  
  IF  sy\-ucomm EQ 'PRINT' .  
  
    IF r\_1 EQ 'X' .  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF031'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
    IF r\_2 EQ 'X' .  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF031A'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
    gw\_options\-tdnewid = 'X'.    "New Spool  
    gw\_options\-tdimmed = 'X'.  
    gw\_options\-tddelete = 'X'.    "Delete Spool After Print  
    gw\_options\-tdfinal = 'X'.  
    gw\_options\-tdiexit = 'X'.    "Exit after printing in print preview  
    gw\_options\-tddest = 'LP01'.  
  
\*    gw\_control-no\_dialog = 'X'.  
    gw\_control\-preview   = 'X'.  
    gw\_control\-no\_open   = 'X'.  
    gw\_control\-no\_close  = 'X'.  
    CALL FUNCTION 'SSF\_OPEN'    "打开打印窗口  
      EXPORTING  
        control\_parameters = gw\_control  
        output\_options     = gw\_options  
        user\_settings      = ''  
      EXCEPTIONS  
        formatting\_error   = 1  
        internal\_error     = 2  
        send\_error         = 3  
        user\_canceled      = 4  
        OTHERS             = 5.  
  
  
    DATA: lt\_out LIKE TABLE OF gs\_out .  
    DATA: ls\_out LIKE gs\_out .  
    DATA: lt\_out2 LIKE TABLE OF gs\_out .  
    lt\_out = gt\_out .  
    DELETE lt\_out WHERE mark <> 'X'.  
    SORT lt\_out BY lgort .  
    DELETE ADJACENT DUPLICATES FROM  lt\_out COMPARING lgort.  
  
  
    LOOP  AT  lt\_out  INTO ls\_out  .  
      LOOP AT gt\_out INTO gs\_out WHERE mark EQ 'X'.  
        IF gs\_out\-lgort EQ ls\_out\-lgort.  
          APPEND gs\_out TO lt\_out2 .  
        ENDIF .  
      ENDLOOP .  
  
  
      CALL FUNCTION g\_fm\_name  
        EXPORTING  
          control\_parameters = gw\_control  
          output\_options     = gw\_options  
\*         is\_bkpf            = gs\_bkpf  
\*    IMPORTING  
\*         job\_output\_info    = l\_end  
\*         job\_output\_options = l\_start  
        TABLES  
          it\_out             = lt\_out2  
\*         it\_bkpf            = lt\_bkpf  
        EXCEPTIONS  
          formatting\_error   = 1  
          internal\_error     = 2  
          send\_error         = 3  
          user\_canceled      = 4  
          OTHERS             = 5.  
      CLEAR: lt\_out2\[\] .  
  
    ENDLOOP .  
  
    CALL FUNCTION 'SSF\_CLOSE'  
      EXCEPTIONS  
        formatting\_error = 1  
        internal\_error   = 2  
        send\_error       = 3  
        OTHERS           = 4.  
  
  
  ENDIF.  
  
  
ENDFORM .  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_DATA2  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_data2 .  
  
  
  
  " 供应商外包库存  
  SELECT  
    a~lifnr  
    a~matnr  
    d~bismt  
    b~zznme  
    c~maktx  
    d~meins  
    a~charg  
    a~lblab  " 数量  
    e~name\_org4  
    INTO TABLE gt\_mslb  
    FROM mslb AS a  
    JOIN zmmt002 AS b ON a~matnr = b~matnr  
    JOIN makt AS c ON a~matnr = c~matnr  
    JOIN mara AS d ON a~matnr = d~matnr  
    JOIN but000  AS e ON a~lifnr = e~partner  
    WHERE lifnr IN s\_lifnr .  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_PROCESS\_DATA2  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_process\_data2 .  
  
  SORT   gt\_mslb BY lifnr .  
  DATA: lv\_i TYPE i .  
  lv\_i = 0 .  
  DELETE gt\_mslb WHERE lblab EQ  0 .  
  
  LOOP  AT gt\_mslb INTO gs\_mslb .  
    lv\_i = lv\_i + 1 .  
    gs\_mslb\-zxh = lv\_i .  
    MODIFY gt\_mslb FROM gs\_mslb .  
    AT END OF lifnr .  
      lv\_i = 0 .  
    ENDAT.  
  ENDLOOP .  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DISPLAY\_DATA2  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_display\_data2 .  
  
  DEFINE append\_field.  
    gs\_fieldcat\-fieldname = &1.  
    gs\_fieldcat\-seltext\_l = &2.  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  
  append\_field: 'ZXH' '序号' .  
  append\_field: 'MATNR' '物料编号' .  
  append\_field: 'BISMT' '旧料号' .  
  append\_field: 'ZZNME' '物料名称' .  
  append\_field: 'MAKTX' '物料描述' .  
  append\_field: 'CHARG' '评估类别' .  
  append\_field: 'LBLAB' '数量'.  
  append\_field: 'MEINS' '单位' .  
  append\_field: 'LIFNR' '供应商代码' .  
  append\_field: 'NAME\_ORG4' '供应商简称' .  
  
  gs\_layout\-box\_fieldname = 'MARK'.  
  gs\_layout\-colwidth\_optimize = 'X'.  
  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
    EXPORTING  
      i\_callback\_program       = sy\-repid  
      i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET2'  
      i\_callback\_user\_command  = 'FRM\_USER\_COMMAND2'  
\*  
\*     I\_GRID\_SETTINGS          =  
      is\_layout                = gs\_layout  
      it\_fieldcat              = gt\_fieldcat  
\*     ES\_EXIT\_CAUSED\_BY\_USER   =  
    TABLES  
      t\_outtab                 = gt\_mslb  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
  IF sy\-subrc <> 0.  
\* Implement suitable error handling here  
  ENDIF.  
ENDFORM .  
  
FORM frm\_status\_set2 USING ut\_extab TYPE slis\_t\_extab.  
  SET PF-STATUS 'PF\_001'.  
ENDFORM.  
  
  
FORM frm\_user\_command2 USING uv\_ucomm LIKE sy\-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  
  
  CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
    EXPORTING  
      formname           = 'ZMMF031B'  
    IMPORTING  
      fm\_name            = g\_fm\_name  
    EXCEPTIONS  
      no\_form            = 1  
      no\_function\_module = 2  
      OTHERS             = 3.  
  
  
  gw\_options\-tdnewid = 'X'.    "New Spool  
  gw\_options\-tdimmed = 'X'.  
  gw\_options\-tddelete = 'X'.    "Delete Spool After Print  
  gw\_options\-tdfinal = 'X'.  
  gw\_options\-tdiexit = 'X'.    "Exit after printing in print preview  
  gw\_options\-tddest = 'LP01'.  
  
\*    gw\_control-no\_dialog = 'X'.  
  gw\_control\-preview   = 'X'.  
  gw\_control\-no\_open   = 'X'.  
  gw\_control\-no\_close  = 'X'.  
  CALL FUNCTION 'SSF\_OPEN'    "打开打印窗口  
    EXPORTING  
      control\_parameters = gw\_control  
      output\_options     = gw\_options  
      user\_settings      = ''  
    EXCEPTIONS  
      formatting\_error   = 1  
      internal\_error     = 2  
      send\_error         = 3  
      user\_canceled      = 4  
      OTHERS             = 5.  
  
  
  DATA: lt\_mslb LIKE TABLE OF gs\_mslb .  
  DATA: ls\_mslb LIKE gs\_mslb .  
  DATA: lt\_mslb2 LIKE TABLE OF gs\_mslb .  
  lt\_mslb = gt\_mslb .  
  DELETE lt\_mslb WHERE mark <> 'X'.  
  SORT lt\_mslb BY lifnr .  
  DELETE ADJACENT DUPLICATES FROM  lt\_mslb COMPARING lifnr.  
  
  
  LOOP  AT  lt\_mslb  INTO ls\_mslb .  
    LOOP AT gt\_mslb INTO gs\_mslb WHERE mark EQ 'X'.  
      IF gs\_mslb\-lifnr EQ ls\_mslb\-lifnr.  
        APPEND gs\_mslb TO lt\_mslb2  .  
      ENDIF .  
    ENDLOOP .  
  
  
    CALL FUNCTION g\_fm\_name  
      EXPORTING  
        control\_parameters = gw\_control  
        output\_options     = gw\_options  
\*       is\_bkpf            = gs\_bkpf  
\*    IMPORTING  
\*       job\_output\_info    = l\_end  
\*       job\_output\_options = l\_start  
      TABLES  
        it\_out             = lt\_mslb2  
\*       it\_bkpf            = lt\_bkpf  
      EXCEPTIONS  
        formatting\_error   = 1  
        internal\_error     = 2  
        send\_error         = 3  
        user\_canceled      = 4  
        OTHERS             = 5.  
    CLEAR: lt\_mslb2\[\] .  
  
  ENDLOOP .  
  
  CALL FUNCTION 'SSF\_CLOSE'  
    EXCEPTIONS  
      formatting\_error = 1  
      internal\_error   = 2  
      send\_error       = 3  
      OTHERS           = 4.  
  
  
  
  
ENDFORM .  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_DATA3  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_data3 .  
  
  
  
  " 供应商外包库存  
  SELECT  
    a~kunnr  
    a~matnr  
    d~bismt  
    b~zznme  
    c~maktx  
    d~meins  
    a~charg  
    a~kulab   " 数量  
    e~bu\_sort1  
    INTO TABLE gt\_msku  
    FROM msku AS a  
    JOIN zmmt002 AS b ON a~matnr = b~matnr  
    JOIN makt AS c ON a~matnr = c~matnr  
    JOIN mara AS d ON a~matnr = d~matnr  
    JOIN but000  AS e ON a~kunnr = e~partner  
    WHERE a~kunnr IN s\_kunnr .  
  
  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_PROCESS\_DATA3  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_process\_data3 .  
  
  
  
  SORT   gt\_msku  BY  kunnr .  
  DATA: lv\_i TYPE i .  
  lv\_i = 0 .  
  "删除0库存  
  DELETE gt\_msku WHERE kulab EQ 0 .  
  
  " 加序号  
  LOOP  AT  gt\_msku INTO  gs\_msku .  
    lv\_i = lv\_i + 1 .  
    gs\_msku\-zxh = lv\_i .  
    MODIFY gt\_msku FROM gs\_msku .  
    AT END OF  kunnr .  
      lv\_i = 0 .  
    ENDAT.  
  ENDLOOP .  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DISPLAY\_DATA3  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_display\_data3 .  
  
  
  
  
  DEFINE append\_field.  
    gs\_fieldcat\-fieldname = &1.  
    gs\_fieldcat\-seltext\_l = &2.  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  
  append\_field: 'ZXH' '序号' .  
  append\_field: 'MATNR' '物料编号' .  
  append\_field: 'ZZNME' '物料名称' .  
  append\_field: 'MAKTX' '物料描述' .  
  append\_field: 'CHARG' '评估类别' .  
  append\_field: 'KULAB' '数量'.  
  append\_field: 'MEINS' '单位' .  
  append\_field: 'KUNNR' '客户代码' .  
  append\_field: 'BU\_SORT1' '客户简称' .  
  
  gs\_layout\-box\_fieldname = 'MARK'.  
  gs\_layout\-colwidth\_optimize = 'X'.  
  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
    EXPORTING  
      i\_callback\_program       = sy\-repid  
      i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET3'  
      i\_callback\_user\_command  = 'FRM\_USER\_COMMAND3'  
\*  
\*     I\_GRID\_SETTINGS          =  
      is\_layout                = gs\_layout  
      it\_fieldcat              = gt\_fieldcat  
\*     ES\_EXIT\_CAUSED\_BY\_USER   =  
    TABLES  
      t\_outtab                 = gt\_msku  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
  IF sy\-subrc <> 0.  
\* Implement suitable error handling here  
  ENDIF.  
ENDFORM .  
  
FORM frm\_status\_set3 USING ut\_extab TYPE slis\_t\_extab.  
  SET PF-STATUS 'PF\_001'.  
ENDFORM.  
  
  
FORM frm\_user\_command3 USING uv\_ucomm LIKE sy\-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  
  
  CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
    EXPORTING  
      formname           = 'ZMMF031C'  
    IMPORTING  
      fm\_name            = g\_fm\_name  
    EXCEPTIONS  
      no\_form            = 1  
      no\_function\_module = 2  
      OTHERS             = 3.  
  
  
  gw\_options\-tdnewid = 'X'.    "New Spool  
  gw\_options\-tdimmed = 'X'.  
  gw\_options\-tddelete = 'X'.    "Delete Spool After Print  
  gw\_options\-tdfinal = 'X'.  
  gw\_options\-tdiexit = 'X'.    "Exit after printing in print preview  
  gw\_options\-tddest = 'LP01'.  
  
\*    gw\_control-no\_dialog = 'X'.  
  gw\_control\-preview   = 'X'.  
  gw\_control\-no\_open   = 'X'.  
  gw\_control\-no\_close  = 'X'.  
  CALL FUNCTION 'SSF\_OPEN'    "打开打印窗口  
    EXPORTING  
      control\_parameters = gw\_control  
      output\_options     = gw\_options  
      user\_settings      = ''  
    EXCEPTIONS  
      formatting\_error   = 1  
      internal\_error     = 2  
      send\_error         = 3  
      user\_canceled      = 4  
      OTHERS             = 5.  
  
  DATA: lt\_msku LIKE TABLE OF gs\_msku .  
  DATA: ls\_msku LIKE gs\_msku .  
  DATA: lt\_msku2 LIKE TABLE OF gs\_msku .  
  lt\_msku = gt\_msku .  
  DELETE lt\_msku WHERE mark <> 'X'.  
  SORT lt\_msku BY kunnr.  
  DELETE ADJACENT DUPLICATES FROM  lt\_msku COMPARING kunnr.  
  
  
  LOOP  AT  lt\_msku  INTO ls\_msku .  
    LOOP AT gt\_msku INTO gs\_msku WHERE mark EQ 'X'.  
      IF gs\_msku\-kunnr EQ ls\_msku\-kunnr.  
        APPEND gs\_msku TO lt\_msku2  .  
      ENDIF .  
    ENDLOOP .  
  
  
    CALL FUNCTION g\_fm\_name  
      EXPORTING  
        control\_parameters = gw\_control  
        output\_options     = gw\_options  
\*       is\_bkpf            = gs\_bkpf  
\*    IMPORTING  
\*       job\_output\_info    = l\_end  
\*       job\_output\_options = l\_start  
      TABLES  
        it\_out             = lt\_msku2  
\*       it\_bkpf            = lt\_bkpf  
      EXCEPTIONS  
        formatting\_error   = 1  
        internal\_error     = 2  
        send\_error         = 3  
        user\_canceled      = 4  
        OTHERS             = 5.  
    CLEAR: lt\_msku2\[\] .  
  
  ENDLOOP .  
  
  CALL FUNCTION 'SSF\_CLOSE'  
    EXCEPTIONS  
      formatting\_error = 1  
      internal\_error   = 2  
      send\_error       = 3  
      OTHERS           = 4.  
  
  
  
  
ENDFORM .  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_DATA5  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_data5 .  
  SELECT  
 a~matnr  
 d~bismt  
 e~zznme  
 b~maktx  
 d~meins  
 a~werks  
 a~lgort  
 c~lgobe  
 a~labst   " 非限制使用库存  
 a~speme  
 f~loggr " 仓管员代码  
  
INTO TABLE gt\_mard  
FROM mard AS a  
INNER JOIN  makt AS b  ON a~matnr = b~matnr  
INNER JOIN t001l AS c  ON a~werks = c~werks AND  a~lgort = c~lgort  
INNER JOIN mara  AS d  ON a~matnr = d~matnr  
INNER JOIN zmmt002 AS e ON a~matnr = e~matnr  
INNER JOIN marc    AS f ON a~matnr = f~matnr AND a~werks = f~werks  
 WHERE a~lgort IN s\_lgort  
 AND c~werks EQ  s\_werks\-low  
 AND a~matnr IN s\_matnr  
 AND f~loggr IN s\_loggr  .  
  
  
  IF gt\_mard IS NOT INITIAL .  
    SELECT  
     a~matnr  
     d~bismt  
      e~zznme  
     b~maktx  
     d~meins  
     a~werks  
     a~lgort  
     c~lgobe  
     a~clabs  "非限制库存  
     a~cspem  
     f~loggr  " 仓管员代码  
     a~charg  "评估类  
  
     INTO TABLE gt\_mchb  
      FROM mchb AS a  
      INNER JOIN makt AS b  ON a~matnr = b~matnr  
      INNER JOIN t001l AS c  ON  a~werks = c~werks AND  a~lgort = c~lgort  
      INNER JOIN mara  AS d ON a~matnr = d~matnr  
      INNER JOIN zmmt002 AS e ON a~matnr = e~matnr  
      INNER JOIN marc AS f ON a~matnr = f~matnr  
      FOR ALL ENTRIES IN gt\_mard  
      WHERE a~matnr = gt\_mard\-matnr  
      AND a~werks  = gt\_mard\-werks  
      AND a~lgort = gt\_mard\-lgort  
      AND f~loggr IN s\_loggr .  
  
  ENDIF.  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_PROCESS\_DATA5  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_process\_data5 .  
  
  
  SORT  gt\_mchb BY matnr lgort .  
  
  
  DATA lv\_tabix TYPE sy\-tabix .  
  LOOP AT gt\_mard INTO gs\_mard .  
    CLEAR lv\_tabix .  
    lv\_tabix =  sy\-tabix  .  
    " 如果有批次从表中去除  
    READ TABLE gt\_mchb WITH KEY matnr = gs\_mard\-matnr  
                                lgort = gs\_mard\-lgort  
                        BINARY SEARCH  
                       TRANSPORTING NO FIELDS .  
    IF sy\-subrc EQ   0 .  
      DELETE gt\_mard INDEX lv\_tabix .  
    ENDIF .  
  
  ENDLOOP .  
  
  CLEAR gs\_mard .  
  
  
  LOOP AT gt\_mard INTO gs\_mard  .  
    APPEND  gs\_mard  TO gt\_out .  
  ENDLOOP .  
  
  " 把带批次的放入GT\_oUT  
  
  LOOP AT gt\_mchb INTO gs\_mchb.  
  
    APPEND gs\_mchb  TO gt\_out .  
  ENDLOOP .  
  
  
  " 去0库存  
  DELETE gt\_out WHERE labst EQ 0 .  
  
  DATA: lv\_i TYPE i .  
  DATA: lv\_loggr LIKE marc\-loggr.  
  lv\_i = 0 .  
  " 加上序号 转换 小数点  
  SORT gt\_out BY loggr matnr .  
  LOOP AT gt\_out INTO gs\_out .  
    IF lv\_loggr IS INITIAL OR lv\_loggr <> gs\_out\-loggr .  
      lv\_i =  0 .  
    ENDIF .  
    lv\_i = lv\_i + 1 .  
    gs\_out\-zxh = lv\_i .  
    gs\_out\-labst = gs\_out\-labst + gs\_out\-speme .  
    MODIFY gt\_out FROM gs\_out .  
    lv\_loggr = gs\_out\-loggr .  
    CLEAR gs\_out .  
  ENDLOOP .  
  
  
  SORT gt\_out BY  loggr zxh.  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DISPLAY\_DATA5  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_display\_data5 .  
  DEFINE append\_field.  
    gs\_fieldcat\-fieldname = &1.  
    gs\_fieldcat\-seltext\_l = &2.  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  
  append\_field: 'LOGGR' '仓管员代码' .  
  append\_field: 'ZXH' '序号' .  
  append\_field: 'MATNR' '物料编号' .  
  append\_field: 'ZZNME' '物料名称' .  
  append\_field: 'MAKTX' '物料描述' .  
  append\_field: 'CHARG' '评估类别' .  
  append\_field: 'LABST' '数量'.  
  append\_field: 'MEINS' '单位' .  
  append\_field: 'LGORT' '仓库代码' .  
  append\_field: 'LGOBE' '仓储地点' .  
  
  gs\_layout\-box\_fieldname = 'MARK'.  
  gs\_layout\-colwidth\_optimize = 'X'.  
  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
    EXPORTING  
      i\_callback\_program       = sy\-repid  
      i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET'  
      i\_callback\_user\_command  = 'FRM\_USER\_COMMAND5'  
\*  
\*     I\_GRID\_SETTINGS          =  
      is\_layout                = gs\_layout  
      it\_fieldcat              = gt\_fieldcat  
\*     ES\_EXIT\_CAUSED\_BY\_USER   =  
    TABLES  
      t\_outtab                 = gt\_out  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
  IF sy\-subrc <> 0.  
\* Implement suitable error handling here  
  ENDIF.  
  
ENDFORM.  
  
  
  
FORM frm\_user\_command5 USING uv\_ucomm LIKE sy\-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  
  
  IF  sy\-ucomm EQ 'PRINT' .  
  
    IF  r\_5 EQ 'X' . "OR r\_5A EQ 'X'  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF031D'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ELSE .  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF031D\_02'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
  
    gw\_options\-tdnewid = 'X'.    "New Spool  
    gw\_options\-tdimmed = 'X'.  
    gw\_options\-tddelete = 'X'.    "Delete Spool After Print  
    gw\_options\-tdfinal = 'X'.  
    gw\_options\-tdiexit = 'X'.    "Exit after printing in print preview  
    gw\_options\-tddest = 'LP01'.  
  
\*    gw\_control-no\_dialog = 'X'.  
    gw\_control\-preview   = 'X'.  
    gw\_control\-no\_open   = 'X'.  
    gw\_control\-no\_close  = 'X'.  
    CALL FUNCTION 'SSF\_OPEN'    "打开打印窗口  
      EXPORTING  
        control\_parameters = gw\_control  
        output\_options     = gw\_options  
        user\_settings      = ''  
      EXCEPTIONS  
        formatting\_error   = 1  
        internal\_error     = 2  
        send\_error         = 3  
        user\_canceled      = 4  
        OTHERS             = 5.  
  
  
    DATA: lt\_out LIKE TABLE OF gs\_out .  
    DATA: ls\_out LIKE gs\_out .  
    DATA: lt\_out2 LIKE TABLE OF gs\_out .  
    lt\_out = gt\_out .  
    DELETE lt\_out WHERE mark <> 'X'.  
    SORT lt\_out BY loggr .  
    DELETE ADJACENT DUPLICATES FROM  lt\_out COMPARING loggr.  
  
  
    LOOP  AT  lt\_out  INTO ls\_out  .  
      LOOP AT gt\_out INTO gs\_out WHERE mark EQ 'X'.  
        IF gs\_out\-loggr EQ ls\_out\-loggr.  
          APPEND gs\_out TO lt\_out2 .  
        ENDIF .  
      ENDLOOP .  
  
  
      CALL FUNCTION g\_fm\_name  
        EXPORTING  
          control\_parameters = gw\_control  
          output\_options     = gw\_options  
\*         is\_bkpf            = gs\_bkpf  
\*    IMPORTING  
\*         job\_output\_info    = l\_end  
\*         job\_output\_options = l\_start  
        TABLES  
          it\_out             = lt\_out2  
\*         it\_bkpf            = lt\_bkpf  
        EXCEPTIONS  
          formatting\_error   = 1  
          internal\_error     = 2  
          send\_error         = 3  
          user\_canceled      = 4  
          OTHERS             = 5.  
      CLEAR: lt\_out2\[\] .  
  
    ENDLOOP .  
  
    CALL FUNCTION 'SSF\_CLOSE'  
      EXCEPTIONS  
        formatting\_error = 1  
        internal\_error   = 2  
        send\_error       = 3  
        OTHERS           = 4.  
  
  
  ENDIF.  
  
  
ENDFORM .

![70 1][]

[70]: /images/20220527/3bad0121f52c4bda927bb005f11697be.png
[70 1]: /images/20220527/ddeaad632a754cbca9570c8cbcc6bb6f.png