进销存明细表(含双击跳转)

Myth丶恋晨 2022-05-22 23:21 182阅读 0赞

![70][]

![70 1][]

![70 2][]

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

\*& Report  ZMMR004  
\*&  
\*&---------------------------------------------------------------------\*  
\*&  
\*&  
\*&---------------------------------------------------------------------\*  
REPORT  zmmr004  NO  STANDARD  PAGE HEADING .  
TABLES : mbewh , mara , mard , mkpf .  
\*kk  
TYPE-POOLS : slis .  
  
DATA :  BEGIN  OF gt\_itab  OCCURS  0 ,  
        matnr  LIKE mara \-matnr ,                            "物料号  
        maktx  LIKE makt \-maktx ,                            "物料描述  
        meins  LIKE mara \-meins ,                            "单位  
        zsqjc  LIKE mseg \-menge ,                            "上期结存  
        zbqjh  LIKE mseg \-menge ,                            "本期进货  
        zbqth  LIKE mseg \-menge ,                            "本期退货  
        bqbcs  LIKE mseg \-menge ,                            "本期拨出数  
        bqbrs  LIKE mseg \-menge ,                            "本期拨入数  
        cbzxf  LIKE mseg \-menge ,                            "成本中心发料数  
        cbzxt  LIKE mseg \-menge ,                            "成本中心退料数  
        zbqhy  LIKE mseg \-menge ,                            "本期耗用  
        zbqjc  LIKE mseg \-menge ,                            "本期结存  
        lgort  LIKE mseg \-lgort ,                            "库位  
        lgobe  LIKE t001l \-lgobe ,                           "库位描述  
        werks  LIKE mseg \-werks ,  
        zqty   LIKE mseg \-menge ,  
        reffi  TYPE mara \-meins ,  
       END  OF gt\_itab .  
  
  
DATA : gt\_itab2  LIKE gt\_itab  OCCURS  0   WITH  HEADER  LINE   .  
  
  
DATA :  BEGIN  OF gt\_matr  OCCURS  0 ,  
        matnr  LIKE mara \-matnr ,  
        lgort  LIKE mard \-lgort ,  
       END  OF gt\_matr .  
  
DATA :  BEGIN  OF gt\_mbew  OCCURS  0 ,  
        matnr  LIKE mara \-matnr ,  
        werks  LIKE mard \-werks ,  
        lgort  LIKE mard \-lgort ,  
        lbkum  LIKE mbewh \-lbkum ,  
        insme  LIKE mardh \-insme ,  
        speme  LIKE mardh \-speme ,  
       END  OF gt\_mbew .  
  
DATA :  BEGIN  OF gt\_mseg  OCCURS  0 ,  
        matnr  LIKE mara \-matnr ,  
        werks  LIKE mseg \-werks ,  
        lgort  LIKE mseg \-lgort ,  
        bwart  LIKE mseg \-bwart ,  
        shkzg  LIKE mseg \-shkzg ,  
        menge  LIKE mseg \-menge ,  
        meins  LIKE mseg \-meins ,  
        smbln  LIKE mseg \-smbln ,  
        smblp  LIKE mseg \-smblp ,  
        mblnr  LIKE mseg \-mblnr ,  
        zeile  LIKE mseg \-zeile ,  
        insmk  LIKE mseg \-insmk ,  
        urzei  LIKE mseg \-urzei  ,  "原始行项目主要是调拨时会有问题 质检  
       END  OF gt\_mseg .  
  
DATA : gt\_mseg2  LIKE gt\_mseg  OCCURS  0  WITH  HEADER  LINE .  
DATA : gt\_mseg3  LIKE gt\_mseg  OCCURS  0  WITH  HEADER  LINE .  
DATA : gt\_mseg4  LIKE gt\_mseg  OCCURS  0  WITH  HEADER  LINE .  
DATA : budat\_low   LIKE mkpf \-budat ,  
      budat\_high  LIKE mkpf \-budat ,  
      year ( 4 )     TYPE  c ,  
      month ( 2 )    TYPE  c ,  
      year1 ( 4 )    TYPE  c ,  
      mont1 ( 2 )    TYPE  c ,  
      year2 ( 4 )    TYPE  c ,  
      mont2 ( 2 )    TYPE  c ,  
      date1       LIKE mkpf \-budat ,  
      date3       LIKE mkpf \-budat ,  
      date2       LIKE mkpf \-budat .  
  
  
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: BEGIN OF gs\_qals,  
\*        mblnr LIKE qals-mblnr,  
\*        zeile LIKE qals-zeile,  
\*      END OF gs\_qals.  
\*  
\*DATA gt\_qals LIKE TABLE OF gs\_qals .  
  
  
  
DATA :  BEGIN  OF gs\_qamb ,  
        mblnr  LIKE qamb \-mblnr ,  
        zeile  LIKE qamb \-zeile ,  
        werk   LIKE mseg \-werks ,  
       END  OF gs\_qamb .  
  
DATA gt\_qamb  LIKE  TABLE  OF gs\_qamb  .  
DATA gt\_qamb2  LIKE  TABLE  OF gs\_qamb  .  
  
  
DATA : qmatv  LIKE marc \-qmatv .  
  
DATA : n  TYPE  i .  
  
\*&---------------------------------------------------------------------\*  
\*&      SELECTION-SCREEN  
\*&---------------------------------------------------------------------\*  
SELECTION-SCREEN : BEGIN  OF  BLOCK blk1  WITH  FRAME   TITLE  TEXT \- 001 .  
PARAMETERS :p\_werks  LIKE mard \-werks  DEFAULT  '1000' .  
  
SELECT-OPTIONS : s\_budat  FOR mkpf \-budat OBLIGATORY  DEFAULT sy \-datum ,  
                s\_lgort  FOR mard \-lgort ,  
                s\_mtart  FOR mara \-mtart ,  
                s\_matkl  FOR mara \-matkl ,  
                s\_matnr  FOR mara \-matnr .  
  
SELECTION-SCREEN  END  OF  BLOCK blk1 .  
  
AT  SELECTION-SCREEN  OUTPUT .  
   LOOP  AT s\_budat .  
     IF s\_budat \-low  IS  INITIAL  AND s\_budat \-high  IS  NOT  INITIAL .  
       CONCATENATE sy \-datum+0 ( 6 )  '01'  INTO s\_budat \-low .  
\*      s\_budat-low = s\_budat-high.  
       MODIFY s\_budat .  
     ELSEIF s\_budat \-high  IS  INITIAL  AND s\_budat \-low  IS  NOT  INITIAL .  
      s\_budat \-high  = s\_budat \-low .  
       CONCATENATE sy \-datum+0 ( 6 )  '01'  INTO s\_budat \-low .  
       MODIFY s\_budat .  
     ENDIF .  
   ENDLOOP .  
  
\*&---------------------------------------------------------------------\*  
\*&      START\_OF\_SELECTION  
\*&---------------------------------------------------------------------\*  
START-OF-SELECTION .  
  
   PERFORM get\_data .  
   PERFORM process\_data .  
  
\*&---------------------------------------------------------------------\*  
\*&      END\_OF\_SELECTION  
\*&---------------------------------------------------------------------\*  
END-OF-SELECTION .  
   PERFORM write\_data .  
  
\*&---------------------------------------------------------------------\*  
\*&      Form  GET\_DATA  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM get\_data  .  
  
   READ  TABLE s\_budat  INDEX  1 .  
   CONCATENATE s\_budat \-low+0 ( 4 ) s\_budat \-low+4 ( 2 )  '01'  INTO budat\_low .  
  budat\_high  = s\_budat \-low .  
  
  year  = s\_budat \-low+0 ( 4 ) .  
  month  = s\_budat \-low+4 ( 2 ) .  
  
   IF month  =  '01' .  
    month  =  '12' .  
    year  = year  \-  1 .  
   ELSE .  
    month  = month  \-  1 .  
   ENDIF .  
  
   CALL  FUNCTION  'CONVERSION\_EXIT\_ALPHA\_INPUT'  
     EXPORTING  
       input   = month  
     IMPORTING  
       output  = month  
     EXCEPTIONS  
       OTHERS  =  1 .  
  mont1  = month .  
  year1  = year .  
  
   CLEAR s\_budat .  
  
   SELECT a ~matnr b ~werks b ~lgort   INTO  TABLE gt\_mbew  
    FROM mara  AS a INNER  JOIN mard  AS b  ON b ~matnr  = a ~matnr  
\*   INNER JOIN MBEW AS C ON C~MATNR = A~MATNR  
    WHERE a ~matnr  IN s\_matnr  
      AND a ~matkl  IN s\_matkl  
      AND a ~mtart  IN s\_mtart  
      AND b ~lgort  IN s\_lgort  
      AND b ~werks  EQ p\_werks .  
\*     AND B~LABST NE 0.  
  
\*  loop at gt\_mbew.  
\*  
\*    do.  
\*      n = n + 1.  
\*      select single labst insme speme into (gt\_mbew-lbkum, gt\_mbew-insme, gt\_mbew-speme)  
\*                                             from mardh where matnr = gt\_mbew-matnr  
\*                                                          and lgort = gt\_mbew-lgort  
\*                                                          and lfgja = year  
\*                                                          and lfmon = month  
\*                                                          and werks = gt\_mbew-werks.  
\*      if sy-subrc = 0.  
\*        if month = '12'.  
\*          year2 = year + 1.  
\*          mont2 = '01'.  
\*        else.  
\*          year2 = year.  
\*          mont2 = month + 1.  
\*        endif.  
\*        call function 'CONVERSION\_EXIT\_ALPHA\_INPUT'  
\*          exporting  
\*            input  = mont2  
\*          importing  
\*            output = mont2  
\*          exceptions  
\*            others = 1.  
\*        concatenate year2 mont2 '01' into date3.  
\*  
\*        select a~matnr a~werks a~lgort a~bwart a~shkzg a~menge a~meins a~smbln a~smblp a~mblnr a~zeile into gt\_mseg2  
\*           from mseg as a inner join mkpf as b on b~mblnr = a~mblnr  
\*           inner join mara as c on c~matnr = a~matnr  
\*            where a~matnr in s\_matnr  
\*             and c~matkl in s\_matkl  
\*             and c~mtart in s\_mtart  
\*             and a~lgort in s\_lgort  
\*             and a~matnr = gt\_mbew-matnr  
\*             and a~lgort = gt\_mbew-lgort  
\*             and a~werks = gt\_mbew-werks  
\*\*             and b~budat >= date3  
\*             and b~budat < budat\_high .  
\*          append gt\_mseg2.  
\*          clear gt\_mseg2.  
\*        endselect.  
\*  
\*        n = 0.  
\*        year = year1.  
\*        month = mont1.  
\*        exit.  
\*      elseif n = 12.  
\*        n = 0.  
\*        year = year1.  
\*        month = mont1.  
\*        exit.  
\*      else.  
\*        if month = '01'.  
\*          month = '12'.  
\*          year = year - 1.  
\*        else.  
\*          month = month - 1.  
\*          call function 'CONVERSION\_EXIT\_ALPHA\_INPUT'  
\*            exporting  
\*              input  = month  
\*            importing  
\*              output = month  
\*            exceptions  
\*              others = 1.  
\*        endif.  
\*      endif.  
\*    enddo.  
\*  
\*    modify gt\_mbew.  
\*  endloop.  
  
   SELECT a ~matnr a ~werks a ~lgort a ~bwart a ~shkzg a ~menge a ~meins  a ~smbln a ~smblp a ~mblnr a ~zeile a ~insmk a ~urzei  INTO  TABLE gt\_mseg2  
   FROM mseg  AS a INNER  JOIN mkpf  AS b  ON b ~mblnr  = a ~mblnr  
  INNER  JOIN mara  AS  c  ON  c ~matnr  = a ~matnr  
   WHERE a ~matnr  IN s\_matnr  
     AND  c ~matkl  IN s\_matkl  
     AND  c ~mtart  IN s\_mtart  
     AND a ~lgort  IN s\_lgort  
     AND a ~werks  EQ p\_werks  
     AND b ~budat < budat\_low  
            %\_HINTS  
DB6  '<NLJOIN><IXSCAN TABLE=' 'MSEG' ' SAP\_INDEX=' 'M' '/>' '</NLJOIN>' .  
   SELECT a ~matnr a ~werks a ~lgort a ~bwart a ~shkzg a ~menge a ~meins  a ~smbln a ~smblp a ~mblnr a ~zeile a ~insmk a ~urzei  INTO  TABLE gt\_mseg  
   FROM mseg  AS a INNER  JOIN mkpf  AS b  ON b ~mblnr  = a ~mblnr  
  INNER  JOIN mara  AS  c  ON  c ~matnr  = a ~matnr  
   WHERE a ~matnr  IN s\_matnr  
     AND  c ~matkl  IN s\_matkl  
     AND  c ~mtart  IN s\_mtart  
     AND a ~lgort  IN s\_lgort  
     AND b ~budat  IN s\_budat  
     AND a ~werks  EQ p\_werks  
            %\_HINTS  
DB6  '<NLJOIN><IXSCAN TABLE=' 'MSEG' ' SAP\_INDEX=' 'M' '/>' '</NLJOIN>' .  
  
\*  SELECT A~MATNR A~LGORT A~BWART A~SHKZG A~MENGE A~MEINS INTO TABLE GT\_MSEG2  
\* FROM MSEG AS A INNER JOIN MKPF AS B ON B~MBLNR = A~MBLNR  
\* INNER JOIN MARA AS C ON C~MATNR = A~MATNR  
\* WHERE A~MATNR IN S\_MATNR  
\*   AND C~MATKL IN S\_MATKL  
\*   AND C~MTART IN S\_MTART  
\*   AND A~LGORT IN S\_LGORT  
\*   AND B~BUDAT >= BUDAT\_LOW  
\*   AND B~BUDAT < BUDAT\_HIGH .  
  
   SELECT  
       smbln  
       smblp  
       mblnr  
       zeile  
  
     INTO  TABLE gt\_mbmps  
     FROM   m\_mbmps  .  
  
   IF gt\_mseg2\[\]  IS  NOT  INITIAL    .  
  
     SELECT a ~mblnr a ~zeile  b ~werk  
       INTO  TABLE  gt\_qamb  
       FROM qamb  AS  a  
       JOIN qals  AS b  ON a ~prueflos  = b ~prueflos  
       FOR  ALL ENTRIES  IN gt\_mseg2  
       WHERE a ~mblnr  = gt\_mseg2 \-mblnr  
        AND  a ~zeile  = gt\_mseg2 \-urzei .  
  
   ENDIF  .  
  
   IF gt\_mseg\[\]  IS  NOT  INITIAL    .  
  
     SELECT a ~mblnr a ~zeile b ~werk  
       INTO  TABLE  gt\_qamb2  
       FROM qamb  AS a  
       JOIN qals   AS b  ON a ~prueflos  = b ~prueflos  
       FOR  ALL ENTRIES  IN gt\_mseg  
       WHERE a ~mblnr  = gt\_mseg \-mblnr  
        AND  a ~zeile  = gt\_mseg \-urzei .  
  
   ENDIF  .  
  
   LOOP  AT gt\_qamb2  INTO gs\_qamb  .  
     APPEND gs\_qamb  TO gt\_qamb  .  
   ENDLOOP  .  
  
  
  
  
  
ENDFORM .                     " GET\_DATA  
\*&---------------------------------------------------------------------\*  
\*&      Form  PROCESS\_DATA  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM process\_data  .  
   DATA lv\_tabix  TYPE sy \-tabix  .  
   SORT   gt\_mbmps  BY   smbln   smblp  .  
   " 去冲销  
   LOOP  AT gt\_mseg2  .  
     CLEAR lv\_tabix  .  
    lv\_tabix  =  sy \-tabix   .  
     READ  TABLE gt\_mbmps  WITH  KEY smbln  = gt\_mseg2 \-mblnr  
                                 smblp  = gt\_mseg2 \-zeile  
                                  BINARY  SEARCH  
                                  TRANSPORTING  NO  FIELDS  .  
     IF sy \-subrc  EQ  0  .  
       DELETE gt\_mseg2  INDEX lv\_tabix  .  
     ELSEIF gt\_mseg2 \-lgort  IS  INITIAL  .  
       DELETE gt\_mseg2  INDEX lv\_tabix  .  
     ENDIF  .  
  
  
   ENDLOOP  .  
  
   " 去冲销  
   LOOP  AT gt\_mseg  .  
     CLEAR lv\_tabix  .  
    lv\_tabix  =  sy \-tabix   .  
     READ  TABLE gt\_mbmps  WITH  KEY smbln  = gt\_mseg \-mblnr  
                                 smblp  = gt\_mseg \-zeile  
                                  BINARY  SEARCH  
                                  TRANSPORTING  NO  FIELDS  .  
     IF sy \-subrc  EQ  0  .  
       DELETE gt\_mseg   INDEX lv\_tabix  .  
     ENDIF  .  
   ENDLOOP  .  
  
   " " 去被冲销  
   SORT   gt\_mbmps  BY mblnr  zeile  .  
   LOOP  AT gt\_mseg2  .  
     CLEAR lv\_tabix  .  
    lv\_tabix  =  sy \-tabix   .  
     READ  TABLE gt\_mbmps  WITH  KEY mblnr   = gt\_mseg2 \-mblnr  
                                 zeile   = gt\_mseg2 \-zeile  
                                  BINARY  SEARCH  
                                  TRANSPORTING  NO  FIELDS  .  
     IF sy \-subrc  EQ  0  .  
       DELETE gt\_mseg2  INDEX lv\_tabix  .  
     ELSEIF  gt\_mseg2 \-lgort  IS  INITIAL  .  
       DELETE gt\_mseg2  INDEX lv\_tabix  .  
     ENDIF  .  
  
  
   ENDLOOP  .  
  
   " 去被冲销  
   LOOP  AT gt\_mseg  .  
     CLEAR lv\_tabix  .  
    lv\_tabix  =  sy \-tabix   .  
     READ  TABLE gt\_mbmps  WITH  KEY mblnr   = gt\_mseg \-mblnr  
                                 zeile   = gt\_mseg \-zeile  
                                  BINARY  SEARCH  
                                  TRANSPORTING  NO  FIELDS  .  
     IF sy \-subrc  EQ  0  .  
       DELETE gt\_mseg  INDEX lv\_tabix  .  
     ENDIF  .  
   ENDLOOP  .  
  
   "去质检验，处理转储 -期初  
  
   SORT gt\_qamb  BY mblnr zeile werk  .  
  
   LOOP  AT gt\_mseg2  .  
     CLEAR lv\_tabix  .  
    lv\_tabix  =  sy \-tabix   .  
     READ  TABLE gt\_qamb  WITH  KEY  mblnr   = gt\_mseg2 \-mblnr  
                                 zeile   = gt\_mseg2 \-urzei  
                                 werk    = gt\_mseg2 \-werks  
                                  BINARY  SEARCH  
                                  TRANSPORTING  NO  FIELDS  .  
     IF sy \-subrc  EQ  0  .  
       IF  gt\_mseg2 \-bwart <>  '321'  AND  gt\_mseg2 \-bwart <>   '322'  .  
         DELETE gt\_mseg2  INDEX lv\_tabix  .  
       ENDIF  .  
     ENDIF  .  
     " 321 只保留方  
     IF gt\_mseg2 \-bwart  EQ  '321'  AND gt\_mseg2 \-shkzg  EQ   'H' .  
       DELETE gt\_mseg2  INDEX lv\_tabix  .  
     ENDIF  .  
  
     IF gt\_mseg2 \-bwart  EQ  '322'  AND gt\_mseg2 \-shkzg  EQ   'S' .  
       DELETE gt\_mseg2  INDEX lv\_tabix  .  
     ENDIF  .  
   ENDLOOP  .  
  
   " 去质检验，处理转储-区间  
   LOOP  AT gt\_mseg  .  
     CLEAR lv\_tabix  .  
    lv\_tabix  =  sy \-tabix   .  
     READ  TABLE gt\_qamb  WITH  KEY  mblnr   = gt\_mseg \-mblnr  
                                 zeile   = gt\_mseg \-urzei  
                                 werk    = gt\_mseg \-werks  
                                  BINARY  SEARCH  
                                  TRANSPORTING  NO  FIELDS  .  
     IF sy \-subrc  EQ  0  .  
       IF  gt\_mseg \-bwart <>  '321'  AND  gt\_mseg \-bwart <>  '322'   .  
         DELETE gt\_mseg  INDEX lv\_tabix  .  
       ENDIF  .  
     ENDIF  .  
     " 321 只保留方  
     IF gt\_mseg \-bwart  EQ  '321'  AND gt\_mseg \-shkzg  EQ   'H' .  
       DELETE gt\_mseg  INDEX lv\_tabix  .  
     ENDIF  .  
  
     IF gt\_mseg \-bwart  EQ  '322'  AND gt\_mseg \-shkzg  EQ   'S' .  
       DELETE gt\_mseg  INDEX lv\_tabix  .  
     ENDIF  .  
  
   ENDLOOP  .  
  
   "汇总期初  
  
   SORT gt\_mseg2  BY matnr  werks   lgort .  
  
   LOOP  AT gt\_mseg2 .  
    gt\_itab \-matnr  = gt\_mseg2 \-matnr  .  
    gt\_itab \-werks  = gt\_mseg2 \-werks   .  
    gt\_itab \-lgort  = gt\_mseg2 \-lgort  .  
     IF gt\_mseg2 \-shkzg  EQ  'S' .  
      gt\_itab \-zsqjc  =   gt\_itab \-zsqjc + gt\_mseg2 \-menge  .  
     ELSE  .  
      gt\_itab \-zsqjc  =   gt\_itab \-zsqjc + gt\_mseg2 \-menge \*  (  \- 1  )  .  
     ENDIF  .  
     AT  END  OF  lgort  .  
       APPEND gt\_itab  .  
       CLEAR gt\_itab .  
     ENDAT .  
   ENDLOOP  .  
  
\*汇总期间  
   SORT gt\_mseg  BY matnr  werks   lgort .  
  
  
  
   LOOP  AT gt\_mseg .  
    gt\_itab2 \-matnr  = gt\_mseg \-matnr  .  
    gt\_itab2 \-werks  = gt\_mseg \-werks   .  
    gt\_itab2 \-lgort  = gt\_mseg \-lgort  .  
     IF gt\_mseg \-shkzg  EQ  'S' .  
      gt\_itab2 \-zbqjh  =   gt\_itab2 \-zbqjh + gt\_mseg \-menge  .  
     ELSE  .  
      gt\_itab2 \-zbqth  =   gt\_itab2 \-zbqth + gt\_mseg \-menge \*  (  \- 1  )  .  
     ENDIF  .  
     AT  END  OF  lgort  .  
       APPEND gt\_itab2  .  
       CLEAR gt\_itab2 .  
     ENDAT .  
   ENDLOOP  .  
  
  
   " 汇总期末  
   SORT gt\_itab  BY matnr werks lgort  .  
   LOOP  AT gt\_itab2  .  
     CLEAR gt\_itab  .  
     READ  TABLE gt\_itab  WITH  KEY matnr  = gt\_itab2 \-matnr  
                                werks  = gt\_itab2 \-werks  
                                lgort  = gt\_itab2 \-lgort  
                                 BINARY  SEARCH .  
     IF sy \-subrc  EQ  0  .  
      gt\_itab \-zbqjh   = gt\_itab2 \-zbqjh  .  
      gt\_itab \-zbqth   = gt\_itab2 \-zbqth .  
      gt\_itab \-zbqjc   = gt\_itab \-zsqjc + gt\_itab \-zbqjh + gt\_itab \-zbqth  .   "上面汇总时已经成负数  
       MODIFY gt\_itab  INDEX sy \-tabix  .  
     ELSE  .  
      gt\_itab \-matnr  = gt\_itab2 \-matnr .  
      gt\_itab \-werks  = gt\_itab2 \-werks .  
      gt\_itab \-lgort  = gt\_itab2 \-lgort  .  
      gt\_itab \-zbqjh   = gt\_itab2 \-zbqjh  .  
      gt\_itab \-zbqth   = gt\_itab2 \-zbqth .  
      gt\_itab \-zbqjc   = gt\_itab \-zsqjc + gt\_itab \-zbqjh +  gt\_itab \-zbqth  .   "上面汇总时已经成负数  
       APPEND gt\_itab  .  
       SORT gt\_itab  BY matnr werks lgort  .  
     ENDIF  .  
  
   ENDLOOP  .  
  
  
   LOOP  AT gt\_itab   .  
    gt\_itab \-zbqjc   = gt\_itab \-zsqjc + gt\_itab \-zbqjh +  gt\_itab \-zbqth  .  
     SELECT  SINGLE lgobe  INTO gt\_itab \-lgobe  FROM t001l  WHERE lgort  = gt\_itab \-lgort .  
  
     SELECT  SINGLE meins  INTO gt\_itab \-meins  FROM mara  WHERE matnr  = gt\_itab \-matnr .  
  
     SELECT  SINGLE maktx  INTO gt\_itab \-maktx  FROM makt  WHERE matnr  = gt\_itab \-matnr .  
  
     MODIFY gt\_itab  .  
  
   ENDLOOP  .  
  
  
\*  
\*  
\*  
\*  IF gt\_mseg2\[\] IS NOT INITIAL.  
\*    LOOP AT gt\_mseg2.  
\*  
\*      IF gt\_mseg2-bwart = '321'.  
\*        IF gt\_mseg2-shkzg = 'S'  AND gt\_mseg2-matnr = '123213'.  
\*          DELETE gt\_mseg2.  
\*        ELSEIF gt\_mseg2-shkzg = 'H'.  
\*          DELETE gt\_mseg2.  
\*          CONTINUE.  
\*        ENDIF.  
\*      ELSEIF gt\_mseg2-bwart = '322'.  
\*        IF gt\_mseg2-shkzg = 'H'.  
\*          DELETE gt\_mseg2.  
\*          CONTINUE.  
\*        ELSE.  
\*          gt\_mseg2-menge = gt\_mseg2-menge \* ( -1 ).  
\*        ENDIF.  
\*      ELSE.  
\*  
\*  
\*      ENDIF.  
\*      MODIFY gt\_mseg2.  
\*  
\*    ENDLOOP.  
\*  ENDIF.  
\*  DELETE gt\_mseg WHERE insmk = 'X' AND bwart NE '322'.  
\*  LOOP AT gt\_mbew.  
\*    LOOP AT gt\_mseg2 WHERE matnr = gt\_mbew-matnr AND lgort = gt\_mbew-lgort  
\*                                                 AND werks = gt\_mbew-werks.  
\*      gt\_mbew-lbkum = gt\_mbew-lbkum + gt\_mseg2-menge.  
\*    ENDLOOP.  
\*    MODIFY gt\_mbew.  
\*    CLEAR gt\_mbew.  
\*  ENDLOOP.  
\*  
\*  LOOP AT gt\_mbew.  
\*    gt\_itab-matnr = gt\_mbew-matnr.  
\*    gt\_itab-lgort = gt\_mbew-lgort.  
\*    gt\_itab-werks = gt\_mbew-werks.  
\*    gt\_itab-zsqjc = gt\_mbew-lbkum + gt\_mbew-speme.  
\*    APPEND gt\_itab.  
\*    CLEAR gt\_itab.  
\*  ENDLOOP.  
\*  DELETE gt\_mseg WHERE bwart = '321' AND shkzg = 'H'.  
\*  DELETE gt\_mseg WHERE bwart = '322' AND shkzg = 'S'.  
\*  LOOP AT gt\_itab.  
\*    SELECT SINGLE qmatv INTO qmatv FROM marc WHERE matnr = gt\_itab-matnr.  
\*    IF qmatv = 'X'.  
\*      LOOP AT gt\_mseg WHERE matnr = gt\_itab-matnr AND lgort = gt\_itab-lgort  
\*                          AND werks = gt\_itab-werks AND shkzg = 'S'. "and bwart <> '101' and bwart <> '123' and bwart <> '501' .  
\*        gt\_itab-zbqjh = gt\_itab-zbqjh + gt\_mseg-menge.  
\*      ENDLOOP.  
\*  
\*      LOOP AT gt\_mseg WHERE matnr = gt\_itab-matnr AND lgort = gt\_itab-lgort  
\*                            AND werks = gt\_itab-werks AND shkzg = 'H' ."and bwart <> '122' and bwart <> '502'."('122')..  
\*        gt\_itab-zbqth = gt\_itab-zbqth + gt\_mseg-menge.  
\*      ENDLOOP.  
\*  
\*    ELSE.  
\*      LOOP AT gt\_mseg WHERE matnr = gt\_itab-matnr AND lgort = gt\_itab-lgort  AND werks = gt\_itab-werks  AND shkzg = 'S'..  
\*        gt\_itab-zbqjh = gt\_itab-zbqjh + gt\_mseg-menge.  
\*      ENDLOOP.  
\*      LOOP AT gt\_mseg WHERE matnr = gt\_itab-matnr AND lgort = gt\_itab-lgort  
\*                            AND werks = gt\_itab-werks AND shkzg = 'H' ."('122')..  
\*        gt\_itab-zbqth = gt\_itab-zbqth + gt\_mseg-menge.  
\*      ENDLOOP.  
\*  
\*  
\*    ENDIF.  
\*  
\*    gt\_itab-zbqjc = gt\_itab-zsqjc + gt\_itab-zbqjh - gt\_itab-zbqth - gt\_itab-bqbcs + gt\_itab-bqbrs  
\*                    - gt\_itab-cbzxf + gt\_itab-cbzxt + gt\_itab-zqty.  
\*  
\*\*    GT\_ITAB-ZBQHY = GT\_ITAB-ZBQTH + GT\_ITAB-BQBCS + GT\_ITAB-CBZXF - GT\_ITAB-BQBRS - GT\_ITAB-CBZXT.  
\*  
\*    SELECT SINGLE lgobe INTO gt\_itab-lgobe FROM t001l WHERE lgort = gt\_itab-lgort.  
\*  
\*    SELECT SINGLE meins INTO gt\_itab-meins FROM mara WHERE matnr = gt\_itab-matnr.  
\*  
\*    SELECT SINGLE maktx INTO gt\_itab-maktx FROM makt WHERE matnr = gt\_itab-matnr.  
\*    CALL FUNCTION 'CONVERSION\_EXIT\_CUNIT\_OUTPUT' " 单位转换  
\*      EXPORTING  
\*        input          = gt\_itab-meins  
\*        language       = sy-langu  
\*      IMPORTING  
\*        output         = gt\_itab-meins  
\*      EXCEPTIONS  
\*        unit\_not\_found = 1  
\*        OTHERS         = 2.  
\*    gt\_itab-reffi = 'KAR'.  
\*    MODIFY gt\_itab.  
\*    CLEAR qmatv.  
\*    CLEAR gt\_itab.  
\*  ENDLOOP.  
   DELETE gt\_itab  WHERE zsqjc  =  0  AND zbqjh  =  0  AND zbqth  =  0  AND zbqjc  =  0 .  
   DELETE gt\_itab  WHERE lgort  IS  INITIAL  .  
ENDFORM .                     " PROCESS\_DATA  
\*&---------------------------------------------------------------------\*  
\*&      Form  WRITE\_DATA  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM write\_data  .  
  
   DATA : ws\_fieldcat         TYPE slis\_t\_fieldcat\_alv  WITH  HEADER  LINE ,  
        ws\_fieldgroups\_tab  TYPE slis\_t\_sp\_group\_alv ,  
        ws\_layout           TYPE slis\_layout\_alv ,  
        ws\_sortfields\_tab   TYPE slis\_t\_sortinfo\_alv  WITH  HEADER  LINE ,  
        ws\_events           TYPE slis\_t\_event .  
   DATA : nn  TYPE  i  VALUE  0 .  
   DATA :  title  TYPE lvc\_title .  
   DATA :  color  TYPE slis\_t\_specialcol\_alv  WITH  HEADER  LINE .  
\*  SORT GT\_CDHD BY BUKRS BUKRS ZEXCD.  
\*  
   DEFINE hout .  
    nn  = nn +  1 .  
    ws\_fieldcat \-col\_pos        =  nn .  
    ws\_fieldcat \-tabname        =  'GT\_ITAB' .  
    ws\_fieldcat \- key            = &1 .  
    ws\_fieldcat \-fieldname      = &2 .  
    ws\_fieldcat \-seltext\_m      = &3 .  
    ws\_fieldcat \-cfieldname     = &4 .  
    ws\_fieldcat \-datatype       = &5 .  
    ws\_fieldcat \-ref\_tabname    = &6 .  
    ws\_fieldcat \-ref\_fieldname  = &7 .  
    ws\_fieldcat \-do\_sum         = &8 .  
    ws\_fieldcat \-qfieldname        = &9 .  
     APPEND ws\_fieldcat .  
     CLEAR ws\_fieldcat .  
   END-OF-DEFINITION .  
  
  hout :  
  
       'X'   'MATNR'    '物料号'                ''      ''       ''   ''       ''   '' ,  
       'X'   'MAKTX'    '物料描述'              ''      ''       ''   ''       ''   '' ,  
       ''    'MEINS'    '基本单位'              ''      ''       ''   ''       ''   '' ,  
       ''    'ZSQJC'    '上期结存'              ''      ''       ''   ''       ''   'REFFI' ,  
       ''    'ZBQJH'    '本期入库'              ''      ''       ''   ''       ''   'REFFI' ,  
       ''    'ZBQTH'    '本期出库'              ''      ''       ''   ''       ''   'REFFI' ,  
\*      ''   'BQBCS'   '本期拨出数'           ''     ''      ''  ''      ''  '',  
\*      ''   'BQBRS'   '本期拨入数'           ''     ''      ''  ''      ''  '',  
\*      ''   'CBZXF'   '成本中心发料数'       ''     ''      ''  ''      ''  '',  
\*      ''   'CBZXT'   '成本中心退料数'       ''     ''      ''  ''      ''  '',  
\*      ''   'ZBQHY'   '本期耗用'             ''     ''      ''  ''      ''  '',  
       ''    'ZBQJC'    '本期结存'              ''      ''       ''   ''       ''   'REFFI' ,  
       ''    'LGORT'    '库存地点'              ''      ''       ''   ''       ''   '' ,  
       ''    'LGOBE'    '库位描述'              ''      ''       ''   ''       ''   '' .  
  
  
  ws\_layout \-zebra              =  'X' .  
  ws\_layout \-get\_selinfos       =  'X' .  
  ws\_layout \-colwidth\_optimize  =  'X' .  
  ws\_layout \-detail\_popup       =  'X' .  
  
   CALL  FUNCTION  'REUSE\_ALV\_GRID\_DISPLAY'  
     EXPORTING  
      i\_callback\_program       = sy \-repid  
      i\_callback\_user\_command  =  'USER\_COMMAND'  
      is\_layout                = ws\_layout  
      it\_fieldcat              = ws\_fieldcat\[\]  
      it\_special\_groups        = ws\_fieldgroups\_tab\[\]  
      it\_sort                  = ws\_sortfields\_tab\[\]  
      it\_events                = ws\_events\[\]  
      i\_grid\_title             =  title  
      i\_default                =  'X'  
      i\_save                   =  'A'  
     TABLES  
      t\_outtab                 = gt\_itab\[\]  
     EXCEPTIONS  
      program\_error            =  1  
       OTHERS                   =  2 .  
  
ENDFORM .                     " WRITE\_DATA  
  
\*&---------------------------------------------------------------------\*  
\*&      Form  USER\_COMMAND  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
FORM user\_command  USING r\_ucomm  LIKE sy \-ucomm  
rs\_selfield  TYPE slis\_selfield .  
  
   DATA : g\_selected\_field\_value ( 80 ) .  
  
   IF rs\_selfield \-fieldname  EQ  'MATNR' .  
  
     CASE r\_ucomm .  
  
       WHEN  '&IC1' .  
         READ  TABLE gt\_itab  INDEX  rs\_selfield \-tabindex .  
         PERFORM show\_detial  USING gt\_itab \-matnr gt\_itab \-lgort  
                                  gt\_itab \-zsqjc gt\_itab \-zbqjc . .  
\*        SET PARAMETER ID 'MAT' FIELD GT\_ITAB-MATNR.  
\*        CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .  
     ENDCASE .  
   ENDIF .  
ENDFORM .                     "USER\_COMMAND  
FORM show\_detial  USING l\_matnr  LIKE mara \-matnr  
                        l\_lgort  LIKE mard \-lgort  
                        l\_menge  LIKE mseg \-menge  
                        l\_menge1  LIKE mseg \-menge .  
   DATA :  BEGIN  OF lt\_itab  OCCURS  0 ,  
          matnr    LIKE mara \-matnr ,  
          budat    LIKE mkpf \-budat ,  
          werks    LIKE mseg \-werks ,  
          lgort    LIKE mseg \-lgort ,  
          bwart    LIKE mseg \-bwart ,  
          shkzg    LIKE mseg \-shkzg ,  
          menge    LIKE mseg \-menge ,  
          meins    LIKE mseg \-meins ,  
          smbln    LIKE mseg \-smbln ,  
          smblp    LIKE mseg \-smblp ,  
          mblnr    LIKE mseg \-mblnr ,  
          zeile    LIKE mseg \-zeile ,  
  
          jcsl     LIKE mseg \-menge ,  
          ref\_doc  TYPE char50 ,  
          ref\_pos  TYPE char10 ,  
          ref\_txt  TYPE char50 ,  
          reffi    TYPE mara \-meins ,  
         END  OF lt\_itab .  
   DATA :l\_qmatv  LIKE marc \-qmatv .  
   DATA :prueflos\_001  LIKE qamb \-prueflos ,  
       mblnr\_001     LIKE qamb \-mblnr .  
  
   DATA : lv\_bsart  TYPE ekko \-bsart  .  
  
\*select DISTINCT \* into TABLE lt\_itab from mara UP TO 50 ROWS .  
   CLEAR :lt\_itab\[\] ,lt\_itab ,l\_qmatv .  
   SELECT  SINGLE qmatv  INTO l\_qmatv  FROM marc  WHERE matnr  = l\_matnr .  
  lt\_itab \-matnr  = l\_matnr .  
  lt\_itab \-meins  = gt\_mseg \-meins .  
  lt\_itab \-jcsl  = l\_menge .  
   APPEND lt\_itab . CLEAR lt\_itab .  
   "modify by  lxf start  
\*  IF l\_qmatv = 'X'.  
\*    LOOP AT gt\_mseg WHERE matnr = l\_matnr AND lgort = l\_lgort AND bwart <> '101'  AND bwart <> '501' .  
\*\*      lt\_itab = gt\_mseg.  
\*      MOVE-CORRESPONDING gt\_mseg TO lt\_itab.  
\*      APPEND lt\_itab.CLEAR lt\_itab.  
\*    ENDLOOP.  
\*  
\*    LOOP AT gt\_mseg WHERE matnr = l\_matnr AND lgort = l\_lgort AND bwart EQ '101'  AND bwart <> '501' .  
\*      CLEAR lv\_bsart .  
\*      SELECT SINGLE bsart INTO lv\_bsart  
\*        FROM ekko AS a  
\*        JOIN mseg AS b  
\*        ON a~ebeln = b~ebeln  
\*        WHERE   b~mblnr = gt\_mseg-mblnr  
\*        AND a~bsart EQ 'ZUB' .  
\*      IF lv\_bsart IS NOT INITIAL .  
\*        MOVE-CORRESPONDING gt\_mseg TO lt\_itab.  
\*      ENDIF .  
\*      APPEND lt\_itab.CLEAR lt\_itab.  
\*    ENDLOOP.  
\*  
\*  ELSE.  
\*    LOOP AT gt\_mseg WHERE matnr = l\_matnr AND lgort = l\_lgort." and bwart <> '101'.  
\*\*      lt\_itab = gt\_mseg.  
\*      MOVE-CORRESPONDING gt\_mseg TO lt\_itab.  
\*      APPEND lt\_itab.CLEAR lt\_itab.  
\*    ENDLOOP.  
\*  ENDIF.  
   "modify by  lxf end  
  
   LOOP  AT gt\_mseg  WHERE matnr  = l\_matnr  AND lgort  = l\_lgort . "  
     MOVE-CORRESPONDING gt\_mseg  TO lt\_itab .  
     APPEND lt\_itab . CLEAR lt\_itab .  
   ENDLOOP .  
  
  
  
   LOOP  AT lt\_itab .  
     IF lt\_itab \-bwart  =  '321' .  
       SELECT  SINGLE prueflos  
         INTO prueflos\_001  
         FROM qamb  
         WHERE mblnr  = lt\_itab \-mblnr  
         AND   typ  =  '3' .  
       IF prueflos\_001  IS  NOT  INITIAL .  
         SELECT  SINGLE mblnr zeile  
           INTO  (lt\_itab \-ref\_doc ,lt\_itab \-ref\_pos )  
           FROM qamb  
           WHERE prueflos  = prueflos\_001  
           AND   typ  =  '1' .  
  
       ENDIF .  
  
     ENDIF .  
  
     IF lt\_itab \-bwart  =  '201'  
     OR lt\_itab \-bwart  =  '202'  
     OR lt\_itab \-bwart  =  '311'  
     OR lt\_itab \-bwart  =  '312'  
     OR lt\_itab \-bwart  =  'Z61'  
     OR lt\_itab \-bwart  =  'Z62' .  
  
       SELECT  SINGLE rsnum rspos  
         INTO  (lt\_itab \-ref\_doc ,lt\_itab \-ref\_pos )  
         FROM mseg  
         WHERE mblnr  = lt\_itab \-mblnr  
         AND   zeile  = lt\_itab \-zeile .  
  
       IF lt\_itab \-bwart  =  '312'        .  
  
         SELECT  SINGLE bktxt  
           INTO lt\_itab \-ref\_txt  
           FROM mkpf  
           WHERE mblnr  = lt\_itab \-mblnr .  
  
       ENDIF .  
  
     ENDIF .  
  
     IF lt\_itab \-bwart  =  '122'  OR lt\_itab \-bwart  =  '309' .           "增加122、309移动类型参考凭证  
       SELECT  SINGLE bktxt  
                 INTO lt\_itab \-ref\_txt  
                 FROM mkpf  
                 WHERE mblnr  = lt\_itab \-mblnr .  
     ENDIF .  
  
     IF lt\_itab \-bwart  =  '261'  
     OR lt\_itab \-bwart  =  '262' .  
  
       SELECT  SINGLE aufnr  
         INTO lt\_itab \-ref\_doc  
         FROM mseg  
         WHERE mblnr  = lt\_itab \-mblnr  
         AND   zeile  = lt\_itab \-zeile .  
  
       SELECT  SINGLE bktxt  
             INTO lt\_itab \-ref\_txt  
             FROM mkpf  
             WHERE mblnr  = lt\_itab \-mblnr .  
  
     ENDIF .  
  
     IF lt\_itab \-bwart  =  '511'  
     OR lt\_itab \-bwart  =  '531'  
     OR lt\_itab \-bwart  =  '541'  
     OR lt\_itab \-bwart  =  '542'  
     OR lt\_itab \-bwart  =  '551' .  
  
       SELECT  SINGLE bktxt  
             INTO lt\_itab \-ref\_txt  
             FROM mkpf  
             WHERE mblnr  = lt\_itab \-mblnr .  
  
     ENDIF .  
  
     IF lt\_itab \-bwart  =  '601'  
     OR lt\_itab \-bwart  =  '631'  
     OR lt\_itab \-bwart  =  '653'  
     OR lt\_itab \-bwart  =  'Z81'  
     OR lt\_itab \-bwart  =  'Z91' .  
  
       SELECT  SINGLE xblnr  
             INTO lt\_itab \-ref\_doc  
             FROM mkpf  
             WHERE mblnr  = lt\_itab \-mblnr .  
  
     ENDIF .  
  
     IF lt\_itab \-bwart  =  '701'  
     OR lt\_itab \-bwart  =  '702' .  
  
       SELECT  SINGLE iblnr zeili  
             INTO  (lt\_itab \-ref\_doc ,lt\_itab \-ref\_pos )  
             FROM iseg  
             WHERE mblnr  = lt\_itab \-mblnr  
             AND   zeile  = lt\_itab \-zeile .  
  
     ENDIF .  
     SELECT  SINGLE budat  INTO lt\_itab \-budat  FROM mkpf  WHERE mblnr  = lt\_itab \-mblnr . " AND ZEILE = LT\_ITAB-ZEILE.  
    lt\_itab \-reffi  =  'KAR' .  
     IF lt\_itab \-shkzg  =  'H' .  
      lt\_itab \-menge  = lt\_itab \-menge  \*  (  \- 1  ) .  
     ENDIF .  
  
  
     IF  lt\_itab \-bwart  =  '161'  
        OR lt\_itab \-bwart  =  '122'  
        OR lt\_itab \-bwart  =  '351'  
        OR lt\_itab \-bwart  =  '101'  .  
       SELECT  SINGLE bktxt  
           INTO lt\_itab \-ref\_txt  
           FROM mkpf  
           WHERE mblnr  = lt\_itab \-mblnr .  
     ENDIF  .  
  
  
     MODIFY lt\_itab . CLEAR lt\_itab .  
   ENDLOOP .  
  
   SORT lt\_itab  BY budat mblnr zeile  .  
  lt\_itab \-matnr  = l\_matnr .  
  lt\_itab \-jcsl  = l\_menge1 .  
  lt\_itab \-reffi  =  'KAR' .  
   APPEND lt\_itab . CLEAR lt\_itab .  
   DATA :last\_menge  TYPE menge\_d .  
   DATA : line  TYPE  i .  
   DESCRIBE  TABLE lt\_itab  LINES  line .  
   LOOP  AT lt\_itab .  
     IF sy \-tabix >  1  AND sy \-tabix <>  line .  
      lt\_itab \-jcsl  = last\_menge + lt\_itab \-menge .  
  
     ENDIF .  
    last\_menge  = lt\_itab \-jcsl .  
     MODIFY lt\_itab . CLEAR lt\_itab .  
   ENDLOOP .  
   DATA : lt\_fcat  TYPE slis\_t\_fieldcat\_alv ,  
        ls\_fcat  TYPE slis\_fieldcat\_alv .  
  
   CLEAR ls\_fcat .  
  ls\_fcat \-fieldname  =  'MATNR' .  
  ls\_fcat \-seltext\_l  =  '物料' .  
  ls\_fcat \-outputlen  =  18 .  
   APPEND ls\_fcat  TO lt\_fcat .  
   CLEAR ls\_fcat .  
  ls\_fcat \-fieldname  =  'BUDAT' .  
  ls\_fcat \-seltext\_l  =  '过账日期' .  
  ls\_fcat \-outputlen  =  10 .  
   APPEND ls\_fcat  TO lt\_fcat .  
   CLEAR ls\_fcat .  
  ls\_fcat \-fieldname  =  'MBLNR' .  
  ls\_fcat \-seltext\_l  =  '物料凭证' .  
  ls\_fcat \-outputlen  =  10 .  
   APPEND ls\_fcat  TO lt\_fcat .  
   CLEAR ls\_fcat .  
  ls\_fcat \-fieldname  =  'ZEILE' .  
  ls\_fcat \-seltext\_l  =  '行项目' .  
  ls\_fcat \-outputlen  =  6 .  
   APPEND ls\_fcat  TO lt\_fcat .  
   CLEAR ls\_fcat .  
  ls\_fcat \-fieldname  =  'BWART' .  
  ls\_fcat \-seltext\_l  =  '移动类型' .  
\*  ls\_fcat-outputlen = 10.  
   APPEND ls\_fcat  TO lt\_fcat .  
   CLEAR ls\_fcat .  
  ls\_fcat \-fieldname  =  'MENGE' .  
  ls\_fcat \-seltext\_l  =  '数量' .  
  ls\_fcat \-qfieldname  =  'REFFI' .  
  ls\_fcat \-outputlen  =  13 .  
   APPEND ls\_fcat  TO lt\_fcat .  
  
   CLEAR ls\_fcat .  
  ls\_fcat \-fieldname  =  'JCSL' .  
  ls\_fcat \-seltext\_l  =  '结存数量' .  
  ls\_fcat \-ref\_tabname   =  'MSEG' .  
  ls\_fcat \-ref\_fieldname  =  'MENGE' .  
  ls\_fcat \-qfieldname  =  'REFFI' .  
  ls\_fcat \-outputlen  =  13 .  
   APPEND ls\_fcat  TO lt\_fcat .  
  
   CLEAR ls\_fcat .  
  ls\_fcat \-fieldname  =  'REF\_DOC' .  
  ls\_fcat \-seltext\_l  =  '参考凭证' .  
  ls\_fcat \-outputlen  =  20 .  
   APPEND ls\_fcat  TO lt\_fcat .  
  
   CLEAR ls\_fcat .  
  ls\_fcat \-fieldname  =  'REF\_POS' .  
  ls\_fcat \-seltext\_l  =  '参考行项目' .  
  ls\_fcat \-outputlen  =  10 .  
   APPEND ls\_fcat  TO lt\_fcat .  
  
   CLEAR ls\_fcat .  
  ls\_fcat \-fieldname  =  'REF\_TXT' .  
  ls\_fcat \-seltext\_l  =  '抬头文本' .  
  ls\_fcat \-outputlen  =  50 .  
   APPEND ls\_fcat  TO lt\_fcat .  
   CALL  FUNCTION  'REUSE\_ALV\_POPUP\_TO\_SELECT'  
     EXPORTING  
      i\_screen\_start\_column  =  7                                        "ALV起始位置  
      i\_screen\_start\_line    =  7  
      i\_screen\_end\_column    =  173  
      i\_screen\_end\_line      =  30  
      i\_title                =  '本期发生明细'   "这里设置alv标题  
      i\_tabname              = space     "这里默认是空就OK了  
      it\_fieldcat            = lt\_fcat\[\]   "这里是字段目录  
      i\_callback\_program     = sy \-repid  
     TABLES  
      t\_outtab               = lt\_itab\[\]   "输出内表.  
     EXCEPTIONS  
      program\_error          =  1  
       OTHERS                 =  2 .  
ENDFORM .

[70]: /images/20220523/f19e6af638724ec29cd902d8d1c38e96.png
[70 1]: /images/20220523/999b499ab85e4d509e87379839ecc336.png
[70 2]: /images/20220523/16633710351244c3ab2b7feeaa285448.png