选择屏幕功能例子(9)—在选择屏幕上使用默认变式

SAP一些标准程序会有打开程序时，选择屏幕直接使用用户默认的屏幕变式，在自己的程序中也一样，可以，只要在INITIALIZATION中调用如下的form: VARIANT_START就行了。

FORM VARIANT_START_F16.



  DATA: H_SUBRC   LIKE SY-SUBRC.

  DATA: H_REPID   LIKE RSVAR-REPORT.

  DATA: H_VARIANT LIKE RSVAR-VARIANT.

  DATA: H_TCODE   LIKE SY-TCODE.



*--- Tcode merken, kann durch Varainte überschrieben werden

  H_TCODE  = DY_TCODE.

*--- Einstiegsvarianten nicht bei Submit möglich da zum Zeitpunkt

*--- INITIALISATION dy-tcode nicht bekannt und sy-tcode = T-code

*--- des Aufrufers ist

*--- desweiteren könnten interne Parameter wie DY_SELMD durch

*--- Variante überschrieben werden

  IF SY-SLSET              IS INITIAL AND

     SY-CALLD              IS INITIAL AND

     G_FELDLIST-G_VAR_FLAG IS INITIAL AND

     SY-TCODE  'SE38'               AND

     SY-TCODE  'SA38'.



    G_SELMOD = SELMOD_0.

    H_REPID = SY-REPID.

    CLEAR H_VARIANT.

    H_VARIANT = 'U_'.

    WRITE SY-UNAME TO H_VARIANT+2.

*--- User specific variant

    CALL FUNCTION 'RS_VARIANT_EXISTS'

      EXPORTING

        REPORT  = H_REPID

        VARIANT = H_VARIANT

      IMPORTING

        R_C     = H_SUBRC.

    IF NOT H_SUBRC IS INITIAL.

*--- customizing variant

      CLEAR H_VARIANT.

      H_VARIANT = 'SAP_TCODE_'.

      WRITE SY-TCODE TO H_VARIANT+10.

      CALL FUNCTION 'RS_VARIANT_EXISTS'

        EXPORTING

          REPORT  = H_REPID

          VARIANT = H_VARIANT

        IMPORTING

          R_C     = H_SUBRC.

      IF NOT H_SUBRC IS INITIAL.

*--- system variant

        CLEAR H_VARIANT.

        H_VARIANT = 'SAP&TCODE_'.

        WRITE SY-TCODE TO H_VARIANT+10.

        CALL FUNCTION 'RS_VARIANT_EXISTS'

          EXPORTING

            REPORT  = H_REPID

            VARIANT = H_VARIANT

          IMPORTING

            R_C     = H_SUBRC.

      ENDIF.

    ENDIF.

    IF H_SUBRC = 0.

      G_FELDLIST-G_VAR_FLAG = 'X'.

      CALL FUNCTION 'RS_SUPPORT_SELECTIONS'

        EXPORTING

          REPORT               = H_REPID

          VARIANT              = H_VARIANT

        EXCEPTIONS

          VARIANT_NOT_EXISTENT = 01

          VARIANT_OBSOLETE     = 02.

    ENDIF.

  ENDIF.



  DY_TCODE = H_TCODE.                  "gemerkter T-code zurückschreiben



ENDFORM.                    "variant_start_f16

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

FORM VARIANT_START_F16.

DATA: H_SUBRC LIKE SY-SUBRC.

DATA: H_REPID LIKE RSVAR-REPORT.

DATA: H_VARIANT LIKE RSVAR-VARIANT.

DATA: H_TCODE LIKE SY-TCODE.

*--- Tcode merken, kann durch Varainte überschrieben werden

H_TCODE = DY_TCODE.

*--- Einstiegsvarianten nicht bei Submit möglich da zum Zeitpunkt

*--- INITIALISATION dy-tcode nicht bekannt und sy-tcode = T-code

*--- des Aufrufers ist

*--- desweiteren könnten interne Parameter wie DY_SELMD durch

*--- Variante überschrieben werden

IF SY-SLSET IS INITIAL AND

SY-CALLD IS INITIAL AND

G_FELDLIST-G_VAR_FLAG IS INITIAL AND

SY-TCODE 'SE38' AND

SY-TCODE 'SA38'.

G_SELMOD = SELMOD_0.

H_REPID = SY-REPID.

CLEAR H_VARIANT.

H_VARIANT = 'U_'.

WRITE SY-UNAME TO H_VARIANT+2.

*--- User specific variant

CALL FUNCTION 'RS_VARIANT_EXISTS'

EXPORTING

REPORT = H_REPID

VARIANT = H_VARIANT

IMPORTING

R_C = H_SUBRC.

IF NOT H_SUBRC IS INITIAL.

*--- customizing variant

CLEAR H_VARIANT.

H_VARIANT = 'SAP_TCODE_'.

WRITE SY-TCODE TO H_VARIANT+10.

CALL FUNCTION 'RS_VARIANT_EXISTS'

EXPORTING

REPORT = H_REPID

VARIANT = H_VARIANT

IMPORTING

R_C = H_SUBRC.

IF NOT H_SUBRC IS INITIAL.

*--- system variant

CLEAR H_VARIANT.

H_VARIANT = 'SAP&TCODE_'.

WRITE SY-TCODE TO H_VARIANT+10.

CALL FUNCTION 'RS_VARIANT_EXISTS'

EXPORTING

REPORT = H_REPID

VARIANT = H_VARIANT

IMPORTING

R_C = H_SUBRC.

ENDIF.

IF H_SUBRC = 0.

G_FELDLIST-G_VAR_FLAG = 'X'.

CALL FUNCTION 'RS_SUPPORT_SELECTIONS'

EXPORTING

REPORT = H_REPID

VARIANT = H_VARIANT

EXCEPTIONS

VARIANT_NOT_EXISTENT = 01

VARIANT_OBSOLETE = 02.

ENDIF.

DY_TCODE = H_TCODE. "gemerkter T-code zurückschreiben

ENDFORM. "variant_start_f16

此FORM为标准事务码：IH08中使用的功能代码，自定的程序中也可以使用，修改一下就行了。从程序中可以看出，程序会先找出变式名为：U_用户名的变式，如存在就直接使用此变式，如不存在再找:SAP_TCODE_****,最后找SAP&TCODE_****的变式。具体可以参看INCLUD:MIOLXF16,的FROM:VARIANT_START_F16

最后编辑：2019-08-29

作者：yangsen

本站为个人博客网站，全由我个人维护，我从事SAP开发13年，其它ERP开发7年，基本都是零售行业。本站记录工作学习的过程，有SAP相关询问专、兼职工作可随时联系我。有网站相关的问题可直接在文章下方留言，或者联系我。邮件：yan252@163.com给我。 QQ:415402519

站内专栏站点

选择屏幕功能例子(9)—在选择屏幕上使用默认变式

您可能还会对这些文章感兴趣！

留下一个回复取消回复

您可能还会对这些文章感兴趣！

留下一个回复 取消回复

留下一个回复取消回复