SAP ABAP弹出对对话框错误信息设计
转载:https://blog.csdn.net/reagon2008/article/details/134682526
弹出对对话框错误信息设计、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.
posted on 2023-11-29 10:10 seven1314pp 阅读(140) 评论(0) 编辑 收藏 举报
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 被坑几百块钱后,我竟然真的恢复了删除的微信聊天记录!
· 【自荐】一款简洁、开源的在线白板工具 Drawnix
· 没有Manus邀请码?试试免邀请码的MGX或者开源的OpenManus吧
· 园子的第一款AI主题卫衣上架——"HELLO! HOW CAN I ASSIST YOU TODAY
· 无需6万激活码!GitHub神秘组织3小时极速复刻Manus,手把手教你使用OpenManus搭建本