topic Re: In Loop how to move condition type data in Application Development and Automation Discussions

In Loop how to move condition type data

Former Member — Thu, 16 Oct 2008 05:41:05 GMT

Hello Experts,

In loop while i am collecting data in final loop,

I have different pack sizes in pricing procedures viz. p10kg,

p20kg., p15kg.....like wise along with BED, EDU CESS,

Sec & High & VAT . i have fetch data from KONV.

for this i have written two select queries for pack size only in it_konv and other for taxes in it_konv1.

now, for one item no. i have three pack sizes 10, 20 40.

see the following.

FORM GET_ITEM.

DATA: QUANT TYPE KONV-KWERT.

CLEAR QUANT.

CLEAR WA_FINAL-BEDTX.

CLEAR WA_FINAL-EDUTX.

CLEAR WA_FINAL-SECTX.

CLEAR WA_FINAL-VATTX.

LOOP AT IT_VBRK INTO WA_VBRK.

WA_FINAL-VBELN = WA_VBRK-VBELN.

WA_FINAL-FKDAT = WA_VBRK-FKDAT.

WA_FINAL-KUNAG = WA_VBRK-KUNAG.

READ TABLE IT_KNA1 INTO WA_KNA1 WITH KEY KUNNR = WA_VBRK-KUNAG.

WA_FINAL-ADRNR = WA_KNA1-ADRNR.

READ TABLE IT_ADRC INTO WA_ADRC WITH KEY ADDRNUMBER = WA_KNA1-ADRNR.

WA_FINAL-NAME1 = WA_ADRC-NAME1.

WA_FINAL-STREET = WA_ADRC-STREET.

WA_FINAL-STRET1 = wa_adrc-STR_SUPPL1.

WA_FINAL-STRET2 = WA_ADRC-STR_SUPPL2.

WA_FINAL-CITY1 = WA_ADRC-MC_CITY1.

WA_FINAL-POSTAL = WA_ADRC-POST_CODE1.

WA_FINAL-TIMEZ = WA_ADRC-TIME_ZONE.

LOOP AT IT_VBRP INTO WA_VBRP WHERE VBELN = WA_VBRK-VBELN.

WA_FINAL-ITEM = WA_VBRP-POSNR.

WA_FINAL-SALQT = WA_VBRP-FKIMG.

WA_FINAL-SALUN = WA_VBRP-VRKME.

WA_FINAL-MATNR = WA_VBRP-MATNR.

WA_FINAL-DESCP = WA_VBRP-ARKTX.

WA_FINAL-ORDNO = WA_VBRP-AUBEL.

LOOP AT IT_KONV INTO WA_KONV WHERE KNUMV = WA_VBRK-KNUMV.

WA_FINAL-PACKSZ = WA_KONV-KSCHL.

WA_FINAL-EXVALUE = WA_KONV-KWERT.

WRITE : / WA_FINAL-PACKSZ,
WA_FINAL-EXVALUE.

LOOP AT IT_KONV1 INTO WA_KONV1 WHERE KNUMV = WA_VBRK-KNUMV.

IF SY-SUBRC = 0.

IF WA_KONV1-KSCHL = 'JEXP' .

WA_FINAL-BEDTX = WA_KONV1-KWERT.

ELSEIF WA_KONV1-KSCHL = 'JECS'.

WA_FINAL-EDUTX = WA_KONV1-KWERT.

ELSEIF WA_KONV1-KSCHL = 'JA1X'.

WA_FINAL-SECTX = WA_KONV1-KWERT.

ELSEIF WA_KONV1-KSCHL = 'JIVP'.

WA_FINAL-VATTX = WA_KONV1-KWERT.

ENDIF.

ENDLOOP.

APPEND WA_FINAL TO IT_FINAL.

ENDLOOP.

ENDFORM.

plz experts giv me solution.

Thaanks In Advance,

Ashish.

Re: In Loop how to move condition type data

Former Member — Thu, 16 Oct 2008 06:04:30 GMT

hai,

ur first loop should be LOOP AT IT_VBRP , why means ur having item wise details in this only.

loop at it_vbrp.

ifinal-fkimg = it_vbrp-fkimg.

ifinal-netwr = it_vbrp-netwr.

ifinal-matnr = it_vbrp-matnr.

ifinal-werks = it_vbrp-werks.

*read table ivbrk with key vbeln = ivbrp-vbeln.

ifinal-vbeln = it_vbrp-vbeln.

ifinal-fkdat = it_vbrp-erdat.

*read table ikonv with key vbeln = ivbrp-vbeln KPOSN = ivbrp-posnr.

loop at IKONV where KNUMV = it_vbrp-KNUMV and kposn = it_vbrp-posnr.

CASE IKONV-KSCHL.

WHEN 'ZEDC'.

Ifinal-edc = IKONV-KBETR / 10.

WHEN 'JMOD' OR 'ZC`1ES'.

ifinal-basic = IKONV-KbETr / 10.

INVAL-CESS = IKONV-KWERT.

endcase.

endloop.

append ifinal.

endloop.

Re: In Loop how to move condition type data

Former Member — Thu, 16 Oct 2008 12:15:25 GMT

But, I am having various pack sizes like eg p10k, p20k, p25k

like wise i have 9 pack size procedures.

if i have two pack size p10k and p40k and both having value

1000 & 1500 and then tax will be calculaed on 2500

so how can i print that.

should i have to take it in different fields for every pack size.

i have to print it like.

item pack size Amt quantity Excise value

10 p10k 1000 1 350

p40k 1500 1 7

please give me solution.

Thanks,

Ashish

Edited by: ashish patil on Oct 16, 2008 2:16 PM