SAP ALV demo—自用详解编程语言

      留着自己用，很多代码都是可以复用的，每次开发ALV都重新写一遍太浪费时间了。

*&---------------------------------------------------------------------* 
*& Report ZPPU_TEST 
*&---------------------------------------------------------------------* 
*& 
*&---------------------------------------------------------------------* 
REPORT ZALV_TEST. 
 
TYPE-POOLS:SLIS. 
TABLES:VBAP,SSCRFIELDS. 
 
*----------------------------------------------------------------------* 
*       ALV定义 
*----------------------------------------------------------------------* 
DATA: GW_FIELDCAT TYPE SLIS_FIELDCAT_ALV, 
      GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, 
      G_LAYOUT    TYPE SLIS_LAYOUT_ALV. 
 
*----------------------------------------------------------------------* 
* 内表和工作区定义 
*----------------------------------------------------------------------* 
TYPES:BEGIN OF TY_ALV, 
        SEL    TYPE CHAR1, 
        VBELN  TYPE VBAP-VBELN, 
        POSNR  TYPE VBAP-POSNR, 
        MATNR  TYPE VBAP-MATNR, 
        CHARG  TYPE VBAP-CHARG, 
        NETWR  TYPE VBAP-NETWR, 
        KWMENG TYPE VBAP-KWMENG, 
      END OF TY_ALV. 
 
 
DATA:GT_ALV TYPE TABLE OF TY_ALV, 
     WA_ALV TYPE TY_ALV. 
 
*----------------------------------------------------------------------* 
* 选择屏幕 
*----------------------------------------------------------------------* 
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. 
SELECT-OPTIONS: 
 
S_VBELN FOR VBAP-VBELN.            "订单号 
 
SELECTION-SCREEN END OF BLOCK B1. 
 
 
*----------------------------------------------------------------------* 
* Initialization 
*----------------------------------------------------------------------* 
INITIALIZATION. 
 
 
*----------------------------------------------------------------------* 
* at selection screen 
*----------------------------------------------------------------------* 
AT SELECTION-SCREEN OUTPUT. 
 
AT SELECTION-SCREEN. 
*----------------------------------------------------------------------* 
* Event top of page 
*----------------------------------------------------------------------* 
 
 
TOP-OF-PAGE. 
*----------------------------------------------------------------------* 
* event Start of Selection 
*----------------------------------------------------------------------* 
START-OF-SELECTION. 
 
  PERFORM FRM_GET_DATA. 
  PERFORM FRM_LAYOUT_BUILD. 
  PERFORM FRM_FIELD_BUILD. 
  PERFORM FRM_DATA_OUT. 
 
*----------------------------------------------------------------------* 
*EVENT End-of selection 
*----------------------------------------------------------------------* 
END-OF-SELECTION. 
 
*----------------------------------------------------------------------* 
*EVENT  End-of page 
*----------------------------------------------------------------------* 
END-OF-PAGE. 
*----------------------------------------------------------------------* 
*----------------------------------------------------------------------* 
** forms 
*----------------------------------------------------------------------* 
*&---------------------------------------------------------------------* 
*&      Form  FRM_CHECK_AUTHORITY 
*&---------------------------------------------------------------------* 
*       "  检查权限 
*----------------------------------------------------------------------* 
FORM FRM_CHECK_AUTHORITY. 
 
ENDFORM. 
 
 
*----------------------------------------------------------------------* 
** forms 
*----------------------------------------------------------------------* 
*&---------------------------------------------------------------------* 
*&      Form  FRM_LAYOUT_BUILD 
*&---------------------------------------------------------------------* 
*       "  设置表格样式 
*----------------------------------------------------------------------* 
FORM FRM_LAYOUT_BUILD . 
  G_LAYOUT-BOX_FIELDNAME        = 'SEL'.  " 选择模式，在最左端有选择按钮 
  G_LAYOUT-COLWIDTH_OPTIMIZE    = 'X'.    " 自动调整列宽 
  G_LAYOUT-ZEBRA                = 'X'.    " 表格斑马线 
  "G_LAYOUT-EDIT = 'X'.                     "可编辑 
  G_LAYOUT-INFO_FIELDNAME       = 'CLR'. 
ENDFORM. 
*&---------------------------------------------------------------------* 
*&      Form  FRM_FIELD_BUILD 
*&---------------------------------------------------------------------* 
*       "  建立表头数据 
*----------------------------------------------------------------------* 
FORM FRM_FIELD_BUILD . 
  CLEAR GT_FIELDCAT. 
  PERFORM FIELD_SET: 
                     USING 'VBELN'  '销售订单号'   '15' 'X' , 
                     USING 'POSNR'  '行号'   '15' '' , 
                     USING 'MATNR'  '产品编码'   '15' '' , 
                     USING 'CHARG'  '批次'   '15' '' , 
                     USING 'NETWR'  '净值'   '15' '' , 
                     USING 'KWMENG'  '订单数量'   '15' ''. 
ENDFORM. 
 
*&---------------------------------------------------------------------* 
*&      Form  FRM_DATA_OUT 
*&---------------------------------------------------------------------* 
*       输出数据 
*----------------------------------------------------------------------* 
FORM FRM_DATA_OUT. 
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' 
    EXPORTING 
      I_CALLBACK_PROGRAM       = SY-REPID 
      IS_LAYOUT                = G_LAYOUT 
      IT_FIELDCAT              = GT_FIELDCAT 
      I_SAVE                   = 'X' 
      I_CALLBACK_PF_STATUS_SET = 'FRM_STATE' 
      I_CALLBACK_USER_COMMAND  = 'FRM_USER_COMMAND' 
    TABLES 
      T_OUTTAB                 = GT_ALV 
    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. 
*&---------------------------------------------------------------------* 
*&      Form  FRM_SET_PF_STATUS 
*&---------------------------------------------------------------------* 
FORM FRM_STATE USING RT_EXTAB TYPE SLIS_T_EXTAB. 
  SET PF-STATUS 'STANDARD'. 
ENDFORM. 
*&---------------------------------------------------------------------* 
*&      Form  FRM_USER_COMMAND 
*&---------------------------------------------------------------------* 
FORM FRM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM 
                             RS_SELFIELD TYPE SLIS_SELFIELD. 
  READ TABLE GT_ALV INTO WA_ALV INDEX RS_SELFIELD-TABINDEX. 
  CHECK SY-SUBRC = 0. 
 
  CASE R_UCOMM. 
 
    WHEN '&IC1'. 
      SET PARAMETER ID 'AUN' FIELD WA_ALV-VBELN. 
      CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN. 
 
    WHEN 'PRT'. 
      PERFORM FRM_PRINT. 
 
  ENDCASE. 
 
 
ENDFORM. 
 
*&---------------------------------------------------------------------* 
*&      Form  FIELD_SET 
*&---------------------------------------------------------------------* 
FORM FIELD_SET USING P_FIELDNAME 
                     P_SELTEXT_L 
                     P_OUTPUTLEN 
                     P_HOTSPOT. 
  GW_FIELDCAT-FIELDNAME     = P_FIELDNAME . 
  GW_FIELDCAT-SELTEXT_L     = P_SELTEXT_L . 
  GW_FIELDCAT-OUTPUTLEN     = P_OUTPUTLEN . 
  GW_FIELDCAT-HOTSPOT   = P_HOTSPOT. 
  APPEND GW_FIELDCAT TO GT_FIELDCAT. 
  CLEAR GW_FIELDCAT. 
ENDFORM. 
*&---------------------------------------------------------------------* 
*&      Form  FRM_GET_DATA 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
FORM FRM_GET_DATA . 
 
  SELECT 
    VBAP~VBELN 
    VBAP~POSNR 
    VBAP~KWMENG 
    VBAP~MATNR 
    VBAP~NETWR 
    VBAP~CHARG 
    INTO CORRESPONDING FIELDS OF TABLE GT_ALV 
    FROM VBAP 
    WHERE VBAP~VBELN IN S_VBELN. 
 
  "整理数据 
 
  SORT: GT_ALV  BY VBELN POSNR. 
 
ENDFORM. 
 
FORM FRM_PRINT. 
 
  DATA:FM_NAME  TYPE  RS38L_FNAM. 
 
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' 
    EXPORTING 
      FORMNAME           = 'ZPPU_TEST' 
    IMPORTING 
      FM_NAME            = FM_NAME 
    EXCEPTIONS 
      NO_FORM            = 1 
      NO_FUNCTION_MODULE = 2 
      OTHERS             = 3. 
 
  CALL FUNCTION FM_NAME 
    EXPORTING 
      USER_SETTINGS    = 'X' 
    TABLES 
      IT_DATA          = GT_ALV 
    EXCEPTIONS 
      FORMATTING_ERROR = 1 
      INTERNAL_ERROR   = 2 
      SEND_ERROR       = 3 
      USER_CANCELED    = 4. 
 
ENDFORM.