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

BUKRS - Company Code
BELNR - Accounting Document Number?
GJAHR - Fiscal Year?
BUZEI - Line Item Number

?訪問此表最佳的是包含所有的索引字段，但在實際應用是很少能達到的。但要有好的性能根據(jù)經(jīng)驗必須要有公司和憑證號作為查詢條件。為了達到這一點，我可以根據(jù)條件不同而使用不同ｓａｐ的其他表，先查出公司和憑證號，再去讀取ＢＳＥＧ表。

代碼如下：

注意：該程序包含了各種條件的查詢，程序員可以根據(jù)自己應用需求選擇對應一個的子程序來讀取公司和憑證號。

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

總結(jié)

以上是生活随笔為你收集整理的ABAP--如何快速从BSEG读取数据的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。