关键词:SM30,表维护,Table Maintenance,events,event AA:Instead of the standard data read routine
FORM form_aa. "Instead of the standard data read routine
PERFORM vim_fill_wheretab.
CLEAR:total,total[].
SELECT * FROM ztest001 WHERE (vim_wheretab) .
CHECK ztest001-matnr = 'BARRY-TEST'.
= ztest001.
APPEND total.
ENDSELECT.
SORT total BY .
-alr_sorted = 'R'.
IF x_header-selection NE space.
PERFORM check_dynamic_select_options.
ELSEIF x_header-delmdtflag NE space.
PERFORM build_mainkey_tab.
ENDIF.
REFRESH extract.
ENDFORM. "form_aa
FORM form_05. "Creating a new entry
SELECT SINGLE ktext INTO zrggbs000_mv-ktext
FROM cepct
WHERE spras = sy-langu AND
prctr = zrggbs000_mv-prctr AND
datbi > sy-datum.
ENDFORM.
阅读(4229) | 评论(0) | 转发(1) |