SAP ABAP - программы пользователя

Программы пользователя используются при извлечении, если стандартные экстракторы SAP не предоставляют ожидаемых данных или требуемых функций, например, при авторизации или проверках времени. Программы пользователя обычно используются в модулях продаж и распространения (SD). SAP предлагает множество выходов в областях продаж, транспортировки, отгрузки и выставления счетов. Программа выхода пользователя предназначена для внесения некоторых изменений, когда стандартный SAP не может удовлетворить все требования.

Чтобы получить доступ к тем выходам, которые доступны в каждой области продаж, перейдите в IMG по следующему пути: IMG → Сбыт → Модификации системы → Пользовательские программы. Документация для каждого выхода в областях SD подробно объяснена.

Например, если вы хотите найти программы пользователя в Обработке торговых документов (контракт, предложение или заказ на продажу), следуйте указанному выше пути и продолжайте расширять узел Пользовательские программы в разделе Продажи → Пользовательские программы. Щелкните значок документации, чтобы просмотреть все программы пользователя, доступные в Обработке торговых документов.

S.No.	Пользовательский выход и описание
1	USEREXIT_FIELD_MODIFICATION Используется для изменения атрибутов экрана.
2	USEREXIT_SAVE_DOCUMENT Помогает в выполнении операций, когда пользователь нажимает «Сохранить».
3	USEREXIT_SAVE_DOCUMENT_PREPARE Очень полезно для проверки полей ввода, ввода любого значения в поле или отображения всплывающего окна для пользователей и подтверждения документа.
4	USEREXIT_MOVE_FIELD_TO_VBAK Используется, когда изменения заголовка пользователя перемещаются в рабочую область заголовка.
5	USEREXIT_MOVE_FIELD_TO_VBAP Используется, когда изменения элемента пользователя перемещаются в рабочую область элемента SAP.

Пользовательская программа выхода служит той же цели, что и пользовательская программа, но доступна только для модуля SD. Выход реализован как вызов функционального модуля. Программы пользователя - это модификации стандартных программ SAP.

пример

REPORT ZUSEREXIT1. 
TABLES:   
   TSTC, TSTCT,
   TADIR, TRDIR, TFDIR, ENLFDIR,
   MODSAPT, MODACT. 
	
DATA:   
   JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE,
   field1(30),
   v_devclass LIKE TADIR-devclass. 
	
PARAMETERS:
   P_TCODE LIKE TSTC-tcode OBLIGATORY. 
	
SELECT SINGLE *
   FROM TSTC
   WHERE tcode EQ P_TCODE. 
	
IF SY-SUBRC EQ 0.
   SELECT SINGLE *
   FROM TADIR
	
   WHERE pgmid = 'R3TR' AND 
         object = 'PROG' AND
         obj_name = TSTC-pgmna.
		
   MOVE TADIR-devclass TO v_devclass.
	
   IF SY-SUBRC NE 0.
   SELECT SINGLE * 
      FROM TRDIR
      WHERE name = TSTC-pgmna.
		
   IF TRDIR-subc EQ 'F'.
      SELECT SINGLE *
         FROM TFDIR
         WHERE pname = TSTC-pgmna.
			
      SELECT SINGLE *
         FROM ENLFDIR 
         WHERE funcname = TFDIR-funcname.
			
      SELECT SINGLE * 
         FROM TADIR
         WHERE pgmid = 'R3TR' AND
               object = 'FUGR' AND 
               obj_name EQ ENLFDIR-area.
         MOVE TADIR-devclass TO v_devclass.
      ENDIF.
   ENDIF.
	
   SELECT *
      FROM TADIR
      INTO TABLE JTAB
		
      WHERE pgmid = 'R3TR' AND
            object = 'SMOD' AND
            devclass = v_devclass.
			
   SELECT SINGLE *
      FROM TSTCT
      WHERE sprsl EQ SY-LANGU AND
            tcode EQ P_TCODE.
			
   FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
   WRITE:/(19) 'Transaction Code - ', 
      20(20) P_TCODE,
      45(50) TSTCT-ttext.
   SKIP.
	
   IF NOT JTAB[] IS INITIAL.
      WRITE:/(95) SY-ULINE.
      FORMAT COLOR COL_HEADING INTENSIFIED ON.
		
      WRITE:/1 SY-VLINE, 
            2 'Exit Name',
            21 SY-VLINE , 
            22 'Description',
            95 SY-VLINE.
			
      WRITE:/(95) SY-ULINE.
      LOOP AT JTAB.
         SELECT SINGLE * FROM MODSAPT
         WHERE sprsl = SY-LANGU AND
               name = JTAB-obj_name.
				
         FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
         WRITE:/1 SY-VLINE,
               2 JTAB-obj_name HOTSPOT ON,
               21 SY-VLINE ,
               22 MODSAPT-modtext,
               95 SY-VLINE.
      ENDLOOP.
		
      WRITE:/(95) SY-ULINE.
      DESCRIBE TABLE JTAB.
      SKIP.
      FORMAT COLOR COL_TOTAL INTENSIFIED ON.
      WRITE:/ 'No of Exits:' , SY-TFILL.
		
   ELSE.
      FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
      WRITE:/(95) 'User Exit doesn’t exist'.
   ENDIF. 
ELSE.

   FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
   WRITE:/(95) 'Transaction Code Does Not Exist'. 
ENDIF.
 
AT LINE-SELECTION.
   GET CURSOR FIELD field1.
   CHECK field1(4) EQ 'JTAB'.
   SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
   CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.

Во время обработки введите код транзакции «ME01» и нажмите кнопку F8 (Выполнить). Приведенный выше код дает следующий вывод -