*&---------------------------------------------------------------------* *& AT SELECTION-SCREEN * *&---------------------------------------------------------------------* AT SELECTION-SCREEN. PERFORM scr_user_command.
*----------------------------------------------------------------------* * AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname. *----------------------------------------------------------------------* AT SELECTION-SCREENONVALUE-REQUEST FOR p_fname. CALLFUNCTION'F4_FILENAME'"File Upload를 위한 Window IMPORTING
file_name = p_fname.
LOOPAT g_xls_t WHERE row > p_header. MOVE : g_xls_t-col TO lv_index. ASSIGNCOMPONENT lv_index OFSTRUCTURE gt_dat TO <fs>. MOVE : g_xls_t-valueTO <fs>. ATENDOF row. APPEND gt_dat. CLEAR gt_dat. ENDAT. ENDLOOP.
ENDFORM. " EXCEL_UPLOAD *&---------------------------------------------------------------------* *& Form CHANGE_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM change_data .
ENDFORM. " CHANGE_DATA *&---------------------------------------------------------------------* *& Form SAVE_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM save_data . DATA: lv_lines(5).
lv_lines = LINES( gt_2060 ).
* DELETE FROM zmmt2060. MODIFY zmmt2060 FROMTABLE gt_2060. IF sy-subrc = 0. WRITE:/ '거래실적 Upload완료!'. WRITE:/ '건수:', lv_lines.
ELSE. WRITE:/ '거래실적 Upload실패!'. ENDIF.
ENDFORM. " SAVE_DATA *&---------------------------------------------------------------------* *& Form SCRFIELDS_FUNCTXT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM scrfields_functxt .
functxt-icon_id = icon_import.
functxt-quickinfo = 'Excel Format Download'.
functxt-icon_text = 'Excel Format Download'.
sscrfields-functxt_01 = functxt.
ENDFORM. "scrfields_functxt *&---------------------------------------------------------------------* *& Form SCR_USER_COMMAND *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM scr_user_command .
CASE sscrfields-ucomm. WHEN'FC01'. PERFORM sap_oi_load_mime_data. WHENOTHERS. ENDCASE.
ENDFORM. " SCR_USER_COMMAND *&---------------------------------------------------------------------* *& Form SAP_OI_LOAD_MIME_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM sap_oi_load_mime_data .
IF sy-subrc NE0. RAISE fail_document_load. MESSAGEID sy-msgid TYPE'E'NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF.
IF doc_size NE0. * FACTORY 와 DOCUMENT 연결 CALLMETHOD factory->get_document_proxy EXPORTING
document_type = doc_type IMPORTING
document_proxy = document
retcode = retcode. CALLMETHOD c_oi_errors=>show_message EXPORTING type = 'E'. * Document를 Protected Mode로 Open하고 매크로를 실행함. CALLMETHOD document->open_document_from_table EXPORTING
document_table = doc_table[]
document_size = doc_size IMPORTING
retcode = retcode. CALLMETHOD c_oi_errors=>show_message EXPORTING type = 'E'. ELSE. * MESSAGE E005 RAISING FAIL_DOCUMENT_OPEN. * RAISE FAIL_DOCUMENT_OPEN. * MESSAGE S000 WITH '선택한 문서가 없습니다'. ENDIF.
ENDFORM. " SAP_OI_LOAD_MIME_DATA *&---------------------------------------------------------------------* *& Form close_document *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM close_document .