此程序的核心函数为CREDITLIMIT_CHANGE，可以通过事物代码FD33检验结果。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 |
FUNCTION ZSD_CREDITLIMIT_CHANGE. *"---------------------------------------------------------------------- *"*"本地接口： *" IMPORTING *" VALUE(I_KUNNR) TYPE KNKK-KUNNR *" VALUE(I_KKBER) TYPE KNKK-KKBER DEFAULT '1000' *" VALUE(I_KLIMK) TYPE KNKK-KLIMK *" EXPORTING *" VALUE(E_SUCC) TYPE CHAR1 *" VALUE(E_MESSAGE) TYPE GTER_TEXT *"---------------------------------------------------------------------- DATA: L_KNA1 TYPE KNA1, L_KNKA TYPE KNKA, L_KNKK TYPE KNKK, Y_KNKA TYPE KNKA, Y_KNKK TYPE KNKK, LV_UPD_KNKK TYPE C, LV_XNEUA TYPE C. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING INPUT = I_KUNNR IMPORTING OUTPUT = I_KUNNR. SELECT SINGLE * FROM KNA1 INTO L_KNA1 WHERE KUNNR = I_KUNNR. IF SY-SUBRC <> 0. E_SUCC = 'E'. E_MESSAGE = '客户编码不存在!'. ENDIF. CHECK E_SUCC <> 'E'. SELECT SINGLE * FROM KNKA INTO Y_KNKA WHERE KUNNR = I_KUNNR. L_KNKA = Y_KNKA. SELECT SINGLE * FROM KNKK INTO Y_KNKK WHERE KUNNR = I_KUNNR AND KKBER = I_KKBER. IF SY-SUBRC <> 0. LV_UPD_KNKK = 'I'. L_KNKK-KUNNR = I_KUNNR. L_KNKK-KKBER = I_KKBER. L_KNKK-KNKLI = I_KUNNR. ELSE. LV_XNEUA = 'X'. LV_UPD_KNKK = 'U'. L_KNKK = Y_KNKK. L_KNKK-AEDAT = SY-DATUM. L_KNKK-AENAM = SY-UNAME. ENDIF. L_KNKK-KLIMK = I_KLIMK. CALL FUNCTION 'CREDITLIMIT_CHANGE' EXPORTING I_KNKA = L_KNKA I_KNKK = L_KNKK UPD_KNKA = '' UPD_KNKK = LV_UPD_KNKK XNEUA = LV_XNEUA * XREFL = ' ' YKNKA = Y_KNKA YKNKK = Y_KNKK. IF SY-SUBRC = 0. E_SUCC = 'S'. E_MESSAGE = '更新成功！'. ELSE. E_SUCC = 'E'. E_MESSAGE = '更新失败！'. ENDIF. ENDFUNCTION. |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/571.html
如果使用过程中遇到问题，可 **点击此处** 交流沟通。
版权所有，转载时必须以链接形式注明作者和原始出处及本声明。
