Make Invisible Column Table Control


Table control de herhangi bir sutunu görünmez yapmak isterseniz kullanılacak olan kod aşağıdaki gibidir..

itab   : veri internal table
cntrl  : table control oldugu container

Dikkat edilmesi gereken husus:
with control yanında yazan cntrl ekrandaki tablecontrolün adıdır..Çift tıkladığınızda tanımlamasına gider.
wa_cols değişkenini bu tanımın altında bir yere tanımlamanız gerekmektedir..

"OUTPUT SCREEN
  loop at itab with control cntrl cursor cntrl-current_line.
   module modify_screen.
  endloop.


MODULE modify_screen OUTPUT.

DATA : wa_cols LIKE LINE OF cntrl-cols.
  LOOP AT SCREEN.
      LOOP AT cntrl-cols  INTO wa_cols.
        IF wa_cols-screen-group1 = 'DIS'.
          wa_cols-screen-output = 0.
          wa_cols-screen-active = 0.
          wa_cols-invisible = 'X'.
        ENDIF.
        MODIFY cntrl-cols FROM wa_cols.
      ENDLOOP.
  ENDLOOP.

  ENDMODULE. 

Hiç yorum yok:

Yorum Gönder