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.