ABAP:增强篇-CJ20N屏幕增强

CJ20N的屏幕增强，如下所示

实现方法：CMOD->CNEX0006

600屏幕如下

代码如下

*&---------------------------------------------------------------------*
*&  包含                ZXCN1TOP
*&---------------------------------------------------------------------*
TYPES:BEGIN OF gty_objnr_text,objnr TYPE jest-objnr,END OF gty_objnr_text.DATA:cnci_proj LIKE cnci_proj,display_only  LIKE  rcwbs-sel01.
*触发事件TABLES:prps,proj.DATA:ok_code TYPE sy-ucomm.
CONTROLS mytabstrip TYPE TABSTRIP.
DATA:gst_prps              TYPE prps.
DATA:git_objnr_text        TYPE STANDARD TABLE OF gty_objnr_text,gst_objnr_text        TYPE gty_objnr_text,gif_container1        TYPE REF TO cl_gui_custom_container,gif_container2        TYPE REF TO cl_gui_custom_container,gif_container3        TYPE REF TO cl_gui_custom_container,gif_container4        TYPE REF TO cl_gui_custom_container,gif_container5        TYPE REF TO cl_gui_custom_container,gif_editor1           TYPE REF TO cl_gui_textedit,"描述和产生原因gif_editor2           TYPE REF TO cl_gui_textedit,"评审结论gif_editor3           TYPE REF TO cl_gui_textedit,"处置要求和处置结果gif_editor4           TYPE REF TO cl_gui_textedit,"纠正措施gif_editor5           TYPE REF TO cl_gui_textedit,"纠正措施git_zsqm0001          TYPE STANDARD TABLE OF zsqm0001,gv_display            TYPE c,"是否显示模式gv_readtext_flag      TYPE c,push2(40) TYPE c ,push3(40) TYPE c .

EXIT_SAPLCJWB_002

* SAP_PROJ_IMP -------------------------------------------------------cnci_proj = cnci_proj_imp.display_only = sap_display_only.

EXIT_SAPLCJWB_003

CNCI_PROJ_EXP = CNCI_PROJ.

屏幕 600

PBO:

MODULE display_data OUTPUT.DATA screen_wa TYPE screen.DATA:ci_proj TYPE ci_proj.
*  投资项目&信息化投资项目ci_proj-zzbpc_prjid = cnci_proj-zzbpc_prjid.ci_proj-zzgjjbh = cnci_proj-zzgjjbh.ci_proj-zzpfnd = cnci_proj-zzpfnd.ci_proj-zzpsta = cnci_proj-zzpsta.ci_proj-zzpfztz = cnci_proj-zzpfztz.ci_proj-zzxmlb = cnci_proj-zzxmlb.ci_proj-zzxmxz = cnci_proj-zzxmxz.proj-zzpfrq  = cnci_proj-zzpfrq.
*-----------------科研项目&维护性工程项目（生产制造中心）" 研究性质IF ci_proj-zzyjxz IS INITIAL .ci_proj-zzyjxz = cnci_proj-zzyjxz.ELSE.cnci_proj-zzyjxz = ci_proj-zzyjxz.ENDIF." 研究内容IF ci_proj-zzyjnr IS INITIAL .ci_proj-zzyjnr = cnci_proj-zzyjnr.ELSE.cnci_proj-zzyjnr = ci_proj-zzyjnr.ENDIF." 项目来源IF ci_proj-zzxmly IS INITIAL .ci_proj-zzxmly = cnci_proj-zzxmly.ELSE.cnci_proj-zzxmly = ci_proj-zzxmly.ENDIF." 项目合作形式IF ci_proj-zzxmhzxs IS INITIAL .ci_proj-zzxmhzxs = cnci_proj-zzxmhzxs.ELSE.cnci_proj-zzxmhzxs = ci_proj-zzxmhzxs.ENDIF." 项目活动类型IF ci_proj-zzxmhdlx IS INITIAL .ci_proj-zzxmhdlx = cnci_proj-zzxmhdlx.ELSE.cnci_proj-zzxmhdlx = ci_proj-zzxmhdlx.ENDIF." 项目成果形式IF ci_proj-zzxmcgxs IS INITIAL .ci_proj-zzxmcgxs = cnci_proj-zzxmcgxs.ELSE.cnci_proj-zzxmcgxs = ci_proj-zzxmcgxs.ENDIF." 项目技术经济目标IF ci_proj-zzxmjsjjmb IS INITIAL .ci_proj-zzxmjsjjmb = cnci_proj-zzxmjsjjmb.ELSE.cnci_proj-zzxmjsjjmb = ci_proj-zzxmjsjjmb.ENDIF." 参加项目人员(人)IF ci_proj-zzxmrs IS INITIAL .ci_proj-zzxmrs = cnci_proj-zzxmrs.ELSE.cnci_proj-zzxmrs = ci_proj-zzxmrs.ENDIF." 项目人员实际工作时间 (人月)IF ci_proj-zzxmsj IS INITIAL .ci_proj-zzxmsj = cnci_proj-zzxmsj.ELSE.cnci_proj-zzxmsj = ci_proj-zzxmsj.ENDIF.
*-------------维护性工程项目（生产制造中心）-------"  请示文号IF ci_proj-zzqswh IS INITIAL .ci_proj-zzqswh = cnci_proj-zzqswh.ELSE.cnci_proj-zzqswh = ci_proj-zzqswh.ENDIF." 批复文号IF ci_proj-zzpfwh IS INITIAL .ci_proj-zzpfwh = cnci_proj-zzpfwh.ELSE.cnci_proj-zzpfwh = ci_proj-zzpfwh.ENDIF." 批复日期IF proj-zzpfrq IS INITIAL .proj-zzpfrq = cnci_proj-zzpfrq.ELSE.cnci_proj-zzpfrq = proj-zzpfrq.ENDIF."  是否招标IF ci_proj-zzzb IS INITIAL .ci_proj-zzzb = cnci_proj-zzzb.ELSE.cnci_proj-zzzb = ci_proj-zzzb.ENDIF." 招标形式IF ci_proj-zzzbxs IS INITIAL .ci_proj-zzzbxs = cnci_proj-zzzbxs.ELSE.cnci_proj-zzzbxs = ci_proj-zzzbxs.ENDIF." 中标价IF ci_proj-zzzbj IS INITIAL .ci_proj-zzzbj = cnci_proj-zzzbj.ELSE.cnci_proj-zzzbj = ci_proj-zzzbj.ENDIF." 立项文号IF ci_proj-zzlxwh IS INITIAL .ci_proj-zzlxwh = cnci_proj-zzlxwh.ELSE.cnci_proj-zzlxwh = ci_proj-zzlxwh.ENDIF."是否设备相关IF proj-zzequi_related IS INITIAL .proj-zzequi_related = cnci_proj-zzequi_related.ELSE.cnci_proj-zzequi_related = proj-zzequi_related.ENDIF."中标时间IF proj-zzzbsj IS INITIAL .proj-zzzbsj = cnci_proj-zzzbsj.ELSE.cnci_proj-zzzbsj = proj-zzzbsj.ENDIF."中标单位IF ci_proj-zzzbdw IS INITIAL .ci_proj-zzzbdw = cnci_proj-zzzbdw.ELSE.cnci_proj-zzzbdw = ci_proj-zzzbdw.ENDIF.IF display_only = 'X'.LOOP AT screen INTO screen_wa.IF ( screen_wa-name = 'CI_PROJ-ZZXMLY'OR screen_wa-name = 'CI_PROJ-ZZYJXZ'OR screen_wa-name = 'CI_PROJ-ZZYJNR'OR screen_wa-name = 'CI_PROJ-ZZXMHZXS'OR screen_wa-name = 'CI_PROJ-ZZXMHDLX'OR screen_wa-name = 'CI_PROJ-ZZXMCGXS'OR screen_wa-name = 'CI_PROJ-ZZXMJSJJMB'OR screen_wa-name = 'CI_PROJ-ZZXMRS'OR screen_wa-name = 'CI_PROJ-ZZXMSJ'OR screen_wa-name = 'CI_PROJ-ZZQSWH'OR screen_wa-name = 'CI_PROJ-ZZLXWH'OR screen_wa-name = 'CI_PROJ-ZZPFWH'OR screen_wa-name = 'PROJ-ZZPFRQ'OR screen_wa-name = 'CI_PROJ-ZZZB'OR screen_wa-name = 'CI_PROJ-ZZZBXS'OR screen_wa-name = 'CI_PROJ-ZZZBJ'OR screen_wa-name = 'PROJ-ZZEQUI_RELATED'OR screen_wa-name = 'CI_PROJ-ZZZBDW'OR screen_wa-name = 'PROJ-ZZZBSJ'   ) .screen_wa-input = 'X' .ENDIF.MODIFY screen FROM screen_wa.CLEAR:screen_wa.ENDLOOP.*    LOOP AT screen INTO screen_wa.
*      IF ( screen_wa-name = 'CI_PROJ-ZZQSWH'
*    OR screen_wa-name = 'CI_PROJ-ZZLXWH'
*    OR screen_wa-name = 'CI_PROJ-ZZPFWH'
*    OR screen_wa-name = 'PROJ-ZZPFRQ'
*    OR screen_wa-name = 'CI_PROJ-ZZZB'
*    OR screen_wa-name = 'CI_PROJ-ZZZBXS'
*    OR screen_wa-name = 'CI_PROJ-ZZZBJ' ) .
*        screen_wa-input = 'X' .
*      ENDIF.
*      MODIFY screen FROM screen_wa.
*      CLEAR:screen_wa.
*    ENDLOOP.ENDIF.ENDMODULE.                    "display_data OUTPUT

PAI:

MODULE user_command_0600 INPUT.ok_code = sy-ucomm.
*  项目信息cnci_proj-zzbpc_prjid = ci_proj-zzbpc_prjid.cnci_proj-zzgjjbh = ci_proj-zzgjjbh.cnci_proj-zzpfnd = ci_proj-zzpfnd.cnci_proj-zzpsta = ci_proj-zzpsta.cnci_proj-zzpfztz = ci_proj-zzpfztz.cnci_proj-zzxmlb = ci_proj-zzxmlb.cnci_proj-zzxmxz = ci_proj-zzxmxz.
*      科研项目cnci_proj-zzyjxz = ci_proj-zzyjxz.cnci_proj-zzyjnr = ci_proj-zzyjnr.cnci_proj-zzxmly = ci_proj-zzxmly.cnci_proj-zzxmhzxs = ci_proj-zzxmhzxs.cnci_proj-zzxmhdlx = ci_proj-zzxmhdlx.cnci_proj-zzxmcgxs = ci_proj-zzxmcgxs.cnci_proj-zzxmjsjjmb = ci_proj-zzxmjsjjmb.cnci_proj-zzxmrs = ci_proj-zzxmrs.cnci_proj-zzxmsj = ci_proj-zzxmsj.
*      维护性工程项目（生产制造中心）cnci_proj-zzlxwh = ci_proj-zzlxwh.cnci_proj-zzqswh = ci_proj-zzqswh.cnci_proj-zzpfwh = ci_proj-zzpfwh.cnci_proj-zzpfrq = ci_proj-zzpfrq.cnci_proj-zzzb = ci_proj-zzzb.cnci_proj-zzzbxs = ci_proj-zzzbxs.cnci_proj-zzzbj = ci_proj-zzzbj.cnci_proj-zzpfrq = proj-zzpfrq.cnci_proj-ZZZBDW = ci_proj-ZZZBDW.cnci_proj-ZZZBSJ = proj-ZZZBSJ.*  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0600  INPUT

结构增强：

ABAP:增强篇-CJ20N屏幕增强相关推荐

成本中心主数据屏幕增强
成本中心主数据屏幕增强实施示例: 相关TCODE:KS01.KS02.KS03 增强类型:屏幕增强增强方式:CMOD\SMOD 增强名称:COOMKS01 步骤: 1.创建结构体:CI_CSKS ...
VA01/VA02/VA03 屏幕增强
销售订单屏幕增强项目中经常有销售订单屏幕增强的需求以满足客户在录入销售订单时特殊指标的录入和存储. 销售订单屏幕增强分为抬头屏幕增强和行项目屏幕增强,根据需求,完成增强开发. 1.T-code :S ...
ABAP 交货单屏幕增强
需求描述: 在内向交货单(VL31N / VL32N / VL33N) 与外向交货单(VL01N / VL02N / VL03N) 的抬头和行项目增加"自定义字段"页签,如下图所示 ...
SAP ABAP 物料主数据(MM01/MM02/MM03)屏幕增强
增强步骤 1.为主表添加一个附加结构根据业务需求新建一个结构,结构中放入需要增强的屏幕字段并激活. 打开事务代码SE11,在需要保存的主表中添加这个附加结构并激活. 注:根据业务需求及屏幕增强的视图 ...
SAP ABAP QA11屏幕增强 BADI QEVA_SUBSCREEN_1101
QA11屏幕增强: 效果图: BADI: QEVA_SUBSCREEN_1101 SE11添加客制化字段:QALS或者决策表. 创建自定义函数组,添加屏幕信息: 全局定义: FUNCTION-POOL ...
[ABAP] VF01/VF02/VF03 发票字段增强总结（BAPI赋值屏幕增强）
最近接到需求需要对销售发票(VBRK/VBRP)做字段增强,下面做一下实现这个增强功能的总结. 该功能的主要需求点是通过BAPI:BAPI_BILLINGDOC_CREATEMULTIPLE对增强附加 ...
ABAP ME21N屏幕增强
ME21N屏幕增强 XM06函数组加屏幕 ZXM06ZZZ
关于SAP S/4HANA里ABAP源代码管理功能的增强
关于SAP S/4HANA里ABAP源代码管理功能的增强和以前老的ECC里的版本管理功能相比,S/4HANA里增添了两个按钮:Fetch Remote Version和Search: 前者可以直接将 ...
供应商主数据屏幕增强XK02,XK03
当年第一次写增强,因参考的文章对没写过增强的人来有点不明.因此才有这篇用于记录 SE16N LFA1 APPEND STRUCTURE 增加自定义结构 SPRO 后勤-常规->业务伙伴-> ...

ABAP:增强篇-CJ20N屏幕增强

ABAP:增强篇-CJ20N屏幕增强相关推荐

最新文章

热门文章