sap客户信贷_通过SAP ABAP接口修改客户信贷主数据
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.
文章来自于网络,如果侵犯了您的权益,请联系站长删除!