abap report alv双击弹出屏幕 REUSE_ALV_GRID_DISPLAY 函数（屏幕显示内表数据）

た入场券 2022-11-10 01:24 264阅读 0赞

需求是这样的比如我双击alv想查看里面具体内容

![20210316092241422.png][]

双击任一 一行再弹出个界面

![20210316092358947.png][]

废话不多说 --开始放代码：

定义内表**GT\_VBAP 显示数据内表  GT\_FIELDCAT 弹出界面要显示的字段**

从这开始----------------------------------------

TYPES:BEGIN OF TS\_VBAP,  
        VBELN          TYPE  VBAP-VBELN,  
        POSNR          TYPE  VBAP-POSNR,  
        MATNR          TYPE  VBAP-MATNR,  
      END OF TS\_VBAP.

DATA **GT\_VBAP** TYPE TABLE OF TS\_VBAP.

DATA **GT\_FIELDCAT** TYPE SLIS\_T\_FIELDCAT\_ALV.

"下面是就是要实现的form

FORM DISPLAY\_DATA .  
    PERFORM SET\_FIELDCAT.  
    CALL FUNCTION '**REUSE\_ALV\_GRID\_DISPLAY**'     **"系统标准函数**  
    EXPORTING  
     \*   I\_INTERFACE\_CHECK                 = ' '  
     \*   I\_BYPASSING\_BUFFER                = ' '  
     \*   I\_BUFFER\_ACTIVE                   = ' '  
     \*   I\_CALLBACK\_PROGRAM                = ' '  
     \*   I\_CALLBACK\_PF\_STATUS\_SET          = ' '  
     \*   I\_CALLBACK\_USER\_COMMAND           = ' '  
     \*   I\_CALLBACK\_TOP\_OF\_PAGE            = ' '  
     \*   I\_CALLBACK\_HTML\_TOP\_OF\_PAGE       = ' '  
     \*   I\_CALLBACK\_HTML\_END\_OF\_LIST       = ' '  
     \*   I\_STRUCTURE\_NAME                  =  
     \*   I\_BACKGROUND\_ID                   = ' '  
     \*   I\_GRID\_TITLE                      =  
     \*   I\_GRID\_SETTINGS                   =  
     \*   IS\_LAYOUT                         =  
       IT\_FIELDCAT                       = **GT\_FIELDCAT "要显示哪些字段**  
     \*   IT\_EXCLUDING                      =  
     \*   IT\_SPECIAL\_GROUPS                 =  
     \*   IT\_SORT                           =  
     \*   IT\_FILTER                         =  
     \*   IS\_SEL\_HIDE                       =  
     \*   I\_DEFAULT                         = 'X'  
     \*   I\_SAVE                            = ' '  
     \*   IS\_VARIANT                        =  
     \*   IT\_EVENTS                         =  
     \*   IT\_EVENT\_EXIT                     =  
     \*   IS\_PRINT                          =  
     \*   IS\_REPREP\_ID                      =  
     \*   I\_SCREEN\_START\_COLUMN             = 0  
     \*   I\_SCREEN\_START\_LINE               = 0  
     \*   I\_SCREEN\_END\_COLUMN               = 0  
     \*   I\_SCREEN\_END\_LINE                 = 0  
     \*   I\_HTML\_HEIGHT\_TOP                 = 0  
     \*   I\_HTML\_HEIGHT\_END                 = 0  
     \*   IT\_ALV\_GRAPHICS                   =  
     \*   IT\_HYPERLINK                      =  
     \*   IT\_ADD\_FIELDCAT                   =  
     \*   IT\_EXCEPT\_QINFO                   =  
     \*   IR\_SALV\_FULLSCREEN\_ADAPTER        =  
     \* IMPORTING  
     \*   E\_EXIT\_CAUSED\_BY\_CALLER           =  
     \*   ES\_EXIT\_CAUSED\_BY\_USER            =  
      TABLES  
        T\_OUTTAB                          = **GT\_VBAP  "要输出内表数据**  
     \* EXCEPTIONS  
     \*   PROGRAM\_ERROR                     = 1  
     \*   OTHERS                            = 2  
          .  
    IF SY-SUBRC <> 0.  
     \* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  
     \*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
    ENDIF.  
ENDFORM.                    " DISPLAY\_DATA

到此结束 ---------------------------------------

PERFORM GET\_DATA."取数据到内表

FORM GET\_DATA .  
  SELECT  VBELN  
          POSNR  
          MATNR  
          VRKME  
   FROM VBAP  
   INTO TABLE GT\_VBAP  
   WHERE MATNR = P\_MATNR.  
ENDFORM.                    " GET\_DATA

PERFORM SET\_FIELDCAT."读取要显示几个字段

FORM SET\_FIELDCAT .  
  DATA : LS\_FIELDCAT LIKE LINE OF GT\_FIELDCAT.

LS\_FIELDCAT-FIELDNAME = 'VBELN'.  
  APPEND LS\_FIELDCAT TO GT\_FIELDCAT.  
  CLEAR LS\_FIELDCAT.

LS\_FIELDCAT-FIELDNAME = 'POSNR'.  
  APPEND LS\_FIELDCAT TO GT\_FIELDCAT.  
  CLEAR LS\_FIELDCAT.

ENDFORM.                    " SET\_FIELDCAT

[20210316092241422.png]: /images/20221023/c323267cf3704ad7bd1157ebfc063938.png
[20210316092358947.png]: /images/20221023/6a495ad367c24585b568799a8b5b4b1c.png