SAP ABAP弹出对对话框错误信息设计

弹出对对话框错误信息设计、REUSE_ALV_POPUP_TO_SELECT

代码如下:

sql 复制代码
IF lw_item_date-menge > lv_atp_other.
          lw_error-ebelp      = lw_item_date-ebelp.
          lw_error-matnr      = lw_item_date-matnr.
          lw_error-zlabst     = lv_labst.
          lw_error-zoccupy_so = lv_occupy_so.
          lw_error-zoccupy_po = lv_occupy_po.
          lw_error-zoccupy_my = lv_occupy_my.
          lw_error-zoccupy_rs = lv_occupy_rs.
          lw_error-zatp       = lv_atp.
          lw_error-zdiff      = lv_atp_other - lw_item_date-menge.
          lw_error-zmenge     = lw_item_date-menge.
          APPEND lw_error TO lt_error.
          CLEAR  lw_error.
        ENDIF.
 
 
   IF lt_error[] IS NOT INITIAL .
        lw_fieldcat-fieldname     = 'EBELP'.
        lw_fieldcat-seltext_l     = '行项目'.
        lw_fieldcat-outputlen     = '5'.
        APPEND lw_fieldcat TO lt_fieldcat.
        CLEAR  lw_fieldcat.
        lw_fieldcat-fieldname     = 'MATNR'.
        lw_fieldcat-ref_tabname   = 'MARA'.
        lw_fieldcat-ref_fieldname = 'MATNR'.
        lw_fieldcat-seltext_l     = '行项目'.
        lw_fieldcat-outputlen     = '11'.
        APPEND lw_fieldcat TO lt_fieldcat.
        CLEAR  lw_fieldcat.
        lw_fieldcat-fieldname     = 'ZLABST'.
        lw_fieldcat-seltext_l     = '库存数量'.
        lw_fieldcat-outputlen     = '13'.
        APPEND lw_fieldcat TO lt_fieldcat.
        CLEAR  lw_fieldcat.
        lw_fieldcat-fieldname     = 'ZOCCUPY_PO'.
        lw_fieldcat-seltext_l     = '调拨占用'.
        lw_fieldcat-outputlen     = '13'.
        APPEND lw_fieldcat TO lt_fieldcat.
        CLEAR  lw_fieldcat.
        lw_fieldcat-fieldname     = 'ZOCCUPY_MY'.
lw_fieldcat-seltext_l     = '订单其他行'.
        lw_fieldcat-outputlen     = '13'.
        APPEND lw_fieldcat TO lt_fieldcat.
        CLEAR  lw_fieldcat.
        lw_fieldcat-fieldname     = 'ZOCCUPY_SO'.
        lw_fieldcat-seltext_l     = '销售占用'.
        lw_fieldcat-outputlen     = '13'.
        APPEND lw_fieldcat TO lt_fieldcat.
        CLEAR  lw_fieldcat.
        lw_fieldcat-fieldname     = 'ZOCCUPY_RS'.
        lw_fieldcat-seltext_l     = '预留占用'.
        lw_fieldcat-outputlen     = '13'.
        APPEND lw_fieldcat TO lt_fieldcat.
        CLEAR  lw_fieldcat.
        lw_fieldcat-fieldname     = 'ZATP'.
        lw_fieldcat-seltext_l     = '可用数量'.
        lw_fieldcat-outputlen     = '13'.
        APPEND lw_fieldcat TO lt_fieldcat.
        CLEAR  lw_fieldcat.
        lw_fieldcat-fieldname     = 'ZMENGE'.
        lw_fieldcat-seltext_l     = '订单数量'.
        lw_fieldcat-outputlen     = '13'.
        APPEND lw_fieldcat TO lt_fieldcat.
        CLEAR  lw_fieldcat.
        lw_fieldcat-fieldname     = 'ZDIFF'.
        lw_fieldcat-seltext_l     = '差额'.
        lw_fieldcat-outputlen     = '13'.
        APPEND lw_fieldcat TO lt_fieldcat.
        CLEAR  lw_fieldcat.
 
        CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
          EXPORTING
            i_title               = '库存不足'
            i_selection           = ''
            i_allow_no_selection  = 'X'
            i_zebra               = 'X'
            i_screen_start_column = '10'
            i_tabname             = 'LT_ERROR'
            it_fieldcat           = lt_fieldcat
*           i_structure_name      = 'ZSME29N_ERROR'
          TABLES
            t_outtab              = lt_error
          EXCEPTIONS
            program_error         = 1
            OTHERS                = 2.
 
        MESSAGE e000(zabap) WITH '库存不足'.
      ENDIF.
相关推荐
鹏翼丶23 分钟前
搭建动态SQL取数
数据库·sql·动态sql
辰哥单片机设计31 分钟前
PH传感器详解(STM32)
数据库·mongodb
曹牧32 分钟前
Java 调用webservice接口输出xml自动转义
java·开发语言·javascript
JavaAlpha33 分钟前
面试题:Redis 一次性获取大量Key的风险及优化方案
数据库·redis·bootstrap
尽兴-38 分钟前
Mac「brew」快速安装Redis
数据库·redis·macos·brew
pyengine1 小时前
基于pandoc的MarkDown格式与word相互转换小工具开发(pyqt5)
开发语言·python·qt·word
YuSun_WK1 小时前
配置MambaIRv2: Attentive State Space Restoration的环境
开发语言·python
Nick_zcy1 小时前
开发基于python的商品推荐系统,前端框架和后端框架的选择比较
开发语言·python·前端框架·flask·fastapi
淬渊阁1 小时前
Go package
java·开发语言
篱笆院的狗2 小时前
MySQL 中 SQL 语句的详细执行过程
数据库·sql·mysql