FORM get_exit_titles TABLES etab.
DATA: BEGIN OF exits OCCURS 50,
name(5) TYPE c,
param LIKE c_exit_param_none,
title(60) TYPE c,
END OF exits.
exits-name = 'U100'.
exits-param = c_exit_param_none.
exits-title = text-100. "Cost center from CSKS
APPEND exits.
exits-name = 'U101'.
exits-param = c_exit_param_field.
exits-title = text-101. "Cost center from CSKS
APPEND exits.
* begin of insertion "wms092357
exits-name = 'U200'.
exits-param = c_exit_param_field.
exits-title = text-200. "Cons. transaction type
APPEND exits. "from xref1/2
* end of insertion "wms092357
*{ INSERT D01K902374 1
exits-name = 'U901'. "matrix validation:
exits-param = c_exit_param_none. "complete data used in exit.
exits-title = text-901. "Example EIS
APPEND exits.
*} INSERT
************************************************************************
* PLEASE DELETE THE FIRST '*' FORM THE BEGINING OF THE FOLLOWING LINES *
* IF THE ACCOUNTING MODULE IS INSTALLED IN YOUR SYSTEM: *
* EXITS-NAME = 'U102'.
* EXITS-PARAM = C_EXIT_PARAM_CLASS.
* EXITS-TITLE = TEXT-102. "Sum is used for the reference.
* APPEND EXITS.
***********************************************************************
** EXIT EXAMPLES FROM PUBLIC SECTOR INDUSTRY SOLUTION
**
** PLEASE DELETE THE FIRST '*' FORM THE BEGINING OF THE FOLLOWING LINE
** TO ENABLE PUBLIC SECTOR EXAMPLE SUBSTITUTION EXITS
***********************************************************************
INCLUDE rggbs_ps_titles.
REFRESH etab.
LOOP AT exits.
etab = exits.
APPEND etab.
ENDLOOP.
ENDFORM. "GET_EXIT_TITLES
* eject
*---------------------------------------------------------------------*
* FORM U102 *
*---------------------------------------------------------------------*
* Inserts the sum of the posting into the reference field. *
* This exit can be used in FI for the complete document. *
* The complete data is passed in one parameter. *
*---------------------------------------------------------------------*
*{ INSERT D01K902374 1
FORM U901 .
DATA GT_VBFA TYPE TABLE OF VBFA WITH HEADER LINE .
DATA TDID TYPE TABLE OF TDID WITH HEADER LINE .
DATA TLINE TYPE TABLE OF TLINE WITH HEADER LINE .
DATA TDNAME TYPE TDOBNAME .
FIELD-SYMBOLS <S_DATA> TYPE ACCIT_FI.
ASSIGN ('(SAPLFACI)ACCIT_FI') TO <S_DATA> .
FIELD-SYMBOLS <S_DATA1> TYPE KOMFK.
ASSIGN ('(SAPMV60A)XKOMFK') TO <S_DATA1> .
FIELD-SYMBOLS <S_DATA2> TYPE VBRK.
ASSIGN ('(SAPLV60A)VBRK') TO <S_DATA2> .
IF <S_DATA2>-FKART = 'F2' AND <S_DATA2>-VKORG = '2001'.
CLEAR GT_VBFA[].
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_VBFA FROM VBFA
WHERE VBELV = <S_DATA1>-VBELN
AND VBTYP_V = 'J'
AND VBTYP_N = 'U'
.
IF SY-SUBRC = 0.
SORT GT_VBFA[] BY VBELN DESCENDING.
READ TABLE GT_VBFA INDEX 1.
CLEAR TLINE .
CLEAR TLINE[] .
TDNAME = GT_VBFA-VBELN .
CALL FUNCTION 'READ_TEXT'
EXPORTING OBJECT = 'VBBK'
NAME = TDNAME
ID = 'Z008'
LANGUAGE = 'E'
TABLES LINES = TLINE
EXCEPTIONS OBJECT = 1
ID = 2
LANGUAGE = 3
NAME = 4
NOT_FOUND = 5
REFERENCE_CHECK = 6.
READ TABLE TLINE INDEX 1.
IF SY-SUBRC = 0.
BSEG-SGTXT = TLINE-TDLINE.
ELSE.
BSEG-SGTXT = GT_VBFA-VBELN.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.