topic Re: problem in programe in Application Development and Automation Discussions

problem in programe

laxman_sankhla3 — Tue, 26 Jun 2007 06:16:06 GMT

i m getting problem in loop.

in loop itab1.

i want to select data from konv i compare konv~knumv = itab1-knumv.

but in itab1-knumv no data is cmoing .

please help me.

LOOP AT ITAB.

READ TABLE ITAB1 WITH KEY EBELN = ITAB-EBELN.

IF ITAB1-EBELN = ITAB-EBELN.

IF sy-subrc eq 0.

ITAB1-EBELN = ITAB-EBELN.

ITAB1-LIFNR = ITAB-LIFNR.

ITAB1-EBELP = ITAB-EBELP.

ITAB1-BELNR = ITAB-BELNR.

ITAB1-KNUMV = ITAB-KNUMV.

ITAB1-NAME1 = ITAB-NAME1.

ITAB1-NAME2 = ITAB-NAME2.

ITAB1-GJAHR = ITAB-GJAHR.

modify itab1 index sy-tabix.

endif.

loop at itab1.

select * from konv into corresponding fields of itab

for all entries in itab1

where knumv = itab1-knumv and

kposn = itab1-ebelp.

READ TABLE ITAB1 .

WITH KEY KNUMV = ITAB-KNUMV.

IF ITAB-KSCHL = 'NAVS' OR ITAB-KSCHL = 'NAVM'.

ITAB1-KBETR = ITAB-KBETR.

modify ITAB1 transporting KBETR

where KNUMV = ITAB1-KNUMV .

ELSEIF ITAB-KSCHL = 'FRA1' OR ITAB-KSCHL = 'FRC1'

OR ITAB5-KSCHL = 'FRB1'.

ITAB1-KWERT = ITAB-KWERT.

modify ITAB1 transporting KBETR

where KNUMV = ITAB1-KNUMV .

ENDIF.

modify itab.

endselect.

ENDLOOP.

endloop.

Thanks in advanced.

Re: problem in programe

seshatalpasai_madala — Tue, 26 Jun 2007 06:18:51 GMT

Hi,

Sepeare the two loops

You can construct the itab1 first in one loop and then you can run a loop over the itab1 to execute another loop.

Regards,

Sesh

Re: problem in programe

jayanthi_jayaraman — Tue, 26 Jun 2007 06:21:11 GMT

Hi,

You are looping itab and inside that you are writing the contents of knov into the same itab.That part needs to be changed.

select * from konv into corresponding fields of itab

for all entries in itab1

where knumv = itab1-knumv and

kposn = itab1-ebelp.

Moreover you are using for all entries for the entire itab1.So no need of loop at itab1 before that.

Re: problem in programe

Former Member — Tue, 26 Jun 2007 06:21:35 GMT

hi,

write ur code like this,

add table keyword in select statement.

if not itab1[] is initial.

select * from konv into corresponding fields of table itab

for all entries in itab1

where knumv = itab1-knumv and

kposn = itab1-ebelp.

endif.

reward points if useful,

regards,

seshu.

Re: problem in programe

Former Member — Tue, 26 Jun 2007 06:22:26 GMT

First fetch the data from EKKO and EKPo into ITAB

then

if not itab[] is initial.

select * from KONV into table ITAb1

for all entries in itab

where knumv = itab-knumv and

kposn = itab-ebelp.

endif.

loop at itab.

move-corresponding itab Data to final ITAB3.

read table itab1 with key knumv = itab-knumv

kposn = itab-ebelp.

if sy-subrc = 0.

endif.

append ITAb3.

cklear ITAb3.

endloop.

use the ITAB3 table for your data display.

Reward points for useful Answers

Regards

Anji

Re: problem in programe

Former Member — Tue, 26 Jun 2007 07:05:47 GMT

hi laxman,

LOOP AT ITAB.

READ TABLE ITAB1 WITH KEY EBELN = ITAB-EBELN.

IF ITAB1-EBELN = ITAB-EBELN.

IF sy-subrc eq 0.

ITAB1-EBELN = ITAB-EBELN.

ITAB1-LIFNR = ITAB-LIFNR.

ITAB1-EBELP = ITAB-EBELP.

ITAB1-BELNR = ITAB-BELNR.

ITAB1-KNUMV = ITAB-KNUMV.

ITAB1-NAME1 = ITAB-NAME1.

ITAB1-NAME2 = ITAB-NAME2.

ITAB1-GJAHR = ITAB-GJAHR.

modify itab1 index sy-tabix.

endif.

<<< ENDLOOP <<

loop at itab1.

<<<< APPPENDING CORRESPONIDG FIELDS OF <<<<<<

select * from konv into corresponding fields of itab

for all entries in itab1

where knumv = itab1-knumv and

kposn = itab1-ebelp.

READ TABLE ITAB1 .

WITH KEY KNUMV = ITAB-KNUMV.

IF ITAB-KSCHL = 'NAVS' OR ITAB-KSCHL = 'NAVM'.

ITAB1-KBETR = ITAB-KBETR.

modify ITAB1 transporting KBETR

where KNUMV = ITAB1-KNUMV .

ELSEIF ITAB-KSCHL = 'FRA1' OR ITAB-KSCHL = 'FRC1'

OR ITAB5-KSCHL = 'FRB1'.

ITAB1-KWERT = ITAB-KWERT.

modify ITAB1 transporting KBETR

where KNUMV = ITAB1-KNUMV .

ENDIF.

modify itab.

endselect.

ENDLOOP.

<<< DELETE ENDLOOP HERE >>>>endloop.

STILL PROBLEM PLEAS GET BACK TO ME

REWARD IF USEFUL

THANKS

NAVEEN

Re: problem in programe

laxman_sankhla3 — Tue, 26 Jun 2007 08:02:35 GMT

HI ANJI ,

AS U TOLD I DID BUT WHAT IS HAPPENING .

I AM SELECTING DATA FROM KONV ON BASED ON ITAB-KNUMV AND ITAB-EBEPL.

IN KONV TABLE AGAINST KNUMV AND EBELP FOR ONE LINE ITEM NUMBER OF KSCHL CONDITION SO HERE WHAT IS HAPPENING

NO DATA IS COMING FOR KONV-KBETR AND KONV-KWERT.

CODE IS BELOW .

PLEASE HELP ME .

I WILL BE VERY THANKFULL TO U .

DATA: BEGIN OF itab OCCURS 0,

EBELN LIKE EKKO-EBELN,

KNUMV LIKE EKKO-KNUMV,

LIFNR LIKE EKKO-LIFNR,

EBELP LIKE KONV-KPOSN,

NETWR LIKE EKPO-NETWR,

NETPR LIKE EKPO-NETPR,

END OF itab.

DATA: BEGIN OF ITAB3 OCCURS 0,

EBELN LIKE EKKO-EBELN,

KNUMV LIKE EKKO-KNUMV,

LIFNR LIKE EKKO-LIFNR,

EBELP LIKE EKPO-EBELP,

NETWR LIKE EKPO-NETWR,

NETPR LIKE EKPO-NETPR,

KSCHL LIKE KONV-KSCHL,

KBETR LIKE KONV-KBETR,

KWERT LIKE KONV-KWERT,

END OF ITAB3.

DATA: BEGIN OF ITAB1 OCCURS 0,

KPOSN LIKE KONV-KPOSN,

KNUMV LIKE KONV-KNUMV,

KSCHL LIKE KONV-KSCHL,

KBETR LIKE KONV-KBETR,

KWERT LIKE KONV-KWERT, " THIS IS FOR FREIGHT

END OF ITAB1.

PERFORM GET_DATA.

PERFORM CALL_ALV_GRID.

FORM GET_DATA.

SELECT A_{EBELN A}LIFNR A_{KNUMV B}EBELP B_{NETWR B}NETPR

FROM EKKO AS A

INNER JOIN EKPO AS B ON A_{EBELN = B}EBELN

INTO CORRESPONDING FIELDS OF TABLE itab

WHERE B~BUKRS = 'GSPL' .

if not itab[] is initial.

select * from KONV into CORRESPONDING FIELDS OF TABLE ITAB1

for all entries in itab

where knumv = itab-knumv and

kposn = itab-ebelp.

endif.

loop at itab.

ITAB3-EBELN = ITAB-EBELN.

ITAB3-EBELP = ITAB-EBELP.

ITAB3-KNUMV = ITAB-KNUMV.

ITAB3-LIFNR = ITAB-LIFNR.

ITAB3-NETWR = ITAB-NETWR.

ITAB3-NETPR = ITAB-NETPR.

read table itab1 with key knumv = itab-knumv

kposn = itab-ebelp.

if sy-subrc = 0.

ITAB3-KSCHL = ITAB1-KSCHL.

IF ITAB3-KSCHL = 'NAVS' OR ITAB3-KSCHL = 'NAVM'.

ITAB3-KBETR = ITAB3-KBETR.

modify ITAB3 transporting KBETR

where KNUMV = ITAB3-KNUMV AND EBELP = ITAB3-EBELP .

ELSEIF ITAB3-KSCHL = 'FRA1' OR ITAB3-KSCHL = 'FRC1' OR

ITAB3-KSCHL = 'FRB1'.

ITAB3-KWERT = ITAB3-KWERT.

modify ITAB3 transporting KWERT

where KNUMV = ITAB3-KNUMV AND EBELP = ITAB3-EBELP .

ENDIF.

endif.

append itab3.

clear itab3.

endloop.

THANKS. PLEASE HELP