1. 程式人生 > >如何控制一些專案在ORDRSP中不輸出

如何控制一些專案在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.

供大家參考。