调用的函数 :UPDATE_MATERIAL_LVORM
DATA:ls_mara LIKE mara ,
ls_marc LIKE marc ,
ls_mard LIKE mard ,
ls_mbew LIKE mbew ,
ls_mlgn LIKE mlgn ,
ls_mlgt LIKE mlgt ,
ls_mvke LIKE mvke ,
ls_t130s LIKE t130s,
ls_rm03g LIKE rm03g ,
ls_ymbew LIKE mbew .
SELECT SINGLE * INTO ls_mara FROM mara WHERE matnr = pw_pqc001-matnr.
CLEAR:ls_rm03g.
ls_rm03g-matnr = pw_pqc001-matnr.
ls_rm03g-lvoma = ' '.
CALL FUNCTION 'UPDATE_MATERIAL_LVORM'
EXPORTING
chargen_ebene = '1'
imara = ls_mara
imarc = ls_marc
imard = ls_mard
imbew = ls_mbew
imlgn = ls_mlgn
imlgt = ls_mlgt
imvke = ls_mvke
it130s = ls_t130s
rm03g = ls_rm03g
ymbew = ls_ymbew.