程序来源于FAGL_LINE_ITEM_BROWSER / RKESS_FORMS,FIND关键字用于判断指定字符在变量中是否存在,若存在则subrc返回0.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
FORM SS_SO_TO_SEL USING I_FIELDNAME TYPE RSSCR_DBFI IT_SO TYPE ANY TABLE. DATA: S_TRANGE TYPE RSDS_RANGE, TABIX LIKE SY-TABIX VALUE 0. FIND '-' IN I_FIELDNAME. IF SY-SUBRC = 0. SPLIT I_FIELDNAME AT '-' INTO SS_TABLENAME SS_FIELDNAME. ELSE. SS_FIELDNAME = I_FIELDNAME. ENDIF. CHECK SS_FIELDNAME IS NOT INITIAL. READ TABLE SS_GR_INT->T_TRANGE INTO S_TRANGE WITH KEY TABLENAME = SS_TABLENAME. IF SY-SUBRC = 0. TABIX = SY-TABIX. ELSE. S_TRANGE-TABLENAME = SS_TABLENAME. ENDIF. CL_KESS_FREE_SELECTION_INT=>CONVERT_RANGE_TO_SELTAB( EXPORTING I_FIELDNAME = SS_FIELDNAME IT_TABLE = IT_SO CHANGING XT_SELTAB = S_TRANGE-FRANGE_T ). IF TABIX = 0. APPEND S_TRANGE TO SS_GR_INT->T_TRANGE. ELSE. MODIFY SS_GR_INT->T_TRANGE FROM S_TRANGE INDEX TABIX. ENDIF. ENDFORM. |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/3007.html
如果使用过程中遇到问题,可 **点击此处** 交流沟通。
版权所有,转载时必须以链接形式注明作者和原始出处及本声明。