topic Re: for all entrys in Application Development and Automation Discussions

for all entrys

Former Member — Wed, 13 Aug 2008 07:07:09 GMT

Dear Experts,

using forall entries i want display

bkpf-belnr

bkpf-bukrs,

bseg-gjahr

bseg-wrbtr(vouchar amount)

bseg-wrbtr(debit)

bseg-wrbtr(credit)..

pls see below code and complete it.

REPORT ZINTERACTIV.

Tables : bseg,bkpf.

select-options : s_belnr for bkpf-belnr,

s_bukrs for bkpf-bukrs.

data : begin of itab occurs 0,

belnr like bkpf-belnr,

gjahr like bkpf-gjahr,

bukrs like bkpf-bukrs,

budat like bkpf-budat,

wrbtr1 like bseg-wrbtr,

wrbtr2 like bseg-wrbtr,

wrbtr3 like bseg-wrbtr,

end of itab.

Thanks & Regards

ravi

Re: for all entrys

Former Member — Wed, 13 Aug 2008 07:09:35 GMT

hii

use inner join to get all the values in one internal table.

like Select a_{airln a}lnnam b_{fligh b}cntry into table int_airdet

From zairln as a inner join zflight as b on a_{airln = b}airln.

thanks

Re: for all entrys

Former Member — Wed, 13 Aug 2008 07:27:52 GMT

Hi Ravi Kanth,

select bukrs
       belnr
       gjahr
       budat
into table it_bkpf
from bkpf
where bukrs eq  s_bukrs
  and belnr eq  s_belnr .


select bukrs
       belnr
       wrbtr
into table it_bseg
from bseg
for all entries in it_bkpf
where bukrs eq  it_bkpf-bukrs
  and belnr eq  it_bkpf-belnr .

loop at it_bkpf into wa_bkpf.


read table it_bseg with key bukrs = wa_bkpf-bukrs.

here put condition for 
vocher amount, debit ,crdit  etc .

wrbtr1 = some value based on condition.

wrbtr2 = some value based on  condition.

wrbtr3 = some value based on condition.

endloop.

Regards,

Sandeep

Re: for all entrys

Former Member — Wed, 13 Aug 2008 07:30:49 GMT

hi,

try to code like this for for all entriy:

tables: vbak, vbap.

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

types: begin of gs_vbak,

vbeln TYPE vbak-vbeln,

erdat TYPE vbak-erdat,

kunnr TYPE vbak-kunnr,

ernam TYPE vbak-ernam,

end of gs_vbak.

data: it_vbak type standard table of gs_vbak,

wa_vbak type gs_vbak.

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

types: begin of gs_vbap,

VBELN type vbap-VBELN, "sales order

MATNR type vbap-MATNR, "material no

ARKTX type vbap-ARKTX, "material description

ntgew type vbap-ntgew, "quantity

gewei type vbap-gewei, "quantity unit

NETWR type vbap-NETWR, "currency

WAERK type vbap-WAERK, "currency unit

WERKS type vbap-WERKS, "plant

end of gs_vbap.

data: it_vbap type standard table of gs_vbap,

wa_vbap type gs_vbap.

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

types: begin of gs_final,

vbeln TYPE vbak-vbeln,

erdat TYPE vbak-erdat,

kunnr TYPE vbak-kunnr,

ernam TYPE vbak-ernam,

MATNR type vbap-MATNR, "material no

ARKTX type vbap-ARKTX, "material description

ntgew type vbap-ntgew, "quantity

gewei type vbap-gewei, "quantity unit

NETWR type vbap-NETWR, "currency

WAERK type vbap-WAERK, "currency unit

WERKS type vbap-WERKS, "plant

end of gs_final.

data: it0_final type standard table of gs_final,

wa0_final type gs_final.

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

select-options: s_werks for vbap-werks,

s_matnr for vbap-matnr,

s_kunnr for vbak-kunnr,

s_vbeln for vbak-vbeln.

select vbeln

erdat

kunnr

ernam from vbak into table it_vbak where vbeln in s_vbeln.

select VBELN

MATNR

ARKTX

ntgew

gewei

NETWR

WAERK

WERKS from vbap into table it_vbap for all entries in it_vbak where vbeln eq it_vbak-vbeln.

loop at it_vbak into wa_vbak.

move wa_vbak-VBELN to wa0_final-VBELN.

move wa_vbak-erdat to wa0_final-erdat.

move wa_vbak-KUNNR to wa0_final-KUNNR.

move wa_vbak-ernam to wa0_final-ernam.

read table it_vbap into wa_vbap with key vbeln = wa_vbak-vbeln.

move wa_vbap-MATNR to wa0_final-MATNR.

move wa_vbap-ARKTX to wa0_final-ARKTX.

move wa_vbap-ntgew to wa0_final-ntgew.

move wa_vbap-gewei to wa0_final-gewei.

move wa_vbap-NETWR to wa0_final-NETWR.

move wa_vbap-WAERK to wa0_final-WAERK.

move wa_vbap-WERKS to wa0_final-WERKS.

append wa0_final to it0_final.

clear wa0_final.

endloop.

loop at it0_final into wa0_final.

write: /2 wa0_final-vbeln color col_negative,

10 wa0_final-ERDAT color col_positive,
18 wa0_final-KUNNR color col_negative,
28 wa0_final-ERNAM color col_positive,
32 wa0_final-matnr color col_negative,
52 wa0_final-ARKTX color col_positive,
58 wa0_final-ntgew color col_negative,
65 wa0_final-gewei color col_positive,
72 wa0_final-WAERK color col_negative,
80 wa0_final-WERKS color col_positive.

clear wa0_final-vbeln.
clear wa0_final-ERDAT.
clear wa0_final-KUNNR.
clear wa0_final-ERNAM.
clear wa0_final-matnr.
clear wa0_final-ARKTX.
clear wa0_final-ntgew.
clear wa0_final-gewei.
clear wa0_final-WAERK.

clear wa0_final-WERKS.

endloop.

Re: for all entrys

Former Member — Wed, 13 Aug 2008 07:33:33 GMT

Use two different select query for each table. Then loop the first internal table and use read table for getting values in the second internal table.

Use as given above.

It would be ideal and efficient to follow the same method for any no of table.

Thanks,

Sakthi.

Re: for all entrys

former_member787646 — Wed, 13 Aug 2008 07:37:24 GMT

Hi,

Try this...

SELECT belnr bukrs FROM bkpf INTO corresponding fields of ITAB

WHERE belnr IN s_belnr AND bukrs IN s_bukrs.

SELECT gjahr wrbtr FROM bseg INTO corresponding fields of ITAB

FOR ALL ENTRIES IN ITAB

WHERE belnr = ITAB-belnr AND bukrs = ITAB-bukrs.

ITAB-wrbtr1 = ITAB-wrbtr.

ITAB-wrbtr2 = ITAB-wrbtr.

ITAB-wrbtr3 = ITAB-wrbtr.

Hope it helps.

Murthy