BP客户增强-保存时增加校验事件(DCHCK)

Tab Zhu

发布于 2022-06-27 17:03:09

1.1K0

发布于 2022-06-27 17:03:09

文章被收录于专栏：TAB的coding生活TAB的coding生活

BUPT-BP客户界面保存时增加校验事件

(DCHCK)

我们对于前面的增强做一个限制，需求如下：

1.BP界面合作商类型字段为10，20，30时，才能维护合作商，99或为空时不允许维护；否则报错”当前合作商类型不允许维护合作商LIST”

2.BP界面合作商类型有值且不为99或空时，可以维护合作商LIST，合作商类型需要和BP界面的合作商类型一致；否则报错”存在合作商LIST的合作商类型和BP界面的合作商类型不一致”

1.创建保存前检查校验的函数

这时我们需要使用到事件(BUS7)-DCHCK；

在该事件中维护函数：

在函数组ZBP_FG_ENHENCEMENT中创建DCHCK函数(ZBP_BUPA_EVENT_DCHCK)：

在BP事件中，可以使用BUS_MESSAGE_STORE函数来把你所想要报错的消息存储起来，当保存时，会去检测，有E类型错误时，不准保存。

FUNCTION zbp_bupa_event_dchck.
*"----------------------------------------------------------------------
*"*"本地接口：
*"----------------------------------------------------------------------
*参考：BUP_BUPA_EVENT_DCHCK 创建
  DATA lt_knb1 TYPE TABLE OF knb1.
*获取目前界面数据
  cvi_bdt_adapter=>get_current_bp_cc_data(
   EXPORTING
     i_table_name = table_name_knb1
   IMPORTING
     e_data_table = lt_knb1[]
 ).
  CHECK lt_knb1[] IS NOT INITIAL.
  READ TABLE lt_knb1 INTO DATA(ls_knb1) INDEX 1.

  DATA(lv_corporate_type) = ls_knb1-corporate_type.

  "1.BP界面合作商类型字段为10，20，30时，才能维护合作商，99或为空时不允许维护；
  IF ( lv_corporate_type IS INITIAL OR lv_corporate_type = '99' ) AND  ls_knb1-maintain_corpo = abap_on.
    "调用BUS_MESSAGE_STORE 来写入报错信息
    CALL FUNCTION 'BUS_MESSAGE_STORE'
      EXPORTING
        arbgb = 'ZBP'
        msgty = 'E'
        txtnr = 001.
  ELSE.
    "2.2.BP界面合作商类型有值且不为99或空时，可以维护合作商LIST，合作商类型需要和BP界面的合作商类型一致
    LOOP AT gt_ztbp001_info_buf[] TRANSPORTING NO FIELDS WHERE corporate_type NE lv_corporate_type.
      "调用BUS_MESSAGE_STORE 来写入报错信息
      CALL FUNCTION 'BUS_MESSAGE_STORE'
        EXPORTING
          arbgb = 'ZBP'
          msgty = 'E'
          txtnr = 002.
      EXIT.
    ENDLOOP.
  ENDIF.

ENDFUNCTION.