*---数据定义
data: i_knka like knka,
i_knkk like knkk,
upd_knka like cdpos-chngind,
upd_knkk like cdpos-chngind,
xneua like rf02l-xneua,
xrefl like rf02l-xneua,
yknka like knka,
yknkk like knkk.
*---数据赋值
select single * into i_knka from knka where kunnr = wa_zsdt017-kunnr.
if sy-subrc = 0.
upd_knka = 'U'.
else.
i_knka-kunnr = wa_zsdt017-kunnr.
i_knka-klimg = wa_zsdt017-klimk.
upd_knka = 'I'.
endif.
select single * into i_knkk from knkk where kunnr = wa_zsdt017-kunnr and kkber = '1000'.
if sy-subrc = 0.
upd_knkk = 'U'.
else.
i_knkk-kunnr = wa_zsdt017-kunnr.
i_knkk-klimk = wa_zsdt017-klimk.
upd_knkk = 'I'.
endif.
i_knkk-klimk = wa_zsdt017-klimk. "信贷限额
i_knkk-dbmon = wa_zsdt017-datbi. "有效期
*---调用函数
call function 'CREDITLIMIT_CHANGE'
exporting
i_knka = i_knka
i_knkk = i_knkk
upd_knka = upd_knka
upd_knkk = upd_knkk
* XNEUA = ' '
* XREFL = ' '
yknka = yknka
yknkk = yknkk.
评论