如何控制一些專案在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.
供大家參考。