案例：SAP SD Billing VF11增强

事务代码：SMOD
增强：V60A0001
组件：EXIT_SAPLV60A_002
增强写代码的位置：INCLUDE ZXV60AU01.

*---------------------------------------------------------------------*
*  包含                ZXV60AU01
*  原则：如果已清账，则不允许直接冲销Billing
*  思考：一次只能输入一张单据进行开票、其他开票条件的判断等都可以在此增强
*---------------------------------------------------------------------*
DATA: LS_KOMFK   TYPE  KOMFK,
LV_AUGBL   TYPE BSEG-AUGBL.
CLEAR: LS_KOMFK,LV_AUGBL.
LOOP AT XKOMFK INTO LS_KOMFK.
CASE SY-TCODE.
WHEN 'VF11'.
SELECT SINGLE AUGBL INTO LV_AUGBL FROM BSEG WHERE VBELN = LS_KOMFK-VBELN AND BSCHL = '01'.
IF LV_AUGBL IS NOT INITIAL .
MESSAGE E000 WITH '该Billing已冲销或已清账，不允许直接冲销！'.
ELSE.
CONTINUE.
ENDIF.
WHEN OTHERS.
ENDCASE.
CLEAR: LS_KOMFK,LV_AUGBL.
ENDLOOP

*---------------------------------------------------------------------*

* 包含 ZXV60AU01

* 原则：如果已清账，则不允许直接冲销Billing

* 思考：一次只能输入一张单据进行开票、其他开票条件的判断等都可以在此增强

*---------------------------------------------------------------------*

DATA: LS_KOMFK TYPE KOMFK,

LV_AUGBL TYPE BSEG-AUGBL.

CLEAR: LS_KOMFK,LV_AUGBL.

LOOP AT XKOMFK INTO LS_KOMFK.

CASE SY-TCODE.

WHEN 'VF11'.

SELECT SINGLE AUGBL INTO LV_AUGBL FROM BSEG WHERE VBELN = LS_KOMFK-VBELN AND BSCHL = '01'.

IF LV_AUGBL IS NOT INITIAL .

MESSAGE E000 WITH '该Billing已冲销或已清账，不允许直接冲销！'.

ELSE.

CONTINUE.

ENDIF.

WHEN OTHERS.

ENDCASE.

CLEAR: LS_KOMFK,LV_AUGBL.

ENDLOOP

本文作者: GavinDong

版权属于: GavinDong博客

文章链接: https://gavindong.com/384.html

如果使用过程中遇到问题，可 **点击此处** 交流沟通。

案例：SAP SD Billing VF11增强

回复 ag

评论列表（1条）

案例：SAP SD Billing VF11增强

相关文章

冲销SAP中的取消发票

SAP发票拆分增强

Example for BTE 00001120

回复 ag

评论列表（1条）