转储单(两行变一行)处理

灰太狼 2022-05-13 11:50 228阅读 0赞

![70][]

![70 1][]

![70 2][]

![70 3][]

![70 4][]

\*&---------------------------------------------------------------------\*  
\*& Report ZMMF002  
\*&---------------------------------------------------------------------\*  
\*&  
\*&---------------------------------------------------------------------\*  
REPORT zmmf007a.  
  
  
INCLUDE ZMMF007A\_TOP.  
  
INCLUDE ZMMF007A\_SCR.  
  
INCLUDE ZMMF007A\_FRM.  
  
\*4900001808  
  
START-OF-SELECTION .  
  
  
  PERFORM  frm\_get\_data.  
  
  
  PERFORM  frm\_process\_data.  
  
  
  PERFORM  frm\_display\_alv .

\*&---------------------------------------------------------------------\*  
\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF002\_TOP  
\*&---------------------------------------------------------------------\*  
  
TABLES : rkpf ,resb ,mkpf ,mseg .  
  
  
  
  
  
DATA: BEGIN OF gs\_out ,  
  
        bwart    LIKE mseg-bwart , " 移动类型  
        mblnr    LIKE mseg-mblnr,  
        zeile    LIKE mseg-zeile,  
        budat    LIKE mkpf-budat  , "日期  
        matnr    LIKE  resb-matnr ,  "物料编码  
        maktx    TYPE  makt-maktx  , " 物料描述  
        meins    LIKE resb-meins , " 单位  
        menge    LIKE mseg-menge ,  "需求数量  
        werks    LIKE mseg-werks,  
        lgort    LIKE resb-lgort ,  "调出仓库代码  
        lgobe    LIKE t001l-lgobe ,  "调出仓库名称  
        werks2   LIKE mseg-werks,  
        lgort2   LIKE mseg-lgort , "调入仓库代码  
        lgobe2   LIKE t001l-lgobe ,  "调入仓库名称  
        name1    LIKE t001w-name1,  "调出工厂名称  
        name2    LIKE t001w-name1 ,  "调出工厂名称  
        mark ,  
        remark   TYPE c LENGTH 50,  
        ebeln    LIKE mseg-ebeln,  
        ebelp    LIKE mseg-ebelp,  
        zprt\_cnt LIKE  zmmt001q-zprt\_cnt , " 打印次数  
      END OF gs\_out .  
  
DATA: gt\_out LIKE TABLE OF gs\_out .  
  
  
  
DATA: BEGIN OF gs\_rkpf ,  
  
        bwart LIKE rkpf-bwart , " 移动类型  
        " 移动类型文本  
        " 领料部门  
        rsnum LIKE rkpf-rsnum , "预留单号  
      END OF gs\_rkpf .  
  
DATA: gt\_rkpf LIKE TABLE OF gs\_rkpf .  
  
  
DATA: BEGIN OF gs\_resb ,  
        bwart LIKE resb-bwart , "移动类型  
        rsnum LIKE resb-rsnum , "预留单号  
        rspos LIKE resb-rspos , "项号  
        bdter LIKE resb-bdter  , "日期  
        matnr LIKE resb-matnr ,  "物料编码  
        charg LIKE resb-charg  , "评估类别  
        meins LIKE resb-meins , " 单位  
        bdmng LIKE resb-bdmng ,  "需求数量  
        lgort LIKE resb-lgort ,  "调出仓库代码  
        umlgo LIKE resb-umlgo , "调入仓库代码  
        sgtxt LIKE resb-sgtxt , "项目文本  
      END OF gs\_resb .  
  
DATA: gt\_resb LIKE TABLE OF gs\_resb .  
  
DATA: BEGIN OF gs\_makt ,  
        matnr LIKE makt-matnr,  
        maktx LIKE makt-maktx,  
      END OF gs\_makt .  
  
DATA: gt\_makt LIKE TABLE OF gs\_makt .  
  
  
DATA: BEGIN OF gs\_marc ,  
        werks LIKE marc-werks,  
        matnr LIKE marc-matnr,  
        lgpro LIKE marc-lgpro , " 生产仓储地点  
        lgfsb LIKE marc-lgfsb , "  采购仓储地点  
      END OF gs\_marc .  
  
DATA: gt\_marc LIKE TABLE OF gs\_marc .  
  
DATA: BEGIN OF gs\_t001l ,  
        werks LIKE t001l-werks,  
        lgort LIKE t001l-lgort ,  "仓库代码  
        lgobe LIKE t001l-lgobe ,  "仓库名称  
      END OF gs\_t001l .  
  
DATA: gt\_t001l LIKE TABLE OF gs\_t001l.  
  
DATA: BEGIN OF gs\_t001w,  
        werks LIKE t001w-werks,  
        name1 LIKE t001w-name1,  
      END OF gs\_t001w.  
  
DATA: gt\_t001w LIKE TABLE OF gs\_t001w.  
  
  
  
  
DATA: BEGIN OF gs\_stxl,  
        tdobject LIKE stxl-tdobject , " 文本对象  EKPO  
        tdname   LIKE  stxl-tdname, "文本名 编号加5位序号 430000000500010  
        tdid     LIKE stxl-tdid,  
        clustd   LIKE stxl-clustd , "项目文本数据  
      END OF gs\_stxl .  
  
  
DATA: BEGIN OF gs\_mseg ,  
        bwart     LIKE mseg-bwart,  "移动类型  
        mblnr     LIKE mseg-mblnr,  " 凭证号  
        budat     LIKE mkpf-budat,   "日期  
        ebeln     LIKE mseg-ebeln,  "采购订单号  
        ebelp     LIKE mseg-ebelp,  "采购订单行项目  
        zeile     LIKE mseg-zeile , "行项目  
        werks     LIKE mseg-werks,  
        lgort     LIKE mseg-lgort,  
        matnr     LIKE mseg-matnr,  
        menge     LIKE mseg-menge,  
        shkzg     LIKE mseg-shkzg,  "借贷项  
        line\_id   LIKE mseg-line\_id,  
        parent\_id LIKE mseg-parent\_id,  
  
      END OF gs\_mseg .  
DATA: gt\_mseg LIKE TABLE OF gs\_mseg .  
  
DATA: BEGIN OF gs\_mbmps,  
        smbln LIKE m\_mbmps-smbln,  
        smblp LIKE m\_mbmps-smblp,  
        mblnr LIKE m\_mbmps-mblnr,  
        zeile LIKE m\_mbmps-zeile,  
      END OF gs\_mbmps.  
  
DATA : gt\_mbmps LIKE TABLE OF gs\_mbmps .  
  
  
  
" 获取打印次数  
DATA: gs\_zmmt001q LIKE zmmt001q .  
DATA: gt\_zmmt001q LIKE TABLE OF gs\_zmmt001q .  
  
  
  
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.

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF002\_SCR  
\*&---------------------------------------------------------------------\*  
  
  
SELECT-OPTIONS:  s\_werks FOR mseg-werks OBLIGATORY ,  
                 s\_mblnr FOR  mkpf-mblnr , "凭证编号  
                 s\_matnr for  mseg-matnr,  
                 s\_bwart for  mseg-bwart DEFAULT '351' ,  
                 s\_budat FOR  mkpf-budat, "日期  
                 s\_usnam FOR  rkpf-usnam        .  "用户名  
  
\*PARAMETERS: cb\_1 AS CHECKBOX  .  
  
  
\*  
\*\*PARAMETERS :     P\_USNAM TYPE  MSEG-USNAM\_MKPF  OBLIGATORY DEFAULT 'LXF' . "用户名  
\*PARAMETERS :      P\_USNAM TYPE  RKPF-USNAM\_MKPF . "用户名  
  
  
\*  
\*PARAMETERS : R\_1 RADIOBUTTON GROUP G1 .  
\*PARAMETERS : R\_2 RADIOBUTTON GROUP G1 .

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF002\_FRM  
\*&---------------------------------------------------------------------\*  
  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_data .  
  
  
  SELECT  
    bwart  
      a~mblnr  
      budat  
      ebeln  
      ebelp  
    b~zeile  
      werks  
      lgort  
      matnr  
      menge  
      shkzg  
    b~line\_id  
    b~parent\_id  
     INTO TABLE gt\_mseg  
    FROM mkpf AS a  
    JOIN mseg AS b  
    ON a~mblnr = b~mblnr  
    WHERE a~mblnr IN s\_mblnr  
    AND budat IN s\_budat  
    AND matnr IN s\_matnr  
    AND bwart IN  s\_bwart.  
  
  
  
  IF gt\_mseg IS NOT INITIAL .  
    SELECT  
     werks  
     matnr  
     lgpro  " 生产仓储地点  
     lgfsb  "  采购仓储地点  
      INTO  TABLE gt\_marc  
      FROM marc  
     FOR ALL ENTRIES IN gt\_mseg  
     WHERE matnr = gt\_mseg-matnr .  
  ENDIF .  
  
  
  IF gt\_mseg IS NOT INITIAL .  
    SELECT  
       matnr  
       maktx  
      INTO  TABLE gt\_makt  
      FROM makt  
      FOR ALL ENTRIES IN gt\_mseg  
      WHERE matnr = gt\_mseg-matnr .  
  
  ENDIF .  
  
  
  
  SELECT  
   werks  
   lgort   "仓库代码  
   lgobe  "仓库名称  
   INTO  TABLE gt\_t001l  
   FROM t001l .  
  
  SELECT werks name1  
    INTO TABLE gt\_t001w  
    FROM t001w .  
  
  
  SELECT  
    smbln  
    smblp  
    mblnr  
    zeile  
  
 INTO TABLE gt\_mbmps  
 FROM   m\_mbmps .  
  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_PROCESS\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_process\_data .  
  
  
  
  
  
  SORT gt\_makt BY matnr .  
  SORT gt\_t001l BY werks lgort .  
  SORT gt\_marc BY werks matnr .  
  IF s\_bwart-low  EQ '351' OR  s\_bwart-low  EQ '352' .  
  
  
    LOOP AT gt\_mseg INTO gs\_mseg .  
      IF gs\_mseg-parent\_id  <>  0.  
        gs\_mseg-zeile = gs\_mseg-parent\_id .  
      ELSE .  
        gs\_mseg-zeile = gs\_mseg-line\_id .  
      ENDIF .  
      MODIFY gt\_mseg FROM gs\_mseg .  
    ENDLOOP .  
  
    SORT gt\_mseg BY mblnr  budat  ebeln ebelp zeile .  
    LOOP AT gt\_mseg INTO gs\_mseg .  
      gs\_out-mblnr = gs\_mseg-mblnr .  
      gs\_out-bwart = gs\_mseg-bwart .  
      gs\_out-budat = gs\_mseg-budat .  
      gs\_out-menge = gs\_mseg-menge .  
      gs\_out-matnr = gs\_mseg-matnr .  
      gs\_out-ebeln = gs\_mseg-ebeln .  
      gs\_out-ebelp = gs\_mseg-ebelp .  
  
      CLEAR gs\_makt .  
      READ TABLE gt\_makt INTO gs\_makt WITH KEY matnr = gs\_out-matnr  
                                      BINARY SEARCH .  
  
      IF sy-subrc EQ 0 .  
  
        gs\_out-maktx = gs\_makt-maktx .  
  
      ENDIF .  
  
      IF gs\_mseg-shkzg EQ 'H' .  
        gs\_out-zeile = gs\_mseg-zeile .  
        gs\_out-werks = gs\_mseg-werks .  
        gs\_out-lgort = gs\_mseg-lgort .  
        CLEAR gs\_t001l  .  
        READ TABLE gt\_t001l INTO  gs\_t001l WITH KEY  werks = gs\_out-werks  
                                                     lgort = gs\_out-lgort.  
        gs\_out-lgobe = gs\_t001l-lgobe .   "仓库名称  
  
      ENDIF .  
      IF gs\_mseg-shkzg EQ 'S' .  
        gs\_out-werks2 = gs\_mseg-werks .  
        gs\_out-lgort2 = gs\_mseg-lgort .  
        CLEAR gs\_marc  .  
        READ TABLE gt\_marc INTO gs\_marc WITH KEY werks = gs\_out-werks2  
                                                 matnr = gs\_mseg-matnr  
                                         BINARY SEARCH .  
        IF sy-subrc EQ 0 .  
          gs\_out-lgort2 = gs\_marc-lgfsb  .  
          CLEAR gs\_t001l.  
          READ TABLE gt\_t001l INTO  gs\_t001l WITH KEY werks  = gs\_out-werks2  
                                                      lgort = gs\_out-lgort2.  
          gs\_out-lgobe2 = gs\_t001l-lgobe .   "仓库名称  
        ENDIF .  
  
      ENDIF .  
  
      "  工厂名称  
  
      CLEAR gs\_t001w .  
      READ TABLE gt\_t001w INTO gs\_t001w WITH KEY werks = gs\_out-werks.  
      gs\_out-name1 = gs\_t001w-name1.  
  
      CLEAR gs\_t001w .  
      READ TABLE gt\_t001w INTO gs\_t001w WITH KEY werks = gs\_out-werks2.  
      gs\_out-name2 = gs\_t001w-name1.  
  
  
  
      AT END OF zeile . "如果采购单号相同则会少一行  
  
        APPEND gs\_out TO gt\_out .  
        CLEAR gs\_out .  
  
      ENDAT .  
  
  
    ENDLOOP .  
  ENDIF.  
  
  IF s\_bwart-low  EQ '303' OR  s\_bwart-low  EQ '304'  
       OR  s\_bwart-low  EQ '305' OR  s\_bwart-low  EQ '306' .  
  
  
    LOOP AT gt\_mseg INTO gs\_mseg .  
      IF gs\_mseg-parent\_id  <>  0.  
        gs\_mseg-zeile = gs\_mseg-parent\_id .  
      ELSE .  
        gs\_mseg-zeile = gs\_mseg-line\_id .  
      ENDIF .  
      MODIFY gt\_mseg FROM gs\_mseg .  
    ENDLOOP .  
  
    SORT gt\_mseg BY mblnr  budat  ebeln ebelp .  
    LOOP AT gt\_mseg INTO gs\_mseg .  
      gs\_out-mblnr = gs\_mseg-mblnr .  
      gs\_out-bwart = gs\_mseg-bwart .  
      gs\_out-budat = gs\_mseg-budat .  
      gs\_out-menge = gs\_mseg-menge .  
      gs\_out-matnr = gs\_mseg-matnr .  
      gs\_out-ebeln = gs\_mseg-ebeln .  
      gs\_out-ebelp = gs\_mseg-ebelp .  
      CLEAR gs\_makt .  
      READ TABLE gt\_makt INTO gs\_makt WITH KEY matnr = gs\_out-matnr  
                                      BINARY SEARCH .  
  
      IF sy-subrc EQ 0 .  
  
        gs\_out-maktx = gs\_makt-maktx .  
  
      ENDIF .  
  
      IF gs\_mseg-shkzg EQ 'H' .  
        gs\_out-zeile = gs\_mseg-zeile .  
        gs\_out-werks = gs\_mseg-werks .  
        gs\_out-lgort = gs\_mseg-lgort .  
        CLEAR gs\_t001l  .  
        READ TABLE gt\_t001l INTO  gs\_t001l WITH KEY  werks = gs\_out-werks  
                                                     lgort = gs\_out-lgort.  
        gs\_out-lgobe = gs\_t001l-lgobe .   "仓库名称  
  
      ENDIF .  
      IF gs\_mseg-shkzg EQ 'S' .  
        gs\_out-werks2 = gs\_mseg-werks .  
        gs\_out-lgort2 = gs\_mseg-lgort .  
        CLEAR gs\_marc  .  
        READ TABLE gt\_marc INTO gs\_marc WITH KEY werks = gs\_out-werks2  
                                                 matnr = gs\_mseg-matnr  
                                         BINARY SEARCH .  
        IF sy-subrc EQ 0 .  
          gs\_out-lgort2 = gs\_marc-lgfsb  .  
          CLEAR gs\_t001l.  
          READ TABLE gt\_t001l INTO  gs\_t001l WITH KEY werks  = gs\_out-werks2  
                                                      lgort = gs\_out-lgort2.  
          gs\_out-lgobe2 = gs\_t001l-lgobe .   "仓库名称  
        ENDIF .  
  
      ENDIF .  
  
      "  工厂名称  
  
      CLEAR gs\_t001w .  
      READ TABLE gt\_t001w INTO gs\_t001w WITH KEY werks = gs\_out-werks.  
      gs\_out-name1 = gs\_t001w-name1.  
  
      CLEAR gs\_t001w .  
      READ TABLE gt\_t001w INTO gs\_t001w WITH KEY werks = gs\_out-werks2.  
      gs\_out-name2 = gs\_t001w-name1.  
  
  
  
      AT END OF zeile.  
  
        APPEND gs\_out TO gt\_out .  
        CLEAR gs\_out .  
  
      ENDAT .  
  
  
    ENDLOOP .  
  ENDIF.  
  
  
  
  
  
  
\*  
\*  LOOP AT gt\_out INTO gs\_out .  
\*    IF gs\_out-werks <> s\_werks-low .  
\*      DELETE gt\_out INDEX sy-tabix .  
\*    ENDIF .  
\*  
\*  ENDLOOP .  
  
  
  
  
  DATA lv\_tabix TYPE sy-tabix .  
  SORT   gt\_mbmps BY   smbln   smblp .  
  
  DATA : lv\_zeile LIKE mseg-zeile .  
  " " 去冲销  
  LOOP AT gt\_out INTO gs\_out .  
    CLEAR lv\_tabix .  
    lv\_tabix =  sy-tabix  .  
    CLEAR  lv\_zeile .  
  
    SELECT SINGLE  zeile INTO lv\_zeile FROM mseg WHERE  mblnr =  gs\_out-mblnr AND  parent\_id =  gs\_out-zeile .  
  
      READ TABLE gt\_mbmps WITH KEY smbln = gs\_out-mblnr  
                                   smblp = lv\_zeile  
                                   BINARY SEARCH  
                                   TRANSPORTING NO FIELDS .  
      IF sy-subrc EQ 0 .  
        DELETE gt\_out INDEX lv\_tabix  .  
      ENDIF .  
    ENDLOOP .  
  
  
    "  去被冲销  
    SORT   gt\_mbmps BY mblnr  zeile .  
    LOOP AT gt\_out INTO gs\_out .  
      CLEAR lv\_tabix .  
      lv\_tabix =  sy-tabix  .  
      READ TABLE gt\_mbmps WITH KEY mblnr  = gs\_out-mblnr  
\*                                 zeile  = gs\_out-zeile  
                                   BINARY SEARCH  
                                   TRANSPORTING NO FIELDS .  
      IF sy-subrc EQ 0 .  
        DELETE gt\_out INDEX lv\_tabix  .  
      ENDIF .  
  
    ENDLOOP .  
  
  
\*  
\*  
\*  
\*SORT gt\_resb BY rsnum rspos .  
\*SORT gt\_rkpf BY rsnum  .  
\*SORT gt\_makt BY matnr .  
\*SORT gt\_marc BY matnr .  
\*SORT gt\_zmmt001q BY zdh .  
\*  
\*LOOP AT gt\_resb INTO gs\_resb.  
\*  gs\_out-rsnum = gs\_resb-rsnum . "预留单号  
\*  gs\_out-rspos = gs\_resb-rspos . " 项号  
\*  gs\_out-bdter = gs\_resb-bdter ."日期  
\*  gs\_out-matnr = gs\_resb-matnr ."物料编码  
\*  gs\_out-charg = gs\_resb-charg . "评估类别  
\*  gs\_out-meins = gs\_resb-meins . " 单位  
\*  gs\_out-bdmng = gs\_resb-bdmng .  "需求数量  
\*  IF   gs\_resb-bwart EQ '311' .  
\*    gs\_out-lgort = gs\_resb-lgort . "调出仓库代码  
\*    gs\_out-umlgo = gs\_resb-umlgo . "调入仓库代码  
\*  
\*  ENDIF .  
\*  IF   gs\_resb-bwart EQ '312' .  
\*  
\*    gs\_out-lgort = gs\_resb-umlgo . "调出仓库代码  
\*    gs\_out-umlgo = gs\_resb-lgort . "调入仓库代码  
\*  ENDIF .  
\*  
\*  READ TABLE  gt\_rkpf INTO gs\_rkpf WITH KEY rsnum = gs\_resb-rsnum  
\*                                   BINARY SEARCH .  
\*  gs\_out-bwart = gs\_rkpf-bwart .  "凭证类型  
\*  CLEAR gs\_rkpf .  
\*  
\*  READ TABLE gt\_makt INTO gs\_makt WITH KEY matnr = gs\_resb-matnr  
\*                                  BINARY SEARCH .  
\*  gs\_out-maktx = gs\_makt-maktx .  "物料描述  
\*  
\*  CLEAR gs\_makt .  
\*  
\*  "获取调出仓库名称  如果为空取主数据外部采购仓储地点  
\*  IF gs\_out-lgort IS  INITIAL .  
\*    CLEAR gs\_marc .  
\*    READ TABLE gt\_marc INTO gs\_marc WITH KEY matnr = gs\_resb-matnr  
\*                                    BINARY SEARCH .  
\*    IF sy-subrc EQ 0 .  
\*      gs\_out-lgort = gs\_marc-lgfsb  .  
\*    ENDIF .  
\*  
\*  ENDIF .  
\*  
\*  READ TABLE gt\_t001l INTO  gs\_t001l WITH KEY  lgort = gs\_out-lgort.  
\*  
\*  gs\_out-lgobe = gs\_t001l-lgobe .   "仓库名称  
\*  
\*  CLEAR gs\_t001l.  
\*  
\*  
\*  
\*  
\*  
\*  "获取调入仓库名称如果为空取主数据外部采购仓储地点  
\*  IF gs\_out-umlgo IS  INITIAL .  
\*    CLEAR gs\_marc .  
\*    READ TABLE gt\_marc INTO gs\_marc WITH KEY matnr = gs\_resb-matnr  
\*                                    BINARY SEARCH .  
\*    IF sy-subrc EQ 0 .  
\*      gs\_out-umlgo = gs\_marc-lgfsb  .  
\*    ENDIF .  
\*  
\*  ENDIF .  
\*  
\*  
\*  READ TABLE gt\_t001l INTO  gs\_t001l WITH KEY lgort = gs\_out-umlgo  .  
\*  
\*  gs\_out-lgobe2 = gs\_t001l-lgobe .   "仓库名称  
\*  
\*  CLEAR gs\_t001l.  
\*  
\*  
\*  " 获取打印次数  
\*  CLEAR gs\_zmmt001q  .  
\*  READ TABLE gt\_zmmt001q INTO  gs\_zmmt001q WITH KEY zdh = gs\_out-rsnum  
\*                                           BINARY SEARCH .  
\*  IF sy-subrc EQ 0 .  
\*    gs\_out-zprt\_cnt = gs\_zmmt001q-zprt\_cnt .  
\*  
\*  ENDIF .  
\*  
\*  IF gs\_out-remark  IS INITIAL .  
\*    gs\_out-remark =  gs\_resb-sgtxt .  
\*  ENDIF .  
\*  
\*  
\*  APPEND gs\_out TO gt\_out .  
\*  
\*  CLEAR gs\_out .  
\*  
\*ENDLOOP .  
\*  
\*  
  
  
  
  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DISPLAY\_ALV  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_display\_alv .  
  
  
  
  
  
  
  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: 'MBLNR' '物料凭证' .  
  append\_field: 'budat' '日期' .  
  
  gs\_fieldcat-fieldname = 'MATNR'.  
  gs\_fieldcat-seltext\_l = '物料编号' .  
  gs\_fieldcat-ref\_fieldname = 'MATNR'.  
  gs\_fieldcat-ref\_tabname = 'MARA' .  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  append\_field: 'MAKTX' '物料描述' .  
\*  append\_field: 'CHARG' '评估类别' .  
  append\_field: 'MENGE' '数量'.  
  append\_field: 'EBELN'  'UB单号' .  
  append\_field: 'EBELP' 'UB行项目' .  
  append\_field: 'MEINS' '单位' .  
  append\_field: 'WERKS' '调出工厂代码' .  
  append\_field: 'LGORT' '调出仓库代码' .  
  append\_field: 'LGOBE' '调出仓库名称' .  
  append\_field: 'WERKS2' '调入工厂代码' .  
  append\_field: 'LGORT2' '调入仓库代码' .  
  append\_field: 'LGOBE2' '调入仓库名称' .  
  append\_field: 'BWART' '移动类型' .  
  
  
  
  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' OR sy-ucomm EQ 'PRINT2' .  
  
    IF s\_werks-low EQ '1000' .  
      IF  sy-ucomm EQ 'PRINT' .  
        CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
          EXPORTING  
            formname           = 'ZMMF007H'  
          IMPORTING  
            fm\_name            = g\_fm\_name  
          EXCEPTIONS  
            no\_form            = 1  
            no\_function\_module = 2  
            OTHERS             = 3.  
      ENDIF .  
  
      IF  sy-ucomm EQ 'PRINT2' .  
        CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
          EXPORTING  
            formname           = 'ZMMF007H'  
          IMPORTING  
            fm\_name            = g\_fm\_name  
          EXCEPTIONS  
            no\_form            = 1  
            no\_function\_module = 2  
            OTHERS             = 3.  
      ENDIF .  
  
    ELSE .  
      IF  sy-ucomm EQ 'PRINT' .  
        CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
          EXPORTING  
            formname           = 'ZMMF007Y'  
          IMPORTING  
            fm\_name            = g\_fm\_name  
          EXCEPTIONS  
            no\_form            = 1  
            no\_function\_module = 2  
            OTHERS             = 3.  
      ENDIF .  
  
      IF  sy-ucomm EQ 'PRINT2' .  
        CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
          EXPORTING  
            formname           = 'ZMMF007YA4'  
          IMPORTING  
            fm\_name            = g\_fm\_name  
          EXCEPTIONS  
            no\_form            = 1  
            no\_function\_module = 2  
            OTHERS             = 3.  
      ENDIF .  
  
    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  bwart mblnr .  
    DELETE ADJACENT DUPLICATES FROM  lt\_out COMPARING bwart mblnr .  
  
  
    LOOP  AT  lt\_out  INTO ls\_out  .  
\*    gs\_zmmt001q-zcxm = 'ZMMF007' .  
\*    gs\_zmmt001q-zdh = ls\_out-rsnum  .  
\*    gs\_zmmt001q-zprt\_cnt = ls\_out-zprt\_cnt + 1 .  
\*\*      MODIFY gt\_out from gs\_out .  
\*    MODIFY zmmt001q FROM gs\_zmmt001q .  
  
      LOOP AT gt\_out INTO gs\_out WHERE mark EQ 'X'.  
        IF gs\_out-mblnr EQ ls\_out-mblnr .  
          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]: /images/20220513/5d7542c4d4b049d98164b93a9d0dbca0.png
[70 1]: /images/20220513/6fd8999bfa2b41eebc723f843b4b46c1.png
[70 2]: /images/20220513/868f43fa68fa4097b2b88e4942682180.png
[70 3]: /images/20220513/ecb62f467a424f5ea2d79fb6c5bfbb01.png
[70 4]: /images/20220513/fc312a856bc240239de245f2a9fce11e.png