会计文本替代ZRGGBS000

会计文本替代的配置的TCODE ： OBBH

  PROGRAM zrggbs000 .
*---------------------------------------------------------------------*
* Corrections/ repair
* wms092357 070703 Note 638886: template routines to be used for
*                  workaround to substitute bseg-bewar from bseg-xref1/2
*---------------------------------------------------------------------*
*                                                                     *
*   Substitutions: EXIT-Formpool for Uxxx-Exits                       *
*                                                                     *
*   This formpool is used by SAP for testing purposes only.           *
*                                                                     *
*   Note: If you define a new user exit, you have to enter your       *
*         user exit in the form routine GET_EXIT_TITLES.              *
*                                                                     *
*---------------------------------------------------------------------*
*& 修改日期：2010.06.10
*& 修 改 人：zhouxu V1.0
*& 修改原因：1 客户退回订单会计文本替代
*& 修改日期：2010.08.10
*& 修 改 人：zhouxu V1.1
*& 修改原因：1 发票抬头/付款,发票明细/销售订单号/行项目号/物料编码/描述/数量/单位,替代到会计凭证明细文本字段(参考项目
*& 修改日期：2010.08.26
*& 修 改 人：zhouxu V1.2
*& 修改原因：1 采购订单 客户和简称复制的会计凭证行项目文本中
INCLUDE fgbbgd00.              "Standard data types

*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*
*    PLEASE INCLUDE THE FOLLOWING "TYPE-POOL"  AND "TABLES" COMMANDS  *
*        IF THE ACCOUNTING MODULE IS INSTALLED IN YOUR SYSTEM         *
TYPE-POOLS: gb002. " TO BE INCLUDED IN                       "wms092357
TABLES: bkpf,      " ANY SYSTEM THAT                         "wms092357
        bseg,      " HAS 'FI' INSTALLED                      "wms092357
        cobl,                                               "wms092357
        csks,                                               "wms092357
        anlz,                                               "wms092357
        glu1,                                               "wms092357
        vbak,                                               "susan
        kna1,                                               "susan
        tvaut.                                              "susan
*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*

DATA: v_lifnr LIKE bseg-lifnr, v_name1 LIKE lfa1-name1. "KHB
DATA: v_txz01 LIKE ekpo-txz01.                              "v1.2采购短文本
* v_name1 LIKE lfa1-name1. "KHB

*----------------------------------------------------------------------*
*       FORM GET_EXIT_TITLES                                           *
*----------------------------------------------------------------------*
*       returns name and title of all available standard-exits         *
*       every exit in this formpool has to be added to this form.      *
*       You have to specify a parameter type in order to enable the    *
*       code generation program to determine correctly how to          *
*       generate the user exit call, i.e. how many and what kind of    *
*       parameter(s) are used in the user exit.                        *
*       The following parameter types exist:                           *
*                                                                      *
*       TYPE                Description              Usage             *
*    ------------------------------------------------------------      *
*       C_EXIT_PARAM_NONE   Use no parameter         Subst. and Valid. *
*                           except B_RESULT                            *
*       C_EXIT_PARAM_FIELD  Use one field as param.  Only Substitution *
*       C_EXIT_PARAM_CLASS  Use a type as parameter  Subst. and Valid  *
*                                                                      *
*----------------------------------------------------------------------*
*  -->  EXIT_TAB  table with exit-name and exit-titles                 *
*                 structure: NAME(5), PARAM(1), TITEL(60)
*----------------------------------------------------------------------*
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.

  exits-name  = 'U901'.
  exits-param = c_exit_param_field.
  exits-title = text-101.             "Cost center from CSKS
  APPEND exits.

  exits-name  = 'U902'.               "KHB
  exits-param = c_exit_param_field.
  exits-title = text-902.             "A类/K类/F类的PO上物料描述放SGTXT上
  APPEND exits.

  exits-name  = 'U903'.               "Susan 2009-7-21
  exits-param = c_exit_param_field.
  exits-title = text-903.             "ZFD订单,将样品发放字样及物料描述、订单原因放在SGTXT上
  APPEND exits.

  exits-name  = 'U904'.               "
  exits-param = c_exit_param_field.
  exits-title = text-999.             "
  APPEND exits.
*  begin V1.1
  exits-name  = 'U905'.               "
  exits-param = c_exit_param_field.
  exits-title = text-101.             "
  APPEND exits.
**  end v1.1
  exits-name  = 'U911'.
  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

************************************************************************
* PLEASE DELETE THE