选择屏幕功能例子(12)—选择变式，并显示

选择屏幕功能例子(5)—选择变式，并显示

SELECTION-SCREEN BEGIN OF BLOCK BLOCK2 WITH FRAME TITLE TEXT-002.

*SELECT-OPTIONS:   S_WERKS FOR MCHB-WERKS OBLIGATORY MEMORY ID WER.

  PARAMETER:  P_VARI TYPE SLIS_VARI.

SELECTION-SCREEN END OF BLOCK BLOCK2.







INITIALIZATION.



AT SELECTION-SCREEN ON VALUE-REQUEST FOR  P_VARI.

  PERFORM F4_FOR_VARIANT USING SY-CPROG P_VARI .



FORM F4_FOR_VARIANT USING P_REPORT P_VARI.

*



  DATA: LT_VARIANT LIKE DISVARIANT,

        LT_CANCEL(1).



  LT_VARIANT-REPORT = P_REPORT.



*  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

*  EXPORTING

*    is_variant          = lt_variant

*    i_save              = 'A'

*  IMPORTING

*    e_exit              = lt_cancel

*    es_variant          = lt_variant

*   EXCEPTIONS

*     NOT_FOUND                 = 1

*     PROGRAM_ERROR             = 2

*     OTHERS                    = 3



  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

  EXPORTING

    IS_VARIANT                = LT_VARIANT

*     I_TABNAME_HEADER          =

*     I_TABNAME_ITEM            =

*     IT_DEFAULT_FIELDCAT       =

*     I_SAVE                    = ' '

*     I_DISPLAY_VIA_GRID        = ' '

  IMPORTING

    E_EXIT                    = LT_CANCEL

    ES_VARIANT                = LT_VARIANT

  EXCEPTIONS

    NOT_FOUND                 = 1

    PROGRAM_ERROR             = 2

    OTHERS                    = 3     .



  IF SY-SUBRC  0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.







  IF SY-SUBRC  0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.



  P_VARI = LT_VARIANT-VARIANT.

*  GS_VARIANT = LT_VARIANT.



ENDFORM.                    "f4_for_variant







  PERFORM SET_VARIANT USING P_VARI.



  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      I_CALLBACK_PROGRAM       = F_REPID

      I_CALLBACK_PF_STATUS_SET = 'SET_PF'

      I_CALLBACK_USER_COMMAND  = 'USER_COM'

      I_GRID_TITLE             = F_TITLE

      IS_LAYOUT                = GS_LAYOUT

      IT_FIELDCAT              = IT_FIELDS

      IT_EVENTS                = GT_EVENTS[]

      IS_VARIANT               = GS_VARIANT

    TABLES

      T_OUTTAB                 = IT_DATA_I.



FORM SET_VARIANT  USING  I_VARI  TYPE SLIS_VARI.





  GS_VARIANT-REPORT = SY-CPROG.

  GS_VARIANT-VARIANT = I_VARI .



ENDFORM.                    " SET_VARIANT

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

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

SELECTION-SCREEN BEGIN OF BLOCK BLOCK2 WITH FRAME TITLE TEXT-002.

*SELECT-OPTIONS: S_WERKS FOR MCHB-WERKS OBLIGATORY MEMORY ID WER.

PARAMETER: P_VARI TYPE SLIS_VARI.

SELECTION-SCREEN END OF BLOCK BLOCK2.

INITIALIZATION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.

PERFORM F4_FOR_VARIANT USING SY-CPROG P_VARI .

FORM F4_FOR_VARIANT USING P_REPORT P_VARI.

DATA: LT_VARIANT LIKE DISVARIANT,

LT_CANCEL(1).

LT_VARIANT-REPORT = P_REPORT.

* CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

* EXPORTING

* is_variant = lt_variant

* i_save = 'A'

* IMPORTING

* e_exit = lt_cancel

* es_variant = lt_variant

* EXCEPTIONS

* NOT_FOUND = 1

* PROGRAM_ERROR = 2

* OTHERS = 3

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

IS_VARIANT = LT_VARIANT

* I_TABNAME_HEADER =

* I_TABNAME_ITEM =

* IT_DEFAULT_FIELDCAT =

* I_SAVE = ' '

* I_DISPLAY_VIA_GRID = ' '

IMPORTING

E_EXIT = LT_CANCEL

ES_VARIANT = LT_VARIANT

EXCEPTIONS

NOT_FOUND = 1

PROGRAM_ERROR = 2

OTHERS = 3 .

IF SY-SUBRC 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IF SY-SUBRC 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

P_VARI = LT_VARIANT-VARIANT.

* GS_VARIANT = LT_VARIANT.

ENDFORM. "f4_for_variant

PERFORM SET_VARIANT USING P_VARI.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = F_REPID

I_CALLBACK_PF_STATUS_SET = 'SET_PF'

I_CALLBACK_USER_COMMAND = 'USER_COM'

I_GRID_TITLE = F_TITLE

IS_LAYOUT = GS_LAYOUT

IT_FIELDCAT = IT_FIELDS

IT_EVENTS = GT_EVENTS[]

IS_VARIANT = GS_VARIANT

TABLES

T_OUTTAB = IT_DATA_I.

FORM SET_VARIANT USING I_VARI TYPE SLIS_VARI.

GS_VARIANT-REPORT = SY-CPROG.

GS_VARIANT-VARIANT = I_VARI .

ENDFORM. " SET_VARIANT

最后编辑：2019-08-29

作者：yangsen

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

站内专栏站点

选择屏幕功能例子(12)—选择变式，并显示

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

留下一个回复取消回复

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

留下一个回复 取消回复

留下一个回复取消回复