S4 HANA BP 维护客户信贷管理数据
T-CODE: BP ( 附加:T-CODE: UKM_MALUS_DSP 信用透支清单)
维护信贷管理数据
上图选择“SAP 信贷管理” ,维护字段:“风险类”“检查规则”。
点击“信用数据”按钮,如下
维护字段:“信用段”“定义的限额”。
通过如下方法实现:
TYPES: BEGIN OF ty_alv,
sel(1) TYPE c,
light TYPE icon-name,
index(10) TYPE n,
partner TYPE ukmbp_cms_sgm-partner,
credit_sgmnt TYPE ukmbp_cms_sgm-credit_sgmnt,
risk_class TYPE ukmbp_cms-risk_class,
risk_class_txt TYPE ukm_risk_cl0t-risk_class_txt,
check_rule TYPE ukmbp_cms-check_rule,
credit_limit TYPE ukmbp_cms_sgm-credit_limit,
status TYPE string,
END OF ty_alv.
*&---------------------------------------------------------------------*
*& Form FRM_METHOD_CALL
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM frm_method_call USING u_alv TYPE ty_alv
CHANGING c_return TYPE ukm_t_monitor_return.
DATA: io_facade TYPE REF TO cl_ukm_facade,
io_bupa_factory TYPE REF TO cl_ukm_bupa_factory,
io_partner TYPE REF TO cl_ukm_business_partner,
io_account TYPE REF TO cl_ukm_account,
lw_bp_credit_sgm TYPE ukm_s_bp_cms_sgm.
DATA: lwa_ukm_s_bp_cms TYPE ukm_s_bp_cms.
DATA: lv_partner TYPE bu_partner,
lv_credit_sgmnt TYPE ukm_credit_sgmnt.
* 创建'MAINTAIN'对象
io_facade = cl_ukm_facade=>create( i_activity = cl_ukm_cnst_eventing=>bp_maintenance ).
io_bupa_factory = io_facade->get_bupa_factory( ).
lv_partner = u_alv-partner. "客户代码
lv_credit_sgmnt = u_alv-credit_sgmnt."信用段
io_partner = io_bupa_factory->get_business_partner( lv_partner ).
io_partner->get_bp_cms( IMPORTING es_bp_cms = lwa_ukm_s_bp_cms ).
lwa_ukm_s_bp_cms-risk_class = u_alv-risk_class. "风险类
lwa_ukm_s_bp_cms-check_rule = u_alv-check_rule. "检查规则
io_partner->set_bp_cms( lwa_ukm_s_bp_cms ).
CALL METHOD io_bupa_factory->get_credit_account
EXPORTING
i_partner = lv_partner
i_credit_sgmnt = lv_credit_sgmnt
RECEIVING
ro_credit_account = io_account.
io_account->get_bp_cms_sgm( IMPORTING es_bp_cms_sgm = lw_bp_credit_sgm ).
lw_bp_credit_sgm-credit_limit = u_alv-credit_limit."信用额度
io_account->set_bp_cms_sgm( EXPORTING is_bp_cms_sgm = lw_bp_credit_sgm ).
io_bupa_factory->save_all( EXPORTING i_upd_task = abap_false
RECEIVING et_return = c_return ).
ENDFORM.
注意:
如果“信用段”中没有维护任何数据,该“信用段”的描述不会出现“(已维护)”
post SAP-Garson
原文链接:https://blog.csdn.net/wanglei880526/article/details/78123352文章来自于网络,如果侵犯了您的权益,请联系站长删除!