标签:SY YFG AUTOSMS 创建 更改 COLS VIM 日期 PM
在实际开发需求中,为了使客制功能具有灵活的可配置性,通常采用开发功能+配置表的形式处理。有些客制的配置功能需要追溯到谁在什么时候增加了什么配置,或者谁在什么时候更改了什么位置,配置表的Log功能就显得很有必要了。以下过程说明SAP在配置表中如何实现配置表的Log功能。
说明:本文中的截图皆为作者本人编写和制作,如果转载或引用请务必通知作者本人!!!
(1)建立配置表
建立配置表,在配置表中增加建立者、建立日期、建立时间、更改者、更改日期、更改时间:
(2)维护表维护生成器:
在菜单栏:实用程序->表维护生成器:
进入表维护生成器:
(3)维护表生成器维护界面
双击画面编号,进入画面的程序代码页面:
在PBO中用代码实现将Log的字段隐藏(这里的隐藏是指,在对配置表做配置时会看不到这些字段):
<style></style> PBO模块:MODULE MODIFY_ELEMENT_14 .
实现代码:
1 MODULE MODIFY_ELEMENT_14 OUTPUT. 2 LOOP AT <VIM_TCTRL>-COLS INTO VIM_TC_COLS. 3 IF VIM_TC_COLS-SCREEN-NAME = 'YFG_C_PM_AUTOSMS-ERNAM' OR 4 VIM_TC_COLS-SCREEN-NAME = 'YFG_C_PM_AUTOSMS-ERDAT' OR 5 VIM_TC_COLS-SCREEN-NAME = 'YFG_C_PM_AUTOSMS-ERZET' OR 6 VIM_TC_COLS-SCREEN-NAME = 'YFG_C_PM_AUTOSMS-AENAM' OR 7 VIM_TC_COLS-SCREEN-NAME = 'YFG_C_PM_AUTOSMS-AEDAT' OR 8 VIM_TC_COLS-SCREEN-NAME = 'YFG_C_PM_AUTOSMS-AEZET' . 9 VIM_TC_COLS-INVISIBLE = 1 . 10 MODIFY <VIM_TCTRL>-COLS FROM VIM_TC_COLS . 11 ENDIF. 12 ENDLOOP. 13 ENDMODULE.
(4)实现在配置时新增或更改时自动更新记录
回到表维护生成器界面,增加表维护事件,在菜单:环境->修改->事件:
点击“新输入项”,建立维护事项。注意,维护事项的类型选择,这里选择01-在存储资料前和05-建立新输入项,如:
示例05-在新建输入项时保存记录:YFG_PM_AUTOSMS_NEW_ENTRY
1 *&--------------------------------------------------------------- 2 *& FORM YFG_PM_AUTOSMS_NEW_ENTRY 3 *& 自動更新YFG_C_PM_AUTOSMS 的建立日期 4 *&--------------------------------------------------------------- 5 FORM YFG_PM_AUTOSMS_NEW_ENTRY. 6 YFG_C_PM_AUTOSMS-ERNAM = SY-UNAME . 7 YFG_C_PM_AUTOSMS-ERDAT = SY-DATUM . 8 YFG_C_PM_AUTOSMS-ERZET = SY-UZEIT . 9 ENDFORM.
示例01-在更改时保存记录:YFG_PM_AUTOSMS_MODIFY_SAVE
1 *&--------------------------------------------------------------- 2 *& FORM YFG_PM_AUTOSMS_MODIFY_SAVE 3 *& 自動更新YFG_C_PM_AUTOSMS的更新日期 4 *&--------------------------------------------------------------- 5 FORM YFG_PM_AUTOSMS_MODIFY_SAVE. 6 FIELD-SYMBOLS : <FS_FIELD> TYPE ANY . 7 LOOP AT TOTAL . 8 CHECK <ACTION> EQ AENDERN. 9 ASSIGN COMPONENT 'AENAM' OF STRUCTURE <VIM_TOTAL_STRUC> TO <FS_FIELD> . 10 IF SY-SUBRC = 0 . 11 <FS_FIELD> = SY-UNAME . 12 ENDIF. 13 ASSIGN COMPONENT 'AEDAT' OF STRUCTURE <VIM_TOTAL_STRUC> TO <FS_FIELD> . 14 IF SY-SUBRC = 0 . 15 <FS_FIELD> = SY-DATUM . 16 ENDIF. 17 ASSIGN COMPONENT 'AEZET' OF STRUCTURE <VIM_TOTAL_STRUC> TO <FS_FIELD> . 18 IF SY-SUBRC = 0 . 19 <FS_FIELD> = SY-UZEIT . 20 ENDIF. 21 READ TABLE EXTRACT WITH KEY <VIM_XTOTAL_KEY>. 22 IF SY-SUBRC = 0. 23 EXTRACT = TOTAL . 24 MODIFY EXTRACT INDEX SY-TABIX. 25 ENDIF. 26 MODIFY TOTAL. 27 ENDLOOP. 28 ENDFORM.
标签:SY,YFG,AUTOSMS,创建,更改,COLS,VIM,日期,PM 来源: https://www.cnblogs.com/sapdaniel/p/12350538.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。