如何控制一些项目在ORDRSP中不输出

有些需求会要求有些项目在ORDRSP中不输出,经过查看函数IDOC_OUTPUT_ORDRSP,大家就会发现很多的CUSTOMER-FUNCTION。下面举个就以无确数量的行项目不输出为例,采用增强EXIT_SAPLVEDC_003(ZXVEDU15)代码,代码如下:

  if vbak-vtweg = '11'.
   Data w_BMENG like vbep-BMENG.
   CLEAR wf_del.
   LOOP AT dint_edidd.
      IF dint_edidd-segnam(7) = 'E1EDP01'.
        CLEAR wf_del.
        wf_e1edp01 = dint_edidd-sdata.
        IF NOT wf_e1edp01-posex IS INITIAL.
          w_posnr = wf_e1edp01-posex.
          select single sum( BMENG ) into ( w_BMENG ) from vbep where vbeln = dxvbak-vbeln
            and posnr = W_posnr.
          IF w_BMENG = 0.
            DELETE dint_edidd.
            wf_del = 'X'.
            w_BMENG = 0.
          ENDIF.
        ENDIF.
      ELSEIF dint_edidd-segnam(7) = 'E1CUCFG'.
        CLEAR wf_del.
      ELSEIF dint_edidd-segnam(7) = 'E1EDL37'.
        CLEAR wf_del.
      ELSEIF dint_edidd-segnam(7) = 'E1EDS01'.
        CLEAR wf_del.
      ELSEIF wf_del = 'X'.
        DELETE dint_edidd.
      ENDIF.
    ENDLOOP.
  ENDIF.

供大家参考。

发布了372 篇原创文章 · 获赞 76 · 访问量 355万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 技术工厂 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览