ABAP 动态选择过滤框

小鱼儿 2024-04-17 05:27 10阅读 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