案例:SAP SD Billing VF11增强
事务代码:SMOD
增强:V60A0001
组件:EXIT_SAPLV60A_002
增强写代码的位置:INCLUDE ZXV60AU01.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
*---------------------------------------------------------------------* * 包含 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 |
如若转载,请注明出处:https://www.gavindong.com/384.html