【实用】SAP修改记录表开发

首先我们看一下运行效果图：

大部分都是CDHDR表的查询字段。

双击某一行可以查看具体的修改明细字段。

源代码：

REPORT Z_ALV_CDHDR_CDPOS.TYPE-POOLS SLIS.DATA : CDHDR TYPE CDHDR.SELECT-OPTIONS :        S_OBJCLS FOR CDHDR-OBJECTCLAS OBLIGATORY,        S_OBJTID FOR CDHDR-OBJECTID,        S_CHNGNR FOR CDHDR-CHANGENR,        S_USRNAM FOR CDHDR-USERNAME,        S_UDATE FOR CDHDR-UDATE,        S_TIME FOR CDHDR-UTIME,        S_TCODE FOR CDHDR-TCODE,        S_PLNCNR FOR CDHDR-PLANCHNGNR,        S_CHNGNO FOR CDHDR-ACT_CHNGNO,        S_WSPLND FOR CDHDR-WAS_PLANND,        S_CHNGID FOR CDHDR-CHANGE_IND.SELECTION-SCREEN SKIP.PARAMETERS P_MAX TYPE NUMC3 OBLIGATORY DEFAULT '200'.*---------------------------------------------------------------------*TYPES :BEGIN OF TY_S_CDHDR.        INCLUDE STRUCTURE CDHDR.TYPES : CHECKBOX,        END OF TY_S_CDHDR,        BEGIN OF TY_S_CDPOS.        INCLUDE STRUCTURE CDPOS.TYPES : CHECKBOX,END OF TY_S_CDPOS.*---------------------------------------------------------------------*DATA :* Layout for ALV  GS_LAYOUT TYPE SLIS_LAYOUT_ALV,* Change document header  T_CDHDR   TYPE TABLE OF TY_S_CDHDR.*---------------------------------------------------------------------*START-OF-SELECTION.* Read Change document header  SELECT * INTO TABLE T_CDHDR  UP TO P_MAX ROWS  FROM CDHDR  WHERE OBJECTCLAS IN S_OBJCLS  AND OBJECTID IN S_OBJTID  AND CHANGENR IN S_CHNGNR  AND USERNAME IN S_USRNAM  AND UDATE IN S_UDATE  AND UTIME IN S_TIME  AND TCODE IN S_TCODE  AND PLANCHNGNR IN S_PLNCNR  AND ACT_CHNGNO IN S_CHNGNO  AND WAS_PLANND IN S_WSPLND  AND CHANGE_IND IN S_CHNGID.  GS_LAYOUT-ZEBRA = 'X'.  GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.  GS_LAYOUT-BOX_FIELDNAME = 'CHECKBOX'.* Display ALV  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'    EXPORTING      I_CALLBACK_PROGRAM      = SY-CPROG      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'      I_STRUCTURE_NAME        = 'CDHDR'      IS_LAYOUT               = GS_LAYOUT    TABLES      T_OUTTAB                = T_CDHDR.*---------------------------------------------------------------------** FORM USER_COMMAND **---------------------------------------------------------------------*FORM USER_COMMAND USING U_UCOMM TYPE SYUCOMM      US_SELFIELD TYPE SLIS_SELFIELD.                       "#EC CALLED* Macro definition  DEFINE M_SORT.    ADD 1 TO ls_sort-spos.    ls_sort-fieldname = &1.    ls_sort-UP = 'X'.    APPEND ls_sort TO lt_sort.  END-OF-DEFINITION.  DATA :    LS_CDHDR TYPE TY_S_CDHDR,    LS_SORT  TYPE SLIS_SORTINFO_ALV,    LT_SORT  TYPE SLIS_T_SORTINFO_ALV,* Change document items    LT_CDPOS TYPE TABLE OF TY_S_CDPOS.  CASE U_UCOMM.    WHEN '&IC1'.      PERFORM CHECK_MARKED USING US_SELFIELD.* Read Change document items      LOOP AT T_CDHDR INTO LS_CDHDR WHERE CHECKBOX = 'X'.        SELECT * APPENDING TABLE LT_CDPOS        FROM CDPOS        WHERE OBJECTCLAS = LS_CDHDR-OBJECTCLAS        AND OBJECTID = LS_CDHDR-OBJECTID        AND CHANGENR = LS_CDHDR-CHANGENR.      ENDLOOP.      M_SORT 'CHANGENR'.* Display ALV      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'        EXPORTING          I_STRUCTURE_NAME = 'CDPOS'          IS_LAYOUT        = GS_LAYOUT          IT_SORT          = LT_SORT        TABLES          T_OUTTAB         = LT_CDPOS.  ENDCASE.ENDFORM. " USER_COMMAND*---------------------------------------------------------------------** Form CHECK_MARKED*---------------------------------------------------------------------** What has been marked in t_cdhdr*---------------------------------------------------------------------*FORM CHECK_MARKED USING US_SELFIELD TYPE SLIS_SELFIELD.  FIELD-SYMBOLS : <FS>    TYPE TY_S_CDHDR.  READ TABLE T_CDHDR TRANSPORTING NO FIELDS WITH KEY CHECKBOX = 'X'.  IF NOT SY-SUBRC IS INITIAL AND  NOT US_SELFIELD-TABINDEX IS INITIAL.    READ TABLE T_CDHDR INDEX US_SELFIELD-TABINDEX ASSIGNING <FS>.    <FS>-CHECKBOX = 'X'.  ENDIF.ENDFORM. " CHECK_MARKED