SELECT mseg~matnr
mseg~meins
mseg~bwart
mseg~erfmg
mseg~mblnr
mseg~ZEILE
mseg~lgort
mkpf~budat
INTO CORRESPONDING FIELDS OF TABLE g_t_result
FROM mseg INNER JOIN mkpf ON mkpf~mblnr = mseg~mblnr and mkpf~mjahr = mseg~mjahr
WHERE mkpf~budat IN s_budat
AND mkpf~mjahr = p_gjahr
AND mseg~werks IN s_werks
AND mseg~matnr IN s_matnr
AND mseg~lgort IN s_lgort
AND mseg~bwart IN s_bwart
AND mseg~mblnr IN s_mblnr
AND mseg~bukrs = p_bukrs.
LOOP AT g_t_result.
SELECT SINGLE maktx FROM makt INTO g_t_result-maktx WHERE matnr = g_t_result-matnr.
MODIFY g_t_result.
CLEAR g_t_result.
ENDLOOP.
SELECT belnr awkey FROM bkpf INTO CORRESPONDING FIELDS OF TABLE g_t_bkpf
WHERE budat IN s_budat AND bukrs = p_bukrs AND awtyp = 'MKPF' AND gjahr = p_gjahr.
LOOP AT g_t_result.
READ TABLE g_t_bkpf WITH KEY awkey+0(10) = g_t_result-mblnr.
IF sy-subrc = 0.
g_t_result-belnr = g_t_bkpf-belnr.
ENDIF.
MODIFY g_t_result.
CLEAR g_t_result.
ENDLOOP.
跑不出来啊。。。。帮帮忙看看怎么优化喽。。。这个程序是根据物料凭证找相应的会计凭证。