SAP修改记录表开发x

本文格式为Word版，下载可任意编辑——SAP修改记录表开发xSAP修改记录表开发首先我们看一下运行效果图：

大片面都是CDHDR表的查询字段。

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

源代码：

REPORTZ_ALV_CDHDR_CDPOS.

TYPE-POOLSSLIS.

DATA:CDHDRTYPECDHDR.

SELECT-OPTIONS:

S_OBJCLSFORCDHDR-OBJECTCLASOBLIGATORY,

S_OBJTIDFORCDHDR-OBJECTID,

S_CHNGNRFORCDHDR-CHANGENR,

S_USRNAMFORCDHDR-USERNAME,

S_UDATEFORCDHDR-UDATE,

S_TIMEFORCDHDR-UTIME,

S_TCODEFORCDHDR-TCODE,

S_PLNCNRFORCDHDR-PLANCHNGNR,

S_CHNGNOFORCDHDR-ACT_CHNGNO,

S_WSPLNDFORCDHDR-WAS_PLANND,

S_CHNGIDFORCDHDR-CHANGE_IND.

SELECTION-SCREENSKIP.

PARAMETERSP_MAXTYPENUMC3OBLIGATORYDEFAULT"200".

**

TYPES:

BEGINOFTY_S_CDHDR.

INCLUDESTRUCTURECDHDR.

TYPES:CHECKBOX,

ENDOFTY_S_CDHDR,

BEGINOFTY_S_CDPOS.

INCLUDESTRUCTURECDPOS.

TYPES:CHECKBOX,

ENDOFTY_S_CDPOS.

**

DATA:

*LayoutforALV

GS_LAYOUTTYPESLIS_LAYOUT_ALV,

*Changedocumentheader

T_CDHDR

TYPETABLEOFTY_S_CDHDR.

**

START-OF-SELECTION.

*ReadChangedocumentheader

SELECT*INTOTABLET_CDHDR

UPTOP_MAXROWS

FROMCDHDR

WHEREOBJECTCLASINS_OBJCLS

ANDOBJECTIDINS_OBJTID

ANDCHANGENRINS_CHNGNR

ANDUSERNAMEINS_USRNAM

ANDUDATEINS_UDATE

ANDUTIMEINS_TIME

ANDTCODEINS_TCODE

ANDPLANCHNGNRINS_PLNCNR

ANDACT_CHNGNOINS_CHNGNO

ANDWAS_PLANNDINS_WSPLND

ANDCHANGE_INDINS_CHNGID.

GS_LAYOUT-ZEBRA="X".

GS_LAYOUT-COLWIDTH_OPTIMIZE="X".

GS_LAYOUT-BOX_FIELDNAME="CHECKBOX".

*DisplayALV

CALLFUNCTION"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.

**

*FORMUSER_COMMAND*

**

FORMUSER_COMMANDUSINGU_UCOMMTYPESYUCOMM

US_SELFIELDTYPESLIS_SELFIELD.

#ECCALLED

*Macrodefinition

DEFINEM_SORT.

ADD1TOls_sort-spos.

ls_sort-fieldname=1.

ls_sort-UP="X".

APPENDls_sortTOlt_sort.

END-OF-DEFINITION.

DATA:

LS_CDHDRTYPETY_S_CDHDR,

LS_SORT

TYPESLIS_SORTINFO_ALV,

LT_SORT

TYPESLIS_T_SORTINFO_ALV,

*Changedocumentitems

LT_CDPOSTYPETABLEOFTY_S_CDPOS.

CASEU_UCOMM.

WHEN"IC1".

PERFORMCHECK_MARKEDUSINGUS_SELFIELD.

*ReadChangedocumentitems

LOOPATT_CDHDRINTOLS_CDHDRWHERECHECKBOX="X".

SELECT*APPENDINGTABLELT_CDPOS

FROMCDPOS

WHEREOBJECTCLAS=LS_CDHDR-OBJECTCLAS

ANDOBJECTID=LS_CDHDR-OBJECTID

ANDCHANGENR=LS_CDHDR-CHANGENR.

ENDLOOP.

M_SORT"CHANGENR".

*DisplayALV

CALLFUNCTION"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

**

*FormCHECK_MARKED

**

*Whathasbeenmarkedint_cdhdr

**

FORMCHECK_MARKEDUSINGUS_SELFIELDTYPESLIS_SELFIELD.

FIELD-SYMBOLS:FS

TYPETY_S_CDHDR.

READTABLET_CDHDRTRANSPORTINGNOFIELDSWITHKEYCHECKBOX="X".

IFNOTSY-SUBRCISINITIAL