SAP에서 개발된 여러 프로그램에 Variant가 많이 걸려가 있습니다. ID별로 조금 편리하게 Variant를 자동으로 셋팅되게 만들 수 있게 하방법 입니다. 아래소스보시면 쉽게 이해 가능하실겁니다.
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 41 | *-----------------------------------------** INITIALIZATION*-----------------------------------------*INITIALIZATION. PERFORM SET_VARIANT.*&---------------------------------------------------------------------**& Form SET_VARIANT*&---------------------------------------------------------------------*FORM SET_VARIANT . DATA: LS_VARID TYPE VARID, LV_REPID LIKE RSVAR-REPORT, LV_VARIANT LIKE RSVAR-VARIANT. CLEAR: LV_REPID, LV_VARIANT, LS_VARID. LV_REPID = SY-REPID.* ID별 VARIANT 가져오기 SELECT SINGLE * INTO LS_VARID FROM VARID WHERE REPORT = LV_REPID AND ENAME = SY-UNAME. LV_VARIANT = LS_VARID-VARIANT.* SCREEN 적용 CALL FUNCTION 'RS_SUPPORT_SELECTIONS' EXPORTING REPORT = LV_REPID VARIANT = LV_VARIANT EXCEPTIONS VARIANT_NOT_EXISTENT = 01 VARIANT_OBSOLETE = 02. IF SY-SUBRC <> 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.ENDFORM. " SET_VARIANT |
'SAP > ABAP' 카테고리의 다른 글
| ABAP개발에서 Internal Table의 필드속성 가져오기 (0) | 2014.02.13 |
|---|