At selection-screen output event is triggered before the selection screen is display
AT SELECTION-SCREEN 在用户触发屏幕的按钮后,比如回车的时候,触发
TO-OF-PAGE , END-OF-PAGE ,在有write , uline ,skip 的时候就会触发当然我们也可以在任何一个EVENT 后面添加WRITE SKIP ,ULINE
注意,最先开始的时间是LOAD-OF-SELECTION, 其次是INITIALIZATION,这些做完后, 当然了, 如果有
at selection-screen output , 还是会先到这里停留,然后跳到我们的选择屏幕, start-of-selection , end-of-selection
具体的可以运行一下,一下的代码,就可以看见了
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S31 { font-style: italic; color: #808080; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } .L0S55 { color: #800080; } .L0S70 { color: #808080; } REPORT zzk1lps1785x0001a_t.
SELECTION-SCREEN BEGIN OF BLOCK bk1
WITH FRAME TITLE text-s01.
PARAMETERS:
p_ifname TYPE fileintern . "Input File Name
SELECTION-SCREEN COMMENT /4(43) text-t09.
PARAMETERS: p_nohl TYPE numc1, "Number of Heading lines
p_del TYPE char1 AS CHECKBOX DEFAULT 'X'.
* Delete file after upload
SELECTION-SCREEN END OF BLOCK bk1.
SELECTION-SCREEN BEGIN OF BLOCK bk2
WITH FRAME TITLE text-s02.
PARAMETERS:
p_persa TYPE pa0001-werks , "Personnel Area
p_btrtl TYPE pa0001-btrtl , "Personnel Subarea
p_werks TYPE t001w-werks . "Plant
SELECTION-SCREEN END OF BLOCK bk2.
AT SELECTION-SCREEN OUTPUT.
BREAK-POINT.
WRITE :'at selection-screen output place'.
AT SELECTION-SCREEN.
BREAK-POINT.
WRITE :'at selection-screen place'.
LOAD-OF-PROGRAM.
BREAK-POINT.
WRITE:'volcano'.
INITIALIZATION.
BREAK-POINT.
WRITE:'volcano2'.
NODES: spfli, sflight.
FIELD-GROUPS: header, flight_info, flight_date.
START-OF-SELECTION.
INSERT: spfli-carrid spfli-connid sflight-fldate
INTO header,
spfli-cityfrom spfli-cityto
INTO flight_info.
END-OF-SELECTION.
BREAK-POINT.
WRITE :'end of selection place'.
WRITE : spfli-cityfrom.
TOP-OF-PAGE.
BREAK-POINT.
阅读(741) | 评论(0) | 转发(0) |
