Hi,
Copy this code and paste in SE38.
This will work.
TABLES : t001 ,bseg ,bkpf ,knb1, bsis , bsid , bsik ,
kna1 ,knvv , lfa1 , t151t , icon.
TYPE-POOLS : slis.
DATA : BEGIN OF gt_bkpf OCCURS 0,
bukrs LIKE bkpf-bukrs, "ŞİRKET KODU
belnr LIKE bkpf-belnr, "BELGE
gjahr LIKE bkpf-gjahr, "MALİ YIL
blart LIKE bkpf-blart, "BELGE TÜRÜ
END OF gt_bkpf.
DATA : BEGIN OF itab OCCURS 0,
bukrs LIKE bkpf-bukrs, "ŞİRKET KODU
belnr LIKE bkpf-belnr, "MUHASEBE BELGESİNİN NUMARASI
ktokd LIKE kna1-name1, "HESAP GRUBU
gjahr LIKE bkpf-gjahr, "MALİ YIL
kunnr LIKE kna1-kunnr, "müşteri hesabı
kdgrp LIKE knvv-kdgrp, " MÜŞTERİ GRUBU
id LIKE icon-id, "YÖNETİCİ ONAYI
ktext LIKE t151t-ktext, "TANIM
hkont LIKE bsis-hkont, "HESAP NUMARASI
name1 LIKE kna1-name1, "HESAP ADI
umskz LIKE bsid-umskz, "
dmbtr LIKE bsis-dmbtr, "DÖNEM BORCU
ktokk LIKE lfa1-ktokk, "GRUP(hesap grubu)
blart LIKE bkpf-blart, "BELGE TÜRÜ
bldat LIKE bkpf-bldat, "BELGE TARİHİ
budat LIKE bkpf-budat, "KAYIT TARİHİ
cpudt LIKE bkpf-cpudt, "GİRİŞ TARİHİ
END OF itab.
DATA : gs_1 like gt_bkpf.
DATA: gt_fieldcat TYPE lvc_t_fcat ,
gs_layout TYPE lvc_s_layo,
f_fieldcat TYPE lvc_s_fcat.
"hesap türü alanı
SELECTION-SCREEN BEGIN OF BLOCK hsptur WITH FRAME TITLE hsptr.
SELECT-OPTIONS : s_bukrs FOR bkpf-bukrs DEFAULT 1000,
s_gsber FOR bseg-gsber,
s_blart FOR bkpf-blart,
s_umskz FOR bseg-umskz DEFAULT 2,
s_hkont FOR bsis-bukrs,
s_belnr FOR bkpf-belnr,
so_blart FOR bkpf-blart.
PARAMETERS : p_gjahr TYPE bkpf-gjahr DEFAULT '2013'.
SELECTION-SCREEN END OF BLOCK hsptur.
"tarih tipi
SELECTION-SCREEN BEGIN OF BLOCK trhtip WITH FRAME TITLE thtp.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : beltar RADIOBUTTON GROUP trtp DEFAULT 'X'.
SELECTION-SCREEN COMMENT 10(15) text-c01 FOR FIELD beltar.
PARAMETERS : kyttar RADIOBUTTON GROUP trtp .
SELECTION-SCREEN COMMENT 40(15) text-c02 FOR FIELD kyttar.
PARAMETERS : grstar RADIOBUTTON GROUP trtp .
SELECTION-SCREEN COMMENT 70(15) text-c03 FOR FIELD grstar.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK trhtip.
"belge tarihi
SELECTION-SCREEN BEGIN OF BLOCK blgtar WITH FRAME TITLE blgtr.
SELECTION-SCREEN BEGIN OF LINE .
PARAMETERS : bgn RADIOBUTTON GROUP bltr .
SELECTION-SCREEN COMMENT 10(15) text-r01 FOR FIELD bgn.
PARAMETERS : chft RADIOBUTTON GROUP bltr .
SELECTION-SCREEN COMMENT 30(15) text-r02 FOR FIELD chft.
PARAMETERS : cray RADIOBUTTON GROUP bltr DEFAULT 'X'.
SELECTION-SCREEN COMMENT 50(15) text-r03 FOR FIELD cray .
PARAMETERS : crayil RADIOBUTTON GROUP bltr .
SELECTION-SCREEN COMMENT 75(15) text-r04 FOR FIELD crayil.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS dgr RADIOBUTTON GROUP bltr .
SELECTION-SCREEN COMMENT 10(15) text-r05 FOR FIELD dgr.
SELECT-OPTIONS dates FOR sy-datlo .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE .
PARAMETERS : c_br AS CHECKBOX .
SELECTION-SCREEN COMMENT 10(25) text-c07 FOR FIELD c_br.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK blgtar.
"1. screen alanı
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : c_ms AS CHECKBOX.
SELECTION-SCREEN COMMENT 10(25) text-c10 FOR FIELD c_ms.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS : s_kunnr FOR knb1-kunnr,
s_ktokd FOR kna1-ktokd,
s_kdgrp FOR knvv-kdgrp,
s_lifnr FOR lfa1-lifnr.
SELECTION-SCREEN END OF SCREEN 100.
"2. screen alanı
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : c_ms1 AS CHECKBOX.
SELECTION-SCREEN COMMENT 10(25) text-c09 FOR FIELD c_ms1.
SELECTION-SCREEN END OF LINE.
PARAMETERS : p1 TYPE c LENGTH 10,
p2 TYPE c LENGTH 10,
p3 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 200.
" 3. screen alanı
SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK blc3 WITH FRAME TITLE bl3 NO INTERVALS.
SELECTION-SCREEN END OF BLOCK blc3.
SELECTION-SCREEN END OF SCREEN 300.
SELECTION-SCREEN : BEGIN OF TABBED BLOCK blc1 FOR 10 LINES,
TAB (20) buton1 USER-COMMAND p1 ,
TAB (20) buton2 USER-COMMAND p2,
TAB (20) buton3 USER-COMMAND usr3 ,
END OF BLOCK blc1.
START-OF-SELECTION.
""PERFORMLAR
PERFORM get_data.
PERFORM alan.
PERFORM aln_alv.
PERFORM select.
* PERFORM dongu.
*perform kayit_tipi.
*perform giris_tipi.
*&---------------------------------------------------------------------*
*& Form command
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->X text
* -->S1 text
*----------------------------------------------------------------------*
*FORM command USING x LIKE sy-ucomm
* s1 TYPE slis_selfield .
* IF sy-ucomm = '&F03'.
* LEAVE TO SCREEN 0.
* ENDIF.
*ENDFORM. "command
*&---------------------------------------------------------------------*
*& Form kayit_tipi
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM kayit_tipi.
DATA : BEGIN OF t_lvc1 OCCURS 0,
budat LIKE bkpf-budat,
END OF t_lvc1.
DATA : gt_fcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gs_layout TYPE slis_layout_alv.
f_fieldcat-fieldname = 'BUDAT'.
f_fieldcat-tabname = 'T_LVC'.
f_fieldcat-no_sum = 'X'.
f_fieldcat-key = 'X'.
f_fieldcat-outputlen = '12'.
f_fieldcat-col_pos = '9'.
f_fieldcat-coltext = 'KAYIT TARİHİ'.
APPEND f_fieldcat TO gt_fieldcat.
CLEAR f_fieldcat.
SELECT budat
FROM bkpf INTO CORRESPONDING FIELDS OF TABLE t_lvc1
WHERE budat BETWEEN 20001201 AND 20131201.
ENDFORM. "kayit_tipi
*&---------------------------------------------------------------------*
*& Form dongu
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form alan
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM alan.
f_fieldcat-fieldname = 'BUKRS'.
f_fieldcat-tabname = 'gt_bkpf'.
f_fieldcat-no_sum = 'X'.
f_fieldcat-key = 'X'.
f_fieldcat-outputlen = '12'.
f_fieldcat-col_pos = '1'.
f_fieldcat-coltext = 'Y.O'.
APPEND f_fieldcat TO gt_fieldcat.
CLEAR f_fieldcat.
f_fieldcat-fieldname = 'BELNR'.
f_fieldcat-tabname = 'gt_bkpf'.
f_fieldcat-no_sum = 'X'.
f_fieldcat-key = 'X'.
f_fieldcat-outputlen = '12'.
f_fieldcat-col_pos = '2'.
f_fieldcat-coltext = 'GRUP(HESAP GRUBU)'.
APPEND f_fieldcat TO gt_fieldcat.
CLEAR f_fieldcat.
f_fieldcat-fieldname = 'GJAHR'.
f_fieldcat-tabname = 'gt_bkpf'.
f_fieldcat-no_sum = 'X'.
f_fieldcat-key = 'X'.
f_fieldcat-outputlen = '12'.
f_fieldcat-col_pos = '3'.
f_fieldcat-coltext = 'MÜŞTERİ GRUBU'.
APPEND f_fieldcat TO gt_fieldcat.
CLEAR f_fieldcat.
f_fieldcat-fieldname = 'BLART'.
f_fieldcat-tabname = 'gt_bkpf'.
f_fieldcat-no_sum = 'X'.
f_fieldcat-key = 'X'.
f_fieldcat-outputlen = '12'.
f_fieldcat-col_pos = '4'.
f_fieldcat-coltext = 'HESAP NUMARASI'.
APPEND f_fieldcat TO gt_fieldcat.
CLEAR f_fieldcat.
f_fieldcat-fieldname = 'HKONT'.
f_fieldcat-tabname = 'gt_bkpf'.
f_fieldcat-no_sum = 'X'.
f_fieldcat-key = 'X'.
f_fieldcat-outputlen = '12'.
f_fieldcat-col_pos = '5'.
f_fieldcat-coltext = 'HESAP ADI'.
APPEND f_fieldcat TO gt_fieldcat.
CLEAR f_fieldcat.
f_fieldcat-fieldname = 'NAME1'.
f_fieldcat-tabname = 'gt_bkpf'.
f_fieldcat-no_sum = 'X'.
f_fieldcat-key = 'X'.
f_fieldcat-outputlen = '12'.
f_fieldcat-col_pos = '6'.
f_fieldcat-coltext = 'HESAP ADI'.
APPEND f_fieldcat TO gt_fieldcat.
CLEAR f_fieldcat.
ENDFORM. "alan
*&---------------------------------------------------------------------*
*& Form aln_alv
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM aln_alv.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = sy-repid
i_callback_top_of_page = 'TOP_OF_PAGE'
is_layout_lvc = gs_layout
it_fieldcat_lvc = gt_fieldcat[]
i_default = 'X'
TABLES
t_outtab = gt_bkpf
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "aln_alv
INITIALIZATION.
hsptr = 'HESAP TÜRÜ'.
thtp = 'TARİH TİPİ'.
buton1 = 'MÜŞTERİ HESABI'.
buton2 = 'SATICI HESABI'.
buton3 = 'SATICI HESABI'.
blgtr = 'BELGE TARİHİ'.
blc1-prog = sy-repid.
blc1-dynnr = 200.
blc1-activetab = 'P2'.
AT SELECTION-SCREEN.
* CASE beltar.
* WHEN 'X' .
* PERFORM tarih_tipi.
*
* ENDCASE.
"subsceen oluşturma
CASE sy-dynnr.
WHEN 1000.
CASE sy-ucomm.
WHEN 'P1'.
blc1-dynnr = 100.
WHEN 'P2'.
blc1-dynnr = 200.
ENDCASE.
ENDCASE.
* SELECT id
* FROM icon
* INTO CORRESPONDING FIELDS OF TABLE itab
*WHERE name = 'ICON_BEN_OFFER' .
*&---------------------------------------------------------------------*
*& Form get_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM get_data.
SELECT * FROM bkpf INTO CORRESPONDING FIELDS OF TABLE gt_bkpf
WHERE bukrs IN s_bukrs AND
belnr IN s_belnr AND
gjahr EQ p_gjahr AND
blart IN s_blart.
ENDFORM. "get_data
*&---------------------------------------------------------------------
*& Form select
*&---------------------------------------------------------------------
* text
*----------------------------------------------------------------------
FORM select.
* SELECT * FROM bseg INTO CORRESPONDING FIELDS OF TABLE gt_bkpf
*
* FOR ALL ENTRIES IN gt_bkpf
*
* WHERE belnr EQ gt_bkpf-belnr AND
*
* gjahr EQ gt_bkpf-gjahr AND
*
* hkont IN s_hkont.
ENDFORM. "select