财务替代代码-01(开发笔记)

 

 

FORM get_exit_titles TABLES etab.

  DATABEGIN OF exits OCCURS 50,
          name(5)   TYPE c,
          param     LIKE c_exit_param_none,
          title(60TYPE 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.

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值