如何快速从BSEG读取数据

由于bseg表很大，而且表的索引字段是：

BUKRS - Company Code

BELNR - Accounting Document Number

GJAHR - Fiscal Year

BUZEI - Line Item Number

访问此表最佳的是包含所有的索引字段，但在实际应用是很少能达到的。但要有好的性能根据经验必须要有公司和凭证号作为查询条件。为了达到这一点，我可以根据条件不同而使用不同ｓａｐ的其他表，先查出公司和凭证号，再去读取ＢＳＥＧ表。

代码如下：

注意：该程序包含了各种条件的查询，程序员可以根据自己应用需求选择对应一个的子程序来读取公司和凭证号。

REPORT ztest_select.

* Tables ***************************************************************

TABLES: bkpf, bseg,

covp, csks,

glpca,

bsis, bsas, bsid, bsad, bsik, bsak,

ekbe, aufk,

vbfa, vbak,

vapma,

fmifiit,

payr.

* Global Data **********************************************************

TYPES: BEGIN OF doc,

bukrs TYPE bseg-bukrs,

belnr TYPE bseg-belnr,

gjahr TYPE bseg-gjahr,

buzei TYPE bseg-buzei,

END OF doc.

DATA: doc_int TYPE TABLE OF doc,

doc_wa TYPE doc,

w_repid TYPE sy-repid VALUE sy-repid,

no_lines TYPE sy-tabix.

* Selection Screen *****************************************************

PARAMETERS: p_gjahr TYPE covp-refgj OBLIGATORY.

SELECTION-SCREEN SKIP.

PARAMETERS: p_kokrs TYPE csks-kokrs OBLIGATORY,

p_kostl TYPE csks-kostl,

p_prctr TYPE glpca-rprctr,

p_aufnr TYPE aufk-aufnr.

SELECTION-SCREEN SKIP.

PARAMETERS: p_bukrs TYPE bsis-bukrs OBLIGATORY,

p_budat TYPE bkpf-budat,

p_ebeln TYPE ekko-ebeln,

p_hkont TYPE bsis-hkont,

p_lifnr TYPE bsik-lifnr,

p_kunnr TYPE bsid-kunnr.

SELECTION-SCREEN SKIP.

PARAMETERS: p_vbeln TYPE vbak-vbeln.

SELECTION-SCREEN SKIP.

PARAMETERS: p_matnr TYPE vapma-matnr.

SELECTION-SCREEN SKIP.

PARAMETERS: p_fikrs TYPE fmifiit-fikrs,

p_fistl TYPE fmifiit-fistl,

p_fonds TYPE fmifiit-fonds.

SELECTION-SCREEN ULINE.

PARAMETERS: p_hbkid TYPE payr-hbkid,

p_hktid TYPE payr-hktid,

p_rzawe TYPE payr-rzawe,

p_chect TYPE payr-chect.

START-OF-SELECTION.

* Retrieve document numbers based on different requirements

* Posting Date　(用日期做查询条件)

PERFORM posting_date_actuals

USING p_bukrs

p_budat.

* Cost Center

PERFORM cost_center_actuals

USING p_kokrs

p_kostl

p_gjahr.

* GL Account

PERFORM gl_actuals

USING p_bukrs

p_hkont

p_gjahr.

* Vendor

PERFORM vendor_actuals

USING p_bukrs

p_lifnr

p_gjahr.

* Customer

PERFORM customer_actuals

USING p_bukrs

p_kunnr

p_gjahr.

* Purchase Order

PERFORM po_actuals

USING p_ebeln.

* Sales Order

PERFORM so_actuals

USING p_vbeln.

* Order

PERFORM order_actuals

USING p_aufnr

p_gjahr.

* Fund/Fund Center

PERFORM fm_actuals

USING p_fikrs

p_gjahr

p_fistl

p_fonds.

* Profit Center

PERFORM profit_center_actuals

USING p_kokrs

p_prctr

p_gjahr.

* Material

PERFORM material_actuals

USING p_matnr

p_gjahr.

* Cheque number

PERFORM cheque_actuals

USING p_hbkid

p_hktid

p_chect.

*&---------------------------------------------------------------------*

*& Form posting_date_actuals

*&---------------------------------------------------------------------*

* Use one of the secondary indices of BKPF to retrieve the

* document number

*----------------------------------------------------------------------*

FORM posting_date_actuals

USING bukrs

budat.

DATA: disp_date(10).

CHECK NOT budat IS INITIAL.

* Uses index BKPF~2 (4.7)

SELECT bukrs belnr gjahr

INTO TABLE doc_int

UP TO 100 ROWS

FROM bkpf

WHERE bukrs = bukrs AND

* Normally, you would probably only want normal documents, that is

* documents with BSTAT = ' '. So you would change the next line.

* On the other hand, you might want documents for all values of BSTAT,

* but not want to hardcode the values. In that case, you can retrieve

* values from the domain of BSTAT and put them in a range table and

* use the range table in the next line.

bstat IN (' ', 'A', 'B', 'D', 'M', 'S', 'V', 'W', 'Z') AND

budat = budat.

CHECK sy-subrc = 0.

WRITE budat TO disp_date.

PERFORM display_documents

TABLES doc_int

USING 'Posting date'

disp_date

space

space.

ENDFORM. " posting_date_actuals

*&---------------------------------------------------------------------*

*& Form cost_center_actuals

*&---------------------------------------------------------------------*

* Retrieve documents for a cost center

*----------------------------------------------------------------------*

FORM cost_center_actuals

USING kokrs

kostl

gjahr.

DATA: covp_int TYPE TABLE OF covp,

disp_cc(10).

CHECK NOT kostl IS INITIAL.

* Uses primary index (4.7)

SELECT SINGLE objnr

FROM csks

INTO csks-objnr

WHERE kokrs = kokrs

AND kostl = kostl.

CHECK sy-subrc = 0.

* COVP is a view. This uses index COEP~1 (4.7)

SELECT refbk refbn refgj refbz

FROM covp

INTO TABLE doc_int

UP TO 100 ROWS

WHERE lednr = '00'

AND objnr = csks-objnr

AND gjahr = gjahr

AND wrttp IN ('04', '11')

AND versn = '000'.

CHECK sy-subrc = 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = kostl

IMPORTING

output = disp_cc.

PERFORM display_documents

TABLES doc_int

USING 'Cost Center'

disp_cc

space

space.

ENDFORM. " cost_center_actuals

*&---------------------------------------------------------------------*

*& Form gl_actuals

*&---------------------------------------------------------------------*

* BKPF and BSEG have a number of secondary index tables. These are

* tables that are indexed by GL customer or vendor number and have

* data that is in both BKPF and BSEG. These secondary index tables

* that have an 'i' in the third character of the name contain open

* items. Those with an 'a' contain cleared items. In practice, you

* may only one or the other. In this program I am retrieving both.

*

* Here we get documents related to a GL.

*----------------------------------------------------------------------*

FORM gl_actuals

USING bukrs

hkont

gjahr.

DATA: disp_gl(10).

CHECK NOT hkont IS INITIAL.

* Uses primary index (4.7)

SELECT bukrs belnr gjahr buzei

FROM bsis

INTO TABLE doc_int

UP TO 100 ROWS

WHERE bukrs = bukrs

AND hkont = hkont

AND gjahr = gjahr.

* Uses primary index (4.7)

SELECT bukrs belnr gjahr buzei

FROM bsas

APPENDING TABLE doc_int

UP TO 100 ROWS

WHERE bukrs = bukrs

AND hkont = hkont

AND gjahr = gjahr.

DESCRIBE TABLE doc_int LINES no_lines.

CHECK no_lines > 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = hkont

IMPORTING

output = disp_gl.

PERFORM display_documents

TABLES doc_int

USING 'GL Account'

disp_gl

space

space.

ENDFORM. " gl_actuals

*&---------------------------------------------------------------------*

*& Form vendor_actuals

*&---------------------------------------------------------------------*

* Here we get documents related to a vendor.

*----------------------------------------------------------------------*

FORM vendor_actuals

USING bukrs

lifnr

gjahr.

DATA: disp_vendor(10).

CHECK NOT lifnr IS INITIAL.

* Uses primary index (4.7)

SELECT bukrs belnr gjahr buzei

FROM bsik

INTO TABLE doc_int

UP TO 100 ROWS

WHERE bukrs = bukrs

AND lifnr = lifnr

AND gjahr = gjahr.

* Uses primary index (4.7)

SELECT bukrs belnr gjahr buzei

FROM bsak

APPENDING TABLE doc_int

UP TO 100 ROWS

WHERE bukrs = bukrs

AND lifnr = lifnr

AND gjahr = gjahr.

DESCRIBE TABLE doc_int LINES no_lines.

CHECK no_lines > 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = lifnr

IMPORTING

output = disp_vendor.

PERFORM display_documents

TABLES doc_int

USING 'Vendor'

disp_vendor

space

space.

ENDFORM. " vendor_actuals

*&---------------------------------------------------------------------*

*& Form customer_actuals

*&---------------------------------------------------------------------*

* Here we get documents related to a customer.

*----------------------------------------------------------------------*

FORM customer_actuals

USING bukrs

kunnr

gjahr.

DATA: disp_customer(10).

CHECK NOT kunnr IS INITIAL.

* Uses primary index (4.7)

SELECT bukrs belnr gjahr buzei

FROM bsid

INTO TABLE doc_int

UP TO 100 ROWS

WHERE bukrs = bukrs

AND kunnr = kunnr

AND gjahr = gjahr.

* Uses primary index (4.7)

SELECT bukrs belnr gjahr buzei

FROM bsad

APPENDING TABLE doc_int

UP TO 100 ROWS

WHERE bukrs = bukrs

AND kunnr = kunnr

AND gjahr = gjahr.

DESCRIBE TABLE doc_int LINES no_lines.

CHECK no_lines > 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = kunnr

IMPORTING

output = disp_customer.

PERFORM display_documents

TABLES doc_int

USING 'Customer'

disp_customer

space

space.

ENDFORM. " customer_actuals

*&---------------------------------------------------------------------*

*& Form po_actuals

*&---------------------------------------------------------------------*

* Table BKPF has a useful index on AWTYP and AWKEY. Here, we use

* this to retrieve documents for purchase orders.

*----------------------------------------------------------------------*

FORM po_actuals

USING ebeln.

TYPES: BEGIN OF ekbe_type,

belnr TYPE ekbe-belnr,

gjahr TYPE ekbe-gjahr,

vgabe TYPE ekbe-vgabe,

END OF ekbe_type.

DATA: ekbe_int TYPE TABLE OF ekbe_type,

ekbe_wa TYPE ekbe_type.

DATA: v_reference TYPE bkpf-awtyp, "Reference procedure

v_objectkey TYPE bkpf-awkey. "Object key

DATA:disp_po(10).

CHECK NOT ebeln IS INITIAL.

* Uses primary index (4.7)

SELECT belnr gjahr

FROM ekbe

INTO TABLE ekbe_int

UP TO 100 ROWS

WHERE ebeln = ebeln

AND vgabe IN ('1', '2'). "1 - GR, 2 - IR

CHECK sy-subrc = 0.

SORT ekbe_int.

DELETE ADJACENT DUPLICATES FROM ekbe_int.

LOOP AT ekbe_int INTO ekbe_wa.

v_objectkey+00(10) = ekbe_wa-belnr.

v_objectkey+10(10) = ekbe_wa-gjahr. "BELNR+YEAR

IF ekbe_wa-vgabe = '1'.

v_reference = 'MKPF'.

ELSE.

v_reference = 'RMRP'.

ENDIF.

* Uses index BKPF~4 (4.7)

SELECT SINGLE bukrs belnr gjahr "Accounting Doc Header

FROM bkpf

INTO doc_wa

WHERE awtyp = v_reference

AND awkey = v_objectkey.

IF sy-subrc = 0.

APPEND doc_wa TO doc_int.

ENDIF.

ENDLOOP.

CHECK no_lines > 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = ebeln

IMPORTING

output = disp_po.

PERFORM display_documents

TABLES doc_int

USING 'Purchase Order'

disp_po

space

space.

ENDFORM. " po_actuals

*&---------------------------------------------------------------------*

*& Form so_actuals

*&---------------------------------------------------------------------*

* Use AWTYP and AWKEY to retrieve documents related to sales

*----------------------------------------------------------------------*

FORM so_actuals USING vbeln.

TYPES: BEGIN OF vbfa_type,

vbeln TYPE vbfa-vbeln,

END OF vbfa_type.

DATA: vbfa_int TYPE TABLE OF vbfa_type,

vbfa_wa TYPE vbfa_type.

DATA: v_reference TYPE bkpf-awtyp, "Reference procedure

v_objectkey TYPE bkpf-awkey. "Object key

DATA:disp_so(10).

CHECK NOT vbeln IS INITIAL.

* Uses primary index (4.7)

SELECT vbeln

FROM vbfa

INTO TABLE vbfa_int

UP TO 100 ROWS

WHERE vbelv = vbeln

AND vbtyp_n = 'P'. "Debit memo

CHECK sy-subrc = 0.

SORT vbfa_int.

DELETE ADJACENT DUPLICATES FROM vbfa_int.

LOOP AT vbfa_int INTO vbfa_wa.

v_objectkey+00(10) = vbfa_wa-vbeln. "BELNR

v_reference = 'VBRK'.

* Uses index BKPF~4 (4.7)

SELECT SINGLE bukrs belnr gjahr "Accounting Doc Header

FROM bkpf

INTO doc_wa

WHERE awtyp = v_reference

AND awkey = v_objectkey.

IF sy-subrc = 0.

APPEND doc_wa TO doc_int.

ENDIF.

ENDLOOP.

DESCRIBE TABLE doc_int LINES no_lines.

CHECK no_lines > 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = vbeln

IMPORTING

output = disp_so.

PERFORM display_documents

TABLES doc_int

USING 'Sales Document'

disp_so

space

space.

ENDFORM. " so_actuals

*&---------------------------------------------------------------------*

*& Form order_actuals

*&---------------------------------------------------------------------*

* Retrieve documents related to an order

*----------------------------------------------------------------------*

FORM order_actuals

USING aufnr

gjahr.

DATA: disp_order(10).

CHECK NOT aufnr IS INITIAL.

* Uses primary index (4.7)

SELECT SINGLE objnr

FROM aufk

INTO aufk-objnr

WHERE aufnr = aufnr.

CHECK sy-subrc = 0.

* COVP is a view. This uses index COEP~1 (4.7)

SELECT refbk refbn refgj refbz

FROM covp

INTO TABLE doc_int

UP TO 100 ROWS

WHERE lednr = '00'

AND objnr = aufk-objnr

AND gjahr = gjahr

AND wrttp IN ('04', '11')

AND versn = '000'.

CHECK sy-subrc = 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = aufnr

IMPORTING

output = disp_order.

PERFORM display_documents

TABLES doc_int

USING 'Order'

disp_order

space

space.

ENDFORM. " order_actuals

*&---------------------------------------------------------------------*

*& Form FM_actuals

*&---------------------------------------------------------------------*

* Not many institutions use Funds Management, but if you do, this

* is how to relate funds management documents to FI documents.

*----------------------------------------------------------------------*

FORM fm_actuals

USING fikrs

gjahr

fistl

fonds.

DATA: disp_cfc(10),

disp_fund(10).

CHECK NOT fikrs IS INITIAL AND

NOT fistl IS INITIAL.

* Uses index FMIFIIT~3 (4.7)

SELECT bukrs knbelnr kngjahr knbuzei

FROM fmifiit

INTO TABLE doc_int

UP TO 100 ROWS

WHERE fistl = fistl

AND fonds = fonds.

CHECK sy-subrc = 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = fistl

IMPORTING

output = disp_cfc.

IF NOT fonds IS INITIAL.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = fonds

IMPORTING

output = disp_fund.

ENDIF.

PERFORM display_documents

TABLES doc_int

USING 'Fund Center'

disp_cfc

'Fund'

disp_fund.

ENDFORM. " FM_actuals

*&---------------------------------------------------------------------*

*& Form profit_center_actuals

*&---------------------------------------------------------------------*

* Retrieve documents related to a profit center

*----------------------------------------------------------------------*

FORM profit_center_actuals

USING kokrs

prctr

gjahr.

DATA: disp_pc(10).

CHECK NOT prctr IS INITIAL.

* This uses index GLPCA~1 (4.7)

SELECT rbukrs refdocnr refryear refdocln

FROM glpca

INTO TABLE doc_int

UP TO 100 ROWS

WHERE kokrs = kokrs

AND ryear = gjahr

AND rprctr = prctr

AND awtyp = 'BKPF'.

CHECK sy-subrc = 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = prctr

IMPORTING

output = disp_pc.

PERFORM display_documents

TABLES doc_int

USING 'Profit Center'

disp_pc

space

space.

ENDFORM. " profit_center_actuals

*&---------------------------------------------------------------------*

*& Form material_actuals

*&---------------------------------------------------------------------*

* Get FI documents for a material.

* For purchase orders get:

* goods receipts

* invoice receipts

* For sales orders get:

* debit memos

*----------------------------------------------------------------------*

FORM material_actuals

USING matnr

gjahr.

TYPES: BEGIN OF ekpo_type,

ebeln TYPE ekpo-ebeln,

ebelp TYPE ekpo-ebelp,

END OF ekpo_type.

TYPES: BEGIN OF ekbe_type,

belnr TYPE ekbe-belnr,

gjahr TYPE ekbe-gjahr,

vgabe TYPE ekbe-vgabe,

END OF ekbe_type.

TYPES: BEGIN OF vapma_type,

vbeln TYPE vapma-vbeln,

posnr TYPE vapma-posnr,

END OF vapma_type.

TYPES: BEGIN OF vbfa_type,

vbeln TYPE vbfa-vbeln,

posnv TYPE vbfa-posnv,

END OF vbfa_type.

DATA: ekpo_int TYPE TABLE OF ekpo_type,

ekpo_wa TYPE ekpo_type.

DATA: ekbe_int TYPE TABLE OF ekbe_type,

ekbe_wa TYPE ekbe_type.

DATA: vapma_int TYPE TABLE OF vapma_type,

vapma_wa TYPE vapma_type.

DATA: v_reference TYPE bkpf-awtyp, "Reference procedure

v_objectkey TYPE bkpf-awkey. "Object key

DATA: vbfa_int TYPE TABLE OF vbfa_type,

vbfa_wa TYPE vbfa_type.

DATA: disp_mat(10).

CHECK NOT matnr IS INITIAL.

* First, find purchase orders for the material

* This uses index EKPO~1 (4.7)

SELECT ebeln ebelp

FROM ekpo

INTO TABLE ekpo_int

UP TO 100 ROWS

WHERE matnr = matnr.

* Now get the FI document numbers as above

* Uses primary index (4.7)

SELECT belnr gjahr vgabe

FROM ekbe

INTO TABLE ekbe_int

UP TO 100 ROWS

FOR ALL ENTRIES IN ekpo_int

WHERE ebeln = ekpo_int-ebeln

AND ebelp = ekpo_int-ebelp

AND vgabe IN ('1', '2'). "1 - GR, 2 - IR

CHECK sy-subrc = 0.

SORT ekbe_int.

DELETE ADJACENT DUPLICATES FROM ekbe_int.

LOOP AT ekbe_int INTO ekbe_wa.

v_objectkey+00(10) = ekbe_wa-belnr.

v_objectkey+10(10) = ekbe_wa-gjahr. "BELNR+YEAR

IF ekbe_wa-vgabe = '1'.

v_reference = 'MKPF'.

ELSE.

v_reference = 'RMRP'.

ENDIF.

* Uses index BKPF~4 (4.7)

SELECT SINGLE bukrs belnr gjahr "Accounting Doc Header

FROM bkpf

INTO doc_wa

WHERE awtyp = v_reference

AND awkey = v_objectkey.

IF sy-subrc = 0.

APPEND doc_wa TO doc_int.

ENDIF.

ENDLOOP.

* Next get the sales orders for the material

* Note - I am using an artificial date range here because of archiving

* in our system. Feel free to remove it.

SELECT vbeln posnr

FROM vapma

INTO TABLE vapma_int

UP TO 100 ROWS

WHERE matnr = matnr

AND audat BETWEEN '20070101' AND '20071231'.

* Uses primary index (4.7)

SELECT vbeln posnv

FROM vbfa

INTO TABLE vbfa_int

FOR ALL ENTRIES IN vapma_int

WHERE vbelv = vapma_int-vbeln

AND posnv = vapma_int-posnr

AND vbtyp_n = 'P'. "Debit memo

CHECK sy-subrc = 0.

SORT vbfa_int.

DELETE ADJACENT DUPLICATES FROM vbfa_int.

LOOP AT vbfa_int INTO vbfa_wa.

CLEAR: v_objectkey,

v_reference.

v_objectkey+00(10) = vbfa_wa-vbeln. "BELNR

v_reference = 'VBRK'.

* Uses index BKPF~4 (4.7)

SELECT SINGLE bukrs belnr gjahr "Accounting Doc Header

FROM bkpf

INTO doc_wa

WHERE awtyp = v_reference

AND awkey = v_objectkey.

IF sy-subrc = 0.

APPEND doc_wa TO doc_int.

ENDIF.

ENDLOOP.

DESCRIBE TABLE doc_int LINES no_lines.

CHECK no_lines > 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = matnr

IMPORTING

output = disp_mat.

PERFORM display_documents

TABLES doc_int

USING 'Material'

disp_mat

space

space.

ENDFORM. " material_actuals

*&---------------------------------------------------------------------*

*& Form cheque_actuals

*&---------------------------------------------------------------------*

* Retrieve FI documents for a cheque. We are assuming Accounts

* Payable related.

*----------------------------------------------------------------------*

FORM cheque_actuals

USING hbkid

hktid

chect.

DATA: belnr TYPE payr-vblnr,

gjahr TYPE payr-gjahr,

lifnr TYPE payr-lifnr,

laufd TYPE payr-laufd,

disp_cheque(13).

CHECK NOT p_chect IS INITIAL.

* Retrieve the cheque data using the primary key (4.7)

* We are assuming a vendor payment here

SELECT SINGLE vblnr gjahr lifnr laufd

FROM payr

INTO (belnr, gjahr, lifnr, laufd )

WHERE zbukr = p_bukrs

AND hbkid = p_hbkid

AND hktid = p_hktid

AND rzawe = p_rzawe

AND chect = p_chect.

* Now get the accounting documents

SELECT bukrs belnr gjahr

FROM bsak

INTO TABLE doc_int

WHERE bukrs = p_bukrs

AND lifnr = lifnr

AND umsks = ' '

AND umskz = ' '

AND augdt = laufd

AND augbl = belnr

AND gjahr = gjahr.

DESCRIBE TABLE doc_int LINES no_lines.

CHECK no_lines > 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = chect

IMPORTING

output = disp_cheque.

PERFORM display_documents

TABLES doc_int

USING 'Cheque number'

disp_cheque

space

space.

ENDFORM. " cheque_actuals

*&---------------------------------------------------------------------*

*& Form display_documents

*&---------------------------------------------------------------------*

* At this point, you have the company code, document number and

* fiscal year in table DOC_INT. Here, I just use a standard SAP

* function module and transaction to display documents and

* details, but you could use the same information to retrieve

* document data from BKPF and/or BSEG.

*----------------------------------------------------------------------*

FORM display_documents

TABLES doc_int STRUCTURE doc_wa

USING doc_source_1

source_value_1

doc_source_2

source_value_2.

TYPE-POOLS: slis.

DATA: sel TYPE slis_selfield.

DATA: title TYPE string.

CONCATENATE 'FI line items for' doc_source_1 source_value_1

INTO title SEPARATED BY space.

IF NOT source_value_2 IS INITIAL.

CONCATENATE title doc_source_2 source_value_2

INTO title SEPARATED BY space.

ENDIF.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

i_title = title

i_selection = 'X'

i_tabname = 'BSEG'

i_structure_name = 'BSEG'

i_callback_user_command = 'USER_COMMAND'

i_callback_program = w_repid

IMPORTING

es_selfield = sel

TABLES

t_outtab = doc_int.

IF NOT sel IS INITIAL.

READ TABLE doc_int INDEX sel-tabindex.

SET PARAMETER ID 'BUK' FIELD doc_int-bukrs.

SET PARAMETER ID 'BLN' FIELD doc_int-belnr.

SET PARAMETER ID 'GJR' FIELD doc_int-gjahr.

CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

ENDIF.

ENDFORM. " display_documents