MM03物料主数据增强

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.