【ABAP】基于BADI：INSPECTIONLOT_UPDATE 新增/修改检验批。质检决策下发的增强

最新推荐文章于 2025-02-19 10:54:18 发布

Ramos丶

最新推荐文章于 2025-02-19 10:54:18 发布

阅读量673

点赞数 16

分类专栏： SAP_ABAP 文章标签：数据分析

本文链接：https://blog.youkuaiyun.com/u010837413/article/details/140325231

版权

SAP_ABAP 专栏收录该内容

21 篇文章

订阅专栏

因为这里是基于BADI做的增强首先我们对BADI创建实施点（SE19-创建实施）

下方以创建检验批为例生成检验批后即可获取当前检验批数据

检验批编号为预生成的号码段生成后不一定在QALS保存，所以我们要先校验生成保存在系统内

可在（ IF_EX_INSPECTIONLOT_UPDATE~CREATE_BEFORE_UPDATE）进行校验，确定存系统后（标准表QALS）可进行检验批数据的处理

METHOD if_ex_inspectionlot_update~create_before_update.

 DATA(l_bool) = NEW zcl_p0pp_l_if0015( )->check_status( i_type = 'I' 
                                                       i_objnr = insplot-objnr ).
    IF l_bool = 'I'.
 "此处可对检验批进行操作了 数据存在系统变量 insplot 中"
    ELSE.
*      MESSAGE '当前检验批 未发送LIMS' TYPE 'S' DISPLAY LIKE 'W'.
    ENDIF.


ENDMETHOD.


"I_Bool取值逻辑"
 DATA:ls_status TYPE jstat,
      lt_status TYPE TABLE OF jstat. 

  CALL FUNCTION 'STATUS_READ'
    EXPORTING
      client           = sy-mandt
      objnr            = i_objnr
    TABLES
      status           = lt_status
    EXCEPTIONS
      object_not_found = 1
      OTHERS           = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  SORT lt_status BY stat  inact.

"已就绪 *'I0002'". 
 READ TABLE lt_status INTO ls_status WITH KEY stat  = 'I0002'
                                              inact = abap_false.
 IF sy-subrc = 0.
    r_bool = 'I'.
 ELSE.
    r_bool = 'E'.
 ENDIF.