文档变更日志查看

文摘科技 2024-08-12 14:56 浙江

前言

在自开发表变更历史记录一文中介绍了使用TCODE: SCD3查看变更日志，本文介绍如何使用ABAP代码显示变更日志。

代码

DATA: lt_objectclass    TYPE cdobjectcl_range_tab,      lt_objectid       TYPE cdobjectv_range_tab,      lt_cdredadd       TYPE TABLE OF cdredadd,      lt_cdred_str      TYPE cdred_str_tab,      lt_fields_no_disp TYPE cddisp_fields_tab,      wa_nodisp         LIKE LINE OF lt_fields_no_disp.
lt_objectclass = VALUE #( ( sign = 'I' option = 'EQ'  low = 'ZTMARA' ) ).lt_objectid = VALUE #( ( sign = 'I' option = 'EQ' low = 'M001RL' ) ).
wa_nodisp-fieldname = 'FTEXT'.APPEND wa_nodisp TO lt_fields_no_disp.
wa_nodisp-fieldname = 'SCRTEXT_S'.APPEND wa_nodisp TO lt_fields_no_disp.
wa_nodisp-fieldname = 'SCRTEXT_M'.APPEND wa_nodisp TO lt_fields_no_disp.
wa_nodisp-fieldname = 'TEXT_CASE'.APPEND wa_nodisp TO lt_fields_no_disp.
wa_nodisp-fieldname = 'KEYGUID'.APPEND wa_nodisp TO lt_fields_no_disp.
wa_nodisp-fieldname = 'EXT_KEYLEN'.APPEND wa_nodisp TO lt_fields_no_disp.
wa_nodisp-fieldname = 'CHNGIND'.APPEND wa_nodisp TO lt_fields_no_disp.
CALL FUNCTION 'CHANGEDOCUMENT_READ_ALL'  EXPORTING    i_date_of_change           = '19000101'    i_time_of_change           = '000000'    i_date_until               = sy-datum    i_time_until               = '235959'*   i_username                 = p_user    i_read_archive_is          = space    it_objectclass             = lt_objectclass    it_objectid                = lt_objectid  IMPORTING    et_cdredadd                = lt_cdredadd    et_cdred_str               = lt_cdred_str  EXCEPTIONS    missing_input_objectclass  = 0    missing_input_header       = 0    no_position_found          = 1    wrong_access_to_archive    = 0    time_zone_conversion_error = 0    read_too_many_entries      = 0    OTHERS                     = 2.CASE sy-subrc.  WHEN 0.    SORT lt_cdredadd BY objectid udate utime changenr username.    CALL FUNCTION 'CHANGEDOCUMENT_DISPLAY'      EXPORTING        i_applicationid       = sy-repid        flg_autocondense      = 'X'        i_cb_program          = sy-repid*       i_callback_pf_status_set = lv_pf_status_set        i_objectclas          = '*'        it_cdred_str          = lt_cdred_str[]        it_fields_no_disp     = lt_fields_no_disp        it_cdredadd           = lt_cdredadd        i_no_sort             = abap_true  " keep sorting from modify_cd_output_table        i_screen_start_line   = 1        i_screen_start_column = 5        i_screen_end_line     = 30        i_screen_end_column   = 185.  WHEN 1.  WHEN 2.ENDCASE.

效果：

方法封装

可以封装到自己的类方法中，需要的时候方便调用

方法定义

 class-methods DISPLAY_CHANGEDOCUMENT    importing      value(IT_OBJECTCLASS) type CDOBJECTCL_RANGE_TAB      value(IT_OBJECTID) type CDOBJECTV_RANGE_TAB .

方法实现

  METHOD display_changedocument.    DATA:      lt_cdredadd       TYPE TABLE OF cdredadd,      lt_cdred_str      TYPE cdred_str_tab,      lt_fields_no_disp TYPE cddisp_fields_tab,      wa_nodisp         LIKE LINE OF lt_fields_no_disp.
    wa_nodisp-fieldname = 'FTEXT'.    APPEND wa_nodisp TO lt_fields_no_disp.
    wa_nodisp-fieldname = 'SCRTEXT_S'.    APPEND wa_nodisp TO lt_fields_no_disp.
    wa_nodisp-fieldname = 'SCRTEXT_M'.    APPEND wa_nodisp TO lt_fields_no_disp.
    wa_nodisp-fieldname = 'TEXT_CASE'.    APPEND wa_nodisp TO lt_fields_no_disp.
    wa_nodisp-fieldname = 'KEYGUID'.    APPEND wa_nodisp TO lt_fields_no_disp.
    wa_nodisp-fieldname = 'EXT_KEYLEN'.    APPEND wa_nodisp TO lt_fields_no_disp.
    wa_nodisp-fieldname = 'CHNGIND'.    APPEND wa_nodisp TO lt_fields_no_disp.
    CALL FUNCTION 'CHANGEDOCUMENT_READ_ALL'      EXPORTING        i_date_of_change           = '19000101'        i_time_of_change           = '000000'        i_date_until               = sy-datum        i_time_until               = '235959'*       i_username                 = p_user        i_read_archive_is          = space        it_objectclass             = it_objectclass        it_objectid                = it_objectid      IMPORTING        et_cdredadd                = lt_cdredadd        et_cdred_str               = lt_cdred_str      EXCEPTIONS        missing_input_objectclass  = 0        missing_input_header       = 0        no_position_found          = 1        wrong_access_to_archive    = 0        time_zone_conversion_error = 0        read_too_many_entries      = 0        OTHERS                     = 2.    CASE sy-subrc.      WHEN 0.        SORT lt_cdredadd BY objectid udate utime changenr username.        CALL FUNCTION 'CHANGEDOCUMENT_DISPLAY'          EXPORTING            i_applicationid       = sy-repid            flg_autocondense      = 'X'            i_cb_program          = sy-repid*           i_callback_pf_status_set = lv_pf_status_set            i_objectclas          = '*'            it_cdred_str          = lt_cdred_str[]            it_fields_no_disp     = lt_fields_no_disp            it_cdredadd           = lt_cdredadd            i_no_sort             = abap_true  " keep sorting from modify_cd_output_table            i_screen_start_line   = 1            i_screen_start_column = 5            i_screen_end_line     = 30            i_screen_end_column   = 185.      WHEN 1.      WHEN 2.    ENDCASE.
  ENDMETHOD.

—END—

温馨提示

如果你喜欢本文，请分享给有需要的朋友，想要获得更多信息，请关注我，若有问题以及建议，请在文末留言或者私信。

扫码关注我们

以便获取最新更新内容。

ABAP三叔

ABAP开发技术分享

最新文章

修改自开发程序源代码-无开发请求

函数动态调用(RTTS)-实战篇

屏幕分割方法汇总

文档变更日志查看

批量修改角色权限字段值

GOS附件批量上传

修改已释放/传输请求文本描述

生产订单RESB 和 JEST 删除标记不一致问题处理

VF01 销售发票拆分

解除SM12锁

分类

时事

民生

政务

教育

文化

科技

财富

体娱

健康

情感

旅行

百科

职场

楼市

企业

乐活

学术

汽车

时尚

创业

美食

幽默

美体

文摘

原创标签

时事社会财经军事教育体育科技汽车科学房产搞笑综艺明星音乐动漫游戏时尚健康旅游美食生活摄影宠物职场育儿情感小说曲艺文化历史三农文学娱乐电影视频图片新闻宗教电视剧纪录片广告创意壁纸头像心灵鸡汤星座命理教育培训艺术文化金融财经健康医疗美妆时尚餐饮美食母婴育儿社会新闻工业农业时事政治星座占卜幽默笑话独立短篇连载作品文化历史科技互联网

发布位置

广东北京山东江苏河南浙江山西福建河北上海四川陕西湖南安徽湖北内蒙古江西云南广西甘肃辽宁黑龙江贵州新疆重庆吉林天津海南青海宁夏西藏香港澳门台湾美国加拿大澳大利亚日本新加坡英国西班牙新西兰韩国泰国法国德国意大利缅甸菲律宾马来西亚越南荷兰柬埔寨俄罗斯巴西智利卢森堡芬兰瑞典比利时瑞士土耳其斐济挪威朝鲜尼日利亚阿根廷匈牙利爱尔兰印度老挝葡萄牙乌克兰印度尼西亚哈萨克斯坦塔吉克斯坦希腊南非蒙古奥地利肯尼亚加纳丹麦津巴布韦埃及坦桑尼亚捷克阿联酋安哥拉