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.
相关推荐
沐土Arvin7 分钟前
Nginx 核心配置详解与性能优化最佳实践
运维·开发语言·前端·nginx·性能优化
weixin_3077791321 分钟前
C#实现HiveQL建表语句中特殊数据类型的包裹
开发语言·数据仓库·hive·c#
難釋懷28 分钟前
JavaScript基础-移动端常用开发插件
开发语言·javascript·ecmascript
alksql37 分钟前
架构思路法
数据库·架构
Lethehong37 分钟前
崖山YashanDB:下一代国产分布式数据库的架构革新与行业实践
数据库·分布式·架构
GoingYoo41 分钟前
MySQL原理:逻辑架构
数据库·sql·mysql
阿巴阿巴拉1 小时前
Scala相关知识总结3
开发语言·python
漫天转悠1 小时前
Java8 到 Java21 系列之 Lambda 表达式:函数式编程的开端(Java 8)
java·开发语言
爱的叹息1 小时前
针对 SQL 查询中 IN 子句性能优化 以及 等值 JOIN 和不等值 JOIN 对比 的详细解决方案、代码示例及表格总结
数据库·sql·性能优化
island13141 小时前
【Linux网络#18】:深入理解select多路转接:传统I/O复用的基石
linux·运维·数据库