H_BLOG

*&---------------------------------------------------------------------* *& Report ZEXCEL_UPLOAD_T *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT ZEXCEL_UPLOAD_T. "================================================================================================================== " Class CL..

Type Description Usage w3objid SWM0 상의 엑셀 파일 이름 CONSTANTS: c_smw0 TYPE w3objid VALUE 'ZBD2_EXCEL2'. rlgrap-filename 파일이름 저장용 필드 PARAMETERS : p_fname TYPE rlgrap-filename DEFAULT 'C:\DATA.XLS'. w3mime SWM0 상의 엑셀 파일을 담을 변수 DATA: doc_table LIKE w3mime OCCURS 0.

FORM ADD_LINE . DATA: LT_CELL TYPE LVC_T_CELL, LS_CELL TYPE LVC_S_CELL, LT_ROW TYPE LVC_T_ROW, LS_ROW TYPE LVC_S_ROW. CLEAR: GS_DATA, LT_ROW[], LS_ROW, LT_CELL[], LS_CELL. " ### CELL# #### ##, CALL METHOD GO_GRID->GET_SELECTED_CELLS IMPORTING ET_CELL = LT_CELL. " CELL# #### ##. IF LT_CELL[] IS INITIAL. " ROW ### #### ## CALL METHOD GO_GRID->GET_SELECTED_ROWS IMPORTING ET_INDEX_ROWS = LT_ROW. LOO..

FORM POPUP_TO_CONFIRM USING P_TEXT CHANGING LV_ANSWER. *-- #### CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING TITLEBAR = TEXT-Q01 "[####] TEXT_QUESTION = P_TEXT TEXT_BUTTON_1 = TEXT-Q02 " # TEXT_BUTTON_2 = TEXT-Q03 " ### DEFAULT_BUTTON = '1' DISPLAY_CANCEL_BUTTON = 'X' IMPORTING ANSWER = LV_ANSWER EXCEPTIONS TEXT_NOT_FOUND = 1 OTHERS = 2. IF ( LV_ANSWER '1' ). MESSAGE S555(BC400) WITH '### #######...

*&---------------------------------------------------------------------* *& Form GET_FILE_PATH *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& file_open_dialog CHANGING file_table = lt_filetab rc = lv_rc EXCEPTIONS file_open_dialog_failed = 1 cntl_error = 2 error_no_gui = 3..

*&---------------------------------------------------------------------* *& Form FILE_OPEN *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *&

CONSTANTS: C_SMW0 TYPE W3OBJID VALUE 'ZBD212_COST_CENTER'. *&---------------------------------------------------------------------* *& Form EXCEL_FORM_DOWN_SWM0_LOGIC *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& C_SMW0 *&--------------------------------------------------..

PERFORM SAPGUI_PROGRESS_INDICATOR USING TEXT-004. FORM SAPGUI_PROGRESS_INDICATOR USING P_P01. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING TEXT = P_P01. ENDFORM.

*&---------------------------------------------------------------------* *& Form EXCEL_DOWNLOAD *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *&

*&---------------------------------------------------------------------* *& Form ONF4 *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> E_FIELDNAME *& --> E_FIELDVALUE *& --> ES_ROW_NO *& --> ER_EVENT_DATA *& --> ET_BAD_CELLS *& --> E_DISPLAY *&------------------------------------------..