符合中小企业对网站设计、功能常规化式的企业展示型网站建设
本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...
商城网站建设因基本功能的需求不同费用上面也有很大的差别...
手机微信网站开发、微信官网、微信商城网站...
首先创建可维护视图,然后通过se54生成维护屏幕
创新互联建站专注为客户提供全方位的互联网综合服务,包含不限于成都网站制作、成都做网站、鄂尔多斯网络推广、微信小程序开发、鄂尔多斯网络营销、鄂尔多斯企业策划、鄂尔多斯品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联建站为所有大学生创业者提供鄂尔多斯建站搭建服务,24小时服务热线:18982081108,官方网址:www.cdcxhl.com
或者通过se38 编写程序调用FM: VIEW_MAINTENANCE_CALL 维护
SAP 3611可以通过以下步骤导出报表:
1.
通常情况下,SAP报表的工具栏中都有导出图标(下图),点击此按钮即可导出数据到本地电脑.
2.
点击红圈中的图标,在弹出屏幕中选择保存的文件形式,一般保存为电子表格。
3.
回车后,在弹出屏幕中输入文件存放路径及文件名,然后点生成即可。
我正好刚刚整理了这个材料
给你贴过来吧 ,非常简单的,都是固定的格式,实在不会就copy也可以解决问题。 你自己要建一个excel模板上传。也可以直接放到程序的目录下。
" EXCEL 输出
DATA: w_temp_file(65), "Temp file path for excel template file.
w_formkey LIKE wwwdatatab VALUE 'MIZCOR19',
w_ftemplate LIKE rlgrap-filename VALUE 'C:\TEMP\ZTRAIN02.XLT'.
DATA: x_row(6) TYPE N VALUE '4',
v_range TYPE string.
* CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
* EXPORTING
* key = w_formkey
* destination = w_ftemplate
* CHANGING
* temp = w_temp_file.
CREATE OBJECT w_excel 'EXCEL.APPLICATION'.
IF sy-subrc 0.
WRITE: / 'Commands were not successfully executed:'(010), sy-subrc .
STOP.
ENDIF.
SET PROPERTY OF w_excel 'Visible' = 0.
CALL METHOD OF w_excel 'WORKBOOKS' = w_mapl.
CALL METHOD OF w_mapl 'Open' = w_map
EXPORTING
#1 = w_ftemplate.
CALL METHOD OF w_map 'WORKSHEETS' = w_sheet
EXPORTING
#1 = 'Sheet1'.
CALL METHOD OF w_sheet 'ACTIVATE'.
LOOP AT X_MARA.
x_row = x_row + 1.
CONCATENATE 'A' x_row INTO v_range.
PERFORM fill_range USING v_range X_MARA-MATNR.
CONCATENATE 'B' x_row INTO v_range.
PERFORM fill_range USING v_range X_MARA-MATKL.
CONCATENATE 'C' x_row INTO v_range.
PERFORM fill_range USING v_range X_MARA-WERKS.
CONCATENATE 'D' x_row INTO v_range.
PERFORM fill_range USING v_range X_MARA-MAKTX.
CONCATENATE 'E' x_row INTO v_range.
PERFORM fill_range USING v_range X_MARA-GEWEI.
CLEAR X_MARA.
ENDLOOP.
SET PROPERTY OF w_excel 'VISIBLE' = 1 no flush.
FREE w_mapl.
FREE OBJECT w_excel.
ENDFORM. "frmXLSDisplay
*---------------------------------------------------------------------*
* Form fill_range
*---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --VALUE(F_RANGE) text
* --VALUE(F_VALUE) text
*----------------------------------------------------------------------*
FORM fill_range USING value(f_range) value(f_value).
CALL METHOD OF w_sheet 'Range' = w_rangeobj
EXPORTING
#1 = f_range.
SET PROPERTY OF w_rangeobj 'Value' = f_value.
ENDFORM. "fill_range
唉,算你小子走运,我刚写了本Simple程序就是类似这样的,100分给哥拿来吧少年!这么专业的回答你哪里找去!有加分的话,可以百度联系我,趁我闲的蛋疼这几天,免费教教你。
*----------------------------------------------------------------------
* プログラムID : ZZREPO54
* 作成者 : 尹先森
* 作成日 : 2013/04/18
* 処理概要 : XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
* XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
*---------------------------------------------------------------------*
* 変更履歴
* No 変更日 管理番号 変更者 変更内容
* 0001 YYYY/MM/DD XXX-XX-XXX DYGXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
*----------------------------------------------------------------------
REPORT ZZREPO54_ALV.
TYPE-POOLS: SLIS.
*----------------------------------------------------------------------*
* TYPES定义
*----------------------------------------------------------------------*
TYPES:
*----- テスト结果
BEGIN OF TYP_TH_TEST,
ZZCLASS LIKE ZZTEST_T-ZZCLASS, " クラス
ZZSTDNO LIKE ZZTEST_T-ZZSTDNO, " 学生番号
ZZTENKOK LIKE ZZTEST_T-ZZTENKOK, " 国语点数
ZZTENSAN LIKE ZZTEST_T-ZZTENSAN, " 算数点数
ZZTENRIK LIKE ZZTEST_T-ZZTENRIK, " 理科点数
ZZTENSHA LIKE ZZTEST_T-ZZTENSHA, " 社会点数
ZZNAME LIKE ZZNUMBER_T-ZZNAME, " 名前
END OF TYP_TH_TEST,
TYP_TD_TEST TYPE STANDARD TABLE OF TYP_TH_TEST,
*----- 学生氏名
BEGIN OF TYP_TH_NAME,
ZZNUMBER LIKE ZZNUMBER_T-ZZNUMBER, " 学生番号
ZZNAME LIKE ZZNUMBER_T-ZZNAME, " 氏名
END OF TYP_TH_NAME,
TYP_TD_NAME TYPE STANDARD TABLE OF TYP_TH_NAME.
*----------------------------------------------------------------------*
* DATA定义
*----------------------------------------------------------------------*
DATA:
*----- テスト结果内部テーブル
TD_TEST TYPE TYP_TD_TEST,
TH_TEST LIKE LINE OF TD_TEST,
*----- 学生氏名内部テーブル
TD_NAME TYPE TYP_TD_NAME,
*----- ログー
TD_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
*----------------------------------------------------------------------*
* PARAMETERS/SELECT-OPTIONS定义
*----------------------------------------------------------------------*
SELECT-OPTIONS:
S_CLASS FOR TH_TEST-ZZCLASS " 选択条件:クラス
OBLIGATORY " 必须
MATCHCODE OBJECT ZZMC. " 検索ヘルプ
*----------------------------------------------------------------------*
* START-OF-SELECTION
*----------------------------------------------------------------------*
START-OF-SELECTION.
*----- 初期化処理
PERFORM INTBL_SHORI.
*----- データ选択処理
PERFORM SELECT_DATA.
*----- ログー编集
PERFORM FILEDCAT_EDT.
*----- ALV出力処理
PERFORM ALV_OUTPUT.
*----------------------------------------------------------------------*
* END-OF-SELECTION
*----------------------------------------------------------------------*
END-OF-SELECTION.
*---------------------------------------------------------------------*
* Form INTBL_SHORI
*---------------------------------------------------------------------*
* 初期化処理
*----------------------------------------------------------------------*
FORM INTBL_SHORI .
*----- グルバールデータのクリア
CLEAR:
TH_TEST, " テスト结果ヘッダ
TD_TEST, " テスト结果内部テーブル
TD_NAME. " 学生氏名内部テーブル
ENDFORM. " INTBL_SHORI
*---------------------------------------------------------------------*
* Form SELECT_DATA
*---------------------------------------------------------------------*
* データ选択処理
*----------------------------------------------------------------------*
FORM SELECT_DATA .
DATA:
*----- 学生氏名内部ヘッダ
LTH_NAME TYPE TYP_TH_NAME.
FIELD-SYMBOLS:
*----- テスト结果
LFS_TEST TYPE TYP_TH_TEST.
*----- テスト结果テーブルより、クラスと等しいものを选択する
SELECT ZZCLASS " クラス
ZZSTDNO " 学生番号
ZZTENKOK " 国语点数
ZZTENSAN " 算数点数
ZZTENRIK " 理科点数
ZZTENSHA " 社会点数
FROM ZZTEST_T " テスト结果テーブル
INTO TABLE TD_TEST " テスト结果内部テーブル
WHERE ZZCLASS IN S_CLASS. " 选択条件:クラス
*----- データが存在の场合
IF SY-SUBRC = 0.
*----- スト结果内部テーブルのソート
SORT:
TD_TEST
BY ZZCLASS ASCENDING " クラス
ZZSTDNO ASCENDING. " 学生番号
*----- それ以外の场合
ELSE.
MESSAGE S000(YJZ) DISPLAY LIKE 'E'. " データが存在しません
LEAVE LIST-PROCESSING. " 选択画面を戻る
ENDIF.
*----- 学生番号テーブルより、氏名を取得する
SELECT ZZNUMBER " 学生番号
ZZNAME " 氏名
FROM ZZNUMBER_T " 学生番号テーブル
INTO TABLE TD_NAME. " 学生氏名内部テーブル
*----- 学生番号で升顺にソートする。
SORT:
TD_NAME
BY ZZNUMBER ASCENDING. " 学生番号
*----- 取得したテスト结果の学生番号を元に生徒名を取得する。
LOOP AT TD_TEST
ASSIGNING LFS_TEST.
*----- 学生番号を元に生徒名を取得する。
READ TABLE TD_NAME
INTO LTH_NAME " 学生氏名内部テーブル
WITH KEY
ZZNUMBER = LFS_TEST-ZZSTDNO " 选択条件:学生番号
BINARY SEARCH.
*----- リターンコードは'0'の场合
IF SY-SUBRC = 0. " 読み込みOK
LFS_TEST-ZZNAME = LTH_NAME-ZZNAME. " 氏名
*----- それ以外の场合
ELSE.
LFS_TEST-ZZNAME = TEXT-001. " '*** 未登録 ***'をセット
ENDIF.
*----- テーブルのクリア
CLEAR:
LTH_NAME.
ENDLOOP.
ENDFORM. " SELECT_DATA
*---------------------------------------------------------------------*
* Form FILEDCAT_EDT
*---------------------------------------------------------------------*
* ログー编集
*----------------------------------------------------------------------*
FORM FILEDCAT_EDT .
DATA:
LTH_FDC LIKE LINE OF TD_FIELDCAT. " ログー
*----- クラスログーの编集
LTH_FDC-FIELDNAME = 'ZZCLASS'. " クラス
LTH_FDC-OUTPUTLEN = 6. " 出力长
APPEND LTH_FDC TO TD_FIELDCAT. " ログー
*----- 氏名ログーの编集
LTH_FDC-FIELDNAME = 'ZZNAME'. " 氏名
LTH_FDC-OUTPUTLEN = 12. " 出力长
APPEND LTH_FDC TO TD_FIELDCAT. " ログー
*----- 国语点数ログーの编集
LTH_FDC-FIELDNAME = 'ZZTENKOK'. " 国语点数
LTH_FDC-OUTPUTLEN = 7. " 出力长
APPEND LTH_FDC TO TD_FIELDCAT. " ログー
*----- 算数点数ログーの编集
LTH_FDC-FIELDNAME = 'ZZTENSAN'. " 算数点数
LTH_FDC-OUTPUTLEN = 7. " 出力长
APPEND LTH_FDC TO TD_FIELDCAT. " ログー
*----- 理科点数ログーの编集
LTH_FDC-FIELDNAME = 'ZZTENRIK'. " 理科点数
LTH_FDC-OUTPUTLEN = 7. " 出力长
APPEND LTH_FDC TO TD_FIELDCAT. " ログー
*----- 社会点数ログーの编集
LTH_FDC-FIELDNAME = 'ZZTENSHA'. " 社会点数
LTH_FDC-OUTPUTLEN = 7. " 出力长
APPEND LTH_FDC TO TD_FIELDCAT. " ログー
ENDFORM. " FILEDCAT_EDT
*---------------------------------------------------------------------*
* Form ALV_OUTPUT
*---------------------------------------------------------------------*
* ALV出力処理
*----------------------------------------------------------------------*
FORM ALV_OUTPUT .
*----- ALV出力用泛用モジュール
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID " プラグラムーID
IT_FIELDCAT = TD_FIELDCAT " ログー
I_GRID_TITLE = TEXT-002 " ヘッダ
I_STRUCTURE_NAME = 'ZZALV_Y' " 构造ID
TABLES
T_OUTTAB = TD_TEST " テスト结果テーブル
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
*----- リターンコード
IF SY-SUBRC 0.
*----- 処理なし
ENDIF.
ENDFORM. " ALV_OUTPUT