ABAP:ME51N,MB52N,MB53N采购申请保存增强

SE18-BADI名称:ME_REQ_POSTED

 

  METHOD if_ex_me_req_posted~posted.


    "检查采购申请增强开关
    DATA ls_zexit TYPE zexit.

    "20221210  排除ITPORT的用户
*    IF sy-uname <> 'ITPORT'.
      .
      SELECT SINGLE * INTO CORRESPONDING FIELDS OF ls_zexit FROM zexit WHERE znum = '004'.
      IF ls_zexit-zflag = 'X'.
        "检查是否SAP事务创建
*      IF sy-tcode IS NOT INITIAL.”2022年10月25日10:56:12 ldh
        DATA ls_eban TYPE ueban.
        LOOP AT im_eban INTO ls_eban.
          "当有多行采购申请的时候，只传输一次
          AT NEW banfn.
            "判断是否需要审批
*        IF ils_eban-frggr IS INITIAL OR ( ls_eban-frggr IS NOT INITIAL AND ls_eban-frgrl IS INITIAL ).
            "SRMV8 PO同步增强
            CALL FUNCTION 'ZSRM_ISCM7S_EXIT'
              EXPORTING
                iv_banfn = ls_eban-banfn.
          ENDAT.
        ENDLOOP.



*      ENDIF.
    ENDIF.

  ENDMETHOD.