REPORT zmaster_upload.
TYPE-POOLS truxs.
SELECTION-SCREEN: BEGIN OF BLOCK a WITH FRAME TITLE text-001.
PARAMETER: p_table LIKE dd02l-tabname,
p_file LIKE rlgrap-filename. " DEFAULT 'c:tempzcvaa.csv'.
SELECTION-SCREEN: END OF BLOCK a.
DATA: it_tab TYPE REF TO data.
DATA: gt_table TYPE REF TO cl_salv_table.
CREATE DATA it_tab TYPE TABLE OF (p_table).
FIELD-SYMBOLS: <fs_tab> TYPE STANDARD TABLE.
ASSIGN it_tab->* TO <fs_tab>.
DATA: it_type TYPE truxs_t_text_data.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
field_name = 'P_FILE'
IMPORTING
file_name = p_file.
START-OF-SELECTION.
* uploading the data in the file into internal table
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
* I_LINE_HEADER = 'X'
i_tab_raw_data = it_type
i_filename = p_file
TABLES
i_tab_converted_data = <fs_tab>
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid
TYPE sy-msgty
NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
END-OF-SELECTION.
MODIFY (p_table) FROM TABLE <fs_tab>.
DESCRIBE TABLE <fs_tab> LINES DATA(dcr).
WRITE: dcr, 'lines got updated in table', p_table.
TYPE-POOLS truxs.
SELECTION-SCREEN: BEGIN OF BLOCK a WITH FRAME TITLE text-001.
PARAMETER: p_table LIKE dd02l-tabname,
p_file LIKE rlgrap-filename. " DEFAULT 'c:tempzcvaa.csv'.
SELECTION-SCREEN: END OF BLOCK a.
DATA: it_tab TYPE REF TO data.
DATA: gt_table TYPE REF TO cl_salv_table.
CREATE DATA it_tab TYPE TABLE OF (p_table).
FIELD-SYMBOLS: <fs_tab> TYPE STANDARD TABLE.
ASSIGN it_tab->* TO <fs_tab>.
DATA: it_type TYPE truxs_t_text_data.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
field_name = 'P_FILE'
IMPORTING
file_name = p_file.
START-OF-SELECTION.
* uploading the data in the file into internal table
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
* I_LINE_HEADER = 'X'
i_tab_raw_data = it_type
i_filename = p_file
TABLES
i_tab_converted_data = <fs_tab>
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid
TYPE sy-msgty
NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
END-OF-SELECTION.
MODIFY (p_table) FROM TABLE <fs_tab>.
DESCRIBE TABLE <fs_tab> LINES DATA(dcr).
WRITE: dcr, 'lines got updated in table', p_table.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
144 | The New Programming Model in SAP NetWeaver 04 [1] | 홍성호 | 2007.03.27 | 3659 |
143 | ABAP 예제 프로그램 정보를 담고 있는 엑셀 파일 [5] | SARA | 2007.03.26 | 4103 |
142 | work flow (워크 플로우) 메뉴얼 입니다. [5] | SARA | 2007.03.26 | 5096 |
141 | work flow (워크 플로우)오버뷰 [3] | SARA | 2007.03.26 | 5372 |
140 | ALV Gird Control 문서 [4] | 김관현 | 2007.03.26 | 3573 |
139 | RFC Programming in ABAP [2] | 김관현 | 2007.03.26 | 5377 |
138 | RFC 호출, Call rfc [11] | sapjoy | 2007.03.26 | 4687 |
137 | idoc 이란? [16] | sapjoy | 2007.03.26 | 9736 |
136 | 간단한 SALV 만들기 [13] | 펠릭스 | 2007.03.23 | 6131 |
135 | Background Processing, LUW [10] | 하얀콩 | 2007.03.23 | 3535 |
134 | ALV개념 정리 [20] | 팡다루 | 2007.03.22 | 5612 |
133 | ABAP Key word 문서입니다. [4] | 화니 | 2007.03.21 | 4775 |
132 | [PDF]BC-ABAP Programming [5] | 하얀콩 | 2007.03.20 | 4597 |
131 | [PDF]BC ABAP Workbench Tutorial~ [4] | 하얀콩 | 2007.03.20 | 4417 |
130 | 스마트 폼 [3] | 댕댕 | 2007.03.20 | 4124 |
129 | 자주 쓰는 펑션 모음 [27] | 댕댕 | 2007.03.20 | 10394 |
128 | SAP Interface overview [5] | 댕댕 | 2007.03.20 | 3356 |
127 | CATT 자료 [3] | 댕댕 | 2007.03.20 | 3679 |
126 | IDOC_OUTBOUND [10] | 댕댕 | 2007.03.20 | 3944 |
125 | IDOC_INBOUND [10] | 댕댕 | 2007.03.20 | 4049 |
좋은 자료 감사합니다!