当前位置: 首页 > news >正文

全部游戏免费(试玩)站长工具seo推广

全部游戏免费(试玩),站长工具seo推广,手机网站建设选 朗创营销,如何网站建设团队前言 没啥特殊需求#xff0c;就是有个库龄报表用户想整邮件发送 实现 用的最简单的XLS文件作为excel附件发送出去 观察XLS文件的纯文本格式#xff0c;每列之间用TAB制表符分隔#xff0c;每行之间用回车符分隔 思路也比较明确#xff0c;在SAP中实现这种格式#xf…前言 没啥特殊需求就是有个库龄报表用户想整邮件发送 实现 用的最简单的XLS文件作为excel附件发送出去 观察XLS文件的纯文本格式每列之间用TAB制表符分隔每行之间用回车符分隔 思路也比较明确在SAP中实现这种格式再转二进制流就好了 下面的代码替换掉lt_data就可以直接使用用的动态内表自动将内表转成纯文本 *---------------------------------------------------------------------* * Form frm_2023122702 *---------------------------------------------------------------------* * text *---------------------------------------------------------------------* * -- p1 text * -- p2 text *---------------------------------------------------------------------* FORM frm_2023122702 .TYPES: BEGIN OF ty_mrtab,matnr TYPE mara-matnr,maktx TYPE makt-maktx,mtart TYPE mara-mtart,END OF ty_mrtab.FIELD-SYMBOLS: gt_table TYPE table. DYNAMIC TABLE INDICATE 容器字段FIELD-SYMBOLS: fs_data TYPE any,fs_cell_data TYPE any.DATA: lr_data TYPE REF TO data,lo_descr TYPE REF TO cl_abap_typedescr,lo_str_descr_in TYPE REF TO cl_abap_structdescr,ls_abap_comp_descr TYPE abap_compdescr.附件参数DATA: lt_otf TYPE TABLE OF itcoo,lt_tline TYPE TABLE OF tline,lt_record TYPE TABLE OF solisti1,ls_otf TYPE itcoo,ls_tline TYPE tline,ls_record TYPE solisti1.邮件参数DATA: lv_size TYPE i, 邮件附件大小lv_lines_txt TYPE i, 邮件文本行数lv_lines_bin TYPE i, 邮件附件行数lv_benfile TYPE xstring,lv_object TYPE char50, 邮件主题lv_filename TYPE char50,lt_objpack TYPE TABLE OF sopcklsti1 , 邮件内容 正文附件lt_objtxt TYPE TABLE OF solisti1 , 正文内容lt_objbin TYPE TABLE OF solisti1 , 附件内容lt_reclist TYPE TABLE OF somlreci1 , 收件人ls_doc_chng TYPE sodocchgi1, 邮件属性ls_objpack TYPE sopcklsti1,ls_objtxt TYPE solisti1,ls_objbin TYPE solisti1,ls_reclist TYPE somlreci1.DATA: lv_str TYPE string,lv_cell TYPE string.* 需要转excel的内表DATA: lt_data TYPE TABLE OF ty_mrtab.lt_data VALUE #( ( matnr 100 maktx 硅粉621纯度≥99.1%P80ppmB50ppm mtart 1000 )( matnr 200 maktx 硅粉621纯度≥99.1%P80ppmB50ppm mtart 1000 ) ). 转动态内表以符合各种场景ASSIGN lt_data TO gt_table.*--获取lt_data的表结构CREATE DATA lr_data LIKE LINE OF gt_table.ASSIGN lr_data-* TO fs_data. EXCEL表头 * LOOP AT gt_fieldcat_alv INTO DATA(ls_fieldcat_alv). * 单元格 TAB符 * lv_str lv_str ls_fieldcat_alv-seltext_l cl_abap_char_utilitieshorizontal_tab. * ENDLOOP. * 最后使用回车符换行 * lv_str lv_str cl_abap_char_utilitiescr_lf.*--获取内表列字段CALL METHOD cl_abap_structdescrdescribe_by_dataEXPORTINGp_data fs_dataRECEIVINGp_descr_ref lo_descr.lo_str_descr_in ? lo_descr.*--EXCEL表体LOOP AT gt_table ASSIGNING fs_data. * CLEAR: lv_str,lv_start,lv_end. 循环每行的每个单元格LOOP AT lo_str_descr_in-components INTO ls_abap_comp_descr. 根据字段名找到字段ASSIGN COMPONENT ls_abap_comp_descr-name OF STRUCTURE fs_data TO fs_cell_data. 去除首尾引号否则xls文件中tab符会有问题lv_cell fs_cell_data.REPLACE ALL OCCURRENCES OF REGEX ^*|*$ IN lv_cell WITH . 单元格 TAB符lv_str lv_str lv_cell cl_abap_char_utilitieshorizontal_tab.ENDLOOP. 最后使用回车符换行lv_str lv_str cl_abap_char_utilitiescr_lf.ENDLOOP.string类型- XSTRINGCALL FUNCTION SCMS_STRING_TO_XSTRINGEXPORTINGtext lv_str * mimetype XLSencoding 8404 防止中文乱码IMPORTINGbuffer lv_benfileEXCEPTIONSfailed 1OTHERS 2.IF lv_benfile IS NOT INITIAL.CALL FUNCTION SCMS_XSTRING_TO_BINARYEXPORTINGbuffer lv_benfileIMPORTINGoutput_length lv_sizeTABLESbinary_tab lt_record.ENDIF.将转换后的文件添加到邮件附件APPEND LINES OF lt_record TO lt_objbin.* ---邮件处理 获取收件人SELECT DISTINCTsmtp_addrFROM zmmt045INTO TABLE DATA(lt_receiver).lv_size lines( lt_objbin ) * 255.添加邮件正文ls_objtxt ZMMR011报表已导出请查看附件. APPEND ls_objtxt TO lt_objtxt.邮件正文行数lv_lines_txt lines( lt_objtxt ).lv_object ZMMR011导出. 标题ZMMR011报表lv_filename ZMMR011.XLS. 附件XLS命名ls_doc_chng-obj_langu sy-langu.ls_doc_chng-obj_name Email. Email * ls_doc_chng-expiry_dat sy-datum 10. 邮件过期日在此日期后邮件将无法被查看ls_doc_chng-obj_descr lv_object. 邮件标题 * ls_doc_chng-sensitivty F. 邮件保密等级ls_doc_chng-doc_size lv_lines_txt * 255 lv_size.ls_doc_chng-priority 3. 1低优先级 3普通优先级 5高优先级CLEAR ls_objpack-transf_bin.ls_objpack-head_start 1.ls_objpack-head_num 0.ls_objpack-body_start 1.ls_objpack-body_num lv_lines_txt.ls_objpack-doc_type RAW.APPEND ls_objpack TO lt_objpack.CLEAR:lv_lines_bin.ls_objpack-transf_bin X.ls_objpack-head_start 1.ls_objpack-head_num 1.ls_objpack-body_start 1.lv_lines_bin lines( lt_objbin ).ls_objpack-doc_size lv_size .ls_objpack-body_num lv_lines_bin.ls_objpack-doc_type XLS.ls_objpack-obj_descr lv_filename.APPEND ls_objpack TO lt_objpack.lt_reclist VALUE #( FOR lw_receiver IN lt_receiver( receiver lw_receiver 收件人邮箱rec_type U ) ).CALL FUNCTION SO_NEW_DOCUMENT_ATT_SEND_API1EXPORTINGdocument_data ls_doc_chng 邮件属性put_in_outbox commit_work XTABLESpacking_list lt_objpack 邮件内容contents_bin lt_objbin 附件内容二进制contents_txt lt_objtxt 邮件内容直接填入receivers lt_reclist 收件箱地址EXCEPTIONStoo_many_receivers 1document_not_sent 2document_type_not_exist 3operation_no_authorization 4parameter_error 5x_error 6enqueue_error 7OTHERS 8.IF sy-subrc 0. * es_return-type S. * es_return-message es_return-message TEXT-m19. 邮件发送成功WAIT UP TO 1 SECONDS. 立即发送邮件SUBMIT rsconn01 #EC CI_SUBMITWITH mode INT WITH output AND RETURN. .ELSE. * es_return-type S. * es_return-message es_return-message TEXT-m20. 邮件发送失败ENDIF.ENDFORM.
http://www.pierceye.com/news/854352/

相关文章:

  • 网站建设维护外包群排名优化软件
  • 苏州专业建设网站镇江网站建设找思创网络
  • 长春网站排名提升seo关键词推广多少钱
  • 头条网站怎么做的在网站上放广告
  • 网站建设费的会计分录wordpress c博客
  • 网站开发语言字典使用apmserv本地搭建多个网站
  • 建网站费用记账北京时间网站建设
  • 兴化网站开发佛山营销网站建设联系方式
  • 安居客官网网站天津 网站设计制作公司
  • seo建站优化价格表中山网站建设品牌
  • wp网站源码聊城市住房和城乡建设局网站首页
  • 个人博客网站总结买东西的网站
  • 兰州新区小程序建站网站的漂浮广告怎么做
  • 用vs代码做网站线上拓客渠道有哪些
  • 微信网站界面如何免费创建自己的平台
  • 电商设计一般都是做什么潍坊网站seo外包
  • 大城怎么样做网站雄安建设工程信息网站
  • 郑州网站建设方案服务安全狗iis版删了以后 网站打不开
  • 忻州网站制作jsp小型网站开发代码
  • 如何外贸网站推广wordpress默认主题哪个好
  • 设计网站推荐提升审美网站建设的公司
  • 张浦专业做网站网站建设案例百度云
  • 佛山网站如何制作网站建设公司哪家强
  • 韩城市网站建设编程培训机构加盟哪家好
  • 已备案网站更换域名广东工厂网站建设
  • 营销型网站有哪些特点建设官方网站的费用账务处理
  • 区域网站设计WordPress无法发布
  • html网站开发主要涉及哪些技术百度域名的ip
  • 织梦网站数据下载wordpress如何播放百度云视频
  • 建站的费用服务器搭建网站环境