ABAP 动态选择过滤框 小鱼儿 2024-04-17 05:27 12阅读 0赞 选择修改时,合同编号会出来 关键代码“ PERFORM: frm\_modify\_screen. ![20190822111400467.png][] ![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][] 关键代码“ PERFORM: frm\_modify\_screen. REPORT zmmf013. INCLUDE ZMMF013\_TOP. *\*INCLUDE zmmf012\_top.* INCLUDE ZMMF013\_SCR. *\*INCLUDE zmmf012\_scr.* INCLUDE ZMMF013\_FRM. *\*INCLUDE zmmf012\_frm.* AT SELECTION-SCREEN OUTPUT. PERFORM: frm\_modify\_screen. START-OF-SELECTION . if r\_1 EQ 'X' OR R\_2 EQ 'X' . PERFORM frm\_get\_data. CALL SCREEN 100 . ENDIF . IF R\_3 EQ 'X' . PERFORM: frm\_get\_data2.*"**获取数据* PERFORM: frm\_process\_data2.*"**处理数据**.* PERFORM frm\_display\_data . ENDIF . FORM frm\_modify\_screen . IF r\_2 <> 'X '. LOOP AT SCREEN. IF screen\-group1 = 'M2'. screen\-active = 0 . MODIFY SCREEN. ENDIF. ENDLOOP. ENDIF. IF r\_3 <> 'X '. LOOP AT SCREEN. IF screen\-group1 = 'M3'. screen\-active = 0 . MODIFY SCREEN. ENDIF. ENDLOOP. ENDIF. ENDFORM. [20190822111400467.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/11/5a69000efed04a2da8f52d88c5af7e50.png [watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/11/b20ad4e21e5546c4adc01aecaaba3972.png
还没有评论,来说两句吧...