Skip to Content
0
Former Member
Jun 03, 2008 at 04:13 AM

select using for all entries

467 Views

hi gurus,

plz check my report using for all entries where i am give data in selection screen from date to date as 3.01.2007 to 4.02.2007

my code does not provide me data between above date to date.

it fetch data from other date like 26.06.2006 to some other

plz check code and give me solution for it.

TABLES: bseg, bkpf.

----


*ALV grid_data

----


TYPE-POOLS: slis.

************************************************************************

  • INTERNAL TABLES

************************************************************************

TYPES: BEGIN OF it_output,

bukrs TYPE bseg-bukrs, "Company Code

belnr TYPE bseg-belnr, "Accounting Document Number

gjahr TYPE bseg-gjahr, "Fiscal Year

buzei TYPE bseg-buzei, "Number of Line Item

augdt TYPE bseg-augdt, "Clearing Date

shkzg TYPE bseg-shkzg, "Debit/Credit Indicator

dmbtr TYPE bseg-dmbtr, "Amount in local currency

kostl TYPE bseg-kostl, "Cost Center

hkont TYPE bseg-hkont, "G/L Account

matnr TYPE bseg-matnr, "Material Number

werks TYPE bseg-werks, "Plant

erfmg TYPE bseg-erfmg, "Quantity in unit of entry

blart TYPE bkpf-blart, "Document type

bldat TYPE bkpf-bldat, "Document Date

budat TYPE bkpf-budat, "Posting Date

monat TYPE bkpf-monat, "Fiscal period

cpudt TYPE bkpf-cpudt, "Document Entry Date

usnam TYPE bkpf-usnam, "User name

tcode TYPE bkpf-tcode, "Transaction Code20

bktxt TYPE bkpf-bktxt, "Document Header Text

waers TYPE bkpf-waers, "Currency Key

awtyp TYPE bkpf-awtyp, "Reference procedure

awkey TYPE bkpf-awkey, "Object key

END OF it_output.

TYPES: BEGIN OF it_bkpf,

bukrs TYPE bkpf-bukrs,

belnr TYPE bkpf-belnr,

gjahr TYPE bkpf-gjahr,

blart TYPE bkpf-blart,

bldat TYPE bkpf-bldat,

budat TYPE bkpf-budat,

monat TYPE bkpf-monat,

cpudt TYPE bkpf-cpudt,

usnam TYPE bkpf-usnam,

tcode TYPE bkpf-tcode,

bktxt TYPE bkpf-bktxt,

waers TYPE bkpf-waers,

awtyp TYPE bkpf-awtyp,

awkey TYPE bkpf-awkey,

END OF it_bkpf.

DATA: lt_output TYPE it_output OCCURS 0 WITH HEADER LINE.

DATA: lt_bkpf TYPE it_bkpf OCCURS 0 WITH HEADER LINE.

************************************************************************

  • ALV DECLARATION DATA *

************************************************************************

DATA: it_fieldcat TYPE slis_t_fieldcat_alv,

it_heading TYPE slis_t_listheader,

it_sort TYPE slis_t_sortinfo_alv,

it_events TYPE slis_t_event,

it_alv_event TYPE slis_alv_event,

gv_repname TYPE syrepid,

gv_save TYPE char1,

is_layout TYPE slis_layout_alv.

************************************************************************

  • SELECTION SCREEN *

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK bl WITH FRAME TITLE text-011.

SELECT-OPTIONS: s_bukrs FOR bseg-bukrs NO INTERVALS,

s_blart FOR bkpf-blart,

s_budat FOR bkpf-budat.

SELECTION-SCREEN END OF BLOCK bl.

************************************************************************

  • START OF SELECTION *

************************************************************************

START-OF-SELECTION.

PERFORM get_data.

************************************************************************

  • End of Selection *

************************************************************************

END-OF-SELECTION.

PERFORM build_field_catalog.

PERFORM eventstab.

PERFORM display_data.

************************************************************************

  • FORMS *

************************************************************************

&----


*& Form get_data

&----


  • Get Data

----


FORM get_data .

SELECT bukrs

belnr

gjahr

buzei

augdt

shkzg

dmbtr

kostl

hkont

matnr

werks

erfmg

INTO TABLE lt_output

FROM bseg

WHERE bukrs IN s_bukrs.

IF sy-subrc = 0.

SORT lt_output BY belnr.

DELETE ADJACENT DUPLICATES FROM lt_output COMPARING ALL FIELDS.

ENDIF.

IF NOT lt_output[] IS INITIAL.

SELECT bukrs

belnr

gjahr

blart

bldat

budat

monat

cpudt

usnam

tcode

bktxt

waers

awtyp

awkey

INTO TABLE lt_bkpf FROM bkpf

FOR ALL ENTRIES IN lt_output

WHERE bukrs = lt_output-bukrs AND

belnr = lt_output-belnr AND

  • gjahr = lt_output-gjahr."AND

blart IN s_blart AND

budat IN s_budat ." AND

  • blart = 'SA' OR

  • blart = 'SB' OR

  • blart = 'AB' OR

  • blart = 'ZC'.

*sort lt_bkpf by blart budat.

  • DELETE lt_bkpf WHERE blart NOT IN s_blart AND

  • budat NOT IN s_budat.

ENDIF.

SORT lt_bkpf BY bukrs belnr.

  • SORT lt_output[].

  • DELETE ADJACENT DUPLICATES FROM lt_output COMPARING ALL FIELDS.

LOOP AT lt_output.

READ TABLE lt_bkpf WITH KEY bukrs = lt_output-bukrs

belnr = lt_output-belnr

budat = lt_output-budat

BINARY SEARCH.

IF sy-subrc = 0.

MOVE: lt_bkpf-gjahr TO lt_output-gjahr,

lt_bkpf-belnr TO lt_output-belnr,

lt_bkpf-blart TO lt_output-blart,

lt_bkpf-bldat TO lt_output-bldat,

lt_bkpf-budat TO lt_output-budat,

lt_bkpf-monat TO lt_output-monat,

lt_bkpf-cpudt TO lt_output-cpudt,

lt_bkpf-usnam TO lt_output-usnam,

lt_bkpf-tcode TO lt_output-tcode,

lt_bkpf-bktxt TO lt_output-bktxt,

lt_bkpf-waers TO lt_output-waers,

lt_bkpf-awtyp TO lt_output-awtyp,

lt_bkpf-awkey TO lt_output-awkey.

MODIFY lt_output.

  • ELSE.

  • DELETE lt_output.

ENDIF.

ENDLOOP.

ENDFORM. "get_data

thanks jayant