SAP销售开票的利润中心、业务范围替代出口

一、问题描述

最近项目里财务要求销售开票时将利润中心和业务范围写入会计凭证的每一行中，通过标准功能无法处理，最终通过财务替代进行了处理。

二、替代分享

1）GGB1 - 替代维护 

2）展开财务会计->行项目，点击创建“替代”，再创建“步骤”

3）如果出口中已做了判断了，先决条件可留空

4）双击替代U901

5) 代码如下

** 销售开票所有会计凭证行带利润中心和业务范围
  IF bkpf-blart = 'RV' AND bkpf-awtyp = 'VBRK'.
    SELECT SINGLE vkorg
      FROM ztsd0011
      INTO bseg-gsber
      WHERE vbeln = bkpf-belnr.
    bseg-prctr = |{ bseg-gsber ALPHA = IN }|.
  ENDIF.
  IF bkpf-blart = 'RE' AND bkpf-awtyp = 'IBKPF' AND bkpf-tcode = 'FB01' AND bkpf-xblnr IS NOT INITIAL.
    SELECT SINGLE b~vkorg
      FROM vbrp AS a
      INNER JOIN vbak AS b ON a~aubel = b~vbeln
      INTO bseg-gsber
      WHERE a~vbeln = bkpf-xblnr.
    bseg-prctr = |{ bseg-gsber ALPHA = IN }|.
  ENDIF.