SAP MM ME21N采购订单检查增强

 本人诚心接ABAP远程开发任务，价格公道，有需要的联系我，欢迎个人，甲方爸爸，乙方私信联系。 

根据客户要求，要求在创建采购订单时，对输入值进行校验

SE18-->ME_PROCESS_PO_CUST 

 

 DATA:lv_msg   TYPE SYMSGV.
 DATA:lv_matnr TYPE matnr.
 DATA lt_items TYPE purchase_order_items.
 DATA ls_items TYPE purchase_order_item.
 DATA ls_items_data TYPE mepoitem.
 DATA lt_items_data TYPE STANDARD TABLE OF mepoitem.


"获取当前的行项目
 CALL METHOD im_header->get_items
      RECEIVING
        re_items = lt_items.
 LOOP AT lt_items INTO ls_items.
      CALL METHOD ls_items-item->get_data
        RECEIVING
          re_data = ls_items_data.

      APPEND ls_items_data TO lt_items_data.
      CLEAR ls_items_data.
 ENDLOOP.

"将报错信息添加到标准报错里面
cl_message_mm=>create(
           EXPORTING  im_msgid         = 'ZMM001'
                      im_msgty         = 'E'
                      im_msgno         = '000'
                      im_msgv1         = lv_msg
                      im_msgv2         = ''
                      im_msgv3         = ''
                      im_msgv4         = ''
                      im_force_collect = 'X'
           EXCEPTIONS failure          = 0
                      dialog           = 0 ).
                ch_failed = 'X' .