ALV事件-开窗,另外有COLLECT汇总用法

曾经终败给现在 2023-02-09 11:56 32阅读 0赞

![20200518194954956.png][]

*\*&---------------------------------------------------------------------\**  
*\*& Report ZPP009*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT zpp009.  
  
TABLES : aufk   , afpo,afko ,jest.  
  
DATA : BEGIN OF gs\_Out ,  
         dwerk   LIKE afpo\-dwerk,  
         aufnr   LIKE afpo\-aufnr,  
         dauat   LIKE afpo\-dauat,  
         matnr   LIKE afpo\-matnr,  
         maktx   LIKE makt\-maktx,  
         psmng   LIKE afpo\-psmng,  
         wemng   LIKE afpo\-wemng,  
         lgort   LIKE afpo\-lgort,  
         gstrp   LIKE afko\-gstrp,  
         gltrp   LIKE afko\-gltrp,  
         erdat   LIKE aufk\-erdat,  
         erfzeit LIKE aufk\-erfzeit,  
         ernam   LIKE aufk\-ernam,  
         dispo   LIKE afko\-dispo,  
         fevor   LIKE afko\-fevor,  
         txt     LIKE t024f\-txt,  
         ablad   LIKE afpo\-ablad,  
         arbpl   LIKE crhd\-arbpl,  
         matnr2  LIKE resb\-matnr,  
         maktx2  LIKE  makt\-maktx,  
         charg   LIKE resb\-charg,  
         bdmng   LIKE resb\-bdmng,  
         meins   LIKE resb\-meins,  
         kunnr   LIKE   kna1\-kunnr,  
         name1   LIKE kna1\-name1,  
         mark,  
       END OF gs\_out .  
  
DATA : gt\_out LIKE TABLE OF gs\_out .  
DATA: gs\_Out2 LIKE gs\_out .  
DATA: gt\_out2 LIKE TABLE OF gs\_out .  
  
DATA: lt\_out LIKE TABLE OF gs\_out .  
DATA: ls\_out LIKE gs\_out .  
  
  
  
DATA: gt\_fieldcat TYPE   lvc\_t\_fcat .  
DATA: gs\_fieldcat TYPE   lvc\_s\_fcat .  
DATA: gs\_layout   TYPE   lvc\_s\_layo .  
  
  
  
DATA: g\_fm\_name TYPE rs38l\_fnam.  
DATA: gw\_options TYPE ssfcompop,  
      gw\_control TYPE ssfctrlop.  
  
  
SELECT-OPTIONS: s\_dwerk FOR afpo\-dwerk,  
                s\_matnr FOR  afpo\-matnr,  
                s\_AUFNR  FOR aufk\-aufnr  ,  
                s\_dauat FOR afpo\-dauat,  
                s\_dispo FOR afko\-dispo,  
                s\_fevor FOR afko\-fevor,  
                s\_gstrp FOR afko\-gstrp,  
                s\_erdat FOR aufk\-erdat,  
                s\_ernam FOR aufk\-ernam ,  
                s\_inact FOR  jest\-inact.  
  
  
  
  
START-OF-SELECTION .  
  
  SELECT  
       dwerk  *" LIKE afpo-dwerk,*  
       a~aufnr  *" LIKE afpo-aufnr,*  
       dauat  *" LIKE afpo-dauat,*  
       b~matnr  *" LIKE afpo-matnr,*  
       c~maktx  *" LIKE makt-maktx,*  
       psmng  *" LIKE afpo-psmng,*  
       wemng  *" LIKE afpo-wemng,*  
       b~lgort *"  LIKE afpo-lgort,*  
       d~gstrp  *" LIKE afko-gstrp,*  
       gltrp  *" LIKE afko-gltrp,*  
       erdat  *" LIKE aufk-erdat,*  
       erfzeit *"LIKE aufk-erfzeit,*  
       ernam *" LIKE aufk-ernam,*  
       dispo  *" LIKE afko-dispo,*  
       d~fevor  *" LIKE afko-fevor,*  
       txt    *" LIKE t024f-txt,*  
       b~ablad  
       f~arbpl  *" LIKE afpo-ablad,*  
       h~matnr AS matnr2  
       i~maktx AS maktx2  
       h~charg  
       h~bdmng  
       h~meins  
  
    INTO CORRESPONDING FIELDS OF TABLE    gt\_out  
    FROM aufk AS a  
    JOIN afpo AS b ON a~aufnr = b~aufnr  
    JOIN makt AS c ON b~matnr = c~matnr  
    JOIN afko AS d ON d~aufnr = a~aufnr  
    JOIN afvc AS e ON e~aufpl = d~aufpl  
    JOIN crhd AS f ON f~objid = e~arbid  
    JOIN t024f AS g ON g~fevor = d~fevor  
    JOIN resb AS h ON h~aufnr = b~aufnr  
    JOIN makt AS i ON h~matnr = i~matnr  
    JOIN jest AS j ON a~objnr = j~objnr  
  
    WHERE a~aufnr  IN s\_aufnr  
    AND j~stat = 'I0002'  
    AND j~inact IN s\_inact  
    AND dwerk IN s\_dwerk  
    AND b~matnr IN s\_matnr  
    AND dauat IN s\_dauat  
    AND dispo IN s\_dispo  
    AND d~fevor IN s\_fevor  
    AND gstrp IN s\_gstrp  
    AND erdat IN s\_erdat  
    AND ernam IN s\_ernam  
    AND e~aplzl = '1'  
    AND g~werks = '1000'  
    AND h~shkzg = 'H'.  
  
  
  *"dn10 dmin **字段增加*  
  *"**第一步*  
  DATA: BEGIN OF gs\_resb,  
          aufnr    LIKE resb\-aufnr,  
          shkzg    LIKE resb\-shkzg,  
          meins    LIKE resb\-meins,  
          xloek    LIKE resb\-xloek,  
          bdmng    LIKE resb\-bdmng,  
          matnr    LIKE resb\-matnr,  
          charg    LIKE resb\-charg,  
          cuobj\_bm LIKE  mch1\-cuobj\_bm,  
          objek    LIKE ausp\-objek,  
          atinn    LIKE ausp\-atinn,  
          klart    LIKE ausp\-klart, *" 023*  
          atwrt    LIKE ausp\-atwrt,  
          atwrt2   LIKE ausp\-atwrt,  
  
        END OF gs\_resb .  
  DATA : gt\_resb LIKE TABLE OF gs\_resb .  
  
  *"**第二步，第三步*  
  DATA: BEGIN OF gs\_ausp,  
          objek LIKE ausp\-objek,  
          atinn LIKE ausp\-atinn,  
          klart LIKE ausp\-klart, *" 023*  
          atwrt LIKE ausp\-atwrt,  
        END OF gs\_ausp .  
  
  DATA : lv\_atinn LIKE ausp\-atinn .  
*\*  LOOP AT gt\_out INTO gs\_out .*  
  
  CALL FUNCTION 'CONVERSION\_EXIT\_ATINN\_INPUT'  
    EXPORTING  
      input  = 'Z\_BATCH\_21'  
    IMPORTING  
      output = lv\_atinn.  
  
  
  
  SELECT  
    aufnr  *"like resb-aufnr ,*  
    shkzg *"like resb-shkzg,*  
    meins*" like resb-meins,*  
    xloek *"like resb-xloek,*  
    bdmng *"like resb-bdmng,*  
    a~matnr *"like resb-matnr,*  
    a~charg *"like resb-charg,*  
    cuobj\_bm   *" MCH1-CUOBJ\_BM*  
    objek *"like ausp-objek,*  
    atinn *"like ausp-atinn,*  
    klart *"like ausp-klart, " 023*  
    atwrt *"like ausp-atwrt ,*  
   INTO TABLE gt\_resb  
    FROM resb  AS a  
    JOIN  mch1 AS b ON a~matnr = b~matnr AND a~charg = b~charg  
    JOIN ausp AS c ON b~cuobj\_bm = c~objek  
    WHERE a~shkzg = 'H'   AND a~meins = 'KG' AND a~xloek EQ ''  AND a~bdmng <> 0  
     AND c~atinn =  lv\_atinn    AND c~klart = '023'  .  
  
*\*ENDLOOP .*  
  
  DATA:BEGIN OF ls\_resb ,  
         aufnr  LIKE  aufk\-aufnr,  
         bdmng  LIKE resb\-bdmng,  
         atwrt2 TYPE p DECIMALS 6,  
       END OF ls\_resb .  
  DATA : lt\_resb LIKE TABLE OF ls\_resb .  
  
  LOOP AT gt\_resb INTO gs\_resb .  
    MOVE-CORRESPONDING gs\_resb TO ls\_resb .  
    COLLECT ls\_resb INTO lt\_resb .  
    CLEAR: gs\_resb ,ls\_resb .  
  ENDLOOP .  
  
  DATA : ls\_resb2  LIKE   ls\_resb .  
  DATA : lt\_resb2 LIKE TABLE OF ls\_resb .  
  
  LOOP AT gt\_resb INTO gs\_resb .  
    READ TABLE lt\_resb INTO ls\_resb WITH KEY aufnr = gs\_resb\-aufnr .  
    IF sy\-subrc EQ 0 .  
      gs\_resb\-atwrt2 =   gs\_resb\-bdmng \* gs\_resb\-atwrt  /  ls\_resb\-bdmng .  
      MOVE-CORRESPONDING gs\_resb TO ls\_resb2 .  
      COLLECT ls\_resb2 INTO lt\_resb2 .  
    ENDIF .  
  ENDLOOP .  
  
  gt\_Out2 = gt\_out .  
  
  SORT gt\_out2 BY aufnr .  
  
  DELETE ADJACENT DUPLICATES FROM gt\_out2 COMPARING aufnr .  
  
  
  PERFORM frm\_display\_data.  
  
  
FORM frm\_display\_data .  
  
  DATA:  ls\_grid\_settings TYPE lvc\_s\_glay .  
  DATA :  lt\_events        TYPE slis\_t\_event.  
  DATA:  ls\_variant       TYPE disvariant.  
  
  DEFINE append\_field.  
    gs\_fieldcat\-fieldname = &1.  
    gs\_fieldcat\-coltext = &2.  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  
  append\_field: 'DWERK' '工厂' .  
  
  gs\_fieldcat\-fieldname = 'AUFNR'.  
  gs\_fieldcat\-coltext = '生产订单'.  
  gs\_fieldcat\-ref\_table = 'AFKO'.  
  gs\_fieldcat\-ref\_field = 'AUFNR'.  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  append\_field: 'DAUAT' '订单类型' .  
  
  
  gs\_fieldcat\-fieldname = 'MATNR'.  
  gs\_fieldcat\-coltext = '物料代码'.  
  gs\_fieldcat\-ref\_table = 'MSEG'.  
  gs\_fieldcat\-ref\_field = 'MATNR'.  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  
  append\_field: 'MAKTX' '物料描述' .  
  append\_field: 'PSMNG' '订单计划数量' .  
  append\_field: 'WEMNG' '已入库数量' .  
  append\_field: 'LGORT' '收货地点' .  
  append\_field: 'GSTRP' '订单开始日期' .  
  append\_field: 'GLTRP' '订单结束日期' .  
  append\_field: 'ERDAT' '创建日期' .  
  append\_field: 'ERNAM' '创建账号' .  
  append\_field: 'DISPO' 'MRP控制者' .  
  
  
  gs\_fieldcat\-fieldname = 'KUNNR'.  
  gs\_fieldcat\-coltext = '客户编码'.  
  gs\_fieldcat\-ref\_table = 'KNA1'.  
  gs\_fieldcat\-ref\_field = 'KUNNR'.  
  gs\_fieldcat\-edit = 'X' .  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  
  gs\_fieldcat\-fieldname = 'NAME1'.  
  gs\_fieldcat\-coltext = '客户名称'.  
  gs\_fieldcat\-ref\_table = 'KNA1'.  
  gs\_fieldcat\-ref\_field = 'NAME1'.  
  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  
  append\_field: 'FEVOR' '生产调度员' .  
  append\_field: 'TXT' '生产车间' .  
  append\_field: 'ABLAD' '客户批次号' .  
  append\_field: 'ARBPL ' '生产工序' .  
  
  
  
  gs\_layout\-box\_fname = 'MARK'.  
  
  gs\_layout\-cwidth\_opt = 'X'.   *"**列宽自适应*  
  gs\_layout\-zebra      = 'X'.      *"**斑马线*  
  
  ls\_grid\_settings\-edt\_cll\_cb = abap\_true.  
*\*  ls\_grid\_settings-edt\_cll\_cb =  'X'.*  
  ls\_variant\-report = sy\-repid.  
  
  APPEND VALUE \#( name = 'CALLER\_EXIT'  
                form = 'SET\_HANDLER'  
              ) TO lt\_events.  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
    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\_lvc            = gs\_layout  
      it\_fieldcat\_lvc          = gt\_fieldcat  
      i\_save                   = 'A'  
      i\_grid\_settings          = ls\_grid\_settings  
      it\_events                = lt\_events  
      is\_variant               = ls\_variant  
*\*     ES\_EXIT\_CAUSED\_BY\_USER   =*  
    TABLES  
      t\_outtab                 = gt\_out2  
    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 'CHK' .  
    PERFORM  cell\_check .  
    us\_selfield\-refresh = 'X'.  
  ENDIF  .  
  
  
  IF  sy\-ucomm EQ 'PRINT' OR  sy\-ucomm EQ 'PRINT2' .  
  
  
    IF sy\-ucomm EQ 'PRINT'  .  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZSFPP009'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
  
    ELSE .  
  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZSFPP009B'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
  
    ENDIF .  
  
    gw\_options\-tdnewid = 'X'.    *"New Spool*  
    gw\_options\-tdimmed = 'X'.  
    gw\_options\-tddelete = 'X'.    *"Delete Spool After Print*  
    gw\_options\-tdfinal = 'X'.  
    gw\_options\-tdiexit = 'X'.    *"Exit after printing in print preview*  
    gw\_options\-tddest = 'LP01'.  
  
*\*    gw\_control-no\_dialog = 'X'.*  
    gw\_control\-preview   = 'X'.  
    gw\_control\-no\_open   = 'X'.  
    gw\_control\-no\_close  = 'X'.  
    CALL FUNCTION 'SSF\_OPEN'    *"**打开打印窗口*  
      EXPORTING  
        control\_parameters = gw\_control  
        output\_options     = gw\_options  
        user\_settings      = ''  
      EXCEPTIONS  
        formatting\_error   = 1  
        internal\_error     = 2  
        send\_error         = 3  
        user\_canceled      = 4  
        OTHERS             = 5.  
  
    LOOP  AT  gt\_out2  INTO gs\_out2 WHERE mark EQ 'X'  .  
      LOOP AT gt\_out INTO gs\_out WHERE aufnr = gs\_out2\-aufnr.  
  
        APPEND gs\_out TO lt\_out .  
  
      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\_out  
*\*         it\_bkpf            = lt\_bkpf*  
        EXCEPTIONS  
          formatting\_error   = 1  
          internal\_error     = 2  
          send\_error         = 3  
          user\_canceled      = 4  
          OTHERS             = 5.  
      CLEAR: lt\_out\[\] .  
  
    ENDLOOP .  
  
    CALL FUNCTION 'SSF\_CLOSE'  
      EXCEPTIONS  
        formatting\_error = 1  
        internal\_error   = 2  
        send\_error       = 3  
        OTHERS           = 4.  
  
  
  ENDIF.  
  
  
ENDFORM .  
  
  
  
  
CLASS lcl\_event\_receiver DEFINITION.  
  PUBLIC SECTION.  
    METHODS:  
      on\_data\_change FOR EVENT data\_changed OF cl\_gui\_alv\_grid  
        IMPORTING  
          er\_data\_changed.  
  
  PRIVATE SECTION.  
    METHODS:  
      set\_zwcl  
        IMPORTING  
          ps\_good         TYPE lvc\_s\_modi  
          pr\_data\_changed TYPE REF TO cl\_alv\_changed\_data\_protocol.  
  
ENDCLASS.  
  
CLASS lcl\_event\_receiver IMPLEMENTATION.  
  
  METHOD on\_data\_change.  
    DATA:  
      ls\_good TYPE lvc\_s\_modi.  
  
    LOOP AT er\_data\_changed\->mt\_good\_cells INTO ls\_good.  
      CASE ls\_good\-fieldname.  
        WHEN 'KUNNR'.  
          set\_zwcl(  
            EXPORTING  
               ps\_good = ls\_good  
               pr\_data\_changed = er\_data\_changed ).  
      ENDCASE.  
    ENDLOOP.  
  
  ENDMETHOD.  
  
  
  METHOD set\_zwcl.  
    DATA: lv\_kunnr TYPE  kna1\-kunnr .  
    DATA: lv\_name1 TYPE  kna1\-name1 .  
  
  
    pr\_data\_changed\->get\_cell\_value(  
      EXPORTING  
        i\_row\_id    = ps\_good\-row\_id  
        i\_fieldname = ps\_good\-fieldname  
      IMPORTING  
        e\_value     = lv\_kunnr ).  
  
    pr\_data\_changed\->get\_cell\_value(  
      EXPORTING  
        i\_row\_id    = ps\_good\-row\_id  
        i\_fieldname = 'KUNNR'  
      IMPORTING  
        e\_value     = lv\_kunnr ).  
  
*\*    if lv\_zjhhk <> 0.*  
  
*\*      lv\_zwcl = lv\_zsjhk / lv\_zjhhk \* 100.*  
  
*\*    endif.*  
  
    SELECT SINGLE name1 INTO lv\_name1 FROM kna1 WHERE kunnr  = lv\_kunnr .  
  
    pr\_data\_changed\->modify\_cell(  
      EXPORTING  
        i\_fieldname = 'NAME1'  
        i\_row\_id    = ps\_good\-row\_id  
        i\_value     = lv\_name1 ).  
  
  
  ENDMETHOD.  
  
ENDCLASS.  
  
FORM set\_handler USING p\_grid TYPE slis\_data\_caller\_exit.  
  DATA:  
    lr\_event\_receiver TYPE REF TO lcl\_event\_receiver,  
    lr\_grid           TYPE REF TO cl\_gui\_alv\_grid.  
  
  CALL FUNCTION 'GET\_GLOBALS\_FROM\_SLVC\_FULLSCR'  
    IMPORTING  
      e\_grid = lr\_grid.  
  
  CREATE OBJECT lr\_event\_receiver.  
  
  SET HANDLER: lr\_event\_receiver\->on\_data\_change FOR lr\_grid.  
  
ENDFORM.  
  
  
  
*\*&---------------------------------------------------------------------\**  
*\*& Form cell\_check*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM cell\_check .  
      DATA: I TYPE I .  
  
  
      I = 6 .  
ENDFORM.

[20200518194954956.png]: https://img-blog.csdnimg.cn/20200518194954956.png