一、aufk增强

  CI_AUFK中加字段
  AUFK中已包含CI_AUFK   不做操作
  CAUFVTAB中已包含CI_AUFK 不做操作
  COCI_AUFK中加入包含CI_AUFK

二、afko增强

  创建结构zsafko
  在afko中包含zsafko
  在caufvtab中包含zsafko
  在coci_aufk中包含zsafko

三、cmod注册增强

  PPCO0012:屏幕增强

  PPCO0007:保存退出

1、cmod新建项目:ZPP0001

 2、分配增强

 3、实施并激活(函数组XCO1)

   1)全局数据定义LXCO1TOP

*&---------------------------------------------------------------------* 
*&  包含                ZXCO1TOP 
*&---------------------------------------------------------------------* 
TABLES:coci_aufk. 
 
DATA g_display TYPE c. 
DATA lv_flag TYPE c.

  2)显示前的函数 EXIT_SAPLCOKO1_001

*&---------------------------------------------------------------------* 
*&  包含                ZXCO1U11 
*&---------------------------------------------------------------------* 
* created by ybin 2021.01.05 屏幕增强的字段赋值 
DATA lfs_c(30) TYPE c VALUE '(SAPLCOKO1)RC27S-AKTYP_PIC'. 
DATA lv_aktyp  TYPE rc27s-aktyp_pic. 
 
FIELD-SYMBOLS <lfs_1>. 
 
ASSIGN (lfs_c) TO <lfs_1>. 
IF sy-subrc = 0. 
  lv_aktyp = <lfs_1>. 
  IF lv_aktyp = 'A'. 
    g_display = 'X'. 
  ELSE. 
    g_display = ''. 
  ENDIF. 
ENDIF. 
 
MOVE-CORRESPONDING i_caufvd TO coci_aufk.

  3)保存时路过函数 EXIT_SAPLCOKO1_002

*&---------------------------------------------------------------------* 
*&  包含                ZXCO1U12 
*&---------------------------------------------------------------------* 
*  离开客户屏幕的时候 
  MOVE-CORRESPONDING coci_aufk TO e_coci_aufk.

  4)设置菜单标题

  5)绘制屏幕 0100

PROCESS BEFORE OUTPUT. 
 MODULE status_0100. 
* 
PROCESS AFTER INPUT. 
* MODULE USER_COMMAND_0100.
*----------------------------------------------------------------------* 
***INCLUDE ZXCO1O01. 
*----------------------------------------------------------------------* 
*&---------------------------------------------------------------------* 
*&      Module  STATUS_0100  OUTPUT 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
MODULE status_0100 OUTPUT. 
*  SET PF-STATUS 'xxxxxxxx'. 
*  SET TITLEBAR 'xxx'. 
 
*  add by ybin 2020.01.05 生产订单屏幕增强 
  LOOP AT SCREEN. 
    IF g_display = 'X'. 
      screen-input = '0'. 
    ELSE. 
      screen-input = '1'. 
    ENDIF. 
    MODIFY SCREEN. 
  ENDLOOP. 
 
ENDMODULE.                 " STATUS_0100  OUTPUT

 结束,经测试可以正常保存及显示数据。

 


发布评论
IT虾米网

微信公众号号:IT虾米 (左侧二维码扫一扫)欢迎添加!

ABAP使用OLE导出Excel详解
你是第一个吃螃蟹的人
发表评论

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。