QA11 QA32增强

使用事务代码QA11或QA32做使用决策时，点击保存触发增强（根据界面上的检验批号LINK表字段

QALS-PRUEFLOS取出QALS-MATNR、QALS-LIFNR和QALS-WERK LINK自建表1中的供应商、物料

和工厂取对应自建表1中“是否管控”字段值是否为N，如果为N则不进入增强，否则进入增强，并进行

以下判断：

1、根据QALS-LIFNR和QALS-MATNR、QALS-WERKS LINK自建表1中的供应商+物料+工厂取出报告到

期日（如果取到多条数据，则只取报告到期日最早的那条数据做下面的校验），然后用报告到期日减去检验批

创建日期（QALS-ENSTEHDAT）：
1）当报告到期日减去检验批创建日期（QALS-ENSTEHDAT）小于或等于自建表1中的“提醒IQC周期

（天）”字段值，并且对应的自建表1中“是否提醒IQC”字段不为N，则弹出警告消息：该检验批物料

XXXX的子材料XXXX报告编码XXXX还有多少天到期，回车可跳过消息并允许保存；
2）当报告到期日减去检验批创建日期（QALS-ENSTEHDAT）大于自建表1中的“控制IQC周期（天）”

字段值，并且对应的自建表1中“是否控制IQC”字段不为N，则弹出错误消息：该检验批物料XXXX的子

材料XXXX报告编码XXXX已超期XXXX天，不允许保存。

SE19 输入相应的增强BADI 创建相应的增强

填写短文本

上面显示的是保存前检查的方法相关程序写在这里面

method IF_EX_INSPECTIONLOT_UPDATE~SET_UD_AT_SAVE.
      DATA: i_data1    TYPE QALS,
            i_data2    TYPE QALS,
            i_data3 TYPE  QAVE.

DATA: gt_ztmm035 TYPE TABLE OF ztmm035,
gs_ztmm035 type ztmm035.

DATA: lv_data(6) TYPE c.

IF sy-tcode = 'QA11' .

i_data1 = NEW_INSPLOT.
        i_data2 = OLD_INSPLOT.
        i_data3 = UD_DATA.
*
*        LOOP AT items INTO line_item.
*
*        CLEAR: po_line.
*        po_line = line_item-item->get_data( ).
*
          SELECT WERKS MATNR LIFNR SFGK JSRQ ZCLMC  TXIQCZQ TXIQC BGBH
          INTO CORRESPONDING FIELDS OF TABLE gt_ztmm035
          FROM ztmm035
          WHERE WERKS = i_data1-werk
          and matnr = i_data1-matnr
          and lifnr = i_data1-lifnr
          and SFGK <> 'N'.
*
           SORT gt_ztmm035 by WERKS matnr lifnr JSRQ.
*
*        CLEAR lv_data.
        READ TABLE gt_ztmm035 INTO gs_ztmm035 WITH  KEY WERKS = i_data1-werk matnr = i_data1-matnr lifnr = i_data1-lifnr BINARY SEARCH.
        if sy-subrc = 0.
           CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
            EXPORTING
              I_DATE_FROM    = i_data1-ENSTEHDAT
              I_DATE_TO      = gs_ztmm035-JSRQ
              I_FLG_SEPARATE = ' '       "是否单独计算 若有标识，则返回两日期相差的天数
            IMPORTING
              E_DAYS         = lv_data.  "返回天数：638
*
           if lv_data <= gs_ztmm035-TXIQCZQ AND gs_ztmm035-TXIQC <> 'N'.
             MESSAGE '该批检验批物料' && gs_ztmm035-matnr && '的子材料' && gs_ztmm035-ZCLMC && '报告编码' && gs_ztmm035-BGBH
             && '还有' && lv_data  && '天到期,回车可跳过消息并允许保存订单' TYPE 'I' DISPLAY LIKE 'W'.
           ENDIF.
*
           if lv_data > gs_ztmm035-TXIQCZQ AND gs_ztmm035-TXIQC <> 'N'.
             MESSAGE '该批检验批物料' && gs_ztmm035-matnr && '的子材料' && '报告编码' && gs_ztmm035-BGBH && gs_ztmm035-ZCLMC && '已超期'
             && lv_data &&  '不允许保存' TYPE 'I' DISPLAY LIKE 'E'.
           ENDIF.
*
           ENDIF.
           CLEAR gs_ztmm035.
*
*
*
*
*        ENDLOOP.
       ENDIF.
  endmethod.

QA11 QA32增强相关推荐

SAP ABAP QA11屏幕增强 BADI QEVA_SUBSCREEN_1101
QA11屏幕增强: 效果图: BADI: QEVA_SUBSCREEN_1101 SE11添加客制化字段:QALS或者决策表. 创建自定义函数组,添加屏幕信息: 全局定义: FUNCTION-POOL ...
SAP 检验批决策增强
前台QA11操作时,保存时增强点: BADI:INSPECTIONLOT_UPDATE 修改检验批库存界面的过账数量和库存地点,增强点: 隐式增强: 具体代码: FUNCTION ZFMQM_019. ...
SAP ABAP常用增强记录文档（不定期完善更新）
在sap的开发中,如果遇到了标准系统实现不了的需要定制的功能.那么就需要用增强enhancement来实现. 这是一些常用的增强例子.有BADI,有修改.以供修改用. BADI-ADDRESS_UPD ...
[ABAP] QA32冲销BAPI示例代码
有需求需要做QA32的返向即质检库存转为非限制库存,下面放DEMO程序,有碰到类似需求的朋友方便引用. *$*$-------------------------------------------- ...
2022-2028年中国纤维增强聚合物行业市场调查研究及发展前景规划报告
[报告类型]产业研究 [出版时间]即时更新(交付时间约3个工作日) [发布机构]智研瞻产业研究院 [报告格式]PDF版本报告介绍了纤维增强聚合物行业相关概述.中国纤维增强聚合物行业运行环境.分析了中 ...
Windows10自带搜索增强设置
操作系统:Windows10 前言:Windows自带的搜索速度非常慢,因此有人借助Everything等索引软件进行搜索,能够显著提升搜索速度.但是Windows自带的搜索在进行一些设置以后也能达到 ...
新兴解决方案增强了电动汽车电源（功耗）管理
新兴解决方案增强了电动汽车电源(功耗)管理 Emerging solutions enhance electric-vehicle power management 电动汽车正变得越来越受欢迎,因为在 ...
数字汽车钥匙的安全性增强技术
数字汽车钥匙的安全性增强技术 Service bolsters security of digital car keys 苏格兰爱丁堡--现在智能手机上的应用程序已经成为所有数字商务之母,各公司正狂热 ...
小目标检测的增强算法
小目标检测的增强算法 Augmentation for small object detection 摘要近年来,目标检测取得了令人瞩目的进展.尽管有了这些改进,但在检测小目标和大目标之间的性能仍有 ...

QA11 QA32增强

QA11 QA32增强相关推荐

最新文章

热门文章