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.
相关推荐
RestCloud10 小时前
SQL Server到Hive:批处理ETL性能提升30%的实战经验
数据库·api
RestCloud10 小时前
为什么说零代码 ETL 是未来趋势?
数据库·api
ClouGence12 小时前
CloudCanal + Paimon + SelectDB 从 0 到 1 构建实时湖仓
数据库
DemonAvenger19 小时前
NoSQL与MySQL混合架构设计:从入门到实战的最佳实践
数据库·mysql·性能优化
AAA修煤气灶刘哥1 天前
后端人速藏!数据库PD建模避坑指南
数据库·后端·mysql
RestCloud1 天前
揭秘 CDC 技术:让数据库同步快人一步
数据库·api
得物技术2 天前
MySQL单表为何别超2000万行?揭秘B+树与16KB页的生死博弈|得物技术
数据库·后端·mysql
侃侃_天下2 天前
最终的信号类
开发语言·c++·算法
可涵不会debug2 天前
【IoTDB】时序数据库选型指南:工业大数据场景下的技术突围
数据库·时序数据库
ByteBlossom2 天前
MySQL 面试场景题之如何处理 BLOB 和CLOB 数据类型?
数据库·mysql·面试