ZMM022

快来打我* 2022-12-07 11:44 10阅读 0赞

REPORT zmm022.  
  
*\*----------------------------------------------------------------------\**  
*\* **数据字典引用*  
*\*----------------------------------------------------------------------\**  
TABLES:  
  matdoc,  
  makt,lfa1,  
  ekko,  
  ekpo.  
*\*----------------------------------------------------------------------\**  
*\* **类型声明*  
*\*----------------------------------------------------------------------\**  
TYPES:  
  BEGIN OF ty\_result,  
    ebeln            TYPE ebeln,  
    bukrs            TYPE bukrs,  
    waers            TYPE waers,  
    ekorg            TYPE ekorg,  
    bsart            TYPE ekko\-bsart,  
    batxt            TYPE t161t\-batxt,  
    ekgrp            TYPE ekko\-ekgrp,  
    aedat            TYPE ekko\-aedat,  
    lifnr            TYPE ekko\-lifnr,  
    name1            TYPE lfa1\-name1,  
    matkl            TYPE ekpo\-matkl,  
    ebelp            TYPE ekpo\-ebelp,  
    loekz            TYPE ekpo\-loekz,  
    pstyp            TYPE ekpo\-pstyp,  
    knttp            TYPE ekpo\-knttp,  
    matnr            TYPE ekpo\-matnr,  
    txz01            TYPE ekpo\-txz01,  
    idnrk            TYPE resb\-matnr,  
    maktx            TYPE makt\-maktx,  
    enmng            TYPE resb\-enmng,  
    erfmg            TYPE resb\-erfmg,  
    werks            TYPE ekpo\-werks,  
    lgort            TYPE ekpo\-lgort,  
    menge            TYPE ekpo\-menge,  
    meins            TYPE ekpo\-meins,  
    zhsj             TYPE ekpo\-netpr,  
    netpr            TYPE ekpo\-netpr,  
    peinh            TYPE ekpo\-peinh,  
    netwr            TYPE ekpo\-netwr,  
    mwskz            TYPE ekpo\-mwskz,  
    text1            TYPE t007s\-text1,  
    frc6             TYPE ekpo\-netpr,  
    lifnr\_frc6       TYPE lifnr,  
    name1\_frc6       TYPE name1,  
    frgke            TYPE ekko\-frgke,  
    541              TYPE mseg\-menge,  
    543              TYPE mseg\-menge,  
    101              TYPE mseg\-menge,  
    meins\_101        TYPE mseg\-meins,  
    actual\_yield\_bom TYPE p DECIMALS 2, *"**订单**BOM**标准收率*  
    actual\_yield     TYPE p DECIMALS 2, *"**实际收货收率*  
    outstanding      TYPE ekpo\-menge,   *"**未清的采购数量*  
    banfn            TYPE ekpo\-banfn,  
    bnfpo            TYPE ekpo\-bnfpo,  
    ernam            TYPE ekko\-ernam,  
    knumv            TYPE ekko\-knumv,  
    kposn            TYPE prcd\_elements\-kposn,  
  END OF ty\_result,  
  
  BEGIN OF type\_data,  
          mblnr      TYPE      matdoc\-mblnr,  
          mjahr      TYPE      matdoc\-mjahr,  
          charg      TYPE      matdoc\-charg,            *"**批号**     &     **扣除生料批号*  
          erfmg      TYPE      matdoc\-erfmg,            *"**数量**     &      **扣除损耗数量*  
          budat      TYPE      matdoc\-budat,  
          matnr      TYPE      matdoc\-matnr,  
          maktx      TYPE      makt\-maktx,  
          ebeln      TYPE      matdoc\-ebeln,  
          ebelp      TYPE      matdoc\-ebelp,  
          bsart      TYPE      ekko\-bsart,         *"**采购订单类型*  
          batxt      TYPE      t161t\-batxt,           *"**采购订单类型描述*  
          lifnr      TYPE      matdoc\-lifnr,  
          cancelled   TYPE     matdoc\-cancelled,        *"**被冲销标志*  
          reversal\_movement   TYPE     matdoc\-reversal\_movement,      *"**冲销标志*  
          canceldesc    TYPE   char20,                                *"**冲销说明：被冲* *与* *冲销*  
          name1      TYPE      lfa1\-name1,  
          werks      TYPE      matdoc\-werks,  
          bwart      TYPE      matdoc\-bwart,  
          matkl      TYPE      mara\-matkl,       *"**物料组*  
          wgbez      TYPE      t023t\-wgbez,         *"**物料组描述*  
          issuelgort      TYPE      matdoc\-lgort,         *"**发料仓库代码*  
          issuelgobe      TYPE      t001l\-lgobe,           *"**发料仓库名称*  
          receiptlgort      TYPE      matdoc\-lgort,         *"**收货仓库代码*  
          receiptlgobe      TYPE      t001l\-lgobe,           *"**收货仓库名称*  
          urzei             TYPE matdoc\-urzei,           *"**物料凭证中的原始行*  
          finprocharg      TYPE      matdoc\-charg,       *"**入库成品批次*  
          finproerfmg      TYPE      matdoc\-erfmg,         *"**入库数量*  
  
  END OF type\_data,  
  
  BEGIN OF ty\_detail,  
    mblnr      TYPE mseg\-mblnr,  
    mjahr      TYPE mseg\-mjahr,  
    zeile      TYPE mseg\-zeile,  
    bwart      TYPE mseg\-bwart,  
    btext      TYPE t156t\-btext,  
    ebeln      TYPE mseg\-ebeln,  
    ebelp      TYPE mseg\-ebelp,  
    matnr      TYPE mseg\-matnr,  
    maktx      TYPE makt\-maktx,  
    charg      TYPE mseg\-charg,  
    budat\_mkpf TYPE mseg\-budat\_mkpf,  
    lifnr      TYPE mseg\-lifnr,  
    matkl      TYPE mara\-matkl,  
    werks      TYPE mseg\-werks,  
    lgort      TYPE mseg\-lgort,  
    lgobe      TYPE t001l\-lgobe,  
    menge      TYPE mseg\-menge,  
    meins      TYPE mseg\-meins,  
    usnam\_mkpf TYPE mseg\-usnam\_mkpf,  
    shkzg      TYPE mseg\-shkzg,  
    umsok      TYPE mseg\-umsok,  
    cputm\_mkpf TYPE mseg\-cputm\_mkpf,  
  END OF ty\_detail,  
  
  BEGIN OF ty\_mseg,  
    ebeln TYPE ebeln,  
    ebelp TYPE ebelp,  
    541   TYPE mseg\-menge,  
    543   TYPE mseg\-menge,  
    101   TYPE mseg\-menge,  
    meins TYPE mseg\-meins,  
  END OF ty\_mseg.  
*\*----------------------------------------------------------------------\**  
*\* **全局变量声明*  
*\*----------------------------------------------------------------------\**  
  
  
DATA:  
      table\_data TYPE TABLE OF type\_data,  
      line\_data LIKE LINE OF table\_data,  
      table\_dataplus TYPE TABLE OF type\_data WITH HEADER LINE.  
  
DATA:  
  gt\_result TYPE STANDARD TABLE OF ty\_result,  
  gt\_detail TYPE STANDARD TABLE OF ty\_detail.  
*\*----------------------------------------------------------------------\**  
*\* **宏定义*  
*\*----------------------------------------------------------------------\**  
DEFINE mc\_add\_fieldcat.  
  CLEAR ls\_fieldcat.  
  ls\_fieldcat\-fieldname = &1.  
  ls\_fieldcat\-coltext   = &2.  
  ls\_fieldcat\-scrtext\_l = &2.  
  ls\_fieldcat\-scrtext\_m = &2.  
  ls\_fieldcat\-scrtext\_s = &2.  
  ls\_fieldcat\-ref\_table = &3.  
  
  IF &4 IS INITIAL.  
    ls\_fieldcat\-ref\_field = &1.  
  ELSE.  
    ls\_fieldcat\-ref\_field = &4.  
  ENDIF.  
  
*\*  ls\_fieldcat-qfieldname = &5.*  
  CASE &1.  
    WHEN 'LIGHT'.  
      ls\_fieldcat\-icon     = abap\_true.  
    WHEN 'SELECT'.  
      ls\_fieldcat\-checkbox = abap\_true.  
      ls\_fieldcat\-edit     = abap\_true.  
  ENDCASE.  
  
  APPEND ls\_fieldcat TO pt\_fieldcat.  
END-OF-DEFINITION.  
*\*----------------------------------------------------------------------\**  
*\* **选择屏幕*  
*\*----------------------------------------------------------------------\**  
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT\-106.  
  SELECT-OPTIONS:  
*\*    s\_ebeln for ekko-ebeln,*  
*\*    s\_lifnr for ekko-lifnr,*  
*\*    s\_werks for ekpo-werks default '1000' obligatory,*  
*\*    s\_matnr for ekpo-matnr,*  
*\*    s\_lgort for ekpo-lgort,*  
*\*    s\_ekgrp for ekko-ekgrp,*  
*\*    s\_aedat for ekko-aedat obligatory*  
*\*    ,*  
  
    s\_werks FOR matdoc\-werks DEFAULT '1000' OBLIGATORY,  
    *"s\_ebeln for matdoc-ebeln,*  
    s\_ebeln FOR ekko\-ebeln,  
    s\_matnr FOR matdoc\-matnr,  
    s\_lifnr FOR matdoc\-lifnr,  
    s\_mblnr FOR matdoc\-mblnr,  
    s\_budat FOR matdoc\-budat.  
SELECTION-SCREEN END OF BLOCK b1.  
  
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT\-105.  
  SELECTION-SCREEN BEGIN OF LINE.  
      SELECTION-SCREEN POSITION 33.  
            PARAMETERS:  
              p\_issule RADIOBUTTON GROUP gp1 USER-COMMAND sel.  
      SELECTION-SCREEN COMMENT 40(50) TEXT\-101 FOR FIELD p\_issule.  
  SELECTION-SCREEN END OF LINE.  
  
  SELECTION-SCREEN BEGIN OF LINE.  
    SELECTION-SCREEN POSITION 33.  
              PARAMETERS:  
                   p\_rec  RADIOBUTTON GROUP gp1.  
    SELECTION-SCREEN COMMENT 40(50) TEXT\-102 FOR FIELD p\_rec.  
  SELECTION-SCREEN END OF LINE.  
  
SELECTION-SCREEN END OF BLOCK b2.  
*"selection-screen end of block b1.*  
*\*----------------------------------------------------------------------\**  
*\* initialization/**初始化*  
*\*----------------------------------------------------------------------\**  
INITIALIZATION.  
  PERFORM initialization.  
*\*----------------------------------------------------------------------\**  
*\* **选择屏幕显示控制*  
*\*----------------------------------------------------------------------\**  
AT SELECTION-SCREEN OUTPUT.  
  
*\*----------------------------------------------------------------------\**  
*\* **搜索帮助*  
*\*----------------------------------------------------------------------\**  
*\*at selection-screen on value-request for field1.*  
*\*  perform f4\_field1.*  
*\*at selection-screen on value-request for field2.*  
*\*  perform f4\_field2.*  
*\*----------------------------------------------------------------------\**  
*\* **检查用户输入*  
*\*----------------------------------------------------------------------\**  
AT SELECTION-SCREEN.  
  
*\*----------------------------------------------------------------------\**  
*\* start-of-selection/**开始选择屏幕*  
*\*----------------------------------------------------------------------\**  
START-OF-SELECTION.  
  PERFORM start\_of\_selection.  
*\*----------------------------------------------------------------------\**  
*\* end-of-selection/**结束选择屏幕（程序结束处理，输出等）*  
*\*----------------------------------------------------------------------\**  
END-OF-SELECTION.  
  PERFORM end\_of\_selection.  
*\*&---------------------------------------------------------------------\**  
*\*& Form INITIALIZATION*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM initialization .  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form START\_OF\_SELECTION*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM start\_of\_selection .  
  
  PERFORM get\_data.  
  
  IF lines( table\_data ) > 0.  
    PERFORM show\_data.  
  ELSE.  
    MESSAGE s001(00) WITH TEXT\-s01.  
  ENDIF.  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form END\_OF\_SELECTION*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM end\_of\_selection .  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form get\_data*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM get\_data .  
  DATA:  
    strspace TYPE string,  
    strselectfieldsql TYPE string,  
    strwheresql TYPE string,  
    strgroupbysql TYPE string,  
    strorderbysql TYPE string.  
DATA:  
      line\_wheresql(72) TYPE c,  
      table\_wheresql LIKE TABLE OF line\_wheresql.  
DATA:  
    lt\_mseg TYPE STANDARD TABLE OF ty\_mseg WITH NON-UNIQUE SORTED KEY key1  
                                           COMPONENTS ebeln ebelp.  
  FIELD-SYMBOLS:  
    <fs\_result> TYPE ty\_result.  
  
  
strspace = \` \`.  
CLEAR:strselectfieldsql.  
strselectfieldsql = strspace && 'A~BUDAT,'.  
strselectfieldsql = strselectfieldsql && 'A~MBLNR,'.  
strselectfieldsql = strselectfieldsql && 'A~MJAHR,'.  
strselectfieldsql = strselectfieldsql && 'A~MATNR,'.  
strselectfieldsql = strselectfieldsql && 'B~MAKTX,'.  
strselectfieldsql = strselectfieldsql && 'A~CHARG,'.  
strselectfieldsql = strselectfieldsql && 'SUM( CASE A~BWART WHEN ''542'' THEN - A~ERFMG WHEN ''544'' THEN - A~ERFMG ELSE A~ERFMG END ) AS ERFMG,'.  
strselectfieldsql = strselectfieldsql && 'A~EBELN,'.  
strselectfieldsql = strselectfieldsql && 'A~EBELP,'.  
*"STRSELECTFIELDSQL = STRSELECTFIELDSQL && 'A~EBELP'.*  
strselectfieldsql = strselectfieldsql && 'A~LIFNR,'.  
*"by secsimmarch on 20200721 begin*  
strselectfieldsql = strselectfieldsql && 'A~CANCELLED,A~REVERSAL\_MOVEMENT,'.  
*"end*  
strselectfieldsql = strselectfieldsql && 'H~NAME1,'.  
strselectfieldsql = strselectfieldsql && 'A~WERKS,'.  
strselectfieldsql = strselectfieldsql && 'A~BWART,'.  
strselectfieldsql = strselectfieldsql && 'C~MATKL,'.  
strselectfieldsql = strselectfieldsql && 'D~WGBEZ,'.  
strselectfieldsql = strselectfieldsql && 'F~BSART,'.  
strselectfieldsql = strselectfieldsql && 'G~BATXT,'.  
IF p\_rec = 'X'.  
   strselectfieldsql = strselectfieldsql && 'A~URZEI,'.  
ENDIF.  
strselectfieldsql = strselectfieldsql && 'A~LGORT AS ISSUELGORT,'.  
strselectfieldsql = strselectfieldsql && 'E~LGOBE AS ISSUELGOBE,'.  
strselectfieldsql = strselectfieldsql && 'A~LGORT AS RECEIPTLGORT,'.  
strselectfieldsql = strselectfieldsql && 'E~LGOBE AS RECEIPTLGOBE'.  
  
  
strspace = \` \`.  
CLEAR:strwheresql.  
strwheresql = strspace &&  'A~RECORD\_TYPE = ''MDOC'''.  
IF p\_issule = 'X'.  
      strwheresql = strwheresql && strspace &&  'AND A~BWART IN (''541'',''542'')'.  
ELSE.  
      strwheresql = strwheresql && strspace  &&  'AND A~BWART IN (''543'',''544'')'.  
ENDIF.  
strwheresql = strwheresql && strspace  &&  'AND A~XAUTO EQ @SPACE'.  
strwheresql = strwheresql && strspace  &&  'AND A~WERKS IN @s\_werks'.  
strwheresql = strwheresql && strspace  &&  'AND A~EBELN IN @s\_ebeln'.  
strwheresql = strwheresql && strspace  &&  'AND A~MATNR IN @s\_matnr'.  
strwheresql = strwheresql && strspace  &&  'AND A~LIFNR IN @s\_lifnr'.  
strwheresql = strwheresql && strspace  &&  'AND A~MBLNR IN @s\_mblnr'.  
strwheresql = strwheresql && strspace  &&  'AND A~BUDAT in @s\_budat'.  
  
  
*\*STRSPACE = \` \`.*  
*\*CLEAR:LINE\_WHERESQL.*  
*\*LINE\_WHERESQL = STRSPACE &&  'A~RECORD\_TYPE = ''MDOC'''.*  
*\*APPEND LINE\_WHERESQL TO TABLE\_WHERESQL.*  
*\*IF p\_issule = 'X'.*  
*\*      LINE\_WHERESQL = STRSPACE &&  'AND A~BWART IN (''541'',''542'')'.*  
*\*      APPEND LINE\_WHERESQL TO TABLE\_WHERESQL.*  
*\*ELSE.*  
*\*      LINE\_WHERESQL = STRSPACE &&  'AND A~BWART IN (''543'',''544'')'.*  
*\*      APPEND LINE\_WHERESQL TO TABLE\_WHERESQL.*  
*\*ENDIF.*  
*\*LINE\_WHERESQL = STRSPACE  &&  'AND A~XAUTO EQ @SPACE'.*  
*\*APPEND LINE\_WHERESQL TO TABLE\_WHERESQL.*  
*\*LINE\_WHERESQL = STRSPACE  &&  'AND A~WERKS IN @s\_werks'.*  
*\*APPEND LINE\_WHERESQL TO TABLE\_WHERESQL.*  
*\*LINE\_WHERESQL = STRSPACE  &&  'AND A~EBELN IN @s\_ebeln'.*  
*\*APPEND LINE\_WHERESQL TO TABLE\_WHERESQL.*  
*\*LINE\_WHERESQL = STRSPACE  &&  'AND A~MATNR IN @s\_matnr'.*  
*\*APPEND LINE\_WHERESQL TO TABLE\_WHERESQL.*  
*\*LINE\_WHERESQL = STRSPACE  &&  'AND A~LIFNR IN @s\_lifnr'.*  
*\*APPEND LINE\_WHERESQL TO TABLE\_WHERESQL.*  
*\*LINE\_WHERESQL = STRSPACE  &&  'AND A~MBLNR IN @s\_mblnr'.*  
*\*APPEND LINE\_WHERESQL TO TABLE\_WHERESQL.*  
*\*LINE\_WHERESQL = STRSPACE  &&  'AND A~BUDAT in @s\_budat'.*  
*\*APPEND LINE\_WHERESQL TO TABLE\_WHERESQL.*  
  
  
strspace = \` \`.  
CLEAR:strgroupbysql.  
strgroupbysql = strspace && 'A~BUDAT,'.  
strgroupbysql = strgroupbysql && 'A~MBLNR,'.  
strgroupbysql = strgroupbysql && 'A~MJAHR,'.  
strgroupbysql = strgroupbysql && 'A~MATNR,'.  
strgroupbysql = strgroupbysql && 'B~MAKTX,'.  
strgroupbysql = strgroupbysql && 'A~EBELN,'.  
strgroupbysql = strgroupbysql && 'A~EBELP,'.  
strgroupbysql = strgroupbysql && 'A~LIFNR,'.  
*"by secsimmarch on 20200721 begin*  
    strgroupbysql = strgroupbysql && 'A~CANCELLED,'.  
    strgroupbysql = strgroupbysql && 'A~REVERSAL\_MOVEMENT,'.  
*"end*  
strgroupbysql = strgroupbysql && 'H~NAME1,'.  
strgroupbysql = strgroupbysql && 'A~WERKS,'.  
strgroupbysql = strgroupbysql && 'A~BWART,'.  
strgroupbysql = strgroupbysql && 'C~MATKL,'.  
strgroupbysql = strgroupbysql && 'D~WGBEZ,'.  
strgroupbysql = strgroupbysql && 'F~BSART,'.  
strgroupbysql = strgroupbysql && 'G~BATXT,'.  
strgroupbysql = strgroupbysql && 'A~LGORT,'.  
strgroupbysql = strgroupbysql && 'E~LGOBE,'.  
IF p\_rec = 'X'.  
   strgroupbysql = strgroupbysql && 'A~URZEI,'.  
ENDIF.  
strgroupbysql = strgroupbysql && 'A~CHARG'.  
  
strspace = \` \`.  
CLEAR:strorderbysql.  
strorderbysql = strspace && 'A~BUDAT,'.  
strorderbysql = strorderbysql && 'A~MBLNR,'.  
strorderbysql = strorderbysql && 'A~MJAHR,'.  
strorderbysql = strorderbysql && 'A~MATNR,'.  
strorderbysql = strorderbysql && 'A~CHARG'.  
  
*\*BREAK-POINT.*  
*\*LEAVE PROGRAM.*  
  
SELECT  
(strselectfieldsql)  
  INTO CORRESPONDING FIELDS OF TABLE @table\_data  
  FROM matdoc AS a INNER JOIN makt AS b ON a~matnr = b~matnr AND b~spras = @sy\-langu  
                    INNER JOIN mara AS c ON a~matnr = c~matnr  
                    INNER JOIN t023t AS d ON c~matkl = d~matkl AND d~spras = @sy\-langu  
                    LEFT JOIN t001l AS e ON a~werks = e~werks AND a~lgort = e~lgort  
                    INNER JOIN ekko AS f ON a~ebeln = f~ebeln  
                    INNER JOIN t161t AS g ON f~bstyp = g~bstyp AND f~bsart = g~bsart AND g~spras = @sy\-langu  
                    INNER JOIN lfa1 AS h ON a~lifnr = h~lifnr  
  WHERE (strwheresql)  
   GROUP BY (strgroupbysql)  
    ORDER BY (strorderbysql)  
  .  
  
  IF NOT table\_data\[\] IS INITIAL.  
*\*        LOOP AT table\_data INTO line\_data where cancelled = 'X' or REVERSAL\_MOVEMENT = 'X'.*  
*\*                  "**对冲凭证* *标识*  
*\*                  if line\_data-cancelled = 'X'.*  
*\*                           LINE\_DATA-canceldesc = '**被冲销凭证**'.*  
*\**  
*\*                           modify table\_data FROM line\_data.*  
*\*                  ENDIF.*  
*\*                  if line\_data-REVERSAL\_MOVEMENT = 'X'.*  
*\*                           LINE\_DATA-canceldesc = '**冲销凭证**'.*  
*\**  
*\*                           modify table\_data FROM line\_data.*  
*\*                  ENDIF.*  
*\*        ENDLOOP.*  
  
        line\_data\-canceldesc = '被冲销凭证'.  
        MODIFY table\_data FROM line\_data TRANSPORTING canceldesc WHERE cancelled = 'X'.  
        line\_data\-canceldesc = '冲销凭证'.  
        MODIFY table\_data FROM line\_data TRANSPORTING canceldesc WHERE reversal\_movement = 'X'.  
  
        IF p\_rec = 'X'.  
                    SELECT  
                      a~mblnr,  
                      a~mjahr,  
                      a~matnr,  
                      a~bwart,  
                      a~charg,  
                      a~urzei,                               *"**物料凭证中的原始行*  
                      a~lgort AS receiptlgort,           *"**收货仓库代码*  
                      c~lgobe AS receiptlgobe,            *"**收货仓库名称*  
                      SUM( CASE a~bwart WHEN '102' THEN \- a~erfmg  
                                         WHEN '122' THEN \- a~erfmg  
                                 ELSE  a~erfmg END ) AS erfmg  
                      FROM matdoc AS a JOIN @table\_data AS b ON a~mblnr = b~mblnr AND a~mjahr = b~mjahr AND a~urzei = b~urzei  
                                       INNER JOIN t001l AS c ON a~werks = c~werks AND a~lgort = c~lgort  
                    WHERE a~record\_type = 'MDOC'  
                      AND a~bwart IN ('101','102','121','122')  
                    GROUP BY a~mblnr,a~mjahr,a~matnr,a~bwart,a~charg,a~urzei,a~lgort,c~lgobe  
                      INTO CORRESPONDING FIELDS OF TABLE @table\_dataplus  
                      .  
  
*\*          BREAK-POINT.*  
*\*          LEAVE PROGRAM.*  
*\**  
*\*                     SELECT*  
*\*                      A~MBLNR*  
*\*                      A~MJAHR*  
*\*                      A~MATNR*  
*\*                      A~BWART*  
*\*                      A~CHARG*  
*\*                      A~URZEI                               "**物料凭证中的原始行*  
*\*                      A~ERFMG*  
*\*                      A~LGORT AS RECEIPTLGORT           "**收货仓库代码*  
*\*                      B~LGOBE AS RECEIPTLGOBE            "**收货仓库名称*  
*\*                       INTO CORRESPONDING FIELDS OF TABLE TABLE\_DATAPLUS*  
*\*                      FROM MATDOC AS A INNER JOIN T001L AS B ON A~WERKS = B~WERKS AND A~LGORT = B~LGORT*  
*\*                      FOR ALL ENTRIES IN TABLE\_DATA*  
*\*                    WHERE A~RECORD\_TYPE = 'MDOC'*  
*\*                      AND A~BWART IN ('101','102','121','122')*  
*\*                      AND A~MBLNR = TABLE\_DATA-MBLNR*  
*\*                      AND A~MJAHR = TABLE\_DATA-MJAHR*  
*\*                      AND A~URZEI = TABLE\_DATA-URZEI*  
*\*                     .*  
*\**  
*\*                     LOOP AT TABLE\_DATAPLUS.*  
*\*                              IF TABLE\_DATAPLUS-BWART = '102' OR TABLE\_DATAPLUS-BWART = '122'.*  
*\*                                     TABLE\_DATAPLUS-ERFMG = TABLE\_DATAPLUS-ERFMG \* ( -1 ).*  
*\**  
*\*                                     MODIFY TABLE\_DATAPLUS.*  
*\*                              ENDIF.*  
*\*                     ENDLOOP.*  
  
                     SORT table\_dataplus BY mblnr mjahr urzei.  
                     LOOP AT table\_data INTO line\_data.  
                                 READ TABLE table\_dataplus WITH KEY mblnr = line\_data\-mblnr  
                                                                    mjahr = line\_data\-mjahr  
                                                                    urzei = line\_data\-urzei  
                                                                    BINARY SEARCH.  
                                 IF sy\-subrc = 0.  
                                           line\_data\-finprocharg = table\_dataplus\-charg.  
                                           line\_data\-finproerfmg = table\_dataplus\-erfmg.  
                                           line\_data\-receiptlgort = table\_dataplus\-receiptlgort.  
                                           line\_data\-receiptlgobe = table\_dataplus\-receiptlgobe.  
  
                                           MODIFY table\_data FROM line\_data.  
                                 ENDIF.  
                     ENDLOOP.  
  
        ENDIF.  
  ENDIF.  
  
*\*BREAK-POINT.*  
*\*LEAVE PROGRAM.*  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form show\_data*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM show\_data .  
  DATA:  
    ls\_layout   TYPE lvc\_s\_layo,  
    lt\_fieldcat TYPE lvc\_t\_fcat,  
    ls\_variant  TYPE disvariant.  
  
  *"**设置布局*  
  ls\_layout\-cwidth\_opt = 'X'.       *"**列宽自适应*  
  ls\_layout\-zebra      = 'X'.      *"**斑马线*  
  ls\_variant\-report    = sy\-repid.  
  ls\_variant\-handle    = 1.  
  
  PERFORM fill\_fieldcat CHANGING lt\_fieldcat.  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
    EXPORTING  
      i\_callback\_program      = sy\-repid   *"**回调程序名*  
*\*     i\_callback\_pf\_status\_set = 'PF\_STATUS\_SET'*  
      i\_callback\_user\_command = 'USER\_COMMAND'  
      is\_layout\_lvc           = ls\_layout    *"**布局*  
      it\_fieldcat\_lvc         = lt\_fieldcat  *"**字段目录*  
      i\_save                  = 'A'  
      is\_variant              = ls\_variant  
    TABLES  
      t\_outtab                = table\_data   *"**所要显示数据的内表*  
    EXCEPTIONS  
      program\_error           = 1  
      OTHERS                  = 2.  
  IF sy\-subrc <> 0.  
*\* Implement suitable error handling here*  
  ENDIF.  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form fill\_fieldcat*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      <-- LT\_FIELDCAT*  
*\*&---------------------------------------------------------------------\**  
FORM fill\_fieldcat  CHANGING pt\_fieldcat TYPE lvc\_t\_fcat.  
  DATA:  
    ls\_fieldcat TYPE lvc\_s\_fcat.  
  
*\*  mc\_add\_fieldcat:*  
*\*    'EBELN' text-h01 'EKKO' '',*  
*\*    'BUKRS' text-h02 'EKKO' '',*  
*\*    'WAERS' text-h03 'EKKO' '',*  
*\*    'EKORG' text-h04 'EKKO' '',*  
*\*    'BSART' text-h05 'EKKO' '',*  
*\*    'BATXT' text-h06 'T161T' '',*  
*\*    'EKGRP' text-h07 'EKKO' '',*  
*\*    'AEDAT' text-h08 'EKKO' '',*  
*\*    'LIFNR' text-h09 'EKKO' '',*  
*\*    'NAME1' text-h10 'LFA1' '',*  
*\*    'MATKL' text-h11 'EKPO' '',*  
*\*    'EBELP' text-h12 'EKPO' '',*  
*\*    'FRGKE' text-h59 'EKKO' '',*  
*\*    'FRC6' text-h60 'EKPO' 'NETPR',*  
*\*    'LIFNR\_FRC6' text-h61 'EKKO' 'LIFNR',*  
*\*    'NAME1\_FRC6' text-h62 'EKKO' 'LIFNR',*  
*\*    'LOEKZ' text-h13 'EKPO' '',*  
*\*    'PSTYP' text-h14 'EKPO' '',*  
*\*    'KNTTP' text-h15 'EKPO' '',*  
*\*    'MATNR' text-h16 'EKPO' '',*  
*\*    'TXZ01' text-h17 'EKPO' '',*  
*\*    'IDNRK' text-h18 'RESB' 'MATNR',*  
*\*    'MAKTX' text-h19 'MAKT' '',*  
*\*    'ENMNG' text-h20 'RESB' '',*  
*\*    'ERFMG' text-h21 'RESB' '',*  
*\*    'WERKS' text-h22 'EKPO' '',*  
*\*    'LGORT' text-h23 'EKPO' '',*  
*\*    'MENGE' text-h24 'EKPO' '',*  
*\*    'MEINS' text-h25 'EKPO' '',*  
*\*    'ZHSJ' text-h26  'EKPO' 'NETPR',*  
*\*    'NETPR' text-h27 'EKPO' '',*  
*\*    'PEINH' text-h28 'EKPO' '',*  
*\*    'NETWR' text-h29 'EKPO' '',*  
*\*    'MWSKZ' text-h30 'EKPO' '',*  
*\*    'TEXT1' text-h31 'T007S' '',*  
*\*    '541' text-h32 'MSEG' 'MENGE',*  
*\*    '543' text-h33 'MSEG' 'MENGE',*  
*\*    '101' text-h34 'MSEG' 'MENGE',*  
*\*    'MEINS\_101' text-h35 'MSEG' 'MEINS',*  
*\*    'ACTUAL\_YIELD\_BOM' text-h36 '' '',*  
*\*    'ACTUAL\_YIELD' text-h37 '' '',*  
*\*    'OUTSTANDING' text-h38 '' '',*  
*\*    'BANFN' text-h39 'EKPO' '',*  
*\*    'BNFPO' text-h40 'EKPO' '',*  
*\*    'ERNAM' text-h41 'EKKO' ''.*  
  
  mc\_add\_fieldcat:  
    'BUDAT' TEXT\-h01 '' '',  
    'MBLNR' TEXT\-h02 '' '',  
    'MATNR' TEXT\-h03 'MARA' 'MATNR',  
    'MAKTX' TEXT\-h04 '' '',  
    'EBELN' TEXT\-h05 '' '',  
    'EBELP' TEXT\-h06 '' '',  
    'LIFNR' TEXT\-h07 'LFA1' 'LIFNR',  
    'CANCELDESC' TEXT\-h24 '' '',  
    'NAME1' TEXT\-h08 '' ''.  
  
    IF p\_issule = 'X'.  
         mc\_add\_fieldcat:  
        'CHARG' TEXT\-h09 '' '',  
        'ERFMG' TEXT\-h10 '' ''.  
    ELSE.  
         mc\_add\_fieldcat:  
        'FINPROCHARG' TEXT\-h18 '' '',  
        'FINPROERFMG' TEXT\-h19 '' '',  
        'CHARG' TEXT\-h20 '' '',  
        'ERFMG' TEXT\-h21 '' ''.  
  
    ENDIF.  
     mc\_add\_fieldcat:  
    'WERKS' TEXT\-h11 '' '',  
    'BWART' TEXT\-h12 '' '',  
    'MATKL' TEXT\-h13 '' '',  
    'WGBEZ' TEXT\-h14 '' '',  
    'BATXT' TEXT\-h15 '' ''.  
    IF p\_issule = 'X'.  
     mc\_add\_fieldcat:  
        'ISSUELGORT' TEXT\-h16 '' '',  
        'ISSUELGOBE' TEXT\-h17 '' ''.  
     ELSE.  
        mc\_add\_fieldcat:  
        'RECEIPTLGORT' TEXT\-h22 '' '',  
        'RECEIPTLGOBE' TEXT\-h23 '' ''.  
     ENDIF.  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  user\_command*  
*\*&---------------------------------------------------------------------\**  
*\*      **自定义用户指令*  
*\*----------------------------------------------------------------------\**  
*\*      -->p\_ucomm   text*  
*\*      -->ps\_selfield   text*  
*\*----------------------------------------------------------------------\**  
FORM user\_command USING p\_ucomm LIKE sy\-ucomm  
                        ps\_selfield TYPE slis\_selfield.  
*\*  data:*  
*\*    lr\_grid             type ref to cl\_gui\_alv\_grid.*  
  
  ps\_selfield\-refresh    = abap\_true.  
  ps\_selfield\-col\_stable = abap\_true.  
  ps\_selfield\-row\_stable = abap\_true.  
*\**  
*\*  call function 'GET\_GLOBALS\_FROM\_SLVC\_FULLSCR'*  
*\*    importing*  
*\*      e\_grid = lr\_grid.*  
*\**  
*\*  lr\_grid->check\_changed\_data( ).*  
  
*\*  case p\_ucomm.*  
*\*    when '&IC1'.*  
*\*      perform get\_detail using ps\_selfield.*  
*\*    when others.*  
*\*  endcase.*  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form get\_detail*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      --> PS\_SELFIELD*  
*\*&---------------------------------------------------------------------\**  
FORM get\_detail  USING    p\_selfield TYPE slis\_selfield.  
  DATA:  
    ls\_result TYPE ty\_result.  
  
  CLEAR gt\_detail.  
  
  READ TABLE gt\_result INTO ls\_result INDEX p\_selfield\-tabindex.  
  
  SELECT t1~mblnr,  
         t1~mjahr,  
         t1~zeile,  
         t1~bwart,  
         t3~btext,  
         t1~ebeln,  
         t1~ebelp,  
         t1~matnr,  
         t5~maktx,  
         t1~charg,  
         t1~budat\_mkpf,  
         t1~lifnr,  
         t4~matkl,  
         t1~werks,  
         t1~lgort,  
         t2~lgobe,  
         t1~menge,  
         t1~meins,  
         t1~usnam\_mkpf,  
         t1~shkzg,  
         t1~umsok,  
         t1~cputm\_mkpf  
    FROM mseg AS t1  
    LEFT JOIN t001l AS t2  
    ON t1~werks = t2~werks  
    AND t1~lgort = t2~lgort  
    LEFT JOIN t156ht AS t3  
    ON t3~spras = @sy\-langu  
    AND t3~bwart = t1~bwart  
    JOIN mara AS t4  
    ON t1~matnr = t4~matnr  
    LEFT JOIN makt AS t5  
    ON t5~matnr = t1~matnr  
    AND t5~spras = @sy\-langu  
    WHERE t1~ebeln = @ls\_result\-ebeln  
      AND t1~ebelp = @ls\_result\-ebelp  
      AND t1~xauto = @space  
      AND t1~bwart IN ('541','542','543','544','101','102')  
      INTO CORRESPONDING FIELDS OF TABLE @gt\_detail.  
  
  SORT gt\_detail BY mblnr mjahr zeile.  
  
  PERFORM show\_detail.  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form show\_detail*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM show\_detail .  
  DATA:  
    ls\_layout   TYPE lvc\_s\_layo,  
    lt\_fieldcat TYPE lvc\_t\_fcat,  
    ls\_variant  TYPE disvariant.  
  
  *"**设置布局*  
  ls\_layout\-cwidth\_opt = 'X'.       *"**列宽自适应*  
  ls\_layout\-zebra      = 'X'.      *"**斑马线*  
  ls\_variant\-report    = sy\-repid.  
  ls\_variant\-handle    = 2.  
  
  PERFORM fill\_fieldcat\_detail CHANGING lt\_fieldcat.  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
    EXPORTING  
      i\_callback\_program = sy\-repid   *"**回调程序名*  
*\*     i\_callback\_pf\_status\_set = 'PF\_STATUS\_SET'*  
*\*     i\_callback\_user\_command = 'USER\_COMMAND'*  
      is\_layout\_lvc      = ls\_layout    *"**布局*  
      it\_fieldcat\_lvc    = lt\_fieldcat  *"**字段目录*  
      i\_save             = 'A'  
      is\_variant         = ls\_variant  
    TABLES  
      t\_outtab           = gt\_detail   *"**所要显示数据的内表*  
    EXCEPTIONS  
      program\_error      = 1  
      OTHERS             = 2.  
  IF sy\-subrc <> 0.  
*\* Implement suitable error handling here*  
  ENDIF.  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form fill\_fieldcat\_detail*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      <-- LT\_FIELDCAT*  
*\*&---------------------------------------------------------------------\**  
FORM fill\_fieldcat\_detail  CHANGING pt\_fieldcat TYPE lvc\_t\_fcat.  
  DATA:  
    ls\_fieldcat TYPE lvc\_s\_fcat.  
  
  mc\_add\_fieldcat:  
    'MBLNR' TEXT\-h42 'MSEG' '',  
    'MJAHR' TEXT\-h43 'MSEG' '',  
    'ZEILE' TEXT\-h44 'MSEG' '',  
    'BWART' TEXT\-h45 'MSEG' '',  
    'BTEXT' TEXT\-h46 'T156HT' '',  
    'EBELN' TEXT\-h01 'MSEG' '',  
    'EBELP' TEXT\-h12 'MSEG' '',  
    'MATNR' TEXT\-h47 'MSEG' '',  
    'MAKTX' TEXT\-h48 'MAKT' '',  
    'CHARG' TEXT\-h49 'MSEG' '',  
    'BUDAT\_MKPF' TEXT\-h50 'MSEG' '',  
    'LIFNR' TEXT\-h09 'MSEG' '',  
    'MATKL' TEXT\-h11 'MARA' '',  
    'WERKS' TEXT\-h22 'MSEG' '',  
    'LGORT' TEXT\-h51 'MSEG' '',  
    'LGOBE' TEXT\-h52 'T001L' '',  
    'MENGE' TEXT\-h53 'MSEG' '',  
    'MEINS' TEXT\-h54 'MSEG' '',  
    'USNAM\_MKPF' TEXT\-h55 'MSEG' '',  
    'SHKZG' TEXT\-h56 'MSEG' '',  
    'UMSOK' TEXT\-h57 'MSEG' '',  
    'CPUTM\_MKPF' TEXT\-h58 'MSEG' ''.  
  
ENDFORM.