ALV List

[Former Member]

Hi,

When i am moving my ALV list data to an excel sheet,

The header is shifting one right colomn.

please give me a solution ,if possible with an example.

It is not an Hierachy list

Points will be given

regards,

Amit teja V

Message was edited by: amit teja

[Former Member]

Hi,

When i am moving my ALV list data to an excel sheet,

The header is shifting one right colomn.

please give me a solution ,if possible with an example.

It is not an Hierachy list

Points will be given

regards,

Amit teja V

Message was edited by: amit teja

[Former Member]

Hi,

Please go through this code

REPORT ZM_REPT_AUTO_SCRAPPING NO STANDARD PAGE HEADING

LINE-SIZE 255.

*----

---

*

• T Y P E P O O L S .

*

*----

---

TYPE-POOLS : SLIS.

INCLUDE <ICON>.

INCLUDE <SYMBOL>.

*----

---

*

• D A T A D E C L A R A T I O N S .

*

*----

---

TABLES : LQUA, " Quants

MCHA, " Batches

CSKS, " Cost Center Master Data

MKPF, " Header: Material Document

T098, " Basis manual property evaluation

T159B, " Parameters for Batch Inputs in Inventory Management

BMSEG. " Batch Input Structure: Material Movements

DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV,

WA_EVENTS TYPE SLIS_T_EVENT,

WA_PRINT TYPE SLIS_PRINT_ALV,

WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA : VA_REPID LIKE SY-REPID,

VA_BOXNAM TYPE SLIS_FIELDNAME VALUE 'BOX',

VA_BOXTABNAM TYPE SLIS_TABNAME VALUE 'IT_LQUA',

VA_ZEBRA TYPE C VALUE 'X',

VA_COLOPT TYPE C VALUE 'X',

VA_DATUM LIKE SY-DATUM,

VA_EXIT TYPE C.

*----

---

*

• T A B L E S.

*

*----

---

DATA : BEGIN OF IT_LQUA OCCURS 0,

BOX,

MAPPE LIKE BMSEG-MAPPE, " Session Name

TCODE LIKE BMSEG-TCODE, " Transaction Code

BLDAT LIKE BMSEG-BLDAT, " Document Date

BUDAT LIKE BMSEG-BUDAT, " Posting Date

BKTXT LIKE BMSEG-BKTXT, " Document Header Text

BWART LIKE BMSEG-BWART, " Movement Type

MATNR LIKE LQUA-MATNR, " Material Code

WERKS LIKE LQUA-WERKS, " Plant

LGORT LIKE LQUA-LGORT, " Storage Location

CHARG LIKE LQUA-CHARG, " Batch Number

MENGE LIKE LQUA-GESME, " Quantity

ERFME LIKE LQUA-MEINS, " Base Unit

GRUND LIKE BMSEG-GRUND, " Reason Code

LGTYP LIKE LQUA-LGTYP, " Storage Type

LGPLA LIKE LQUA-LGPLA, " Storage Bin

KOSTL LIKE BMSEG-KOSTL, " Cost Center

LGNUM LIKE LQUA-LGNUM, " Warehouse Number

BESTQ LIKE LQUA-BESTQ, " Stock Type (WM)

END OF IT_LQUA.

DATA : BEGIN OF IT_FINAL OCCURS 0,

MAPPE LIKE BMSEG-MAPPE, " Session Name

TCODE LIKE BMSEG-TCODE, " Transaction Code

BLDAT LIKE BMSEG-BLDAT, " Document Date

BUDAT LIKE BMSEG-BUDAT, " Posting Date

BKTXT LIKE BMSEG-BKTXT, " Document Header Text

BWART LIKE BMSEG-BWART, " Movement Type

MATNR LIKE LQUA-MATNR, " Material Code

WERKS LIKE LQUA-WERKS, " Plant

LGORT LIKE LQUA-LGORT, " Storage Location

CHARG LIKE LQUA-CHARG, " Batch Number

MENGE LIKE LQUA-GESME, " Quantity

ERFME LIKE LQUA-MEINS, " Base Unit

GRUND LIKE BMSEG-GRUND, " Reason Code

LGTYP LIKE LQUA-LGTYP, " Storage Type

LGPLA LIKE LQUA-LGPLA, " Storage Bin

KOSTL LIKE BMSEG-KOSTL, " Cost Center

END OF IT_FINAL.

DATA : BEGIN OF IT_MCHA OCCURS 0,

MATNR LIKE MCHA-MATNR,

WERKS LIKE MCHA-WERKS,

CHARG LIKE MCHA-CHARG,

END OF IT_MCHA.

*----

---

*

• S E L E C T I O N S C R E E N.

*

*----

---

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : S_MATNR FOR LQUA-MATNR, " Material Code

S_WERKS FOR LQUA-WERKS, " Plant.

S_LGORT FOR LQUA-LGORT, " Storage

" Location.

S_ZUSCH FOR MCHA-ZUSCH, " Batch Status.

S_BESTQ FOR LQUA-BESTQ, " Stock Type.

S_LGNUM FOR LQUA-LGNUM. " Warehouse

" Number.

PARAMETERS : P_GRUND LIKE T098-GRUND, "OBLIGATORY, " Reason

" Code.

P_KOSTL LIKE CSKS-KOSTL, "OBLIGATORY, " Cost

" Center.

P_MAPPE LIKE T159B-MAPPE DEFAULT 'RM07M', " Session

" Name.

P_BKTXT LIKE MKPF-BKTXT . " Header

" Text.

SELECTION-SCREEN END OF BLOCK B1.

*----

---

*

• I N I T I A L I Z A T I O N.

*

*----

---

INITIALIZATION.

VA_REPID = SY-REPID.

*----

---

*

• S T A R T - O F - S E L E C T I O N.

*

*----

---

START-OF-SELECTION.

PERFORM SELECT_DATA.

PERFORM APPEND_LQUA.

PERFORM DISPLAY_LQUA.

&----

---

*& Form DISPLAY_LQUA

&----

---

• text

----

---

• --> p1 text

• <-- p2 texti

----

---

form DISPLAY_LQUA.

PERFORM FIELDCATALOG_MERGE.

PERFORM BUILD_FIELDCAT_TEXTS.

PERFORM LAYOUT_BUILD USING WA_LAYOUT.

• PERFORM BUILD_IT_LQUA_TEST_DATA.

PERFORM ALV_LIST_DISPLAY.

endform. " DISPLAY_LQUA

&----

---

*& Form LAYOUT_BUILD

&----

---

• text

----

---

• -->IS_LAYOUT text

----

---

form LAYOUT_BUILD using IS_layout TYPE SLIS_LAYOUT_ALV.

Is_layout-zebra = VA_zebra.

Is_layout-box_fieldname = VA_boxnam.

endform. " LAYOUT_BUILD

&----

---

*& Form BUILD_FIELDCAT_TEXTS

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form BUILD_FIELDCAT_TEXTS.

LOOP AT IT_FIELDCAT INTO WA_FIELDCAT.

IF wa_fieldcat-fieldname = 'MAPPE' .

WA_FIELDCAT-NO_OUT = 'X'.

ENDIF.

IF wa_fieldcat-fieldname = 'TCODE' .

WA_FIELDCAT-NO_OUT = 'X'.

ENDIF.

IF wa_fieldcat-fieldname = 'BLDAT' .

WA_FIELDCAT-NO_OUT = 'X'.

ENDIF.

IF wa_fieldcat-fieldname = 'BUDAT' .

WA_FIELDCAT-NO_OUT = 'X'.

ENDIF.

IF wa_fieldcat-fieldname = 'BKTXT' .

WA_FIELDCAT-NO_OUT = 'X'.

ENDIF.

IF wa_fieldcat-fieldname = 'BWART' .

WA_FIELDCAT-NO_OUT = 'X'.

ENDIF.

IF wa_fieldcat-fieldname = 'MATNR' .

wa_fieldcat-reptext_ddic = 'Material Code'. "#EC NOTEXT

wa_fieldcat-seltext_s = 'Material Code'.

wa_fieldcat-seltext_m = 'Material Code'.

wa_fieldcat-seltext_l = 'Material Code'.

wa_fieldcat-text_fieldname = 'Material Code'.

wa_fieldcat-outputlen = 20.

ENDIF.

IF wa_fieldcat-fieldname = 'WERKS' .

wa_fieldcat-reptext_ddic = 'Plant'. "#EC NOTEXT

wa_fieldcat-seltext_s = 'Plant'.

wa_fieldcat-seltext_m = 'Plant'.

wa_fieldcat-seltext_l = 'Plant'.

wa_fieldcat-text_fieldname = 'Plant'.

wa_fieldcat-outputlen = 6.

ENDIF.

IF wa_fieldcat-fieldname = 'LGORT' .

wa_fieldcat-reptext_ddic = 'Storage Location'. "#EC NOTEXT

wa_fieldcat-seltext_s = 'Storage Location'.

wa_fieldcat-seltext_m = 'Storage Location'.

wa_fieldcat-seltext_l = 'Storage Location'.

wa_fieldcat-text_fieldname = 'Storage Location'.

wa_fieldcat-outputlen = 17.

ENDIF.

IF wa_fieldcat-fieldname = 'CHARG' .

wa_fieldcat-reptext_ddic = 'Batch Number'. "#EC NOTEXT

wa_fieldcat-seltext_s = 'Batch Number'.

wa_fieldcat-seltext_m = 'Batch Number'.

wa_fieldcat-seltext_l = 'Batch Number'.

wa_fieldcat-text_fieldname = 'Batch Number'.

wa_fieldcat-outputlen = 13.

ENDIF.

IF wa_fieldcat-fieldname = 'MENGE' .

wa_fieldcat-reptext_ddic = 'Quantity'. "#EC NOTEXT

wa_fieldcat-seltext_s = 'Quantity'.

wa_fieldcat-seltext_m = 'Quantity'.

wa_fieldcat-seltext_l = 'Quantity'.

wa_fieldcat-text_fieldname = 'Quantity'.

wa_fieldcat-outputlen = 9.

ENDIF.

IF wa_fieldcat-fieldname = 'ERFME' .

wa_fieldcat-reptext_ddic = 'Base Unit'. "#EC NOTEXT

wa_fieldcat-seltext_s = 'Base Unit'.

wa_fieldcat-seltext_m = 'Base Unit'.

wa_fieldcat-seltext_l = 'Base Unit'.

wa_fieldcat-text_fieldname = 'Base Unit'.

wa_fieldcat-outputlen = 10.

ENDIF.

IF wa_fieldcat-fieldname = 'GRUND' .

WA_FIELDCAT-NO_OUT = 'X'.

ENDIF.

IF wa_fieldcat-fieldname = 'LGTYP' .

wa_fieldcat-reptext_ddic = 'Storage Type'. "#EC NOTEXT

wa_fieldcat-seltext_s = 'Storage Type'.

wa_fieldcat-seltext_m = 'Storage Type'.

wa_fieldcat-seltext_l = 'Storage Type'.

wa_fieldcat-text_fieldname = 'Storage Type'.

wa_fieldcat-outputlen = 13.

ENDIF.

IF wa_fieldcat-fieldname = 'LGPLA' .

wa_fieldcat-reptext_ddic = 'Storage Bin'. "#EC NOTEXT

wa_fieldcat-seltext_s = 'Storage Bin'.

wa_fieldcat-seltext_m = 'Storage Bin'.

wa_fieldcat-seltext_l = 'Storage Bin'.

wa_fieldcat-text_fieldname = 'Storage BIn'.

wa_fieldcat-outputlen = 12.

ENDIF.

IF wa_fieldcat-fieldname = 'LGNUM' .

wa_fieldcat-reptext_ddic = 'Warehouse Number'. "#EC NOTEXT

wa_fieldcat-seltext_s = 'Warehouse Number'.

wa_fieldcat-seltext_m = 'Warehouse Number'.

wa_fieldcat-seltext_l = 'Warehouse Number'.

wa_fieldcat-text_fieldname = 'Warehouse Number'.

wa_fieldcat-outputlen = 16.

ENDIF.

IF wa_fieldcat-fieldname = 'BESTQ' .

wa_fieldcat-reptext_ddic = 'Stock Category'. "#EC NOTEXT

wa_fieldcat-seltext_s = 'Stock Category'.

wa_fieldcat-seltext_m = 'Stock Category'.

wa_fieldcat-seltext_l = 'Stock Category'.

wa_fieldcat-text_fieldname = 'Stock Category'.

wa_fieldcat-outputlen = 14.

ENDIF.

MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING reptext_ddic.

MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_s.

MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_m.

MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_l.

MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING text_fieldname.

MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING outputlen.

MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING no_out.

MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING HOTSPOT.

CLEAR wa_fieldcat.

ENDLOOP.

endform. " BUILD_FIELDCAT_TEXTS

&----

---

*& Form SET_PF_STATUS

&----

---

FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'SDDD' EXCLUDING rt_extab.

ENDFORM.

&----

---

*& Form USER_COMMAND

&----

---

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.

WHEN 'SELALL'.

LOOP AT IT_LQUA.

IT_LQUA-BOX = 'X'.

MODIFY IT_LQUA.

CLEAR IT_LQUA.

ENDLOOP.

RS_SELFIELD-REFRESH = 'X'.

WHEN 'DSELALL'.

LOOP AT IT_LQUA.

IT_LQUA-BOX = ''.

MODIFY IT_LQUA.

CLEAR IT_LQUA.

ENDLOOP.

RS_SELFIELD-REFRESH = 'X'.

WHEN 'DOWNLD'.

LOOP AT IT_LQUA WHERE BOX NE 'X'.

DELETE IT_LQUA.

CLEAR IT_LQUA.

ENDLOOP.

LOOP AT IT_LQUA.

IT_FINAL-MAPPE = IT_LQUA-MAPPE.

IT_FINAL-TCODE = IT_LQUA-TCODE.

IT_FINAL-BLDAT = IT_LQUA-BLDAT.

IT_FINAL-BUDAT = IT_LQUA-BUDAT.

IT_FINAL-BKTXT = IT_LQUA-BKTXT.

IT_FINAL-BWART = IT_LQUA-BWART.

IT_FINAL-MATNR = IT_LQUA-MATNR.

IT_FINAL-WERKS = IT_LQUA-WERKS.

IT_FINAL-LGORT = IT_LQUA-LGORT.

IT_FINAL-CHARG = IT_LQUA-CHARG.

IT_FINAL-MENGE = IT_LQUA-MENGE.

IT_FINAL-ERFME = IT_LQUA-ERFME.

IT_FINAL-GRUND = IT_LQUA-GRUND.

IT_FINAL-LGTYP = IT_LQUA-LGTYP.

IT_FINAL-LGPLA = IT_LQUA-LGPLA.

IT_FINAL-KOSTL = IT_LQUA-KOSTL.

APPEND IT_FINAL.

CLEAR IT_LQUA.

ENDLOOP.

CALL FUNCTION 'DOWNLOAD'

EXPORTING

• BIN_FILESIZE = ' '

• CODEPAGE = ' '

FILENAME = ' '

FILETYPE = ' '

• ITEM = ' '

• MODE = ' '

• WK1_N_FORMAT = ' '

• WK1_N_SIZE = ' '

• WK1_T_FORMAT = ' '

• WK1_T_SIZE = ' '

• FILEMASK_MASK = ' '

• FILEMASK_TEXT = ' '

• FILETYPE_NO_CHANGE = ' '

• FILEMASK_ALL = ' '

FILETYPE_NO_SHOW = 'X'

• SILENT = 'S'

• COL_SELECT = ' '

• COL_SELECTMASK = ' '

• NO_AUTH_CHECK = ' '

• IMPORTING

• ACT_FILENAME =

• ACT_FILETYPE =

• FILESIZE =

• CANCEL =

TABLES

data_tab = IT_FINAL

• FIELDNAMES =

• EXCEPTIONS

• INVALID_FILESIZE = 1

• INVALID_TABLE_WIDTH = 2

• INVALID_TYPE = 3

• NO_BATCH = 4

• UNKNOWN_ERROR = 5

• GUI_REFUSE_FILETRANSFER = 6

• CUSTOMER_ERROR = 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.

ENDCASE.

ENDFORM.

&----

---

*& Form APPEND_LQUA

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form APPEND_LQUA.

LOOP AT IT_LQUA.

IT_LQUA-MAPPE = P_MAPPE.

IT_LQUA-TCODE = 'MB1A'.

IT_LQUA-BLDAT = VA_DATUM.

IT_LQUA-BUDAT = VA_DATUM.

IT_LQUA-BKTXT = P_BKTXT.

IT_LQUA-BWART = '555'.

IT_LQUA-GRUND = P_GRUND.

IT_LQUA-KOSTL = P_KOSTL.

APPEND IT_LQUA.

CLEAR IT_LQUA.

ENDLOOP.

endform. " APPEND_LQUA

&----

---

*& Form BUILD_IT_LQUA_TEST_DATA

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form BUILD_IT_LQUA_TEST_DATA.

IT_LQUA-LGNUM = '543'.

it_lqua-matnr = '14134515'.

it_lqua-werks = '1000'.

IT_LQUA-CHARG = '98698698'.

IT_LQUA-BESTQ = '1'.

IT_LQUA-LGTYP = '212'.

IT_LQUA-LGPLA = '669698'.

IT_LQUA-ERFME = 'KGS'.

IT_LQUA-MENGE = '347747'.

IT_LQUA-LGORT = '1234'.

IT_LQUA-MAPPE = 'RM07M'.

IT_LQUA-TCODE = 'MB1A'.

IT_LQUA-BLDAT = VA_DATUM.

IT_LQUA-BUDAT = VA_DATUM.

IT_LQUA-BKTXT = 'DSGSG'.

IT_LQUA-BWART = '555'.

IT_LQUA-GRUND = 'SSS'.

IT_LQUA-KOSTL = '32535'.

append it_lqua.

clear it_lqua.

IT_LQUA-LGNUM = '124'.

it_lqua-matnr = '12345678'.

it_lqua-werks = '2000'.

IT_LQUA-CHARG = '18698698'.

IT_LQUA-BESTQ = '3'.

IT_LQUA-LGTYP = '314'.

IT_LQUA-LGPLA = '554698'.

IT_LQUA-ERFME = 'KGS'.

IT_LQUA-MENGE = '457747'.

IT_LQUA-LGORT = '2234'.

IT_LQUA-MAPPE = 'RM07M'.

IT_LQUA-TCODE = 'MB1A'.

IT_LQUA-BLDAT = VA_DATUM.

IT_LQUA-BUDAT = VA_DATUM.

IT_LQUA-BKTXT = 'DSGSG'.

IT_LQUA-BWART = '555'.

IT_LQUA-GRUND = 'SSS'.

IT_LQUA-KOSTL = '32535'.

append it_lqua.

clear it_lqua.

IT_LQUA-LGNUM = '128'.

it_lqua-matnr = '12345789'.

it_lqua-werks = '5000'.

IT_LQUA-CHARG = '75498698'.

IT_LQUA-BESTQ = '4'.

IT_LQUA-LGTYP = '312'.

IT_LQUA-LGPLA = '674698'.

IT_LQUA-ERFME = 'KGS'.

IT_LQUA-MENGE = '567747'.

IT_LQUA-LGORT = '3456'.

IT_LQUA-MAPPE = 'RM07M'.

IT_LQUA-TCODE = 'MB1A'.

IT_LQUA-BLDAT = VA_DATUM.

IT_LQUA-BUDAT = VA_DATUM.

IT_LQUA-BKTXT = 'DSGSG'.

IT_LQUA-BWART = '555'.

IT_LQUA-GRUND = 'SSSS'.

IT_LQUA-KOSTL = '32535'.

append it_lqua.

clear it_lqua.

endform. " BUILD_IT_LQUA_TEST_DATA

&----

---

*& Form ALV_LIST_DISPLAY

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form ALV_LIST_DISPLAY.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

I_BYPASSING_BUFFER = 'X'

I_BUFFER_ACTIVE = ''

I_CALLBACK_PROGRAM = VA_REPID

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

• I_STRUCTURE_NAME =

IS_LAYOUT = WA_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = 'A'

• IS_VARIANT =

• IT_EVENTS =

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = IT_LQUA

• EXCEPTIONS

• PROGRAM_ERROR = 1

• OTHERS = 2

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

endform. " ALV_LIST_DISPLAY

&----

---

*& Form FIELDCATALOG_MERGE

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form FIELDCATALOG_MERGE.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = VA_REPID

I_INTERNAL_TABNAME = 'IT_LQUA'

• I_STRUCTURE_NAME =

• I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = VA_REPID

I_BYPASSING_BUFFER = 'X'

I_BUFFER_ACTIVE = ''

CHANGING

ct_fieldcat = IT_FIELDCAT

• EXCEPTIONS

• INCONSISTENT_INTERFACE = 1

• PROGRAM_ERROR = 2

• OTHERS = 3

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

endform. " FIELDCATALOG_MERGE

&----

---

*& Form SELECT_DATA

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form SELECT_DATA.

SELECT MATNR

WERKS

CHARG

FROM MCHA

INTO TABLE IT_MCHA

WHERE MATNR IN S_MATNR AND

WERKS IN S_WERKS AND

ZUSCH IN S_ZUSCH.

IF NOT IT_MCHA[] IS INITIAL.

SELECT LGNUM

MATNR

WERKS

CHARG

BESTQ

LGTYP

LGPLA

MEINS

GESME

LGORT

FROM LQUA

INTO CORRESPONDING FIELDS OF TABLE IT_LQUA

FOR ALL ENTRIES IN IT_MCHA

WHERE LGNUM IN S_LGNUM AND

MATNR EQ IT_MCHA-MATNR AND

WERKS EQ IT_MCHA-WERKS AND

BESTQ IN S_BESTQ AND

LGORT IN S_LGORT.

ELSE.

SELECT LGNUM

MATNR

WERKS

CHARG

BESTQ

LGTYP

LGPLA

MEINS

GESME

LGORT

FROM LQUA

INTO CORRESPONDING FIELDS OF TABLE IT_LQUA

WHERE LGNUM IN S_LGNUM AND

MATNR IN S_MATNR AND

WERKS IN S_WERKS AND

BESTQ IN S_BESTQ AND

LGORT IN S_LGORT.

ENDIF.

endform. " SELECT_DATA

Try changing type of file in DOWNLOAD function module to ASC, DAT or BIN and see if u get desires output.

Regards,

Sujana Reddy Kumbham

[Former Member]

Hi Thanks for ur needful help,

But even now if i upload the data in the excel sheet

ur program also giving me the same result .

The header is shifting one right colomn