批量上传大量数据，SAP标准函数dump

采用批次处理的方式，循环调用ALSM_EXCEL_TO_INTERNAL_TABLE

1. FORM frm_excel_up .
   
2. * 局部变量的定义
   
3.   DATA:lt_excel TYPE TABLE OF alsmex_tabline,
   
4.        ls_excel TYPE alsmex_tabline.
   
5.   DATA:lv_date      TYPE string,
   
6.        lv_time      TYPE string,
   
7.        lv_begin_row TYPE i,
   
8.        lv_end_row   TYPE i.
   
9. 
   
10.   CLEAR gt_upload[].
    
11. * 选择文件后做后续处理
    
12.   CHECK p_file IS NOT INITIAL.
    
13. 
    
14.   lv_begin_row = 4.
    
15.   lv_end_row   = 100000.
    
16.   DO 10 TIMES.
    
17.     REFRESH:lt_excel[].
    
18. * 把文件的数据变成内表
    
19.     CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    
20.       EXPORTING
    
21.         filename                = p_file
    
22.         i_begin_col             = 1
    
23.         i_begin_row             = lv_begin_row "4
    
24.         i_end_col               = 6
    
25.         i_end_row               = lv_end_row "1000000
    
26.       TABLES
    
27.         intern                  = lt_excel
    
28.       EXCEPTIONS
    
29.         inconsistent_parameters = 1
    
30.         upload_ole              = 2
    
31.         OTHERS                  = 3.
    
32.     IF sy-subrc <> 0.
    
33.       MESSAGE '文件打开失败！'(010) TYPE  'E'.
    
34.     ENDIF.
    
35. 
    
36. *  判断导入的数据是否为空
    
37.     IF lt_excel[] IS INITIAL.
    
38.       EXIT.
    
39.     ENDIF.
    
40. 
    
41. * 处理内表数据
    
42.     LOOP AT lt_excel INTO ls_excel.
    
43.       CASE ls_excel-col.
    
44.         WHEN 1.
    
45.           gt_upload-bolnr  = ls_excel-value.
    
46.         WHEN 2.
    
47.           gt_upload-vbeln_vl  = |{ ls_excel-value ALPHA = IN }|.
    
48.         WHEN 3.
    
49.           IF ls_excel-value CA '-'.
    
50.             SPLIT ls_excel-value AT space INTO lv_date lv_time.
    
51.             IF sy-subrc = 0.
    
52.               gt_upload-sdate = lv_date+0(4) && lv_date+5(2) && lv_date+8(2).
    
53.             ELSE.
    
54.               gt_upload-sdate  = ls_excel-value.
    
55.             ENDIF.
    
56.           ELSE.
    
57.             IF ls_excel-value CA '/'.
    
58.               SPLIT ls_excel-value AT space INTO lv_date lv_time.
    
59.               IF sy-subrc = 0.
    
60.                 TRY.
    
61.                     CALL METHOD cl_abap_datfm=>conv_date_ext_to_int
    
62.                       EXPORTING
    
63.                         im_datext   = lv_date
    
64.                         im_datfmdes = '5'
    
65.                       IMPORTING
    
66.                         ex_datint   = gt_upload-sdate.
    
67.                   CATCH cx_abap_datfm_no_date .
    
68.                   CATCH cx_abap_datfm_invalid_date .
    
69.                   CATCH cx_abap_datfm_format_unknown .
    
70.                   CATCH cx_abap_datfm_ambiguous .
    
71.                 ENDTRY.
    
72.               ELSE.
    
73.                 gt_upload-sdate  = ls_excel-value.
    
74.               ENDIF.
    
75.             ELSE.
    
76.               gt_upload-sdate  = ls_excel-value.
    
77.             ENDIF.
    
78.           ENDIF.
    
79.         WHEN 4.
    
80.           gt_upload-stype = ls_excel-value.
    
81.           CONDENSE gt_upload-stype NO-GAPS.
    
82.         WHEN 5.
    
83.           gt_upload-yunfei = ls_excel-value.
    
84.         WHEN 6.
    
85.           gt_upload-waerk  = ls_excel-value.
    
86.         WHEN OTHERS.
    
87.       ENDCASE.
    
88.       AT END OF row.
    
89.         APPEND gt_upload.
    
90.         CLEAR:gt_upload.
    
91.       ENDAT.
    
92.     ENDLOOP.
    
93. 
    
94.     lv_begin_row = lv_end_row + 1.
    
95.     lv_end_row   = lv_end_row + 100000.
    
96.   ENDDO.
    
97. 
    
98. ENDFORM.

复制代码