Skip to Content
0
Former Member
Jun 21, 2014 at 10:09 AM

at end of row is skipping inside loop.

729 Views

MY requirement is for BAPI.but facing problem uploading excel sheet into sap.And in particular at end of row statement is not working.as a result of which data is not coming in IT_FINAL.



DATA: it_exload LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE.

DATA:BEGIN OF it_final OCCURS 0,

* BUKRS TYPE BKPF-BUKRS,

BLDAT(10) TYPE C,

* BLDAT TYPE INVFO-BLDAT,

XBLNR TYPE INVFO-XBLNR,

BUDAT TYPE INVFO-BUDAT,

WAERS TYPE INVFO-WAERS,

* MWSKZ TYPE INVFO-MWSKZ,

BUPLA TYPE INVFO-BUPLA,

SECCO TYPE INVFO-SECCO,

SGTXT TYPE INVFO-SGTXT,

* KURSF TYPE INVFO-KURSF,

GSBER TYPE INVFO-GSBER,

ZUONR TYPE INVFO-ZUONR,

BKTXT TYPE INVFO-BKTXT,

EBELN TYPE RM08M-EBELN,

WRBTR TYPE INVFO-WRBTR,

lfbnr TYPE DRSEG-LFBNR,

END OF it_final.

LOOP AT IT_EXLOAD.

CASE IT_EXLOAD-COL.

WHEN '0001'.

IT_FINAL-BLDAT = IT_EXLOAD-VALUE.

WHEN '0002'.

IT_FINAL-XBLNR = IT_EXLOAD-VALUE.

WHEN '0003'.

IT_FINAL-BUDAT = sy-datum.

WHEN '0004'.

IT_FINAL-WAERS = IT_EXLOAD-VALUE.

WHEN '0005'.

IT_FINAL-BUPLA = IT_EXLOAD-VALUE.

WHEN '0006'.

IT_FINAL-SECCO = IT_EXLOAD-VALUE.

WHEN '0007'.

IT_FINAL-SGTXT = IT_EXLOAD-VALUE.

WHEN '0008'.

IT_FINAL-GSBER = IT_EXLOAD-VALUE.

WHEN '0009'.

IT_FINAL-ZUONR = IT_EXLOAD-VALUE.

WHEN '0010'.

IT_FINAL-BKTXT = IT_EXLOAD-VALUE.

WHEN '0011'.

* IT_FINAL-EBELN = IT_EXLOAD-VALUE.

WHEN '0012'.

IT_FINAL-WRBTR = IT_EXLOAD-VALUE.

WHEN '0013'.

IT_FINAL-LFBNR = it_exload-value.

ENDCASE.

AT END OF ROW.

APPEND IT_FINAL.

CLEAR IT_FINAL.

ENDAT.

ENDLOOP.

ENDFORM.