【实用】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 ALVGS_LAYOUT TYPE SLIS_LAYOUT_ALV,
* Change document headerT_CDHDR   TYPE TABLE OF TY_S_CDHDR.*---------------------------------------------------------------------*
START-OF-SELECTION.* Read Change document headerSELECT * INTO TABLE T_CDHDRUP TO P_MAX ROWSFROM CDHDRWHERE OBJECTCLAS IN S_OBJCLSAND OBJECTID IN S_OBJTIDAND CHANGENR IN S_CHNGNRAND USERNAME IN S_USRNAMAND UDATE IN S_UDATEAND UTIME IN S_TIMEAND TCODE IN S_TCODEAND PLANCHNGNR IN S_PLNCNRAND ACT_CHNGNO IN S_CHNGNOAND WAS_PLANND IN S_WSPLNDAND CHANGE_IND IN S_CHNGID.GS_LAYOUT-ZEBRA = 'X'.GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.GS_LAYOUT-BOX_FIELDNAME = 'CHECKBOX'.* Display ALVCALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'EXPORTINGI_CALLBACK_PROGRAM      = SY-CPROGI_CALLBACK_USER_COMMAND = 'USER_COMMAND'I_STRUCTURE_NAME        = 'CDHDR'IS_LAYOUT               = GS_LAYOUTTABLEST_OUTTAB                = T_CDHDR.*---------------------------------------------------------------------*
* FORM USER_COMMAND *
*---------------------------------------------------------------------*
FORM USER_COMMAND USING U_UCOMM TYPE SYUCOMMUS_SELFIELD TYPE SLIS_SELFIELD.                       "#EC CALLED* Macro definitionDEFINE 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 itemsLT_CDPOS TYPE TABLE OF TY_S_CDPOS.CASE U_UCOMM.WHEN '&IC1'.PERFORM CHECK_MARKED USING US_SELFIELD.* Read Change document itemsLOOP AT T_CDHDR INTO LS_CDHDR WHERE CHECKBOX = 'X'.SELECT * APPENDING TABLE LT_CDPOSFROM CDPOSWHERE OBJECTCLAS = LS_CDHDR-OBJECTCLASAND OBJECTID = LS_CDHDR-OBJECTIDAND CHANGENR = LS_CDHDR-CHANGENR.ENDLOOP.M_SORT 'CHANGENR'.* Display ALVCALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'EXPORTINGI_STRUCTURE_NAME = 'CDPOS'IS_LAYOUT        = GS_LAYOUTIT_SORT          = LT_SORTTABLEST_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 ANDNOT US_SELFIELD-TABINDEX IS INITIAL.READ TABLE T_CDHDR INDEX US_SELFIELD-TABINDEX ASSIGNING <FS>.<FS>-CHECKBOX = 'X'.ENDIF.ENDFORM. " CHECK_MARKED

【实用】SAP修改记录表开发相关推荐

SAP UI5 应用开发教程之三十六 - 使用 Chrome 开发者工具 Elements 标签动态修改 CSS 类试读版
一套适合 SAP UI5 初学者循序渐进的学习教程教程目录 SAP UI5 本地开发环境的搭建 SAP UI5 应用开发教程之一:Hello World SAP UI5 应用开发教程之二:SAP U ...
SAP UI5 应用开发教程之一百 - 如何修改 SAP UI5 框架的源代码实现，以及使用本地部署的 SAP UI5 SDK 试读版
一套适合 SAP UI5 初学者循序渐进的学习教程作者简介 Jerry Wang,2007 年从电子科技大学计算机专业硕士毕业后加入 SAP 成都研究院工作至今.Jerry 是 SAP 社区导师,S ...
SAP UI5 应用开发教程之三十六 - 使用 Chrome 开发者工具 Elements 标签动态修改 CSS 类
本教程的前面一系列步骤,我们或多或少已经使用了 Chrome 开发者工具来学习 SAP UI5 应用的开发,比如通过 Elements 标签页查看 SAP UI5 XML 视图里定义的控件,运行时生成 ...
SAP UI5 应用开发教程之五十五 - 如何将本地 SAP UI5 应用通过 Node.js Express 部署到公网上试读版
一套适合 SAP UI5 初学者循序渐进的学习教程教程目录 SAP UI5 本地开发环境的搭建 SAP UI5 应用开发教程之一:Hello World SAP UI5 应用开发教程之二:SAP U ...
SAP UI5 应用开发教程之五十五 - 如何将本地 SAP UI5 应用通过 Node.js Express 部署到公网上
本教程迄今为止的前 54 个步骤,开发出来的 SAP UI5 应用都只能在本地通过 localhost 访问,除非将其部署到 ABAP 服务器上. SAP UI5 应用开发教程之三十五 - 如何把本地 ...
一个 SAP 成都研究院开发工程师的2021年度总结：既没有厚积，也未能薄发
今年年初的时候,我收到了从 CSDN 社区寄出的这本台历:了不起的程序员 2021. 今天,这本厚厚的台历差不多已经快翻到封底了.2021 年的一天天就随着这一页页被翻去的台历而逝去了.又到了年底做年 ...
SAP UI5 应用开发教程之六十七 - 基于 OData V4 的 SAP UI5 List-Detail(列表-明细)布局的实现方式试读版
一套适合 SAP UI5 初学者循序渐进的学习教程教程目录 SAP UI5 本地开发环境的搭建 SAP UI5 应用开发教程之一:Hello World SAP UI5 应用开发教程之二:SAP U ...
SAP UI5 应用开发教程之六十六 - 基于 OData V4 的 SAP UI5 表格控件如何实现删除功能试读版
一套适合 SAP UI5 初学者循序渐进的学习教程教程目录 SAP UI5 本地开发环境的搭建 SAP UI5 应用开发教程之一:Hello World SAP UI5 应用开发教程之二:SAP U ...
SAP UI5 应用开发教程之六十四 - 基于 OData V4 的 SAP UI5 表格控件如何实现 filter(过滤) 和 sort(排序)功能试读版
一套适合 SAP UI5 初学者循序渐进的学习教程教程目录 SAP UI5 本地开发环境的搭建 SAP UI5 应用开发教程之一:Hello World SAP UI5 应用开发教程之二:SAP U ...

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

【实用】SAP修改记录表开发相关推荐

最新文章

热门文章