Data from tables in function module

Question

Dear friends,
               I am trying a PO smartfrom in the driving program I have hanged in a situation where in the subroutine i am calling a function module (this FM takes a po number and a item number and returns the contition types and values accordingly.)
But the problem:-when i loop the itab its returning only the last feteched item no detials . I think some prob in workarea append king of things....Please help and rectify the code.
data ITAB_KOMV LIKE KOMV OCCURS 1 WITH HEADER LINE.
PERFORM GET_ITEM_DETAILS.
loop at itab_komv.
write :/ itab_komv-kposn, itab_komv-KSCHL, itab_komv-kwert.
endloop.
FORM GET_ITEM_DETAILS.
  SELECT EBELN
         EBELP
         EMATN
         TXZ01 "specification ----EKPO--TXZ01
         BANFN
         ANFNR
         WERKS
         MEINS
         MENGE
         NETPR
         MWSKZ "tax code
         PSTYP
         ADRNR
         FROM EKPO
         INTO CORRESPONDING FIELDS OF
          ITAB_EKPO WHERE EBELN EQ PO_NUMBER.
***tax calulattions
          CALL FUNCTION 'ZMM_CALCULATE_TAX_ITEM'
  EXPORTING
    P_EBELN        = itab_ekpo-ebeln
    P_EBELP        = itab_ekpo-ebelp
   TABLES
     it_komv2       = itab_komv
           append itab_ekpo.
endselect.
output:-
00140 13000 like that
but it shd give,
00010
00020
00140..
pls  help with the code.
Edited by: Matt on Jul 9, 2009 7:49 AM

Answer 1

HI,
You are bound to get the last record because you are writing after the loop.
data ITAB_KOMV LIKE KOMV OCCURS 1 WITH HEADER LINE.
PERFORM GET_ITEM_DETAILS.
loop at itab_komv.
write :/ itab_komv-kposn, itab_komv-KSCHL, itab_komv-kwert.
endloop.
FORM GET_ITEM_DETAILS.
SELECT EBELN
EBELP
EMATN
TXZ01 "specification ----EKPO--TXZ01
BANFN
ANFNR
WERKS
MEINS
MENGE
NETPR
MWSKZ "tax code
PSTYP
ADRNR
FROM EKPO
INTO CORRESPONDING FIELDS OF
ITAB_EKPO WHERE EBELN EQ PO_NUMBER.
***tax calulattions
CALL FUNCTION 'ZMM_CALCULATE_TAX_ITEM'
EXPORTING
P_EBELN = itab_ekpo-ebeln
P_EBELP = itab_ekpo-ebelp
TABLES
it_komv2 = itab_komv.
append itab_ekpo.
* basically your write statement should be here
*loop at itab_komv.
*write :/ itab_komv-kposn, itab_komv-KSCHL, itab_komv-kwert.
*endloop.
endselect.
So that with every loop pass of the select statement the conditions are printed for every line item.
What i pointed out to you is the mistake which you are doing.
But the solution is not the correct one.
Within SELECT-ENDSELECT you should never code anything so as to avoid performance problems.
First try to get all data from EKPO into an internal table for the PO.
Do as follows
SELECT EBELN
EBELP
EMATN
TXZ01 "specification ----EKPO--TXZ01
BANFN
ANFNR
WERKS
MEINS
MENGE
NETPR
MWSKZ "tax code
PSTYP
ADRNR
FROM EKPO
INTO CORRESPONDING FIELDS OF TABLE
ITAB_EKPO WHERE EBELN EQ PO_NUMBER.
loop at itab_po.
refresh : itab_komv.
CALL FUNCTION 'ZMM_CALCULATE_TAX_ITEM'
EXPORTING
P_EBELN = itab_ekpo-ebeln
P_EBELP = itab_ekpo-ebelp
TABLES
it_komv2 = itab_komv.
loop at itab_komv.
write :/ itab_komv-kposn, itab_komv-KSCHL, itab_komv-kwert.
endloop.
endloop.
I hope you get my point.
Regards,
Ankur Parab
Edited by: Ankur Parab on Jul 9, 2009 11:25 AM