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 .

總結(jié)

以上是生活随笔為你收集整理的修改信贷接口的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。