Скопировать тр. МВ31

rosomann

Привет Абаперы

Нужна помощь. В общем тема такая, необходимо мне скопировать две ММ транзакции МВ1А и МВ31. Задача вроде несложная.
Затем к новым транзакциям типа ZMB31, ZMB1A привязать FI документ в тр. ОМВА.
Так вот, скопировать тр. то легко, но вот в ОМВА они не повляются. Чего то не хватает в табл. Т158.
Может кто решал пободную задачу, подскажите.
Мне в помошники дали индуса, этот недолугий дурень уже вторую неделю не может понять что я от него хочу.

Alex80

С чем-то похожим сталкивался при копировании MB21. Только мне не нужно было к Z транзакции ничего настраивать отличного от стандартной, нужно было лишь что-бы проверки срабатывали, что TC есть в T158.
Поэтому в копии просто в пару местах сделал соответствие ZMB21 к MB21 (если это то что Вам нужно, то гляньте в MM07MFT0_TRANSAKTIONS_INIT / FORM transaktions_init).

Если же нужно именно разные виды документов к Z и неZ транзакции, то мне кажется, что не получится через ракурс ведения добавить.
Саму ТС в Т158 можно добавить SM30->V_158_ALL, но в настройках для присвоения вида документа она не появится. См.код.: MOMB0F11_SELECT_DBA FORM select_dba. Там всё зашито.

Code:

IF action NE space.
  CASE flag.
    WHEN '1'.
      SELECT * FROM t158
* einlesen aller gultigen Bewegungsarten zum Warenausgang
        WHERE tcode EQ 'MB11'
        OR    tcode EQ 'MIGO_GI'                   "note 319825
        OR    tcode EQ 'MIGO_TR'                   "note 631276
        OR    tcode EQ 'MB1A'
        OR    tcode EQ 'MB1B'
        OR    tcode EQ 'MB05'        "46B
        OR    tcode EQ 'MB26'        "46B
        OR    tcode EQ 'MBSU'.       "46B
        PERFORM fill_dba_tab USING 'TCODE' 'EQ' t158-tcode 'OR'.
      ENDSELECT.
    WHEN '2'.

Alex80

Ну а если всё-таки нужно разграничить транзакции по видам документов и версия системы позволяется сделать ENHANCEMENT MOMB0F11_SELECT_DBA, то можно добавить:

Code:

    WHEN '6'.
      SELECT * FROM t158 INTO TABLE xt158.
* einlesen aller gultigen Bewegungsarten fur automatische Bewegungen
      LOOP AT xt158 WHERE tcode(2) NE 'MB' AND tcode(2) NE 'MI'.
        PERFORM fill_dba_tab USING 'TCODE' 'EQ' xt158-tcode 'OR'.
      ENDLOOP.
  ENDCASE.
  PERFORM mod_dba_tab.
*$*$-Start: (1 )--------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZTEST_MB31.    "active version
*
  IF action NE space.
     MOVE: 'TCODE'       TO DBA_TAB-VIEWFIELD,
            space        TO DBA_TAB-NEGATION,
           'EQ'          TO DBA_TAB-OPERATOR,
           'ZMB31'       TO DBA_TAB-VALUE,
           'OR'          TO DBA_TAB-AND_OR.
     INSERT DBA_TAB INDEX 1.

*        PERFORM fill_dba_tab USING 'TCODE' 'EQ' 'ZMB31' 'OR'.
  ENDIF.

ENDENHANCEMENT.
*$*$-End:   (1 )--------------------------------------------------------------------------------$*$*
ENDFORM.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(3 ) Include MOMB0F11_SELECT_DBA, Выход                                                                                                           S

Только если цель оправдывает средства.

Правила форума

Скопировать тр. МВ31

Кто сейчас на конференции