SAP-VF11冲销时给出警告

1. 程序说明
   1. 程序说明

对于已开金税发票的系统发票, VF11冲销时给出警告.

2.2  程序实现

1. 在BADI: ZSD_CIN_LV60AU02的方法EXCISE_INVOICE_CREATE中增强:

DATA WA TYPE VBRKVB.     DATA L_ZGTST TYPE ZGTPK-ZGTST.     CHECK SY-TCODE = 'VF11'.     LOOP AT XVBRK INTO WA WHERE FKSTO = 'X'.       SELECT SINGLE ZGTST INTO L_ZGTST       FROM ZGTPK AS A INNER JOIN            ZGTDF AS B ON A~ZGTFP = B~ZGTFP       WHERE B~VBELN = WA-VBELN.       IF SY-SUBRC = 0 AND ( L_ZGTST = 'B' OR L_ZGTST = 'C' ).         MESSAGE W001(00) WITH '凭证' WA-VBELN '已开具金税发票, 不允许冲销'.       ENDIF.     ENDLOOP.