SAP_ABAP学习实例讲解part3.docx
第八章A1.V控件的使用A1.V(SAP1.istViewer)控件是SAP业务中景常用的控件之一，本章先用一个简单的例子介貂用A1.V控件显示数据，再以实例方式介绍A1.Y的强大功能，例如程序可以直接使用.本章主要内容有：O离单的A1.V控件实例;O自定义输出字段的A1.Y控件实例：<)在屏摹上建立A1.Y控件;O自定义A1.V控件的工具条按钮：O处理A1.V控件双击事件：O通过A1.V控仲编辑内表和数据库更斫；OA1.VTree的使用。8.1 简单的A1.V控件实例以航班表<SPF1.I)为例，使用她凫字典定义转构，通itA1.Y控件显示效抠.【例8.1】REPORTYTEST26.* 定义内表DATAIA_SPF1.I1.IKETAB1.EOFSPF1.IWITHHEADER1.INE.* 内表鼠值SE1.ECT*INTOTAB1.EWA_SPF1.IROMSPH.I.* 通过数据字典结构显示A1.VCA1.1.FUNCTION'REUSEA1.V1.ISTDISP1.AY'EXTORTING1.STRUCTURE_NAME='SPH.I'TAB1.ESTOUTTAB=WASPF1.IexceixionsPROGRAM_ERROR=IOTHERS=2.IFSY-SIIBRcO0.»MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSGV1.SY-MSGV2SY-MSGV3SY-MSGV4.EXDIF.输出结果如图8T所示。e1.YTEST26Gi)C3OiaGgQs)30©ff1.SARa三mah>>Cty(NX12C1.tTF1.AtTiBeIDomzcJUtivU019XbceIIn即ceWfTJICXSCOrvwx11UMKPWT11un11P0三PWKTOKTOB011uxrRTrcvwKEVYCXmYCwC3AVFTAMCISCOTOKYORUIKrcRTrvjrvInRTWKfwjkfurt11uk11rtBEF1.IVrFirwKCTwMJrFPAjrcncoMEVTOMCBAIKToTKVTOKIai1.Tunc11三三11FTTOKYOMItt0AUISVTUMt11SA三11FTr>Ain*sjjtFpaicijcowoarvjmFTOKTOIEIfTUW汴AwmTKVTOMtWP1.：«reJBJWTMEVTUW11*JFTOT6J01S:217:“?1.247:24Z1.OS12:SS15:4013:3S7:247247:“613S:2512:05I1.1.1.S7:247：U7:351:0$HOS7:247SSz.sn$ie6U212:0011:450000IOj35:0019:01:20IO1.360019:35:0017：U：0010:00:0013:30:002O25OO10:10:00IB：30:0013:30:0010:30:000?!IO1.OO12:31:202305:0000:39:0019US:OO08:10:0010:43:2023:06:4009:30:0020:37:0018:25:0017:33:001S40i0011:34:0007:45x0015:05:0011:33:00081.IS1.OO01:02:0013:30:00e.iM%】x60Wc.1.«6,K23.6U2S72z.sn9.1.9AW6K26K26.U2>.s1.X.K8-1.8.2自定义输出字段的A1.V控件实例cm2)REPORTYTEST27.*A1.Y使用到的类库TYPE-PoO1.S：S1.IS.* -列描述DATAIAA1.VFIE1.DTYPES1.ISFIE1.DCATA1.V.* 列描述内表，列清单DATAWA_A1.V_FIE1.DCATTYPES1.ISTFIEI.DCT1.V.碇义内展DATAWASPF1.I1.IKETAB1.EOFSPF1.IWITHHEADER1.INE.* 内表就值SE1.ECT*INTOTAB1.EWA_SPF1.IFROMSPF1.I.*定义第一到第四个字段=,CARRID'.='航线承运人'.WAA1.VFIE1.DCAT.WA_A1.V_FIE1.D-CO1._POS=iA_A1.Y_FIE1.D-EIE1.DNAMEWA_A1.V_FIE1.D-SE1.TEXTMAPPENDWAA1.VFIE1.DTOWA_A1.V_FIE1.D-CO1._POS=2.IA_A1.V_FIE1.D-nE1.DNAME=,CONNID'.RAA1.VFIE1.D-SE1.TEXTM='航班连接'.APPENDIAA1.VFIE1.DTOWAA1.VFIE1.DCAT.WA_A1.V_FIE1.D-CO1.POS=3.WA_A1.V_FIE1.D-FIEI.DNAME='CITYROM'.IAA1.VFIE1.D-SE1.TEXTM='起飞城市.APPENDWA_A1.VFIE1.DTOWA_A1.VFIEI.DCAT.IA_A1.V_FIE1.D-COI._POS=4.HAA1.VFIE1.D-FIE1.DNAME=,CITYTO,.IA_A1.V_FIEU>-SE1.TEXT_M='目标城市'.APPENDRR-A1.VFIE1.DTOWAA1.VFIEI.DCAT.*调用A1.Y显示表单数据CA1.1.FUNCTION'REUSE_A1.V_1.1STDISP1.AY'EXPORTING今I_INTERFACE_CIIECK-*IBYPASSINGBUFFER=1.BUFreMenyE=*1.CRU上AChPRoGRAM-*I.CA1.1.BACKJ>1.STATUS.SET;*ICA1.1.BACKUSERCOMMAND-*1.structiikename=IS_"YOUT=IT_FIE1.DCAT=WA_A1.V_FIE1.DCATITEXC1.UDING=*IT_SPECIA1._GR(MJPS=*IT_SORT=IT_EI1.TER三IS-SE1.HIDE=1.defaii1.t=,x,*1.SAYE-.IS-VARIANT三ITEVENTS=*I1.EYENT_EXIT=IS_PRINT=拿IS_REPREP_ID三ISCREENSTARTCO1.UMN=O1.SCREEN_STAK1.1.INE=O1.SCREEN_ENDg1.UMN=O今1.SCREEt1.ENDJ1.INE=OIMIjORTINGE_EXIT_CAISED_BY_CA1.1.ER=ES_EXIT工AUSED_BYUSER=TAB1.ESTOUTTAB=WASPF1.I»EXCEPT1.SiS*PRoGRAMERROROTHERSIFSY-SUBRCO0.»MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSGV1.SY-MSGV2SY-MSGV3SY-MSGV4.ExD1.F.输出结果如图8-2所示。1.XtFdt<3tS1.1.£)©0©DIMaaO0QQ11CJ<3同YTEsT27口e&v冬Qi等mBH.m柘ImffIIAAAAAAABAFAZAZAZAZBABAD1.D1.D1.J1.J1.1.H1.H1.H1.H1.H1.H1.HMETYORKSAIFRAKCIHETYORKF1.m1.FURTFR5KFUR7RCCRCOTCeTOEC<SFRA5KFURTMEtYORKmYorkMEtYORKSAKTUK1.TCeToFramfurtFRA5KFURTNFTTOFKFRAJnURTFRAWFURTECR1.IIIFRAJfXFURTMETTORKSASFRASCIMEVYCeXFHAW：FURTMEVYC«KKETVCf1.KFUIKFURTTCeTORCCOGUAKB¥N*KFRjmKFUMFraikfurtSASFRAICIKHTYC«KFRAHFURTra11oKBIYCdKFraikfurtMEVYeeKECTI1.I1.frawjurtKEVYCeKFRAMKFuIn图8-28.3在屏幕上建立A1.V控件8.3.1 定义SCREEN窗口.如图8-3所示，在屏茶上创立两个文本元素控件.一个退出按钮控件、一个定制控制控件.Paa>tr«T三tPi14金(TZnG)Ei<)ttte)In1.1.It1.”，)tavr<r*4.tCO)U1.p(DUe)(900。Qt%)於心/CU0JS114»FIBU<eAttrtUtes4n*<1.ist>A1.V上A1.V右XCanCeIjS8-38.3.2 定义逻辑流逻辑流程序：* 逻辑流* PBO显示屏臬前的处理PROCESSBEFOREOUTPUT.MODU1.ESTATUS_O100.* PRI用户粕入后防处理PROCESSAFTERINPUT.MODU1.EUSER_COMMA他0100.主程序：REPORTYTEST28.* 功能码返回值DATA：OK_CODETYPESY-UCOMM.SAVE-OKTYPESY-UCOMM.* 定义内表,变量需要传递,不加HEADER1.INEDATA牝SPF1.1.TYPETAB1.EOFSPF1.I.* 内表赋值SE1.ECT*INTOTAB1.EWA-SPHJEROMSPF1.I.*A1.VDTA是屏臬100中定义控制控件的名称DATA：WACONTAINERTYPESCRFNAMEVA1.UE'A1.VDATA',A1.JGRIDTYPEREFTOC1.GU1.A1.V_GR1.D.ffA_OJSTOM.CONTAINERTYPEREETOC1.GUICUSTOMCONTAINER. 直接调点窗口CA1.1.SCREEN100.«& &Modu1.eSTATUSJnoOOUTPUTtextMODU1.ESTATUSO100OUTPUT.SETPF-STAT1.S,STATUS. 如果交口还没有创立A1.V对象则创立它IFWA_CUSTOM,CONTAINERISINITIA1.CREATEOBJECTWA_CUSTOMCONTAINEREXPORTI
