一些配置数据，或者自定表的基础数据，需要初期导入，或者是一些表维护的数据，需要一次性导入，所以做了这个导入程序，支付所有表，作为一个通用表的导入程序 。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 |
*&---------------------------------------------------------------------* *& Report ZRDCO006_UPLOAD *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT ZRDCO006_UPLOAD. TYPE-POOLS:SLIS,ABAP. DATA: BEGIN OF IEXCEL OCCURS 0. INCLUDE STRUCTURE ALSMEX_TABLINE. DATA: END OF IEXCEL. DATA: I_INDEX TYPE I. FIELD-SYMBOLS: <FS>. *----------- DATA: D_REF TYPE REF TO DATA, LT_ALV_CAT TYPE TABLE OF LVC_S_FCAT, LS_ALV_CAT LIKE LINE OF LT_ALV_CAT. DATA: LT_TABLE LIKE TABLE OF DNTAB. DATA: LS_TABLE TYPE DNTAB. DATA: DYN_TABLE TYPE REF TO DATA. DATA: DYN_WA TYPE REF TO DATA. FIELD-SYMBOLS : <DYN_TABLE> TYPE TABLE, <DYN_WA> TYPE ANY, <DYN_FIELD> TYPE ANY, <FS_STR> TYPE ANY. *------------------------------------------- PARAMETERS: P_FNAME LIKE RLGRAP-FILENAME MEMORY ID M01, " 获取文件路径 P_TABLE TYPE TABNAME AS LISTBOX VISIBLE LENGTH 20 OBLIGATORY. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT (70) TEXT-001."有效数据从第1行开始,结构与表相同 SELECTION-SCREEN END OF LINE. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT (70) TEXT-002."第1列为MANDT列，可空，业务数据从第2列开始 SELECTION-SCREEN END OF LINE. AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME. PERFORM GET_FILE. AT SELECTION-SCREEN OUTPUT. PERFORM PRF_GET_TABLE. START-OF-SELECTION. PERFORM GET_TABLE. PERFORM UPLOAD. END-OF-SELECTION. PERFORM ALV_SHOW. PERFORM PRF_SAVE. *&---------------------------------------------------------------------* *& Form get_field *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM GET_FILE. CALL FUNCTION 'WS_FILENAME_GET' EXPORTING * DEF_FILENAME = ' ' * DEF_PATH = ' ' MASK = 'EXECL xlsx,*.xlsx,EXECL xls,*.xls,All Files,*.*.' * MODE = ' ' TITLE = '请选择要导入的文件' IMPORTING FILENAME = P_FNAME * RC = EXCEPTIONS INV_WINSYS = 1 NO_BATCH = 2 SELECTION_CANCEL = 3 SELECTION_ERROR = 4 OTHERS = 5. IF SY-SUBRC <> 0. WRITE: '导入数据出错'. ENDIF. ENDFORM. "get_field *&---------------------------------------------------------------------* *& Form upLOAD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM UPLOAD. DATA: L_COL TYPE INT4. CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' EXPORTING FILENAME = P_FNAME I_BEGIN_COL = 1 I_BEGIN_ROW = 2 I_END_COL = 100 I_END_ROW = 100000 TABLES INTERN = IEXCEL EXCEPTIONS INCONSISTENT_PARAMETERS = 1 UPLOAD_OLE = 2 OTHERS = 3. IF SY-SUBRC <> 0. MESSAGE E000(ZRCO) WITH '读取EXECL出错'. ELSE. LOOP AT IEXCEL. IF IEXCEL-COL = 1. CONTINUE. ENDIF. " WRITE:IEXCEL-COL. MOVE IEXCEL-COL TO I_INDEX. ASSIGN COMPONENT I_INDEX OF STRUCTURE <DYN_WA> TO <FS> . MOVE IEXCEL-VALUE TO <FS>. AT END OF ROW. APPEND <DYN_WA> TO <DYN_TABLE>. CLEAR: <DYN_WA> . " APPEND IM_TAB. "在每一行结束时 " CLEAR IM_TAB. ENDAT. ENDLOOP. ENDIF. ENDFORM. "upLOAD *&---------------------------------------------------------------------* *& Form get_table *&---------------------------------------------------------------------* * text 获取内表结构 *----------------------------------------------------------------------* FORM GET_TABLE. *取出表结构的字段目录 CALL FUNCTION 'NAMETAB_GET' EXPORTING LANGU = SY-LANGU TABNAME = P_TABLE TABLES NAMETAB = LT_TABLE EXCEPTIONS NO_TEXTS_FOUND = 1. *根据取出的字段目录生成参考字段目录 LOOP AT LT_TABLE INTO LS_TABLE. LS_ALV_CAT-FIELDNAME = LS_TABLE-FIELDNAME. LS_ALV_CAT-REF_TABLE = P_TABLE. LS_ALV_CAT-REF_FIELD = LS_TABLE-FIELDNAME. APPEND LS_ALV_CAT TO LT_ALV_CAT. CLEAR LS_ALV_CAT. ENDLOOP. * 内表创建 CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE EXPORTING IT_FIELDCATALOG = LT_ALV_CAT IMPORTING EP_TABLE = D_REF. * 指定生成的内表到字段符号 ASSIGN D_REF->* TO <DYN_TABLE>. * 创建动态工作区结构 CREATE DATA DYN_WA LIKE LINE OF <DYN_TABLE>. * 创建动态工作区 ASSIGN DYN_WA->* TO <DYN_WA>. ENDFORM. "get_table *&---------------------------------------------------------------------* *& Form ALV_SHOW *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM ALV_SHOW. *显示内表中的数据 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = SY-REPID I_STRUCTURE_NAME = P_TABLE I_CALLBACK_PF_STATUS_SET = 'FRM_SET_STATUS' "触发事件调用子程序 I_CALLBACK_USER_COMMAND = 'USER_COMMAND' "鼠标事件操作子程序 TABLES T_OUTTAB = <DYN_TABLE> EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. ENDFORM. "ALV_SHOW *&---------------------------------------------------------------------* *& Form GT_TEST *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM GT_TEST. ENDFORM. "GT_TEST *&---------------------------------------------------------------------* *& Form PRF_GET_TABLE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM PRF_GET_TABLE . TYPE-POOLS: VRM . "存放combobox内容的type pool DATA: NAME TYPE VRM_ID, " list box的名称 LIST TYPE VRM_VALUES, " list box的值 VALUE LIKE LINE OF LIST . " list box的结构 REFRESH LIST . DEFINE FILL_LIST. value-key = &1. "个就是变量P_LIST的值 value-text = &2. "这个是text append value to list. END-OF-DEFINITION. FILL_LIST 'ZRTCO006D' '物料差异池'. FILL_LIST 'ZRTCO006E' 'E本期纱线差异池'. FILL_LIST 'ZRTCO006F' 'F本期纱线差异池'. FILL_LIST 'ZRTCO006G' 'G本期纱线差异池'. "---〉调用函数显示listbox里面的值 CALL FUNCTION 'VRM_SET_VALUES' EXPORTING ID = 'P_TABLE' " PARAMETERS's Name VALUES = LIST. ENDFORM. FORM FRM_SET_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB. SET PF-STATUS 'Z_STATUS'. ENDFORM. FORM USER_COMMAND USING I_UCOMM LIKE SY-UCOMM SELFIELD TYPE SLIS_SELFIELD. IF I_UCOMM = '&DATA_SAVE'. PERFORM PRF_SAVE. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form PRF_SAVE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM PRF_SAVE . MODIFY (P_TABLE) FROM TABLE <DYN_TABLE>. IF SY-SUBRC = 0. COMMIT WORK . MESSAGE S000(ZRCO) WITH '保存数据成功'. ELSE. ROLLBACK WORK . MESSAGE S000(ZRCO) WITH '保存数据失败' DISPLAY LIKE 'E'. ENDIF. ENDFORM. |
