#yyds干货盘点#ABAP屏幕创建

选择屏幕

读者从ABAP开发帮助文档能了解选择屏幕的使用,有本英文教材是<<21天学会ABAP>>,同样本书的
目的是让有一定程序基础的读者在三个月内成为ABAP顾问,故本书重点将放在实际业务分析上,因二人扑克所有玩法大全
此在此只是汇总下选择分页符和分节符的区别屏幕的使用.
下面是一个典型的选择屏幕的典型例子.
1.设置选择屏幕参数.
***begin(分页符怎么删除end) of block使用屏幕元素逻辑块.
SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TI字段是什么意思TLE1.
***定义选择标准,比如那些屏幕子段使用范字段宽度围,设置为必选或使用内存ID等.
SELECT-OPTIONS <sel初始化电脑tab>二炮手; FOR &lerp软件t;初始化电脑f> DEFAULT│NO INTERVALS│OBLIGATORY│初始化英文NO-DISPLAY│MEMORY
ID...
**erp系统*要在选择屏幕上书写文本使用屏幕注释字段类型并在屏幕初始化时赋值.
SELECTION-SCREEN COMMEN字段宽度T ...
***在屏幕上画字段是什么意思线.
SELECTION-SCREEN ULINE ...
***B分页符怎么加入egind(end)of line包含的屏幕字段英文参数将在企业信息化的概念同一条直线上.
SELECTION-SCREEN初始化磁盘 BEGIN OF LINE...
SELECT二炮手ION-SCREEN END OF LINE...
***设置屏幕位置.
SELECTI分页符怎么删除ON-SCRE企业信息化建设的主要内容有哪些EN POSITION...
***在应用工具条上创建按钮响应事件
SELECTION-SCREEN FUNCTION KEY...
**字段类型*在屏幕上创字段类型建按钮.
SELECTION SCREEN PUS字段英文HBUTTON ...
SELECTION-SCREEN END OF BLOCK BK1.
INI字段宽度TIALIZATION.
*初始化屏幕参数,类似VB的Form_lo企业信息化的概念ad事件*

AT SELECTION-SCRE初始化磁盘EN <on help(value)-request for ferp管理系统ield│>.
*系统选择屏幕时的过程处理,比如需要判初始化磁盘选哪个分区形式断一些屏幕字段的条件限制如为某些值则*显示
ererp软件ror message,程序没有必要浪费时间继续执行下去.
***on help-request 可为屏幕分页符怎么删除字段显示自定义帮助
***on value初始化电脑的后果-request可显示建议列erp沙盘模拟表值
***可这样理解AT selection-screen相当于 PBO.
***PERFORM sub_validate_FieldXXX .
***选屏后按Enter或F8运行时都会执行.
START-OF-SELECTION .
***设置内表值,处理没erp软件有附加关键字的所有语句.
***通常包含在此的Form是在按F8后才开始执行.
END-OF_SELECTION .
AT USER-COMMAND.
***处理用户请求事件,如报表使用ALV格式,通常在call function exporting

  • I_CALLBACK_USER_COMMAND = '分页符和分节符的区别USER_COMMAND'

***再建立一个分页符快捷键子程序form USER_COMMAND USING UCOMM企业信息化名词解释 LIKE SY-UCOMM
AT LIN字段名E-SELECTION.
***通常此事件在报表显示后用户在列表中在选择企业信息化名词解释行时触发.如报表使用的是write
***就可使用此事件.

  • SET PARAM初始化ETER ID 'XXX' FIELD XXX.
  • call tra初始化电脑的后果nsACtion 'XXX' AND SKIP FIRST SCREEN.

TOP-OF-PAGE.

  • 显示数据,使用TOP-OF-PAGE是在分页时可将定二炮手义的页头页尾在每页显示.
  • PERFORM write_page_header(page header在每页都显示).
  • PERFORM DISPLA企业信息化的概念Y_ALV_DATA.

END-OF-PAGE.
下面一个简单的会计凭证显示的实例说明选择屏幕的使用.
***这程序只是做演示用,但是包含了常用的选择屏幕技术.
将下面的程分页符怎么加入序copy就可跑.
REPORT分页符快捷键 ZSELECTION NO STANDARD PAGE HEADING
MESSAGE-ID zFIMSG "MEssage Class
LI初始化磁盘NE-SIZE 255
LINE-COUNT 32(3).
tables :BKPF,BSEG,S070.
DAT企业信息化建设A:ZBKPF like bkp企业信息化管理f occurs 0 ,
zwa_bkpf like bkpf.
CO企业信息化名词解释NSTANTS:P_variant(2) TYP分页符的作用是什么E c VALUE 'WL'.
***下面这些屏幕参数和事件没有关系,只是企业信息化名词解释参数集而已.分页符怎么加入
SELE初始化英文CTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME初始化磁盘 TITLE Cond1.
SELECT-OPTIONS S_bukrs FOR bkpf-bukrs企业信息化名词解释 MEMORY ID BUK.
SELECT-OPTIONS S_blart FOR bkerp系统pf-blart Nerp管理系统O INTERVALS .
SELECT-OPTIONS S_belnr FOR bkpf-belnr .
SELECT-OPTIONS S_budat FOR bkpf-budat DEFAULT sy-datum.
SELECT-OPTIONS S_bldat FOR b字段数据类型kpf-bldat NO INTERVAL企业信息化建设的意义S NO-EXTENSION分页.
SELECT-OPTIONS S_gjahr FOR bkpf-gjahr分页符的作用是什么 MEMORY ID GJR DEFAULT sy-datum(4).
SELECT-O企业信息化服务平台PTIONS weekran for s070-SPBUP NO-EXTENSION .
SELECT字段限定符用来限定检索标识的ION-SCREEN END OF BLOCK bk1.
SELECTION-SCREEN BEGIN OF BLOCK bk2 WI企业信息化服务平台TH FRAME TITLE Cond2.
SELECTION-SCREEN COMMENT /1(30) COMM1 . "使用屏幕注释
S初始化失败是怎么解决ELECTION-SCREEN BEGIN OF LIN字段名词解释E ."两单选框将在同一条线上.
PARAMETERS pnor RADIOBUTTON GROUP grp企业信息化的主要前沿及热点领域1 DEFAULT 'X'."Print normal doc
PARA字段名词解释METERS ppark RADIOBUTTON GROUP grp1. "Print parked doc
SELECTION-SCREEN END OF企业信息化管理 LINE .
SELECTION-SCREEN END OF BLOCK bk2.
***1 初始化参数.
INITIALIZATION.
Cond1 =字段限定符用来限定检索标识的 '【Condition】'.
Cond2 = '【Normal D初始化电脑时出现问题oc│Parke初始化英文d Doc】'.
COMM1 = 'Choose Doc. Type:'初始化电脑云下载和本地重新安装. "注释赋初值.
***初始公司值,这在有些需要后台跑的程序非常有用,除了使用variant外企业信息化的概念,在此也可赋初
***下面的例子在初始化后公司代码选择了1000和3000排除了2000
S_bukrs-low = '1000'.
S_bu分页预览krs-sign = 'I'. "I->包含,E->排除
S_bukrs-option = 'EQ'. "NE
APPEND S_bukrs.erp管理系统
S_bukrs-low = '2000'.
S_bukrs-sign = 'E'.
S_bukrs-op分页符和分节符的区别tion = 'EQ'.
APPEND S_bukrs.
S_bukrs-low = '3000'.
S_bukrs-sign = 'E'.
S_bukrs-option = 'EQ'.
APPEND S_bukrs.
***初始化doc range 从0100000000到1000000000
s_belnr-low = '0100000000'.
s_belnr-high = '1000000000'.
s_belnr-sign = 'I' .
s_belnr-option = 'BT'.
append s_belnr.
***企业信息化名词解释2 使用sug_get_week后得到所选日期的当前周数,在选择weekrag字段时才触发.企业信息化
***当你选择weekran字段时.
AT SELECTION-SCREEN ON VALUE-REQUEST F企业信息化名词解释OR weekran-low.
PERFORM sub_get_week CHANGING weekran-low.
AT SELECTION-SC字段限定符用来限定检索标识的REEN.
***判断所选erp沙盘模拟择的公司代码是否有效,通常并不是必须的.
***当然你也可将此步省略,直接在START-OFerp管理系统-SELECTION判断.
***根据需要可做很多vaid字段的判断.
P字段英文ER二炮手FORM SUB_VALIDATE_COMP.
***3开始选屏
START-OF-SELE分页符怎么显示出来CTION.
Perform SUB_GET_DOC.
PERFORM SUB_WRT_DOC.
END-OF-SELECTION.
***4.分页时显分页预览怎么关闭示pa初始化英文ge he字段名ader或page footer.
TOP-OF-PAGE.
perform sub_WRT分页符和分节符的区别_HEADER.
end-of-page.
***5.当点击行并且是点到Document NO.CAll FB03.
AT line-selection.
P企业信息化服务平台erform sub_line_response.
form sub_line_response.
Data: ZFLDNAME like DD01L-DOMNAME,
ZFLDVALUE like TTREET-TEXT,
zwa_bkpf like bkpf.
GET CURSOR FIELD ZFLDNAME VALUE ZFLDVALUE初始化磁盘 .
if ZFLDNAME = 'Zerp系统是干嘛的WA_BKPF-BELNR' .

  • READ TABLE Zbkpf into zwa_bkpf WITH KEY BELNR = ZFLDVALUE.
  • SET PARAMETER ID 'BUK' FIELD zwa_bkpf-BUKRS.
  • SET PARAME企业信息化建设的主要内容有哪些TER ID 'GJR' FIELD zwa_bkpf-初始化磁盘GJAHR.
  • SET PARAMETER ID 'BLN' FIELD zwa_bkpf-初始化磁盘BELNR.

SET PARAMETER ID 'BLN' FIELD ZFLDVAerp系统LUE .
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
endif.
endform .
FORM SUB_GET_DOC.
refresh zbkpf .
SELECT * FROM bk企业信息化pf into table Zbkpf
W初始化HERE bukrs IN s_bukrs
AND belnr IN s_belnr
AND gjahr IN s_gjahr
AND budat IN s_budat.
endform.
form sub_wrt_header.
F初始化磁盘ORMAT I字段限定符用来限定检索标识的NT初始化电脑保留个人文件什么意思E企业信息化建设NSIFIED COLOR = 6.
WRITE AT: /01 'Fina企业信息化建设的主要内容有哪些inerp系统是什么意思啊cial Document List:'(h07).
FORMAT COLOR COL_NORMAL ON.
FORMAT COLOR COL_HEADING ON.
WRITE AT:/01初始化磁盘选哪个分区形式(48) sy-uline.
FORMAT COLOR COL_HEAD二拼音ING OFF分页符怎么删除.
FORMAT COLOR OFF.
endform.
form su分页符怎么显示出来b_wrt_doc.
uline /1(4企业信息化服务平台1).
loop at zbkpf into zwa_bkpf.
write:/ '│',zwa_bkpf-初始化电脑的后果bukrs,'│',zwa_bkpf-belnr,'│',zwa_bkp字段计算器f-gjahr,企业信息化服务平台'│',zwa_bkpf-
budat,'│'.
uline /1(41).
endloop.
endform.
FORM SUB_VALIDATE_COMP.
data itab_bukrs like bkpf-bukrs occurerp系统是干嘛的s 0 .
select bukrs into table itab_bukrs
from T001
where BUKRS in S_bukrs .
if itab_bukrs IS INITIAL.
Message e002(00) .
endif.
endform.
FORM sub_get_week CHANG企业信息化建设ING wkran LIKE s070-SPBUP.
DATA: l_date LIKE workflds-gkday,
l_period LIKE t009b-poper,
l_year LIKE t009b-bdatj.
***根据选择日期得到当前周数
CALL FU字段类型NCTION 'F4_DATE'
EXPOR分页符快捷键TING
date_for_first_month = sy-datum
display = ''
IMPORTING
select_date = l_da企业信息化te
EXCEPTIONS
calendar_buffer_字段计算器not_loadable = 1
date_after_range = 2
date_before_range = 3
date_invalid = 4
factory_calendar_not_found = 5
holiday_calendar_not_found = 6
parameter_conflict = 7
OTHERS = 8.
CALL FUNCTION 'G_企业信息化名词解释PERIOD_GET'
EXPORTING
date = l_date
*企业信息化管理*字段*使用WL variant得到的period是周/年,空则是期间/年.
***在CO-PA或做计划时,通常是以周做period的.
variant = P_variant "'WL'
IMPORTING
period = l_period
year = l_year
EXCEP初始化是什么意思TIONS
ledger_not_assigne初始化是什么意思d_to_comp分页预览怎么关闭any = 1
period_not_defined企业信息化管理 = 2
variant_not_defined = 3
OTHERS = 4.
week初始化失败是怎么解决ran-sign = 'I'.
weekran-option = 'EQ'.
CONCATENATE初始化电脑 l_year l_period+1(2) INTO wkran.
end分页符的作用是什么form.