Hi
Move-corresponding is not working in the following coding.
after move lt_lipov-komau value is disappear. Rest of the fields OK. Pls help me
FORM get_vbrp_data.
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_vbrp
FROM vbrp WHERE vbeln IN s_invno.
ENDFORM. " get_vbrp_data
************************************************************************
FORM get_asn_data_invno.
SORT lt_vbrp BY vgbel.
LOOP AT lt_vbrp.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = lt_vbrp-vgbel
IMPORTING
output = lt_vbrp-vgbel
.
Read in ASN
SELECT vbeln verur bolnr erdat ernam
FROM likp INTO TABLE it_likp
WHERE bolnr = lt_vbrp-vgbel.
IF it_likp[] IS NOT INITIAL.
READ TABLE it_likp WITH KEY bolnr = lt_vbrp-vgbel.
IF sy-subrc EQ 0.
lt_lipov-vbeln = it_likp-vbeln.
lt_lipov-bolnr = it_likp-bolnr.
lt_lipov-lddat = it_likp-erdat.
lt_lipov-ernam = it_likp-ernam.
ELSE. "No ASN records found for the invoice
CLEAR LT_REP-VBELN.
CLEAR LT_REP-LFDAT.
CLEAR LT_REP-VERUR.
CLEAR LT_REP-BOLNR.
LT_REP-KOMAU = IT_LIPS-KOMAU. "Inv no
LV_MESSAGE = TEXT-504.
PERFORM CREATE_REPORT_RECORD_LIN01.
LT_REP-LINE_COLOUR = 'C610'. " red Intensified
ENDIF.
lt_lipov-komau = lt_vbrp-vbeln.
APPEND lt_lipov.
CLEAR lt_lipov.
ENDIF.
ENDLOOP.
LOOP AT lt_lipov.
SELECT * FROM lips INTO
CORRESPONDING FIELDS OF TABLE it_lips
WHERE vbeln = lt_lipov-vbeln.
IF it_lips[] IS NOT INITIAL.
READ TABLE it_lips WITH KEY vbeln = lt_lipov-vbeln.
IF sy-subrc = 0.
lt_lipov1-vbeln = it_lips-vbeln.
lt_lipov1-posnr = it_lips-posnr.
lt_lipov1-matnr = it_lips-matnr.
lt_lipov1-lddat = it_lips-erdat.
lt_lipov1-lfimg = it_lips-lfimg.
lt_lipov1-ernam = it_lips-ernam.
lt_lipov1-werks = it_lips-werks.
lt_lipov1-vgbel = it_lips-vgbel.
lt_lipov1-vgpos = it_lips-vgpos.
lt_lipov1-bolnr = lt_lipov-bolnr.
APPEND lt_lipov1.
CLEAR lt_lipov1.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT LT_LIPOV1. "move records back to LT_LIPOV for further verification
REFRESH LT_LIPOV.
MOVE-CORRESPONDING LT_LIPOV1 TO LT_LIPOV.
APPEND LT_LIPOV.
ENDLOOP.