采购申请科目分配校验增强-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.