Hi,
Problem is solved in this way;
Write ENHANCEMENT in FM is GN_DELIVERY_CREATE.
Code is;
ENHANCEMENT 1 Z_VL31N_2. "active version
loop at xvbls.
data:ls_KOMDLGN type KOMDLGN.
clear:ls_KOMDLGN.
read table XKOMDLGN into ls_KOMDLGN with key
VGBEL = xvbls-VBELN.
if sy-subrc is initial.
SELECT SINGLE MATNR INTO xvbls-MATNR
FROM EKPO WHERE EBELN EQ ls_KOMDLGN-VGBEL
AND EBELP EQ ls_KOMDLGN-VGPOS.
MODIFY xvbls.
endif.
endloop.
ENDENHANCEMENT.
Thanks,
Kamber Açıkgöz.