通用导入导出程序(内有完整代码)重点分析.docx

通用导入导出程序 （可以自动生成模板） 在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**FO