资源描述:
《abap,抓取数据,总结》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划abap,抓取数据,总结 TABLECONTROL操作要点小结 1.屏幕号:100 2.在屏幕100中应用tablecontrol *声明controlT1应用于屏幕100 CONTROLST1TYPETABLEVIEWUSINGSCREEN100. “T1代表自定义的tablecontrol的名字 3.要想给tablecontrol中自动赋值,则需把tablecontrol中的字段名定义为:WA_SPFLI-CAR
2、RID格式。 主程序代码:*&---------------------------------------------------------------------**&ReportZTABLECONTROL02_*&---------------------------------------------------------------------**&CREATOR:*&---------------------------------------------------------------------* REPORTZ
3、TABLECONTROL02_LIUMING. *引入表spfli TABLES:SPFLI. *定义结构体TYPES:BEGINOFTY_DATA, CARRIDLIKESPFLI-CARRID, CONNIDLIKESPFLI-CONNID,目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 COUNTRYFRLIKESPFLI-COUNT
4、RYFR, CITYFROMLIKESPFLI-CITYFROM, AIRPFROMLIKESPFLI-AIRPFROM, FLAGTYPEC, ENDOFTY_DATA. *定义内表和工作区DATA:IT_SPFLITYPETABLEOFTY_DATA,WA_SPFLILIKELINEOFIT_SPFLI. *获取数据SELECT*FROMSPFLIINTOCORRESPONDINGFIELDSOFTABLEIT_SPFLI. *定义分页所需参数 DATA:PAGESIZETYPEIVALUE23,"每页条数NUMTYPE
5、I,"判断是否刚好是整页COUNTTYPEI,"总条数 AFTERTYPEI,"下一页的第一条PAGECOUNTTYPEI,"总共有几页 PAGENUMTYPEIVALUE1."第几页DESCRIBETABLEIT_SPFLILINESCOUNT. NUM=COUNTMODPAGESIZE. IFNUM0. PAGECOUNT=COUNTDIVPAGESIZE+1.ELSE. PAGECOUNT=COUNTDIV目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的
6、安全感。为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 *声明变量 DATA:OK_CODETYPESY-UCOMM, SAVE_OKTYPESY-UCOMM. *声明controlT1应用于屏幕100 CONTROLST1TYPETABLEVIEWUSINGSCREEN100. *调用屏幕100 CALLSCREEN100. *打印数据IFNOTIT_SPFLIISINITIAL. LOOPATIT_SPFLIINTOWA_SPFLI. WRITE:/2
7、WA_SPFLI-CARRID,10WA_SPFLI-CONNID,18WA_SPFLI-COUNTRYFR,26WA_SPFLI-CITYFROM,34WA_SPFLI-AIRPFROM.ENDLOOP. ENDIF. *&---------------------------------------------------------------------* *&ModuleSTATUS_0100OUTPUT *&---------------------------------------------------*退出图标目
8、的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目的正常、