通用导入导出程序(内有完整代码).docxVIP

通用导入导出程序（可以自动生成模板）在SAP实施和运维过程中经常有需要批量将数量导入到透明表的场景。这时如何往往需要开发一些导入的程序。因为透明表的结构不同，所以这些导入程序往往只能对一个透明表进行导入，并且由于这些程序相当多，所以没有完整的下载备份数据和生成模板的功能。为了省时，作者开发这个通用导入导出程序，可以对所有的透明进行导出导入并且自动生成导入模板。另外提供跨CLIENT选项，用户可以选择只处理当前CLIENT的数据（这时模板中不会有MANDT字段）。这是详细说明的分割线（内有广告）功能一：下载导入模板和下载数据（可选）选择路径和文件名生成的模板打开之后的样子如果带数据的话是这个样子如果选择跨CLIENT的话功能二：上传数据如果是导入系统透明表会有提示如果选择确定导入-还是会打开文件选择器选择了本地的模板文件就可导入了（注意跨CLIENT选择项，选择了跨CLIENT要使用带MANDT字段的模板。希望能对整数据的XDJM们有所帮助这是详细代码的分割线（木有广告）(以下是完整代码,COPY到系统中激活即可)***?Report??ZRP_BC_GENERAL_IMPEXP*******REPORT??zrp_bc_general_impexp.TYPES:??gtyt_fieldcat?TYPE?lvc_t_fcat.*FIELD-SYMBOLS:*???????????????gft_tc?TYPE?table.CONSTANTS:??gc_x?TYPE?char1?VALUE?X,??gc_lp?VALUE?(,??gc_rp?VALUE?),??gc_is?VALUE?-.DATA:??????gr_excl?TYPE?RANGE?OF?lvc_fname?WITH?HEADER?LINE.PARAMETERS:??????gp_tn?TYPE?tabname?MEMORY?ID??ztctm?OBLIGATORY.SELECTION-SCREEN?BEGIN?OF?BLOCK?gc1?WITH?FRAME?TITLE?g_gc1tx.PARAMETERS?gp_dload?RADIOBUTTON?GROUP?rg1?DEFAULT?X?USER-COMMAND?gc1.SELECTION-SCREEN?BEGIN?OF?LINE.SELECTION-SCREEN?COMMENT?2(20)?g_icdat?MODIF?ID?gc1.PARAMETERS?gp_icda?AS?CHECKBOX?MODIF?ID?gc1.SELECTION-SCREEN?END?OF?LINE.PARAMETERS?gp_uload?RADIOBUTTON?GROUP?rg1.SELECTION-SCREEN?END?OF?BLOCK?gc1.SELECTION-SCREEN?SKIP?1.PARAMETERS?gp_mandt?AS?CHECKBOX?.LOAD-OF-PROGRAM.??PERFORM?sub_init_screen.INITIALIZATION.AT?SELECTION-SCREEN?OUTPUT.??PERFORM?sub_pbo_1000.AT?SELECTION-SCREEN.??IF?sy-ucomm?=?ONLI.????PERFORM?sub_check_screen.????PERFORM?sub_init_object.????CASE?gc_x.??????WHEN?gp_dload.????????PERFORM?sub_download_1000?CHANGING?sy-subrc.??????WHEN?gp_uload.????????PERFORM?sub_upload_1000?CHANGING?sy-subrc.????ENDCASE.????IF?sy-subrc??0.??????MESSAGE?出现错误!?TYPE?E?.????ELSE.??????CASE?gc_x.????????WHEN?gp_dload.??????????MESSAGE?下载成功!?TYPE?S?.????????WHEN?gp_uload.??????????MESSAGE?上传成功!?TYPE?S?.??????ENDCASE.????ENDIF.??ENDIF.*START-OF-SELECTION.***??????Form??sub_init_screen***???????text**FORM?sub_init_screen.??g_gc1tx?=?你想干什么?.??g_icdat?=?同时下载数据(仅限于表）.ENDFORM?.????????????????????sub_init