Вытащить поле группы закупок в MD04

divan

Здравствуйте Коллеги!
Поставили такую задачу. В список Ведомость/потребность заказов вытащить поле группа закупки, и заполнять его если элемент Заявка. Можно ли это сделать стандартом, или придется ломать?

Пономарев Артем

С ходу экзитов не нашлось.
Видимо только через энхансменты, если версия позволяет.

divan

прошу прощения, а энхансменты - это что такое?

ghost

divan написал:

прошу прощения, а энхансменты - это что такое?

проще говоря блоки расширения в саповских кодах (блоки ENHANCEMENT), где вы может вставить свой код почитайте хелп

divan

Всем спасибо. Нашел решение.
Для версии 4.7.

1.Создаем проект через cmod, допустим ZMM_MD04
2. Проекту присваиваем расширение M61X0002
3. Дополняем юзер экзиты следующим кодом.
для EXIT_SAPLM61R_001

Code:

*----------------------------------------------------------------------*
*   INCLUDE ZXM61U03                                                   *
*----------------------------------------------------------------------*

TABLES: VBAK.
TABLES: EBAN.



***********************************************************************
* Example 2  User Exit 2  Individual Lines
* Release-Status of a purchase-requesition
IF NOT IBUTT2 IS INITIAL.
  IF IMDEZEXIT-DELKZ = 'BA'.
***  Стратегия деблокирования
***    SELECT SINGLE FRGKZ FROM EBAN INTO EBAN-FRGKZ
***     WHERE BANFN = IE3MDPSLX-DELNR
***     AND   BNFPO = IE3MDPSLX-DELPS.
***    IF SY-SUBRC = 0.
***      MOVE EBAN-FRGKZ TO EMDEZX_USEX2.
***    ENDIF.
*Группа закупок
    SELECT SINGLE EKGRP FROM EBAN INTO EBAN-EKGRP
     WHERE BANFN = IE3MDPSLX-DELNR
     AND   BNFPO = IE3MDPSLX-DELPS.
    IF SY-SUBRC = 0.
      MOVE EBAN-EKGRP TO EMDEZX_USEX2.
    ENDIF.
  ENDIF.
ENDIF.
************************************************************************






************************************************************************
* Example 3 User Exit 3   Individual Lines
IF NOT IBUTT3 IS INITIAL.
***  Стратегия деблокирования
  IF IMDEZEXIT-DELKZ = 'BA'.
    SELECT SINGLE FRGKZ FROM EBAN INTO EBAN-FRGKZ
     WHERE BANFN = IE3MDPSLX-DELNR
     AND   BNFPO = IE3MDPSLX-DELPS.
    IF SY-SUBRC = 0.
      MOVE EBAN-FRGKZ TO EMDEZX_USEX3.
    ENDIF.
 ENDIF.
 ENDIF.
************************************************************************

для EXIT_SAPMM61R_001

Code:

*----------------------------------------------------------------------*
*   INCLUDE ZXM61U04                                                   *
*----------------------------------------------------------------------*



***********************************************************************

************************************************************************

*--> Example 2 for User Exit Column 2 / Individual Lines

*-->Release-Status of a Purchase Requesition
*-->The buttons / column appears only when the procurement type is
*--> not 'In-house production'.
 IF NOT IMT61D-BESKZ = 'E'.
  CASE SY-LANGU.
  WHEN 'R'.
   MOVE 'Группа закупок' TO BUTTON2_EZ.
  WHEN 'E'.
   MOVE 'Group purchase' TO BUTTON2_EZ.
  ENDCASE.
 ENDIF.
************************************************************************






************************************************************************

*--> Example 3 for User Exit Column 3 / Individual Lines

*-->Individual Text
  CASE SY-LANGU.
  WHEN 'R'.
   MOVE 'Стратегия деблокирования' TO BUTTON3_EZ.
  WHEN 'E'.
   MOVE 'Strategy unblock' TO BUTTON3_EZ.
  ENDCASE.
************************************************************************

В итоге имеем 2 кнопки, при нажатии на которые можем отобразить/убрать столбцы "Группа закупок" и "Стратегия деблокирования"

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

Вытащить поле группы закупок в MD04

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