财务替代代码-01（开发笔记）

 

 

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.