ABAP : Selection Screen Variant Secimi

Selamlar, uzun süredir yazamıyordum çünkü yazamıyordum :=), bu aralar after effects ile videolara görsel efekt ekleme işine sardım. Neyse, gelelim variant seçimine.
ALV'de kaydedilen variantları selection screen içinden seçip direk olarak seçtiğimiz düzenin yani variantın gelmesini istiyorsak çok kısa bir işlem yapmamız gerekecektir.
Öncelikle, seçim ekranında ki parametremizi tanımlayalım.

TYPE-POOLS: SLIS.

PARAMETERS : p_vari TYPE slis_vari.

ALV'ye göndereceğimiz parametreyi tanımlayalım. (Ekrandan seçtiğimiz varianti ALV'de kullanabilmek için)

DATA:
IS_VARIANT LIKE DISVARIANT.

Daha sonra raporumuza ait variantları getirmesi için bir fonksiyon çağırmamız gerekiyor. Öncelikle seçim ekranında ilgili parametremiz için F4 tuşuna basılınca çalışacak formları yaratalım.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
PERFORM ALV_VARIANT_F4 CHANGING P_VARI.

START-OF-SELECTION.
.
.
.
END-OF-SELECTION.


Formu yazalım.


FORM ALV_VARIANT_F4 CHANGING PA_VARI.
DATA: RS_VARIANT LIKE DISVARIANT.

RS_VARIANT-REPORT = sy-repid.
RS_VARIANT-USERNAME = SY-UNAME.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
IS_VARIANT = RS_VARIANT
I_SAVE = 'A'
IMPORTING
ES_VARIANT = RS_VARIANT
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC = 0.
PA_VARI = RS_VARIANT-VARIANT.
ENDIF.
ENDFORM. "alv_variant_f4



İşlemler bittikten sonra, ALV'yi çağıran formumuzun içinde


is_variant-variant = p_vari.


yazmamız gerekecektir. Bu , ekrandan seçtiğimiz variantı, is_variant değişkenine atacaktır.
ALV'yi çağıran fonksiyonumuzda diğer parametlerin yanında IS_VARIANT değişkenini de gönderdiğimiz zaman, ekrandan seçilen variantın direk ALV'ye atandığını ve raporun ona göre geldiğini göreceğiz :=).

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
.
.
.
IS_VARIANT = IS_VARIANT
TABLES
.
.
.


Deveye sormuşlar boynun niye eğri diye, artık o konuyla ilgili gündeme gelmek istemiyorum demiş.
Evet sevgili ABAPçılar sizde iyi bir çocuk olursanız belki şirinleri bile görebilirsiniz :=)