topic Re: help needed(urgent) in Application Development and Automation Discussions

help needed(urgent)

Former Member — Tue, 03 Oct 2006 10:03:45 GMT

hi all,

happy belated dusshera to all,

check the code . i have problem that i am not getting

offsetting item after clicking my 2nd radio button.

by clicking on this i am getting datathat is aslo reqired but alon with it i should get offsetting item details

aslo but i am unable to get it.

so plz provide for this any solution .

REPORT zglaccline NO STANDARD PAGE HEADING

LINE-SIZE 300

LINE-COUNT 65(3).

TABLES : bkpf, bseg.

DATA : BEGIN OF it_bkpf OCCURS 0,

bukrs LIKE bkpf-bukrs,

belnr LIKE bkpf-belnr,

gjahr LIKE bkpf-gjahr,

monat LIKE bkpf-monat,

budat LIKE bkpf-budat,

brnch LIKE bkpf-brnch,

xblnr LIKE bkpf-xblnr,

waers LIKE bkpf-waers,

END OF it_bkpf.

DATA : BEGIN OF it_bseg OCCURS 0,

gsber LIKE bseg-gsber,

hkont LIKE bseg-hkont,

kunnr LIKE bseg-kunnr,

sgtxt LIKE bseg-sgtxt,

bschl LIKE bseg-bschl,

wrbtr LIKE bseg-wrbtr,

dmbtr LIKE bseg-dmbtr,

pswsl LIKE bseg-pswsl,

kostl LIKE bseg-kostl,

prctr LIKE bseg-prctr,

aufnr LIKE bseg-aufnr,

shkzg LIKE bseg-shkzg,

augbl LIKE bseg-augbl,

END OF it_bseg.

DATA : BEGIN OF it_res OCCURS 0,

bukrs LIKE bkpf-bukrs,

gjahr LIKE bkpf-gjahr,

monat LIKE bkpf-monat,

belnr LIKE bkpf-belnr,

budat LIKE bkpf-budat,

brnch LIKE bkpf-brnch,

gsber LIKE bseg-gsber,

hkont LIKE bseg-hkont,

kunnr LIKE bseg-kunnr,

bschl LIKE bseg-bschl,

prctr LIKE bseg-prctr,

kostl LIKE bseg-kostl,

aufnr LIKE bseg-aufnr,

pswsl LIKE bseg-pswsl,

wrbtr LIKE bseg-wrbtr,

waers LIKE bkpf-waers,

dmbtr LIKE bseg-dmbtr,

xblnr LIKE bkpf-xblnr,

txt50 LIKE skat-txt50,

sgtxt LIKE bseg-sgtxt,

shkzg LIKE bseg-shkzg,

END OF it_res.

DATA : BEGIN OF itab_head OCCURS 0,

name1(20) TYPE c,

END OF itab_head.

SELECTION-SCREEN BEGIN OF BLOCK b_2 WITH FRAME TITLE text-002.

PARAMETERS : p_sel1 RADIOBUTTON GROUP sel,

p_sel2 RADIOBUTTON GROUP sel,

p_sel3 RADIOBUTTON GROUP sel.

SELECTION-SCREEN END OF BLOCK b_2.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF BLOCK b_1 WITH FRAME TITLE text-001.

PARAMETER p_bukrs LIKE bkpf-bukrs DEFAULT 'ML' OBLIGATORY.

SELECT-OPTIONS : s_belnr FOR bkpf-belnr.

SELECT-OPTIONS : s_gjahr FOR bkpf-gjahr OBLIGATORY.

SELECT-OPTIONS : s_monat FOR bkpf-monat.

SELECT-OPTIONS : s_blart FOR bkpf-blart.

SELECT-OPTIONS : s_budat FOR bkpf-budat.

SELECT-OPTIONS : s_waers FOR bkpf-waers.

SELECT-OPTIONS : s_hkont FOR bseg-hkont.

SELECT-OPTIONS : s_bldat FOR bkpf-bldat.

SELECTION-SCREEN END OF BLOCK b_1.

SELECT bukrs belnr gjahr monat budat brnch xblnr waers

INTO CORRESPONDING FIELDS OF TABLE it_bkpf

FROM bkpf

WHERE bukrs = p_bukrs

AND belnr IN s_belnr

AND gjahr IN s_gjahr

AND monat IN s_monat

AND blart IN s_blart

AND budat IN s_budat

AND bldat IN s_bldat

AND waers IN s_waers.

IF NOT it_bkpf[] IS INITIAL.

LOOP AT it_bkpf.

IF p_sel1 = 'X'.

SELECT gsber hkont kunnr sgtxt bschl wrbtr pswsl kostl shkzg

dmbtr prctr aufnr augdt augbl

INTO CORRESPONDING FIELDS OF TABLE it_bseg

FROM bseg

WHERE bukrs = it_bkpf-bukrs

AND belnr = it_bkpf-belnr

AND gjahr = it_bkpf-gjahr

AND pswsl = it_bkpf-waers

AND hkont IN s_hkont.

ELSEIF p_sel2 = 'X'.

SELECT gsber hkont kunnr sgtxt bschl wrbtr pswsl kostl shkzg

dmbtr prctr aufnr augdt augbl

INTO CORRESPONDING FIELDS OF TABLE it_bseg

FROM bseg

WHERE bukrs = it_bkpf-bukrs

AND belnr = it_bkpf-belnr

AND gjahr = it_bkpf-gjahr

AND pswsl = it_bkpf-waers.

AND koart <> 'S'.

ENDIF.

IF sy-subrc EQ 0.

LOOP AT it_bseg.

SELECT SINGLE txt50 INTO it_res-txt50

FROM skat

WHERE spras = 'EN'

AND ktopl = 'MCA'

AND saknr = it_bseg-hkont.

it_res-bukrs = it_bkpf-bukrs.

it_res-gjahr = it_bkpf-gjahr.

it_res-monat = it_bkpf-monat.

it_res-gsber = it_bseg-gsber.

it_res-belnr = it_bkpf-belnr.

it_res-budat = it_bkpf-budat.

it_res-brnch = it_bkpf-brnch.

it_res-kunnr = it_bseg-kunnr.

it_res-hkont = it_bseg-hkont.

it_res-sgtxt = it_bseg-sgtxt.

it_res-bschl = it_bseg-bschl.

it_res-wrbtr = it_bseg-wrbtr.

it_res-pswsl = it_bseg-pswsl.

it_res-waers = it_bkpf-waers.

it_res-dmbtr = it_bseg-dmbtr.

it_res-kostl = it_bseg-kostl.

it_res-prctr = it_bseg-prctr.

it_res-aufnr = it_bseg-aufnr.

it_res-shkzg = it_bseg-shkzg.

it_res-augbl = it_bseg-augbl.

it_res-xblnr = it_bkpf-xblnr.

APPEND it_res.

CLEAR it_res.

ENDLOOP.

CLEAR it_bkpf.

ENDIF.

ENDLOOP.

ENDIF.

LOOP AT it_res.

IF it_res-shkzg EQ 'H'.

it_res-wrbtr = it_res-wrbtr * -1.

it_res-dmbtr = it_res-dmbtr * -1.

ENDIF.

WRITE : /2(4) it_res-bukrs,

13(4) it_res-gjahr,

21(2) it_res-monat,

31(10) it_res-belnr,

44(10) it_res-budat,

55(4) it_res-brnch,

60(4) it_res-gsber,

70(10) it_res-hkont,

82(10) it_res-kunnr,

94(2) it_res-bschl,

104(10) it_res-prctr,

116(10) it_res-kostl,

128(12) it_res-aufnr,

142(5) it_res-pswsl,

148(13) it_res-wrbtr,

164(5) it_res-waers,

170(13) it_res-dmbtr,

187(16) it_res-xblnr,

205(50) it_res-sgtxt.

MODIFY it_res.

CLEAR it_res.

ENDLOOP.

Message was edited by: sanjeev singh

Re: help needed(urgent)

Former Member — Tue, 03 Oct 2006 11:44:16 GMT

Hi,

please can you elaborate your problem.

i copied your code but could not

replicate problem.

what is offset items?

Regards

amole

Re: help needed(urgent)

Former Member — Tue, 03 Oct 2006 12:07:29 GMT

When you are populating it_bseg in the loop, the select should have been using <b>APPENDING corresponding fields of table it_bseg </b>.

Also check if relevant data is there in BSEG table for the conditions specified in Where clause.

Regards,

Raj

Re: help needed(urgent)

Former Member — Tue, 03 Oct 2006 12:10:17 GMT

hi amole

iam entering gl acc posting date in my selection-screen

the data which is related to that particular glacc is not coming correctly that means for that gl account 10 line items r there some r missing & also iam getting other glaccount's which is related to that posting date which is not req. Can u please help me.

Re: help needed(urgent)

Former Member — Tue, 03 Oct 2006 12:14:20 GMT

hi raj

i have applied the solution given by u but it is not coming yet and as u r concerned about the data then i must tell u that data is there.

do have any code regarding my reqiurement then plz share with me .

my id is- sanjeevsingh_sap@yahoo.com

thanks & regards

sanjeev

i will surely give points to u for ur effort

Re: help needed(urgent)

Former Member — Tue, 03 Oct 2006 12:30:30 GMT

Hi Sanjeev,

I took your code, pasted in my client and when executed with BUKRS (GF1A, available in this client), I got the contents.

So, I feel there is some problem in the data, not the code.

Plz, check in debug, if corresponding entries does exist in both tables.

Regards,

Raj

Re: help needed(urgent)

Former Member — Tue, 03 Oct 2006 12:37:15 GMT

hi raj

iam entering gl acc posting date in my selection-screen

Re: help needed(urgent)

Former Member — Tue, 03 Oct 2006 13:19:29 GMT

Hello Sanjeev

IF p_sel1 = 'X'.

SELECT gsber hkont kunnr sgtxt bschl wrbtr pswsl kostl shkzg

dmbtr prctr aufnr augdt augbl

INTO CORRESPONDING FIELDS OF TABLE it_bseg

FROM bseg

WHERE bukrs = it_bkpf-bukrs

AND belnr = it_bkpf-belnr

AND gjahr = it_bkpf-gjahr

AND pswsl = it_bkpf-waers

AND hkont IN s_hkont.

ELSEIF p_sel2 = 'X'.

SELECT gsber hkont kunnr sgtxt bschl wrbtr pswsl kostl shkzg

dmbtr prctr aufnr augdt augbl

INTO CORRESPONDING FIELDS OF TABLE it_bseg

FROM bseg

WHERE bukrs = it_bkpf-bukrs

AND belnr = it_bkpf-belnr

AND gjahr = it_bkpf-gjahr

AND pswsl = it_bkpf-waers.

AND koart <> 'S'.

ENDIF.

Can you explain what you are trying to do on the selected radio button P_sel1 and p_sel2. Basically what do they stand for....because if you select p_sel2 there is no filter for hkont so it is surely to fetch data for all hkonts !!