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.

注意：

如果“信用段”中没有维护任何数据，该“信用段”的描述不会出现“（已维护）”