SAP: MF60 / MB1A Enhancement LRMPUFS1 / LRMPUFS7 / LRMPUFSD / LV01FFSA / LV01FFSD / LV01FFSC

本文链接：https://blog.youkuaiyun.com/yong325/article/details/8813860

这篇博客详细介绍了在SAP系统中，针对MF60和MB1A事务代码进行的多个增强，包括LRMPUFS1、LRMPUFS7、LRMPUFSD等。这些增强主要用于限制和验证生产订单，如检查单个生产订单，限制问题位置，以及过滤特定库存地点。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

LRMPUFS1:

PERFORM rm_clear_trace USING 1.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form REQ_SELECTION, End                                                                                                                           A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 3  ZMF60.    "active version
* Add by Lisa Wong 09/05/2012 for single production order checking

data: l_len type i.
data : wa_ordx like line of sr-ordx.
data:  l_FTRMI like afko-FTRMI.
*delete sr-ordx where sec_slct = 'X'.
clear: l_len,l_FTRMI.
loop at sr-ordx into wa_ordx where sec_slct = ''.
  l_len = l_len + 1.
  W_AUFNR = WA_ORDX-AUFNR.
endloop.
*describe table sr-ordx lines l_len .
if l_len > 1.
   message 'Please input single production order' type 'E'.
endif.
select single FTRMI into l_FTRMI from afko
   where afko~aufnr = w_aufnr.

if l_FTRMI is INITIAL.
   message 'Production order is not released' type 'E'.
  endif.
ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ENDFORM.                    " REQ_SELECTION

LRMPUFS7:

PERFORM rm_clear_trace USING 3.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form RESB_BY_RSNUM, End                                                                                                                           A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 4  ZMF60.    "active version
* Add by Lisa wong 10/05/2012  start restrict issue location
if sy-tcode = 'MF60'.
   data: w_reqdbx like line of reqdbx.
   loop at reqdbx into w_reqdbx.
     w_reqdbx-lgort = 'WA00'.
     modify reqdbx from w_reqdbx.
   ENDLOOP .
endif.
* Add by Lisa wong 10/05/2012  End
ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ENDFORM.                    " RESB_BY_RSNUM

LRMPUFSD:

FORM read_im_stock CHANGING sc TYPE rmpu_selcrit
                            sr TYPE rmpu_stkreq_info.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form READ_IM_STOCK, Start                                                                                                                         A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 5  ZMF60.    "active version
*Add by Lisa_wong 10/08/2012 restrict W* Q* stock
if sy-tcode = 'MF60'.
  delete sc-later-mard_keys where lgort+(1) = 'W' or lgort+(1) = 'Q' or lgort+(1) = 'R'.
  delete sc-later-mchb_keys where lgort+(1) = 'W' or lgort+(1) = 'Q' or lgort+(1) = 'R'.
  delete sc-later-mkol_nl_keys where lgort+(1) = 'W' or lgort+(1) = 'Q' or lgort+(1) = 'R'.
  delete sc-later-mkol_ncl_keys where lgort+(1) = 'W' or lgort+(1) = 'Q' or lgort+(1) = 'R'.
  delete sc-later-mska_keys where lgort+(1) = 'W' or lgort+(1) = 'Q' or lgort+(1) = 'R'.
  delete sc-later-mska_nc_keys where lgort+(1) = 'W' or lgort+(1) = 'Q' or lgort+(1) = 'R'.
  delete sc-later-mspr_keys where lgort+(1) = 'W' or lgort+(1) = 'Q' or lgort+(1) = 'R'.
  delete sc-later-mspr_nc_keys where lgort+(1) = 'W' or lgort+(1) = 'Q' or lgort+(1) = 'R'.
endif.
ENDENHANCEMENT.

LV01FFSA:

  ENDLOOP.

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form SELECT_BATCH_AC, End                                                                                                                         A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZMF60_BATCH_DET.    "active version
* add by Lisa Wong 10/08/2012 Filter Location W*/Q* stock
  if sy-tcode = 'MF60' or sy-tcode = 'MB1A'.
  delete yac_mchb where lgort+(1) = 'W' or lgort+(1) = 'Q' or lgort+(1) = 'R' or lifnr <> ''.
endif.

ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ENDFORM.                    "select_batch_ac

LV01FFSD:

  ENDIF.

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form SELECT_BATCH_DB, End                                                                                                                         A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 2  ZMF60_BATCH_DET.    "active version
* Add by Lisa Wong Filter location W* Q* R* stock
    IF SY-TCODE = 'MF60' or sy-tcode = 'MB1A'.
  DELETE YAC_MCHB WHERE LGORT+(1) = 'W' OR LGORT+(1) = 'Q' OR LGORT+(1) = 'R'  or lifnr <> ''.
ENDIF.

ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ENDFORM.                    "select_batch_db

LV01FFSC:

  ENDIF.

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form SELECT_BATCH_CL, End                                                                                                                         A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 3  ZMF60_BATCH_DET.    "active version
* Add by Lisa Wong Filter location W* Q* R* stock
IF SY-TCODE = 'MF60' or sy-tcode = 'MB1A'.
   DELETE YAC_MCHB WHERE LGORT+(1) = 'W' OR LGORT+(1) = 'Q' OR LGORT+(1) = 'R'  or lifnr <> ''.
ENDIF.

ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ENDFORM.                    "select_batch_cl

LRMPUFPS:

FORM CREATE_IM_MOVEMENTS CHANGING UP TYPE RMPU_UPDATE
                                  MOVI TYPE RMPU_MOVI
                                  XALLR TYPE RM_FLAG
                                  SR TYPE RMPU_STKREQ_INFO
                                  MC TYPE RMPU_MC_DATA.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form CREATE_IM_MOVEMENTS, Start                                                                                                                   A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 2  ZMF60_GET_PRDORDER.    "active version
  UP-IMKPF-BKTXT = W_AUFNR.
ENDENHANCEMENT.

LRMPUTOP:

INCLUDE scmdlt01.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Include LRMPUTOP, End                                                                                                                             S
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZMF60_TOP.    "active version
DATA:W_AUFNR LIKE AFKO-AUFNR.

ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*