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

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

复制代码
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.
相关推荐
萧鼎13 分钟前
深度探索 Py2neo:用 Python 玩转图数据库 Neo4j
数据库·python·neo4j
future14121 小时前
C#每日学习日记
java·学习·c#
m0_653031361 小时前
腾讯云认证考试报名 - TDSQL数据库交付运维专家(TCCE MySQL版)
运维·数据库·腾讯云
一个混子程序员1 小时前
SpringBoot自定义Schedule注解
java
power 雀儿1 小时前
集群聊天服务器---MySQL数据库的建立
服务器·数据库·mysql
心之语歌1 小时前
Java高效压缩技巧:ZipOutputStream详解
java·后端
booooooty1 小时前
基于Spring AI Alibaba的多智能体RAG应用
java·人工智能·spring·多智能体·rag·spring ai·ai alibaba
猴哥源码1 小时前
基于Java+SpringBoot的健身房管理系统
java·spring boot
极光雨雨1 小时前
Spring Bean 控制销毁顺序的方法总结
java·spring
猴哥源码1 小时前
基于Java+SpringBoot的三国之家网站
java·spring boot