更改SAP Note 303453的实施 - 用户退出以在STO中确定装运数据

Question

我发布same question是scn.sap，但我没有收到任何答案，所以我会在此尝试，希望我能像往常一样得到优秀答案：

我需要在事务'ME21N'和'ME59N'的'Shipping'选项卡中设置'Order Combination Indicator'字段但是我没有找到增强功能或BADi来实现这一点。目标是设置此指标，以便交易'VL10B'可以结合交货。

进行调查我发现了SAP Note'303453 - 用户退出STO中的运输数据确定'，这使得可以更改采购订单中的运输价值，但此修改不包括“订单组合指示符”字段（EKPV- KZAZU）。

我已经检查了SAP Note中的代码，我意识到包含'MM06EFPV_PTV_FUELLEN'中的'PTV_FUELLEN'形式可能会被更改，所以我要添加一行：

ptv-kzazu = ekpv-kzazu。

在'ptv-vsbed = ekpv-vsbed'之间。和'如果ptv-updkz是初始'。

在包含'MM06EFPV_PTV_FUELLEN_RETOURE_F'和'MM06EFPV_PTV_FUELLEN_RETOURE_L'中也可以进行同样的修改。

这个改变可能会成功，但我不确定这是否是我有权做的事情，因为它是一个修改。另一方面，带有“更正未完全复制”信息的黄色指示器：参见更改显示'表示。

以下代码由SAP Note提供：

  *$*$----------------------------------------------------------------$*$*
  *$ Correction Inst. 0120061532 0001770752 $*
  *$--------------------------------------------------------------------$*
  *$ Valid for : $*
  *$ Software Component SAP_APPL SAP Application $*
  *$ Release 470 All Support Package Levels $*
  *$ Release 500 Fm SAPKH50001 $*
  *$ Release 600 Fm SAPKH60001 $*
  *$ Release 602 All Support Package Levels $*
  *$ Release 603 All Support Package Levels $*
  *$ Release 604 Fm SAPKH60401 $*
  *$--------------------------------------------------------------------$*
  *$ Changes/Objects Not Contained in Standard SAP System $*
  *$*$----------------------------------------------------------------$*$*
  *&--------------------------------------------------------------------*
  *& Object REPS MM06EFPV_PTV_FUELLEN_RETOURE_F
  *& Object Header PROG MM06EFPV_PTV_FUELLEN_RETOURE_F
  *&--------------------------------------------------------------------*
  *& FORM PTV_FUELLEN_RETOURE_FIL
  *&--------------------------------------------------------------------*
  ...
  ENDCASE.
  ENDIF.
  ENDIF.

  *>>>> START OF DELETION <<<<<
  CHECK im_activity NE 'C'. "nicht beim Check
  *>>>> END OF DELETION <<<<<<<
  *>>>> START OF INSERTION <<<<
  READ TABLE ptv WITH KEY potkey BINARY SEARCH.
  IF sy-subrc EQ 0.
  ptv-lprio = ekpv-lprio.
  ptv-vstel = ekpv-vstel.
  ptv-route = ekpv-route.
  ptv-vsbed = ekpv-vsbed.
  IF ptv-updkz is initial.
  ptv-updkz = 'U'.
  ENDIF.
  MODIFY ptv INDEX sy-tabix.
  ENDIF.

  CHECK im_activity NE 'C'. "nicht beim Check

  *>>>> END OF INSERTION <<<<<<
  ...
  *&--------------------------------------------------------------------*
  *&--------------------------------------------------------------------*
  *& Object REPS MM06EFPV_PTV_FUELLEN
  *& Object Header PROG MM06EFPV_PTV_FUELLEN
  *&--------------------------------------------------------------------*
  *& FORM PTV_FUELLEN
  *&--------------------------------------------------------------------*
  ...
  else.
  check sy-subrc eq 0.
  ENDIF.
  *>>>> START OF DELETION <<<<<
  CHECK im_activity NE 'C'.
  *>>>> END OF DELETION <<<<<<<
  *>>>> START OF INSERTION <<<<
  READ TABLE ptv WITH KEY potkey BINARY SEARCH.
  if sy-subrc eq 0.
  ptv-lprio = ekpv-lprio.
  ptv-vstel = ekpv-vstel.
  ptv-route = ekpv-route.
  ptv-vsbed = ekpv-vsbed.
  if ptv-updkz is initial.
  ptv-updkz = 'U'.
  endif.
  modify ptv index sy-tabix.
  endif.

  CHECK im_activity NE 'C'.
  *>>>> END OF INSERTION <<<<<<
  ...
  *&--------------------------------------------------------------------*

在这种情况下我该如何处理？