Hi,
I have copy here some part of code of my program in loop at vbfa and vbrk etc. I am moving data to final table first into work area and then appending that wa to git_final my rtequirement is that when loop again start for second record appendinf at read table it_cform it should again read the data of git_final first to copare wheteher it contains same ZRUN_SR_NO if it contain i dont want to move amount find below code with comment at read table it_cform i have comment thta but it is giving me error that git_final is a atble wi/o header line.
Can solve my problem basisc requirement is that befor updating next record in git_final it shpould first read the same table.
ENDLOOP.
wa_final-bukrs = wa_bkpf-bukrs.
wa_final-belnr = wa_bkpf-belnr.
wa_final-gjahr = wa_bkpf-gjahr.
wa_final-blart = wa_bkpf-blart.
wa_final-bldat = wa_bkpf-bldat.
wa_final-budat = wa_bkpf-budat.
wa_final-stblg = wa_bkpf-stblg.
wa_final-vbeln = wa_vbrk-vbeln.
wa_final-fkart = wa_vbrk-fkart.
wa_final-fktyp = wa_vbrk-fktyp.
wa_final-vbtyp = wa_vbrk-vbtyp.
wa_final-waerk = wa_vbrk-waerk.
wa_final-knumv = wa_vbrk-knumv.
wa_final-kunrg = wa_vbrk-kunrg.
wa_final-mwskz = wa_konv-mwsk1.
READ TABLE lit_vbrp INTO wa_vbrp WITH KEY vbeln = wa_vbrk-vbeln.
IF sy-subrc = 0.
wa_final-vkbur = wa_vbrp-vkbur.
ENDIF.
*****C FORM DETAIL
READ TABLE it_cform INTO wa_cform WITH KEY zvbeln = wa_vbrk-vbeln.
IF sy-subrc = 0.
wa_final-zrun_srn_no = wa_cform-zrun_srn_no.
wa_final-zfrmnum = wa_cform-zfrmnum.
wa_final-zandat = wa_cform-zandat.
wa_final-zamount = wa_cform-zamount.
ENDIF.
READ TABLE it_cform INTO wa_cform WITH KEY zvbeln = wa_vbrk-vbeln.
IF sy-subrc = 0.
read table git_FINAL with table key zrun_srn_no = wa_cform-zrun_srn_no assigning <fs>.
IF sy-subrc = 0.
wa_final-zrun_srn_no = wa_cform-zrun_srn_no.
wa_final-zfrmnum = wa_cform-zfrmnum.
wa_final-zandat = wa_cform-zandat.
wa_final-zamount = wa_cform-zamount.
else.
wa_final-zrun_srn_no = wa_cform-zrun_srn_no.
wa_final-zfrmnum = wa_cform-zfrmnum.
wa_final-zandat = wa_cform-zandat.
wa_final-zamount = wa_cform-zamount.
endif.
endif.
READ TABLE lit_kna1 INTO wa_kna1 WITH KEY kunnr = wa_vbrk-kunrg.
IF sy-subrc EQ 0.
MOVE wa_kna1-name1 TO wa_final-name1.
ENDIF.
READ TABLE lit_vbfa INTO wa_vbfa WITH KEY vbeln = wa_vbrk-vbeln.
IF sy-subrc = 0.
READ TABLE lit_likp INTO wa_likp WITH KEY vbeln = wa_vbfa-vbelv.
IF sy-subrc EQ 0.
MOVE wa_likp-kunnr TO wa_final-kunag.
READ TABLE lit_kna1 INTO wa_kna1 WITH KEY kunnr = wa_likp-kunnr.
IF sy-subrc EQ 0.
MOVE wa_kna1-name1 TO wa_final-name2.
ENDIF.
ENDIF.
ENDIF.
wa_final-gross = wa_final-pf + wa_final-netwr + wa_final-bed +
wa_final-ecess + wa_final-hecess + wa_final-vat +
wa_final-impadd + wa_final-cst.
****NET + EXCISE AMOUNT + PF **** Taxable amount
wa_final-NetExc = wa_final-netwr + wa_final-pf + wa_final-bed +
wa_final-ecess + wa_final-hecess + wa_final-impadd.
*********************
*{ INSERT MS3K901227 1
if E1 = 'X' AND wa_final-KUNAG NE wa_final-KUNRG AND wa_final-KUNAG IS NOT INITIAL.
*} INSERT
APPEND wa_final TO git_final.
****
with regards,
zafar
Bluesky
