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