Selection Screen

SIS 1

Date: 21.10.2014

ID: 11BD02076

Name: Kabylzhan Ainur

Program Name: ZUSER13SIS.

Task Description

Make a selection of vendor data from tables LFA1 and LFB1. Select vendor attributes:

Vendor number

Vendor account group

Name 1

Tax Number 1

Company Code

Reconciliation Account in General Ledger

Select open items from tables BSIK and BSAK:

Company Code

Account Number of Vendor or Creditor

Special G/L Indicator

Fiscal Year

Currency Key

Document Type

Amount in Local Currency

Create a view of open items list with vendor attributes.

Narrow your selection by the following parameters:

company code (as parameter)

vendor number (as select-option)

posting date (as select-option)

Program Code

REPORT: ZUSER13SIS.
TABLES: LFA1, LFB1, bsik, bsak.
DATA: BEGIN OF my_lf,
LIFNR TYPE LFA1-LIFNR,
KTOKK TYPE LFA1-KTOKK,
NAME1 TYPE LFA1-NAME1,
STCD1 TYPE LFA1-STCD1,
BUKRS TYPE LFB1-BUKRS,
AKONT TYPE LFB1-AKONT,
END OF my_lf,
t_lf LIKE STANDARD TABLE OF my_lf.

DATA: BEGIN OF my_bsaik,
BUKRS TYPE bsik-BUKRS,
LIFNR TYPE bsik-LIFNR,
UMSKZ TYPE bsik-UMSKZ,
GJAHR TYPE bsik-GJAHR,
WAERS TYPE bsik-WAERS,
BLART TYPE bsik-BLART,
DMBTR TYPE bsik-DMBTR,
END OF my_bsaik,
t_bs LIKE STANDARD TABLE OF my_bsaik.

DATA: BEGIN OF my_bslf,
LIFNR TYPE LFA1-LIFNR,
KTOKK TYPE LFA1-KTOKK,
NAME1 TYPE LFA1-NAME1,
STCD1 TYPE LFA1-STCD1,
AKONT TYPE LFB1-AKONT,
BUKRS TYPE LFB1-BUKRS,
UMSKZ TYPE bsik-UMSKZ,
GJAHR TYPE bsik-GJAHR,
WAERS TYPE bsik-WAERS,
BLART TYPE bsik-BLART,
DMBTR TYPE bsik-DMBTR,
END OF my_bslf,
t_bslf LIKE STANDARD TABLE OF my_bslf.

PARAMETERS p_bukrs TYPE LFB1-BUKRS.
SELECT-OPTIONS s_lifnr FOR lfa1-LIFNR.
SELECT-OPTIONS s_budat FOR bsik-BUDAT.

START-OF-SELECTION.

SELECT * INTO CORRESPONDING FIELDS OF TABLE t_lf FROM lfa1 as a
INNER JOIN lfb1 as b on a~lifnr = b~lifnr
where a~lifnr in s_lifnr and bukrs = p_bukrs.

SELECT * INTO CORRESPONDING FIELDS OF TABLE t_bs FROM bsik
where lifnr in s_lifnr and bukrs = p_bukrs and budat in s_budat.

SELECT * APPENDING CORRESPONDING FIELDS OF TABLE t_bs FROM bsak
where lifnr in s_lifnr and bukrs = p_bukrs and budat in s_budat.

SELECT * INTO CORRESPONDING FIELDS OF TABLE t_bs FROM bsik as i
INNER JOIN lfb1 as l on i~lifnr = l~lifnr and i~bukrs = l~bukrs
INNER JOIN lfa1 as a on l~lifnr = a~lifnr
where i~lifnr in s_lifnr and i~bukrs = p_bukrs and budat in s_budat.

SELECT * APPENDING CORRESPONDING FIELDS OF TABLE t_bs FROM bsak as b
INNER JOIN lfb1 as l on b~lifnr = l~lifnr and b~bukrs = l~bukrs
INNER JOIN lfa1 as a on l~lifnr = a~lifnr
where b~lifnr in s_lifnr and b~bukrs = p_bukrs and budat in s_budat.
BREAK-POINT.

Selection Screen

Output

Дата добавления: 2015-11-14