案例：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

One thought on “案例：SAP SD Billing VF11增强”

另一处增强点：RV60AFZZ

One thought on “案例：SAP SD Billing VF11增强”

发表评论 取消回复

发表评论取消回复