Different Way To Retrieve BSEG Table
Different Way To Retrieve BSEG Table
* 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. S
ELECTION-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
IS INITIAL. * Retrieve the cheque data using the primary key (4.7) * We are assum
ing a vendor payment here SELECT SINGLE vblnr gjahr lifnr laufd FROM payr INTO (
r, lifnr, laufd ) WHERE zbukr = p_bukrs AND hbkid = p_hbkid AND hktid
t. * Now get the accounting documents SELECT bukrs belnr gjahr FROM bsak INTO T
s = p_bukrs AND lifnr = lifnr AND umsks = ' ' AND um
_lines > 0. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = ch
_cheque. PERFORM display_documents TABLES doc_int USING 'Cheque number'
----------------------------------------------------* *& Form display_documents *&-------------------------------------------------------------------* * At this point, y
u have the company code, document number and * fiscal year in table DOC_INT. Here, I
ust use a standard SAP * function module and transaction to display documents and *
but you could use the same information to retrieve * document data from BKPF and/or
SEG. *----------------------------------------------------------------------* FO
RM display_documents TABLES doc_int STRUCTURE doc_wa USING doc_source_1
S: slis. DATA: sel TYPE slis_selfield. DATA: title TYPE string. CONCATENATE
doc_source_1 source_value_1 INTO title SEPARATED BY space. IF NOT source
ATE title doc_source_2 source_value_2 INTO title SEPARATED BY space. ENDI
POPUP_TO_SELECT' EXPORTING i_title = title i_selection
d IMPORTING es_selfield = sel TABLES t_outtab
UK' FIELD doc_int-bukrs. SET PARAMETER ID 'BLN' FIELD doc_int-belnr. SET PARAMETER
JR' FIELD doc_int-gjahr. CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. ENDIF. ENDFO
s