DATA : BEGIN OF gt_out OCCURS 0 ,
kunnr TYPE zsd_edi_check-kunnr,
zzbeltyp TYPE zsd_edi_check-zzbeltyp ,
type TYPE zsd_edi_check-type ,
alan_adi TYPE zsd_edi_checkvlt-alan_adi ,
alan TYPE zsd_edi_checkvlt-alan ,
chk TYPE xflag ,
END OF gt_out.
DATA: gt_out2 LIKE TABLE OF gt_out WITH HEADER LINE,
gs_out2 LIKE LINE OF gt_out2,
gs_out LIKE LINE OF gt_out.
Check satır bazlı
kontrol icin kullanılır .
Oncelikle bir screen
yaratılır .
Table Kontrol
Adı Girilir
Daha sonra
kullanacağımız tablolar secilir istersek kendi tanımladığımız tablodan
kullanabiliriz .İstersek ınternal bir tablo kullanabiliriz .
Tablolar Girilir
Istenilen alanlar
secilir .
İstenilen özellikler eklenir .
Dinamik olarak table kontrolde alan kapama
*&SPWIZARD: OUTPUT MODULE FOR TC 'GT_CONTROL'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR
MODULE gt_control_change_tc_attr OUTPUT.
DESCRIBE TABLE xvbep LINES gt_control-lines.
ENDMODULE. "GT_CONTROL_CHANGE_TC_ATTR OUTPUT
*&SPWIZARD: OUTPUT MODULE FOR TC 'GT_CONTROL'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GET LINES OF TABLECONTROL
MODULE gt_control_get_lines OUTPUT.
g_gt_control_lines = sy-loopc.
break xsozyurt.
* IF GT_CONTROL-CURRENT_LINE EQ 1.
* LOOP AT SCREEN.
* screen-input = 0.
* MODIFY SCREEN .
* ENDLOOP.
* ENDIF.
DATA : BEGIN OF gt_rantra OCCURS 0,
zzranno TYPE lips-zzranno,
zztransid TYPE lips-zztransid,
END OF gt_rantra.
READ TABLE xvbep INDEX gt_control-current_line.
IF sy-subrc EQ 0.
REFRESH gt_rantra .
SELECT zzranno zztransid
FROM lips
INTO TABLE gt_rantra
WHERE vgbel = xvbep-vbeln
AND vgpos = xvbep-posnr
AND zzranno = xvbep-zzranno
AND zztransid = xvbep-zztransid.
IF sy-subrc EQ 0.
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN .
ENDLOOP.
ENDIF.
ENDIF.
ENDMODULE. "GT_CONTROL_GET_LINES OUTPUT
Farklı sekılde yapımı //
No comments:
Post a Comment