首页 > 其他分享 >ABAP:MM01/MM02/MM03物料主数据增强

ABAP:MM01/MM02/MM03物料主数据增强

时间:2024-02-18 14:47:03浏览次数:39  
标签:sub &--------------------------------------------------------------------- M

1.屏幕增强

-在主表中附加结构(判断数据的主表,如MARA,MARC)

增强字段数据元素勾选更改文档以后,会记录字段变更历史

 


-SPRO-->物流-常规-->物料主数据-->配置物料主记录-->创建定制子屏幕的程序

 会生成对应的函数组--里面会包含两个屏幕(0001,0002)

这里的0001屏幕作为了基本数据1视图的增强子屏幕

这里的0003屏幕作为了成本1视图的增强子屏幕

这里的0004屏幕作为了采购视图的增强子屏幕

 


 0001屏幕:

PROCESS BEFORE OUTPUT.

  MODULE MDL_SET_PBO.

PROCESS AFTER INPUT.

  MODULE MDL_SET_PBI.
*----------------------------------------------------------------------*
***INCLUDE LZFG_MM007O01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module MDL_SET_PBO OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE mdl_set_pbo OUTPUT.

  IF sy-tcode <> 'MM01' AND sy-tcode <> 'MM02'.
    LOOP AT SCREEN.
      IF screen-group1 = 'G1'.
        screen-input = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.
  IF sy-mandt = '300'
  OR sy-mandt = '600'
  OR sy-mandt = '800' .
    LOOP AT SCREEN.
      IF screen-group2 = 'GN'.
        screen-active = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.

  CALL FUNCTION 'MARA_GET_SUB'
    IMPORTING
      wmara = mara
      xmara = *mara
      ymara = lmara.

ENDMODULE.
*----------------------------------------------------------------------*
***INCLUDE LZFG_MM007I01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  MDL_SET_PBI  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE MDL_SET_PBI INPUT.
  DATA: LS_MARA_CI TYPE ZSMM0009.

  MOVE-CORRESPONDING MARA TO LS_MARA_CI.

  CALL FUNCTION 'MARA_GET_SUB'
    IMPORTING
      WMARA = MARA
      XMARA = *MARA
      YMARA = LMARA.

  MOVE-CORRESPONDING LS_MARA_CI TO MARA.

  CALL FUNCTION 'MARA_SET_SUB'
    EXPORTING
      WMARA = MARA.

ENDMODULE.

003屏幕

PROCESS BEFORE OUTPUT.
  MODULE init_sub.
  MODULE get_daten_sub.
  MODULE feldauswahl.
  MODULE sonderfaus.
  MODULE sonfausw_in_fgruppen.
  MODULE bildstatus.
  MODULE zusref_vorschlagen_b.
  MODULE refdaten_vorschlagen.
  MODULE zusref_vorschlagen_a.
  MODULE set_daten_sub.
  MODULE get_data.
* MODULE STATUS_0003.
*
PROCESS AFTER INPUT.
* MODULE USER_COMMAND_0003.

  MODULE get_daten_sub.

  FIELD: zsmm0064-zzcost.
  MODULE assign_data.

  MODULE set_daten_sub.
*----------------------------------------------------------------------*
***INCLUDE LZFG_MM007O02.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module GET_DATA OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE get_data OUTPUT.
  MOVE-CORRESPONDING marc TO zsmm0064.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  ASSIGN_DATA  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE assign_data INPUT.
  MOVE-CORRESPONDING zsmm0064 TO marc.
ENDMODULE.

004屏幕

PROCESS BEFORE OUTPUT.
* MODULE STATUS_0004.
  MODULE init_sub.
  MODULE get_daten_sub.
  MODULE feldauswahl.
  MODULE sonderfaus.
  MODULE sonfausw_in_fgruppen.
  MODULE bildstatus.
  MODULE zusref_vorschlagen_b.
  MODULE refdaten_vorschlagen.
  MODULE zusref_vorschlagen_a.
  MODULE set_daten_sub.
  MODULE get_data.

PROCESS AFTER INPUT.
* MODULE USER_COMMAND_0004.
  MODULE get_daten_sub.

  FIELD: zsmm0064-zzloca.
  MODULE assign_data.

  MODULE set_daten_sub.
*----------------------------------------------------------------------*
***INCLUDE LZFG_MM007O02.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module GET_DATA OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE get_data OUTPUT.
  MOVE-CORRESPONDING marc TO zsmm0064.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  ASSIGN_DATA  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE assign_data INPUT.
  MOVE-CORRESPONDING zsmm0064 TO marc.
ENDMODULE.

-SPRO-->物流-常规-->物料主数据-->配置物料主记录-->定义每个屏幕序列的数据屏幕的结构

 选中21,点击数据屏幕

 


0001屏幕配置:选中基本数据1,点击子屏幕

 


003增强子屏幕配置:


004增强子屏幕配置:


效果展示:


 2.保存前增强

参考:ABAP:MM01物料主数据增强 - 阿胖的阿多 - 博客园 (cnblogs.com)

标签:sub,&---------------------------------------------------------------------,M
From: https://www.cnblogs.com/ap-ad-java-abap/p/18007614

相关文章

  • ABAP根据事务码查找增强程序
    *&---------------------------------------------------------------------**&ReportZ_FIND_ENHANCEMENT*&---------------------------------------------------------------------**&*&-------------------------------------------------------......
  • ABAP:C223批量创建生产版本
    采用BDC方式*&---------------------------------------------------------------------**&ReportZPPU011*&---------------------------------------------------------------------**&*&---------------------------------------------------------......
  • ABAP:CO01批量创建工单BAPI
    BAPI:BAPI_PRODORD_CREATEFORMfrm_post_data.DATA:lt_rowsTYPElvc_t_roid,ls_rowsTYPElvc_s_roid.DATA:ls_orderdataTYPEbapi_pp_order_create.DATA:ls_returnTYPEbapiret2,lv_order_numberTYPEbapi_order_key-order_number,......
  • ABAP:新语法
    1.构建数据*&---------------------------------------------------------------------**&ReportYTEST_ZJNEW01*&---------------------------------------------------------------------**&*&----------------------------------------------------......
  • ABAP:接口文档下载
    *&---------------------------------------------------------------------**&ReportZTEST_RFC*&---------------------------------------------------------------------**&*&----------------------------------------------------------------......
  • SAP ABAP 系统数据库表 TFDIR的作用介绍
    SAPABAP系统的数据库表TFDIR的主要作用是存储函数模块(FunctionModules)的目录信息,包括函数模块的名称、所在的函数组信息,函数模块的功能和调用方式等等。具体来说,TFDIR是ABAP中用来存放系统中所有函数模块定义的一个数据库表,每个函数模块在系统中只有一个定义,这个定义就被......
  • SAP ABAP技术文章合集_微信公众号:ABAP猿
    第1部分:ABAPOOALV相关文章合集序号文章标题01ABAPOOALV-基本显示02ABAPOOALV-排序、过滤03ABAPOOALV-合计、小计04ABAPOOALV-选择模式、触发事件05ABAPOOALV-隐藏列、修改列标题、添加图标列、调整列位置06ABAPOOALV-固定列、鼠标悬停文本......
  • SAP ABAP 更新函数(Update Function Module)执行出错的原因分析试读版
    本教程前一篇文章,我们已经介绍了SAPABAPUpdateWokeProcess和UpdateFunctionModule的基本概念。129.SAPABAPUpdateProcess(更新进程)的概念和设计动机解析回到笔者知识星球朋友的提问:我们通过一个实战例子来消化前一篇文章学到的理论知识。本教程之前介绍了SA......
  • ABAP 用户登录统计信息
     CMOD出口SUSR0001 *&---------------------------------------------------------------------**&包含ZXUSRU01*&---------------------------------------------------------------------*DATALS_ZUSERLOGINFOTYPEZUSERLOGINFO.DATA......
  • ABAP zmassdownload 批量下载程序
    代码来源https://github.com/palermo-consulting/sap-mass-abap-download-program/blob/master/Z_MASS_ABAP_DOWNLOAD.abap中文乱码 切换charset=GB2312  APPEND '<meta http-equiv="Content-Type" content="application/xhtml+xml; charset=GB2312" /&......