SAP ABAP-MIGO 预留过账替换移动类型的解决方案

最新推荐文章于 2024-08-16 18:41:26 发布

IGOR-MA

最新推荐文章于 2024-08-16 18:41:26 发布

阅读量2.3k

点赞数 2

分类专栏： ABAP技术文章标签： html5 html sap abap java

本文链接：https://blog.csdn.net/m04375036/article/details/120306064

版权

ABAP技术专栏收录该内容

11 篇文章 0 订阅

订阅专栏

这篇博客探讨了在SAP系统中，如何根据生产订单或内部订单的状态动态调整移动类型，以及如何通过增强代码实现这一过程。具体涉及在预留数据生成时确定移动类型，并在特定业务场景下（如MIGO A07发货-R09预留）临时更改移动类型，以影响记账科目。文中提供了一段增强代码示例，用于在特定条件下更新移动类型，从而影响记账行为。

摘要由CSDN通过智能技术生成

业务情景：
生产订单或内部订单，在某些情况下，发料时采用不同移动类型记账，记账科目也会发生变化。比如根据订单不同的状态进而确定移动类型。

通常，在生成预留数据时，移动类型也确定了。那么要实现临时改变移动类型，可通过增强来处理。

增强代码：

SE37->DBMMIMRKPFRESBF01->FORM prefetch.

*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZZ_MIGO_MOVETYPE_CTRL.    "active version
  FIELD-SYMBOLS <FS> TYPE GODYNPRO.
  DATA C_FIELD(18) TYPE C VALUE '(SAPLMIGO)GODYNPRO'.
  ASSIGN (C_FIELD) TO <FS>.
  DATA:W_RESB TYPE RESB,
       V_BWART TYPE RESB-BWART,
       V_KOSTV TYPE COAS-KOSTV.

  IF SY-SUBRC EQ 0 AND <FS> IS ASSIGNED.
*    针对:MIGO A07 发货- R09预留的处理
    IF <FS>-RESERVATION_NUMBER IS NOT INITIAL AND SY-TCODE EQ 'MIGO' AND <FS>-ACTION EQ 'A07' AND <FS>-REFDOC EQ 'R09'.
       LOOP AT t_resbkey INTO ls_key.
         SELECT SINGLE * INTO CORRESPONDING FIELDS OF W_RESB FROM RESB WHERE RSNUM = LS_KEY-RSNUM AND RSPOS = LS_KEY-RSPOS.
         IF SY-SUBRC EQ 0 AND W_RESB-AUFNR IS NOT INITIAL AND W_RESB-WERKS = '0000'
           AND ( W_RESB-BWART EQ 'ZX1' OR W_RESB-BWART EQ 'ZX2' OR W_RESB-BWART EQ 'ZY1' OR W_RESB-BWART EQ 'ZY2' ).
           V_BWART = W_RESB-BWART.
           CALL FUNCTION 'ZXWMS_AEAP_BWART_REPLACE'
             EXPORTING
               IM_PRODOC  = W_RESB-AUFNR
             IMPORTING
               EX_BWART   = V_BWART
               EX_KOSTV   = V_KOSTV.
           IF V_BWART NE W_RESB-BWART.
             UPDATE RESB SET BWART = V_BWART WHERE RSNUM = LS_KEY-RSNUM AND RSPOS = LS_KEY-RSPOS.
           ENDIF.
         ENDIF.
       ENDLOOP.
       IF t_resbkey[] IS NOT INITIAL.
         WAIT UP TO 1 SECONDS.
       ENDIF.
    ENDIF.
  ENDIF.
ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*