财务替代代码02（开发笔记）

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         D01K902705                                        2
  exits-name  = 'U902'.                  "matrix validation:
  exits-param = c_exit_param_none.       "complete data used in exit.
  exits-title = text-902.                 "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

*{   INSERT         D01K902705                                        2
FORM U902 .
  DATA GT_EKKO  TYPE TABLE OF EKKO  WITH HEADER LINE .
  DATA GT_ADRC  TYPE TABLE OF ADRC  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 RM08M.
  IF BSEG-LIFNR = 'ONETIME'.
    ASSIGN ('(SAPLMR1M)RM08M') TO <S_DATA> .
    IF SY-SUBRC = 0.
      CLEAR GT_EKKO .
      SELECT SINGLE ADRNR INTO GT_EKKO-ADRNR FROM EKKO
        WHERE EBELN = <S_DATA>-EBELN
        .
      CLEAR GT_ADRC .
      SELECT SINGLE * INTO CORRESPONDING FIELDS OF GT_ADRC FROM ADRC
        WHERE ADDRNUMBER = GT_EKKO-ADRNR
        .
       BSEG-SGTXT = GT_ADRC-NAME1 && GT_ADRC-NAME2.
    ENDIF.
  ENDIF.
ENDFORM.
*}   INSERT