工艺路线批导(备份)详解编程语言

* ---------------------------------------------------------------------* 

* Report ZPPC001 

* ---------------------------------------------------------------------* 

* SAP Module PP 

* Author Leon 

* Created Date 2015.5.15 

* Description 工艺路线批量导入 

* ---------------------------------------------------------------------* 

REPORT ZPPC001 NO STANDARD PAGE HEADING. 

TABLES: SSCRFIELDS. 

DATA: BEGIN OF gt_upload OCCURS 0, 

 werks TYPE werks_d, " 工厂 

 matnr TYPE matnr, " 物料 

 plnal LIKE plko-plnal, " 组计数器（版本） 

 vornr LIKE plpo-vornr, " 工序 

 arbpl LIKE crhd-arbpl, " 工作中心 

 ltxa1 LIKE plpo-ltxa1, " 工序描述 

* bmsch LIKE plpo-bmsch, 

 bmsch(17), " 基本数量 

 meinh LIKE plpo-meinh, " 工序单位 

 vgw01(17), " 人工 

 vge01 LIKE plpo-vge01, " 单位 

 vgw02(17), " 其它制费 

 vge02 LIKE plpo-vge02, 

 vgw03(17), " 电 

 vge03 LIKE plpo-vge03, 

 vgw04(17), " 蒸汽 

 vge04 LIKE plpo-vge04, 

 vgw05(17), " 天然气 

 vge05 LIKE plpo-vge05, 

 seq TYPE I, 

 maktx LIKE makt-maktx, 

 ktext LIKE plko-ktext, " 任务清单描述（版本描述） 

 status(10), 

 message TYPE string, 

 tabix TYPE I, " 内部序号，仅供程序使用 

END OF gt_upload. 

DATA: gs_upload LIKE LINE OF gt_upload. 

FIELD-SYMBOLS: fs_upload LIKE gs_upload. 

DATA: gv_flag, " 是否可上载标识 

 gv_commit. " 重复提交标识 

********************************************************************** 

* ALV Variable 

********************************************************************** 

DATA: gt_fieldcat TYPE slis_t_fieldcat_alv, 

 gt_sort TYPE slis_t_sortinfo_alv, 

 gs_fieldcat LIKE LINE OF gt_fieldcat, 

 gs_layout TYPE slis_layout_alv. 

********************************************************************** 

* Macro Definition 

********************************************************************** 

DEFINE def_fieldcat. 

 CLEAR gs_fieldcat. 

 gs_fieldcat-fieldname = 1. " fieldname 

 gs_fieldcat-seltext_s = 2. " description 

 gs_fieldcat-seltext_m = 2. 

 gs_fieldcat-seltext_l = 2. 

 gs_fieldcat-key = 3. " key column 

 gs_fieldcat-outputlen = 4. " output length 

 gs_fieldcat-no_zero = 5. " no zero 

 gs_fieldcat-do_sum = 6. " sum 

 gs_fieldcat-ref_tabname = 7. " reference table 

 gs_fieldcat-ref_fieldname = 8. " reference field 

 APPEND gs_fieldcat TO gt_fieldcat. 

END-OF-DEFINITION. 

CONSTANTS c_default_filename TYPE string 

 VALUE C:/route v1.0.xls. 

SELECTION-SCREEN FUNCTION KEY 1. 

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. 

 PARAMETERS: p_fname TYPE string, 

 p_sline TYPE I DEFAULT 2 OBLIGATORY. 

SELECTION-SCREEN END OF BLOCK b1. 

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002. 

 PARAMETERS: p_datuv TYPE datuv. 

SELECTION-SCREEN END OF BLOCK b2. 

INITIALIZATION. 

 PERFORM initial_data. 

AT SELECTION-SCREEN. 

 PERFORM template_download. 

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname. 

 PERFORM f4_for_file_name. 

START-OF-SELECTION. 

 PERFORM check_input. 

 PERFORM get_data. 

 PERFORM process_data. 

 PERFORM display_data. 

FORM check_input. 

 IF p_fname IS INITIAL. 

 MESSAGE TEXT-E02 TYPE S DISPLAY LIKE E. 

 STOP. 

 ENDIF. 

ENDFORM. 

FORM get_data. 

 PERFORM read_excel_to_table. 

 PERFORM check_authority. 

ENDFORM. 

FORM process_data. 

 DATA: lv_msg TYPE STRING. 

 DATA: BEGIN OF lt_exist OCCURS 0, 

 matnr LIKE marc-matnr, 

 werks LIKE marc-werks, 

 END OF lt_exist. 

 SELECT matnr werks INTO TABLE lt_exist 

 FROM marc 

 FOR ALL ENTRIES IN gt_upload 

 WHERE matnr EQ gt_upload-matnr 

 AND werks EQ gt_upload-werks. 

 SORT lt_exist BY matnr werks. 

 LOOP AT gt_upload ASSIGNING fs_upload . 

 fs_upload -status = icon_led_yellow. 

 READ TABLE lt_exist WITH KEY matnr = fs_upload -matnr werks = fs_upload -werks BINARY SEARCH. 

 IF sy-subrc NE 0. 

 fs_upload -status = icon_led_red. 

 CLEAR lv_msg. 

 lv_msg = TEXT-E09 fs_upload -werks TEXT-E10 fs_upload -matnr. 

 fs_upload -MESSAGE = lv_msg. 

 gv_flag = X. 

 CONTINUE. 

 ENDIF. 

 ENDLOOP. 

ENDFORM. 

FORM display_data. 

 CALL FUNCTION SAPGUI_PROGRESS_INDICATOR 

 EXPORTING 

 text = TEXT-S02. 

 CLEAR: gs_layout,gt_fieldcat[]. 

 PERFORM frm_set_layout. 

 PERFORM frm_set_fieldcat. 

 CALL FUNCTION REUSE_ALV_GRID_DISPLAY 

 EXPORTING 

* I_INTERFACE_CHECK =   

* I_BYPASSING_BUFFER =   

* I_BUFFER_ACTIVE =   

 i_callback_program = sy-repid 

 i_callback_pf_status_set = FRM_PF_STATUS 

 i_callback_user_command = FRM_USER_COMMAND 

* I_CALLBACK_TOP_OF_PAGE =   

* I_CALLBACK_HTML_TOP_OF_PAGE =   

* I_CALLBACK_HTML_END_OF_LIST =   

* I_STRUCTURE_NAME = 

* I_BACKGROUND_ID =   

* I_GRID_TITLE = 

* I_GRID_SETTINGS = 

 is_layout = gs_layout 

 it_fieldcat = gt_fieldcat 

* IT_EXCLUDING = 

* IT_SPECIAL_GROUPS = 

* it_sort = gt_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 

* I_HTML_HEIGHT_TOP = 0 

* I_HTML_HEIGHT_END = 0 

* IT_ALV_GRAPHICS = 

* IT_HYPERLINK = 

* IT_ADD_FIELDCAT = 

* IT_EXCEPT_QINFO = 

* IR_SALV_FULLSCREEN_ADAPTER = 

* IMPORTING 

* E_EXIT_CAUSED_BY_CALLER = 

* ES_EXIT_CAUSED_BY_USER = 

 TABLES 

 t_outtab = gt_upload 

 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. 

FORM save_upload_data. 

 DATA: lt_task TYPE TABLE OF bapi1012_tsk_c WITH HEADER LINE, 

 lt_matnr_alloc TYPE TABLE OF bapi1012_mtk_c WITH HEADER LINE, 

 lt_oper TYPE TABLE OF bapi1012_opr_c WITH HEADER LINE, 

 lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE, 

 lv_result, 

 lv_msg TYPE string, 

 lv_from TYPE I, 

 lv_to TYPE I, 

 lv_tabix TYPE sy-tabix. 

 DATA: lv_group LIKE mapl-plnnr. " 组 

* DATA: BEGIN OF lt_mara OCCURS 0, 

* matnr LIKE mara-matnr, 

* meins LIKE mara-meins, 

* END OF lt_mara. 

 DATA: BEGIN OF lt_mapl OCCURS 0, 

 matnr LIKE mapl-matnr, 

 werks LIKE mapl-werks, 

 plnnr LIKE mapl-plnnr, 

 END OF lt_mapl. 

 SORT gt_upload BY werks matnr plnal vornr. 

 IF gt_upload[] IS NOT INITIAL. 

* SELECT DISTINCT matnr meins INTO TABLE lt_mara 

* FROM mara 

* FOR ALL ENTRIES IN gt_upload 

* WHERE matnr EQ gt_upload-matnr. 

* SORT lt_mara BY matnr. 

 SELECT matnr werks plnnr INTO TABLE lt_mapl 

 FROM mapl 

 FOR ALL ENTRIES IN gt_upload 

 WHERE matnr EQ gt_upload-matnr 

 AND werks EQ gs_upload-werks 

 AND plnty EQ N. 

 SORT lt_mapl BY matnr werks. 

 ENDIF. 

 LOOP AT gt_upload. 

 gs_upload = gt_upload. 

 lv_tabix = sy-tabix. 

 AT NEW plnal. 

 lv_from = lv_tabix. 

 CLEAR lt_task. 

 READ TABLE lt_mapl WITH KEY matnr = gs_upload-matnr werks = gs_upload-werks BINARY SEARCH. 

 IF sy-subrc EQ 0. 

 lt_task-task_list_group = lt_mapl-plnnr. 

 ENDIF. 

* lt_task-group_counter = gs_upload-plnal. " 自动产生组计数器 

 IF p_datuv IS NOT INITIAL. 

 lt_task-valid_from = p_datuv. 

 ELSE. 

 lt_task-valid_from = sy-datum. 

 ENDIF. 

 lt_task-task_list_usage = 1. 

 lt_task-plant = gs_upload-werks. 

 lt_task-task_list_status = 4. 

 lt_task-description = gs_upload-ktext. 

* READ TABLE lt_mara WITH KEY matnr = gs_upload-matnr BINARY SEARCH. 

* IF sy-subrc EQ 0. 

* lt_task-task_measure_unit = lt_mara-meins. 

* ENDIF. 

 CALL FUNCTION CONVERSION_EXIT_CUNIT_INPUT 

 EXPORTING 

 INPUT = gs_upload-meinh 

 IMPORTING 

 OUTPUT = gs_upload-meinh 

 EXCEPTIONS 

 UNIT_NOT_FOUND = 1 

 OTHERS = 2. 

 lt_task-task_measure_unit = gs_upload-meinh. 

 APPEND lt_task. 

 CLEAR lt_matnr_alloc. 

 lt_matnr_alloc-material = gs_upload-matnr. 

 lt_matnr_alloc-plant = gs_upload-werks. 

 READ TABLE lt_mapl WITH KEY matnr = gs_upload-matnr werks = gs_upload-werks BINARY SEARCH. 

 IF sy-subrc EQ 0. 

 lt_matnr_alloc-task_list_group = lt_mapl-plnnr. 

 ENDIF. 

* lt_matnr_alloc-group_counter = gs_upload-plnal. 

 IF p_datuv IS NOT INITIAL. 

 lt_matnr_alloc-valid_from = p_datuv. 

 ELSE. 

 lt_matnr_alloc-valid_from = sy-datum. 

 ENDIF. 

 APPEND lt_matnr_alloc. 

 ENDAT. 

 CLEAR lt_oper. 

 READ TABLE lt_mapl WITH KEY matnr = gs_upload-matnr werks = gs_upload-werks BINARY SEARCH. 

 IF sy-subrc EQ 0. 

 lt_oper-task_list_group = lt_mapl-plnnr. 

 ENDIF. 

* lt_oper-group_counter = gs_upload-plnal. 

 IF p_datuv IS NOT INITIAL. 

 lt_oper-valid_from = p_datuv. 

 ELSE. 

 lt_oper-valid_from = sy-datum. 

 ENDIF. 

 lt_oper-activity = gs_upload-vornr. 

 lt_oper-work_cntr = gs_upload-arbpl. 

* lt_oper-control_key = . " 由工作中心自动带出 

 lt_oper-plant = gs_upload-werks. 

 lt_oper-description = gs_upload-ltxa1. 

 lt_oper-operation_measure_unit = lt_task-task_measure_unit. 

 lt_oper-base_quantity = gs_upload-bmsch. 

 lt_oper-denominator = 1. " 分母，必输 

 lt_oper-nominator = 1. 

 lt_oper-cost_relevant = X. 

 lt_oper-ind_splitting_reqrd = X. 

 CALL FUNCTION CONVERSION_EXIT_CUNIT_INPUT 

 EXPORTING 

 INPUT = gs_upload-vge01 

 IMPORTING 

 OUTPUT = gs_upload-vge01 

 EXCEPTIONS 

 UNIT_NOT_FOUND = 1 

 OTHERS = 2. 

 lt_oper-std_unit_01 = gs_upload-vge01. 

 lt_oper-std_value_01 = gs_upload-vgw01. 

 CALL FUNCTION CONVERSION_EXIT_CUNIT_INPUT 

 EXPORTING 

 INPUT = gs_upload-vge02 

 IMPORTING 

 OUTPUT = gs_upload-vge02 

 EXCEPTIONS 

 UNIT_NOT_FOUND = 1 

 OTHERS = 2. 

 lt_oper-std_unit_02 = gs_upload-vge02. 

 lt_oper-std_value_02 = gs_upload-vgw02. 

 CALL FUNCTION CONVERSION_EXIT_CUNIT_INPUT 

 EXPORTING 

 INPUT = gs_upload-vge03 

 IMPORTING 

 OUTPUT = gs_upload-vge03 

 EXCEPTIONS 

 UNIT_NOT_FOUND = 1 

 OTHERS = 2. 

 lt_oper-std_unit_03 = gs_upload-vge03. 

 lt_oper-std_value_03 = gs_upload-vgw03. 

 CALL FUNCTION CONVERSION_EXIT_CUNIT_INPUT 

 EXPORTING 

 INPUT = gs_upload-vge04 

 IMPORTING 

 OUTPUT = gs_upload-vge04 

 EXCEPTIONS 

 UNIT_NOT_FOUND = 1 

 OTHERS = 2. 

 lt_oper-std_unit_04 = gs_upload-vge04. 

 lt_oper-std_value_04 = gs_upload-vgw04. 

 CALL FUNCTION CONVERSION_EXIT_CUNIT_INPUT 

 EXPORTING 

 INPUT = gs_upload-vge05 

 IMPORTING 

 OUTPUT = gs_upload-vge05 

 EXCEPTIONS 

 UNIT_NOT_FOUND = 1 

 OTHERS = 2. 

 lt_oper-std_unit_05 = gs_upload-vge05. 

 lt_oper-std_value_05 = gs_upload-vgw05. 

 APPEND lt_oper. 

 AT END OF plnal. 

 lv_to = lv_tabix. 

 CALL FUNCTION BAPI_ROUTING_CREATE 

* EXPORTING 

* TESTRUN =   

* PROFILE = 

* BOMUSAGE =   

* APPLICATION =   

* IMPORTING 

* GROUP = 

* GROUPCOUNTER = 

 TABLES 

 TASK = lt_task 

 MATERIALTASKALLOCATION = lt_matnr_alloc 

* SEQUENCE = 

 OPERATION = lt_oper 

* SUBOPERATION = 

* REFERENCEOPERATION = 

* WORKCENTERREFERENCE = 

* COMPONENTALLOCATION = 

* PRODUCTIONRESOURCE = 

* INSPCHARACTERISTIC = 

* TEXTALLOCATION = 

* TEXT = 

 RETURN = lt_return. 

 REFRESH: lt_task,lt_matnr_alloc,lt_oper. 

 CLEAR lv_result. 

 LOOP AT lt_return WHERE TYPE = E OR TYPE = A. 

 lv_result = X. 

 EXIT. 

 ENDLOOP. 

 IF lv_result EQ X. 

 CALL FUNCTION BAPI_TRANSACTION_ROLLBACK. 

 CALL FUNCTION FORMAT_MESSAGE 

 EXPORTING 

 ID = lt_return-ID 

 LANG = SY-LANGU 

 NO = lt_return-number 

 V1 = lt_return-message_v1 

 V2 = lt_return-message_v2 

 V3 = lt_return-message_v3 

 V4 = lt_return-message_v4 

 IMPORTING 

 MSG = lv_msg 

 EXCEPTIONS 

 NOT_FOUND = 1 

 OTHERS = 2. 

 CLEAR gs_upload. 

 gs_upload-status = icon_led_red. 

 MODIFY gt_upload FROM gs_upload TRANSPORTING status WHERE tabix BETWEEN lv_from AND lv_to. 

 gs_upload-message = lv_msg. 

 MODIFY gt_upload FROM gs_upload INDEX lv_from TRANSPORTING message. 

 ELSE. 

 CALL FUNCTION BAPI_TRANSACTION_COMMIT 

 EXPORTING 

 WAIT = X. 

 gv_commit = X. 

 READ TABLE lt_return WITH KEY TYPE = S. 

 CALL FUNCTION FORMAT_MESSAGE 

 EXPORTING 

 ID = lt_return-ID 

 LANG = SY-LANGU 

 NO = lt_return-number 

 V1 = lt_return-message_v1 

 V2 = lt_return-message_v2 

 V3 = lt_return-message_v3 

 V4 = lt_return-message_v4 

 IMPORTING 

 MSG = lv_msg 

 EXCEPTIONS 

 NOT_FOUND = 1 

 OTHERS = 2. 

 CLEAR gs_upload. 

 gs_upload-status = icon_led_green. 

 MODIFY gt_upload FROM gs_upload TRANSPORTING status WHERE tabix BETWEEN lv_from AND lv_to. 

 gs_upload-message = lv_msg. 

 MODIFY gt_upload FROM gs_upload INDEX lv_from TRANSPORTING message. 

 ENDIF. 

 ENDAT. 

 ENDLOOP. 

ENDFORM. 

FORM frm_user_command USING VALUE(pv_ucomm) LIKE sy-ucomm 

 pr_selfield TYPE slis_selfield. 

 CASE pv_ucomm. 

 WHEN BUILD. 

 IF gv_flag IS INITIAL. 

 IF gv_commit EQ X. 

 MESSAGE TEXT-E17 TYPE E. 

 EXIT. 

 ENDIF. 

 PERFORM save_upload_data. 

 pr_selfield-refresh = X. 

 SET USER-COMMAND  OPT. 

 ELSE. 

 MESSAGE TEXT-E12 TYPE E. 

 EXIT. 

 ENDIF. 

 WHEN OTHERS. 

 ENDCASE. 

ENDFORM. 

FORM frm_pf_status USING pr_extab TYPE slis_t_extab. 

 SET PF-STATUS STANDARD_UPLOAD EXCLUDING pr_extab. 

ENDFORM. 

FORM frm_set_fieldcat. 

 def_fieldcat STATUS TEXT-A01  4    . 

 def_fieldcat MESSAGE TEXT-A02  20    . 

 def_fieldcat SEQ TEXT-A12  3    . 

 def_fieldcat WERKS TEXT-A03  4    . 

 def_fieldcat MATNR TEXT-A04  18 X   . 

 def_fieldcat MAKTX TEXT-A05      . 

 def_fieldcat PLNAL TEXT-A06  2    . 

 def_fieldcat KTEXT TEXT-A19      . 

 def_fieldcat VORNR TEXT-A07  4    . 

 def_fieldcat ARBPL TEXT-A08  8    . 

 def_fieldcat LTXA1 TEXT-A09     . 

 def_fieldcat BMSCH TEXT-A10      . 

 def_fieldcat MEINH TEXT-A11  3    . 

 def_fieldcat VGW01 TEXT-A13      . 

 def_fieldcat VGE01 TEXT-A14      . 

 def_fieldcat VGW02 TEXT-A15      . 

 def_fieldcat VGE02 TEXT-A14      . 

 def_fieldcat VGW03 TEXT-A16      . 

 def_fieldcat VGE03 TEXT-A14      . 

 def_fieldcat VGW04 TEXT-A17      . 

 def_fieldcat VGE04 TEXT-A14      . 

 def_fieldcat VGW05 TEXT-A18      . 

 def_fieldcat VGE05 TEXT-A14      . 

ENDFORM. 

FORM frm_set_layout. 

 gs_layout-zebra = X. 

 gs_layout-colwidth_optimize = X. 

* gs_layout-box_fieldname = SEL. 

ENDFORM. 

FORM read_excel_to_table. 

 DATA: lv_filename TYPE rlgrap-filename, 

 lt_excel TYPE TABLE OF alsmex_tabline, 

 ls_excel LIKE LINE OF lt_excel, 

 lv_tabix TYPE I. 

 lv_filename = p_fname. 

 CALL FUNCTION ALSM_EXCEL_TO_INTERNAL_TABLE 

 EXPORTING 

 filename = lv_filename 

 i_begin_col = 1 

 i_begin_row = p_sline 

 i_end_col = 256 

 i_end_row = 65535 

 TABLES 

 intern = lt_excel 

 EXCEPTIONS 

 inconsistent_parameters = 1 

 upload_ole = 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. 

 SORT lt_excel BY row col. 

 LOOP AT lt_excel INTO ls_excel. 

 CASE ls_excel-col. 

 WHEN 1. 

 gs_upload-seq = ls_excel-value. 

 WHEN 2. 

 gs_upload-werks = ls_excel-value. 

 CONDENSE gs_upload-werks NO-GAPS. 

 WHEN 3. 

 gs_upload-matnr = ls_excel-VALUE. 

 CONDENSE gs_upload-matnr. 

 CALL FUNCTION CONVERSION_EXIT_ALPHA_INPUT 

 EXPORTING 

 INPUT = gs_upload-matnr 

 IMPORTING 

 OUTPUT = gs_upload-matnr. 

 WHEN 4. 

 gs_upload-maktx = ls_excel-value. 

 CONDENSE gs_upload-maktx. 

 WHEN 5. 

 gs_upload-plnal = ls_excel-value. 

 CONDENSE gs_upload-plnal NO-GAPS. 

 CALL FUNCTION CONVERSION_EXIT_ALPHA_INPUT 

 EXPORTING 

 INPUT = gs_upload-plnal 

 IMPORTING 

 OUTPUT = gs_upload-plnal. 

 WHEN 6. 

 gs_upload-ktext = ls_excel-value. 

 CONDENSE gs_upload-ktext. 

 WHEN 7. 

 gs_upload-vornr = ls_excel-value. 

 CONDENSE gs_upload-vornr NO-GAPS. 

 CALL FUNCTION CONVERSION_EXIT_ALPHA_INPUT 

 EXPORTING 

 INPUT = gs_upload-vornr 

 IMPORTING 

 OUTPUT = gs_upload-vornr. 

 WHEN 8. 

 gs_upload-arbpl = ls_excel-value. 

 CONDENSE gs_upload-arbpl NO-GAPS. 

 WHEN 9. 

 gs_upload-ltxa1 = ls_excel-value. 

 CONDENSE gs_upload-ltxa1. 

 WHEN 10. 

 gs_upload-bmsch = ls_excel-value. 

 CONDENSE gs_upload-bmsch NO-GAPS. 

 WHEN 11. 

 gs_upload-meinh = ls_excel-value. 

 CONDENSE gs_upload-meinh NO-GAPS. 

 WHEN 12. 

 gs_upload-vgw01 = ls_excel-value. 

 CONDENSE gs_upload-vgw01 NO-GAPS. 

 WHEN 13. 

 gs_upload-vge01 = ls_excel-value. 

 CONDENSE gs_upload-vge01 NO-GAPS. 

 WHEN 14. 

 gs_upload-vgw02 = ls_excel-value. 

 CONDENSE gs_upload-vgw02 NO-GAPS. 

 WHEN 15. 

 gs_upload-vge02 = ls_excel-value. 

 CONDENSE gs_upload-vge02 NO-GAPS. 

 WHEN 16. 

 gs_upload-vgw03 = ls_excel-value. 

 CONDENSE gs_upload-vgw03 NO-GAPS. 

 WHEN 17. 

 gs_upload-vge03 = ls_excel-value. 

 CONDENSE gs_upload-vge03 NO-GAPS. 

 WHEN 18. 

 gs_upload-vgw04 = ls_excel-value. 

 CONDENSE gs_upload-vgw04 NO-GAPS. 

 WHEN 19. 

 gs_upload-vge04 = ls_excel-value. 

 CONDENSE gs_upload-vge04 NO-GAPS. 

 WHEN 20. 

 gs_upload-vgw05 = ls_excel-value. 

 CONDENSE gs_upload-vgw05 NO-GAPS. 

 WHEN 21. 

 gs_upload-vge05 = ls_excel-value. 

 CONDENSE gs_upload-vge05 NO-GAPS. 

 ENDCASE. 

 AT END OF row. 

 lv_tabix = lv_tabix + 1. 

 gs_upload-tabix = lv_tabix. 

 APPEND gs_upload TO gt_upload. 

 CLEAR gs_upload. 

 ENDAT. 

 CLEAR ls_excel. 

 ENDLOOP. 

ENDFORM. 

FORM check_authority. 

 DATA: BEGIN OF lt_werks OCCURS 0, 

 werks TYPE werks_d, 

 END OF lt_werks. 

 DATA: lv_msg TYPE STRING. 

 IF gt_upload[] IS INITIAL. 

 MESSAGE TEXT-E06 TYPE S DISPLAY LIKE E. 

 STOP. 

 ENDIF. 

 LOOP AT gt_upload INTO gs_upload. 

 lt_werks-werks = gs_upload-werks. 

 COLLECT lt_werks. 

 ENDLOOP. 

 LOOP AT lt_werks. 

 AUTHORITY-CHECK OBJECT C_ROUT 

 ID ACTVT DUMMY 

 ID PLNTY DUMMY 

 ID WERKS FIELD lt_werks-werks 

 ID STATU DUMMY 

 ID VERWE DUMMY. 

 IF sy-subrc NE 0. 

 lv_msg = TEXT-E07 lt_werks-werks TEXT-E08. 

 MESSAGE lv_msg TYPE S DISPLAY LIKE E. 

 STOP. 

 ENDIF. 

 ENDLOOP. 

ENDFORM. 

FORM initial_data. 

 DATA: ls_textfield LIKE smp_dyntxt. 

 ls_textfield-text = TEXT-T02. 

 ls_textfield-icon_id = icon_xls. 

 ls_textfield-icon_text = TEXT-T01. 

 ls_textfield-quickinfo = TEXT-T02. 

 sscrfields-functxt_01 = ls_textfield. 

ENDFORM. 

FORM template_download. 

 DATA: ls_key TYPE wwwdatatab, 

 lv_filename TYPE STRING, 

 lv_path TYPE STRING, 

 lv_fullpath TYPE STRING, 

 lv_destinat LIKE rlgrap-filename, 

 lv_action TYPE I, 

 lv_rc TYPE I, 

 lv_file_name TYPE string. 

 CHECK sy-ucomm EQ FC01. 

 lv_file_name = c_default_filename. 

 CALL METHOD cl_gui_frontend_services= file_save_dialog 

 EXPORTING 

 default_file_name = lv_file_name 

 file_filter = cl_gui_frontend_services= filetype_excel 

 CHANGING 

 filename = lv_filename 

 path = lv_path 

 fullpath = lv_fullpath 

 user_action = lv_action 

 EXCEPTIONS 

 cntl_error = 1 

 error_no_gui = 2 

 not_supported_by_gui = 3 

 OTHERS = 4. 

 IF sy-subrc 0. 

 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 

 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 

 ENDIF. 

 CHECK lv_action EQ cl_gui_frontend_services= action_ok. 

 ls_key-relid = MI. 

 ls_key-objid = ZPPC001. 

 lv_destinat = lv_fullpath. 

 CALL FUNCTION DOWNLOAD_WEB_OBJECT 

 EXPORTING 

 key = ls_key 

 destination = lv_destinat 

 IMPORTING 

 rc = lv_rc. 

 IF lv_rc EQ 0. 

 MESSAGE S398(00) WITH TEXT-S01. 

 ELSE. 

 MESSAGE E398(00) WITH TEXT-E01. 

 ENDIF. 

ENDFORM. 

FORM f4_for_file_name. 

 DATA: lv_title TYPE string, 

 lt_file TYPE filetable, 

 ls_file TYPE LINE OF filetable, 

 lv_rc TYPE i, 

 lv_filename TYPE string. 

 lv_title = TEXT-B01. 

 lv_filename = c_default_filename. 

 CALL METHOD cl_gui_frontend_services= file_open_dialog 

 EXPORTING 

 window_title = lv_title 

 default_extension = cl_gui_frontend_services= filetype_excel 

 default_filename = lv_filename 

 file_filter = cl_gui_frontend_services= filetype_excel 

 initial_directory = C:/ 

 multiselection = space 

 CHANGING 

 file_table = lt_file 

 rc = lv_rc 

 EXCEPTIONS 

 file_open_dialog_failed = 1 

 cntl_error = 2 

 error_no_gui = 3 

 not_supported_by_gui = 4 

 OTHERS = 5. 

 IF sy-subrc 0. 

 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 

 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 

 ENDIF. 

 CHECK sy-subrc = 0. 

 READ TABLE lt_file INTO ls_file INDEX 1. 

 p_fname = ls_file-filename. 

ENDFORM.

原创文章，作者：ItWorker，如若转载，请注明出处：https://blog.ytso.com/18697.html