采购申请科目分配校验增强-MEREQ001-EXIT_SAPLMEREQ_010

  DATA:ls_eban    LIKE LINE OF im_t_eban,
       ls_ebkn    LIKE LINE OF im_t_ebkn,
       ls_message TYPE bapiret2.

* 创建pr时，针对资产采购，科目分配页签下维护的数量必须为1，增加此校验规则
  LOOP AT im_t_eban INTO ls_eban.
    IF ls_eban-knttp = ‘A‘.
      LOOP AT im_t_ebkn INTO ls_ebkn WHERE banfn = ls_eban-banfn
                                        AND bnfpo = ls_eban-bnfpo.
        IF ls_ebkn-menge <> ‘1‘.
          ls_message-type   = ‘E‘.
          ls_message-id     = ‘ZMM_001‘."消息类
          ls_message-number = ‘001‘.
          ls_message-row    = ls_eban-bnfpo.
          APPEND ls_message TO ex_messages.
        ENDIF.

      ENDLOOP.
    ENDIF.

  ENDLOOP.