点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

下面是我写的代码，但未打印多种形式，仅打印一种形式。

SPAN {font-family：" Courier New"; 字体大小：10pt； 颜色：#000000; 背景：#FFFFFF; } .L0S31 {font-style：italic; 颜色：#808080; } .L0S32 {color：#3399FF; } .L0S33 {color：#4DA619; } .L0S52 {color：#0000FF; } .L0S55 {color：#800080; } .L0S70 {color：#808080; }

报告ztruck_document没有标准页标题行数225行大小27.
表格：ausp。

选择框b1的开始，带有标题框架text-001。 >用于ausp-objek的SELECT_OPTIONS s_objek。
b1块的选择屏幕结尾。

TYPES：ty_ausp的开始，
objek TYPE objnum，
atinn TYPE atinn，
atzhl TYPE wzaehl，
mafid TYPE klmaf，
klart TYPE klassenart，
adzhl TYPE adzhl，
atwrt1 TYPE atwrt，
atflv TYPE atflv，
ty_ausp结尾。
< br>数据：v_objek类型objnum。

数据：zausp1初始大小1的it_ausp类型标准表，
wa_ausp类型zausp1的表。





数据：it_fin类型标准 zausp1表。
数据：ssfcompop类型的output_options。
zausp1数据wa_fin类型。

SELECTION-SCREEN处的
初始化。
如果s_objek不是初始的。
SELECT。
如果sy-subrc <>0。
消息"无效的车辆号"。从ausp到v_objek的单个objek。 类型'E'。
ENDIF。
ENDIF。

开始选择。

PERFORM提取数据。
PERFORM display_form。
*＆- -------------------------------------------------- ---------------- *
*＆表格FETCH_DATA
*＆--------------------- ------------------------------------------------ * < br> *文字
* ------------------------------------------ ---------------------------- *
*-> p1文本
* <-p2文本
* ------------------------------------------------- --------------------- *
FORM fetch_data。
选择对象
atinn
atzhl
mafid
klart < br> adzhl
从ausp插入atflv表到s_objek中的对象。
*通过ATINN对IT_AUSP进行排序。



ENDFORM。
*＆---- -------------------------------------------------- --------------- *
*＆表格DISPLAY_FORM
*＆---------------------- ----------------------------------------------- *
*文字
* ------------------------------------------- --------------------------- *
*-> p1文字
* <- -p2文字
* ------------------------------------------- --------------------------- *
FORM display_form。
数据：fname TYPE rs38l_fnam。
数据：wa_output TYPE ssfcompop。
数据：control_parameters TYPE ssfctrlop，
wa_cnt TYPE i，
wa_cnt2 TYPE i。


通话功能'SSF_FUNCTION_MODULE_NAME'
导出
DOCNAME_MENT_MENT_MENT '
* VARIANT =''
* DIRECT_CALL =''
导入
fm_name = fname
例外情况
no_form = 1
no_function_module = 2
其他= 3。
IF sy-subrc <> 0.
*在此处实现适当的错误处理
ENDIF。

描述表it_ausp行wa_cnt。
循环到it_ausp INTO wa_ausp。
wa_cnt2 = sy-tabix。
案例wa_cnt2。
何时1.

control_parameters-no_open =空格。
control_parameters-no_close ='X'。
wa_cnt。
< br> control_parameters-no_open ='X'。
control_parameters-no_close =空格。
其他时。
control_parameters-no_open ='X'。
control_paramet ers-no_close ='X'。
ENDCASE。

通话功能'/1BCDWB/SF00000075'
导出
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS = < br> CONTROL_PARAMETERS = CONTROL_PARAMETERS
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
OUTPUT_OPTIONS = wa_output
* USER_SETTINGS ='X'
it_ausp = it_ausp br> * DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
* EXCEPTIONS
* FORMATTING_ERROR = 1
* INTERNAL_ERROR = 2
* SEND_ERROR = 3
* USER_CANCELED = 4
*其他= 5
。
IF sy-subrc <> 0.
*在此处实施适当的错误处理
ENDIF。
ENDLOOP。
ENDFORM。