hi,
loop at gi_eban into gs_eban.
g_sum = ( gs_eban-menge * gs_eban-preis ).
g_total = ( g_total + g_sum ).
move-corresponding gs_eban to gs_final.
read table gi_t024 into gs_t024 with key ekgrp = gs_eban-ekgrp.
move-corresponding gs_t024 to gs_final.
read table gi_t001k into gs_t001k with key bwkey = gs_eban-werks.
move-corresponding gs_t001k to gs_final.
read table gi_t001 into gs_t001 with key bukrs = gs_t001k-bukrs.
move-corresponding gs_t001 to gs_final.
read table gi_t001w into gs_t001w with key werks = gs_eban-werks.
move-corresponding gs_t001w to gs_final.
read table gi_adrc into gs_adrc with key addrnumber = gs_t001w-adrnr.
move-corresponding gs_adrc to gs_final.
read table gi_user_addr into gs_user_addr with key bname = gs_eban-ernam.
move-corresponding gs_user_addr to gs_final.
read table gi_ebkn into gs_ebkn with key banfn = gs_eban-banfn.
move gs_ebkn-ps_psp_pnr to gs_final-ps_psp_pnr.
read table gi_prps into gs_prps with key pspnr = gs_ebkn-ps_psp_pnr.
move-corresponding gs_prps to gs_final.
read table gi_anla into gs_anla with key posnr = gs_prps-pspnr.
move-corresponding gs_anla to gs_final.
CONCATENATE gs_EBAN-banfn gs_EBAN-bnfpo INTO lv.
*lv = gs_stxl-tdname.
CLEAR gi_text.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'B01'
LANGUAGE = 'E'
NAME = lv
OBJECT = 'EBAN'
TABLES
LINES = gi_text
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*CLEAR gv_text01.
LOOP AT gi_text INTO gs_text.
MOVE GS_TEXT-TDLINE TO GS_FINAL-Z_TEXT01.
CLEAR lv_text.
append gs_final to gi_final.
clear: gs_final.
ENDLOOP.
endloop.
i gave like this , all data r moved to gi_final ztable.
if text their means all data is coming with text also, but if text not their for particular line item means, all data is not coming.
i need atleast remaining line item details has to come .
regards,
S.kavitha