SAP动态树程序DialogALV报表(下).docx

《SAP动态树程序DialogALV报表(下).docx》由会员分享，可在线阅读，更多相关《SAP动态树程序DialogALV报表(下).docx（51页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、SAP动态树程序Dialog ALV报表(下)-Author:SUNZK QQ:1131341075 WEIXIN:DreamSunlight88REPORTZFIR_1026.INCLUDEZFIR_1026_TOP.INCLUDEZFIR_1026_CLS.INCLUDEZFIR_1026_SEL.INCLUDEZFIR_1026_O01.INCLUDEZFIR_1026_I01.INCLUDEZFIR_1026_F01.*&-*&包含ZFIR_1026_TOP*&-*TYPE-POOLS:KKBLO.TABLES:T001,T012K,TCJ_POSITIONS,ZFIT1011,SSC

2、RFIELDS,BKPF,ISELLIST,TCJ_DOCUMENTS.TYPES:BEGINOFTY_TAB.INCLUDETYPEZFIT1011.TYPES:BANKATYPEBNKA-BANKA,HBKIDTYPET012K-HBKID,KDYKHB_01TYPEFDBL_DE_S,可动用可划拨-可动用可划拨KDYKHB_02TYPEFDBL_DE_S,可动用可划拨-现金KDYKHB_XJTYPEFDBL_DE_S,可动用可划拨-小计KDYBKHB_10TYPEFDBL_DE_S,可动用不可划拨-外汇资本金户KDYBKHB_11TYPEFDBL_DE_S,可动用不可划拨-外债户KDYB

3、KHB_12TYPEFDBL_DE_S,可动用不可划拨-销售监管户KDYBKHB_13TYPEFDBL_DE_S,可动用不可划拨-贷款监管户KDYBKHB_XJTYPEFDBL_DE_S,可动用不可划拨-小计BKDY_20TYPEFDBL_DE_S,不可动用-还本付息户BKDY_21TYPEFDBL_DE_S,不可动用-保证金户按揭保证金BKDY_22TYPEFDBL_DE_S,不可动用-保证金户还贷保证金BKDY_23TYPEFDBL_DE_S,不可动用-保证金户解押保证金BKDY_24TYPEFDBL_DE_S,不可动用-保证金户保函保证金BKDY_25TYPEFDBL_DE_S,不可动用

4、-保证金户政府保证金BKDY_26TYPEFDBL_DE_S,不可动用-保证金户银行承兑汇票BKDY_27TYPEFDBL_DE_S,不可动用-临时验资户BKDY_28TYPEFDBL_DE_S,不可动用-纳税专户BKDY_29TYPEFDBL_DE_S,不可动用-其它户BKDY_XJTYPEFDBL_DE_S,不可动用-小计ZHJTYPEFDBL_DE_S.合计TYPES:ENDOFTY_TAB.DATA:BEGINOFGT_TCJ_POSITIONSOCCURS0.INCLUDETYPETCJ_POSITIONS.DATA:TRANSACT_NAMETYPETCJ_TRANS_NAMES-

5、TRANSACT_NAME,*NUMTYPECHAR4,*ORT01TYPET001-ORT01,HBKIDTYPET012K-HBKID,帐号*FUNACTYPET012K-FUNAC,资金性质*FUNACTTYPEZFIE1002-FUNACT,资金性质描述ACATRTYPET012K-ACATR,资金类别明细ACATRTTYPEZFIE1002-ACATRT,账户性质描述*TEXT1TYPET012T-TEXT1,银行账户描述BANKATYPEBNKA-BANKA,银行账户描述CLASSTYPECHAR20,*CSHYETYPEFAGL_BALANCE_LINE-DEBIT,*QCYET

6、YPEFAGL_BALANCE_LINE-DEBIT,*CSHRQTYPEBKPF-BUDATCAJO_NUMBERTTYPECHAR20.DATA:ENDOFGT_TCJ_POSITIONS.-SC100-*ALV实列DATA:GC_ALVGRID100TYPEREFTOCL_GUI_ALV_GRID.*客户容器DATA:GC_CCONTAINER100TYPEREFTOCL_GUI_CUSTOM_CONTAINER,GO_TREE100TYPEREFTOCL_GUI_COLUMN_TREE,GV_CONT_100TYPESCRFNAMEVALUEALV100,*ALV字段设置GT_FIEL

7、DCAT100TYPELVC_T_FCAT,GS_FIELDCAT100TYPELVC_S_FCAT,*ALV布局GS_LAYOUT100TYPELVC_S_LAYO,GT_SORT100TYPELVC_T_SORT,GS_SORT100TYPELVC_S_SORT,GT_UIFUNCTION100TYPEUI_FUNCTIONS.*-*DOIvaribles*-*DATA:INITIALIZED(1),SPLITTERTYPEREFTOCL_GUI_SPLITTER_CONTAINER,CONTAINERTYPEREFTOCL_GUI_CONTAINER,CONTROLTYPEREFTOI_

8、OI_CONTAINER_CONTROL,DOCUMENTTYPEREFTOI_OI_DOCUMENT_PROXY,FILENAMELIKERLGRAP-FILENAME,RETCODETYPESOI_RET_STRING,SPREADSHEETTYPEREFTOI_OI_SPREADSHEET,ERRORTYPEREFTOI_OI_ERROR,ERRORSTYPEREFTOI_OI_ERROROCCURS0WITHHEADERLINE,APPTYPEVRM_ID,BDS_INSTANCETYPEREFTOCL_BDS_DOCUMENT_SET,DOC_SIGNATURETYPESBDST_S

9、IGNATURE,WA_DOC_SIGNATURELIKELINEOFDOC_SIGNATURE,DOC_COMPONENTSTYPESBDST_COMPONENTS,DOC_URISTYPESBDST_URI,WA_DOC_URISLIKELINEOFDOC_URIS,EXCEL(80)VALUEExcel.Sheet,RANGESTYPESOI_RANGE_LIST,RANGEITEMTYPESOI_RANGE_ITEM,EXCEL_INPUTTYPESOI_GENERIC_TABLE,EXCEL_INPUT_WATYPESOI_GENERIC_ITEM,TABLENAME(10),OKC

10、ODE(15),ROW(4),COLUMN(4),DATA(39),DOCUMENT_TYPE(80),ITEM_URL(256).DATA:BEGINOFGT_CULUMNOCCURS0,NAMETYPETV_ITMNAME,TEXTTYPETV_HEADING,ENDOFGT_CULUMN.DATA:BEGINOFGT_T012OCCURS0.INCLUDETYPET012.DATA:BANKATYPEBNKA-BANKA.DATA:ENDOFGT_T012.DATA:BEGINOFGT_SUB_ALVOCCURS0.INCLUDETYPETCJ_POSITIONS.DATA:ENDOFG

11、T_SUB_ALV.DATA:BEGINOFIT_TABOCCURS0,FLAG(1),AREANO(5)TYPEN,TABCONTENTTYPEZTAB_EXCEL,ENDOFIT_TAB.DATA:BEGINOFITABOCCURS0.INCLUDESTRUCTUREALSMEX_TABLINE.DATA:ENDOFITAB.RANGES:R_BUKRSFORT001-BUKRS.DATA:GV_FLAGTYPEC,EV_REGCTTYPEZFINODID,GV_NUMTYPECHAR3,G_VALUETYPESTRING.DATA:GT_HIERARCHYTYPESOI_HIERARCH

12、Y_TABLE.DATA:GT_T001TYPET001OCCURS0WITHHEADERLINE,GT_T012KTYPETABLEOFT012KWITHHEADERLINE,GT_ZFIE1002TYPETABLEOFZFIE1002WITHHEADERLINE.TYPES:TT_DEMO_ITEMTYPESTANDARDTABLEOFDEMO_ITEM,TT_ZFIT1011TYPESTANDARDTABLEOFZFIT1011,TT_TABTYPESTANDARDTABLEOFTY_TAB,TY_DEMO_ITEMTYPEDEMO_ITEM,TY_ZFIT1011TYPEZFIT101

13、1.DATA:GT_NODE_TABTYPETREEV_NTAB,GT_ITEM_TABTYPESTANDARDTABLEOFDEMO_ITEM,GT_ZFIT1011TYPETABLEOFZFIT1011,GS_ZFIT1011TYPEZFIT1011,GT_TABTYPETT_TAB,WT_TABTYPETT_TAB,GS_TABTYPETY_TAB,WS_TABTYPETY_TAB.FIELD-SYMBOLS:TYPEZFIT1011.DATA:GT_TCJ_DOCUMENTSTYPETCJ_DOCUMENTSOCCURS0WITHHEADERLINE,GT_TCJ_TRANSACTIO

14、NSTYPETCJ_TRANSACTIONSOCCURS0WITHHEADERLINE,GT_TCJ_TRANS_NAMESTYPETCJ_TRANS_NAMESOCCURS0WITHHEADERLINE,GT_BNKATYPEBNKAOCCURS0WITHHEADERLINE.*-*ALVrelated*-*DATA:GT_SUB_FIELDCATTYPELVC_T_FCAT.DATA:GT_FIELDCATTYPELVC_T_FCAT,IT_FIELDCATTYPELVC_T_FCAT,IS_FIELDCATTYPELVC_S_FCAT,IT_EVENTSTYPESLIS_T_EVENTW

15、ITHHEADERLINE,IT_SUB_EVENTSTYPESLIS_T_EVENTWITHHEADERLINE,GS_LAYOUTTYPELVC_S_LAYO,IT_SORTTYPESLIS_T_SORTINFO_ALV,IT_PRINTTYPESLIS_PRINT_ALV,G_GRIDTYPEREFTOCL_GUI_ALV_GRID.DATAGS_SUB_ALVLIKELINEOFGT_SUB_ALV.DATA:G_REPIDLIKESY-REPID,GT_LAYOUT_ALVTYPELVC_S_LAYO.DATA:WA_SORTTYPESLIS_SORTINFO_ALV,GT_SORT

16、TYPELVC_T_SORT.DATA:LR_GRIDTYPEREFTOCL_GUI_ALV_GRID.DATA:G_LAYOUTTYPESLIS_LAYOUT_ALV,TITLETYPELVC_TITLE,IVARIANTLIKEDISVARIANT.DATAFNAME(20).*-*FIELDsymbols*-*FIELD-SYMBOLS:TYPEANY,TYPEANY.FIELD-SYMBOLS:LIKEGT_TCJ_POSITIONS.FIELD-SYMBOLS:TYPETY_TAB.*&-*&包含ZFIR_1026_CLS*&-*-*INCLUDEBCALV_TOOLBAR_EVEN

17、T_RECEIVER*-*CLASSLCL_EVENT_RECEIVERDEFINITION.PUBLICSECTION.METHODS:CONSTRUCTORIMPORTINGHANDLETYPEREFTOCL_GUI_COLUMN_TREECB_NODE_DOUBLE_CLICKTYPERS38L_FNAM,HANDLE_ITEM_DOUBLE_CLICKFOREVENTITEM_DOUBLE_CLICKOFCL_GUI_COLUMN_TREEIMPORTINGNODE_KEYITEM_NAME.PRIVATESECTION.DATA:TREE_HANDLETYPEREFTOCL_GUI_

18、COLUMN_TREE.DATA:TREE_CB_NODE_DOUBLE_CLICKTYPERS38L_FNAM.ENDCLASS.lcl_toolbar_event_receiverDEFINITION*-*CLASSLCL_EVENT_RECEIVERIMPLEMENTATION*-*-*CLASSLCL_EVENT_RECEIVERIMPLEMENTATION.METHODCONSTRUCTOR.TREE_HANDLE=HANDLE.TREE_CB_NODE_DOUBLE_CLICK=CB_NODE_DOUBLE_CLICK.ENDMETHOD.constructorMETHODHAND

19、LE_ITEM_DOUBLE_CLICK.DATA:LV_NODIDTYPEZFINODID.DATA:LV_ITEM_NAMETYPENAME1.DATA:LS_TCJ_POSITIONSLIKELINEOFGT_TCJ_POSITIONS.DATA:LS_SUB_ALVLIKELINEOFGT_SUB_ALV.DATA:LV_1TYPESTRING,LV_2TYPESTRING,LV_3TYPESTRING,LV_4TYPESTRING.CLEAR:LV_NODID,LV_ITEM_NAME.LV_NODID=NODE_KEY.LV_ITEM_NAME=ITEM_NAME.READTABL

20、EGT_TABWITHKEYNODID=LV_NODIDTRANSPORTINGNOFIELDS.IFSY-SUBRC=0.CLEAR:GT_SUB_ALV,GS_TAB.REFRESH:WT_TAB,GT_SUB_ALV.PERFORMFRM_GET_CLICK_DATAUSINGLV_NODID.使用递归找寻下级数据LOOPATWT_TABINTOGS_TAB.LOOPATGT_TCJ_POSITIONSINTOLS_TCJ_POSITIONSWHERECOMP_CODE=GS_TAB-BUKRS公司代码ANDHBKID=GS_TAB-HBKID.银行CODE*ANDBANKA=GS_TA

21、B-BANKA.银行描述IFGS_TAB-RCFLG=X.CHECKLS_TCJ_POSITIONS-NODIDISNOTINITIAL.ELSE.CHECKLS_TCJ_POSITIONS-NODIDISINITIAL.ENDIF.IFLV_ITEM_NAME=ZHJORLV_ITEM_NAME=NODID.合计项不做限制ELSE.SPLITLV_ITEM_NAMEAT_INTOLV_1LV_2.分割出资金类别，资金类别明细SPLITLS_TCJ_POSITIONS-CLASSAT_INTOLV_3LV_4.分割出资金类别，资金类别明细CONDENSE:LV_1,LV_2,LV_3,LV_4

22、NO-GAPS.CHECKLV_1=LV_3.检查出资金类别IFLV_2=XJ.ELSE.CHECKLV_2=LV_4.ENDIF.ENDIF.GS_TAB-NODID=LS_TCJ_POSITIONS-NODID.区域中心标识.MOVE-CORRESPONDINGLS_TCJ_POSITIONSTOLS_SUB_ALV.APPENDLS_SUB_ALVTOGT_SUB_ALV.CLEARLS_SUB_ALV.ENDLOOP.ENDLOOP.IFGT_SUB_ALVISNOTINITIAL.PERFORMFRM_SUB_FIELDCAT.PERFORMFRM_SUB_EVENTS.PERFOR

23、MFRM_SUB_ALV.ENDIF.ENDIF.ENDMETHOD.handle_item_double_clickENDCLASS.LCL_EVENT_RECEIVERIMPLEMENTATIONDATA:GO_APPLICATIONTYPEREFTOLCL_EVENT_RECEIVER.*-*-p1参数:1列2行3值*-p2作用:填充excel*-*DEFINEHFILL-CELL.ITAB-COL=&1.ITAB-ROW=&2.IF&4=X.IF&30.CLEARG_VALUE.G_VALUE=ABS(&3).CONCATENATE-G_VALUEINTOG_VALUE.CONDENS

24、EG_VALUENO-GAPS.MOVEG_VALUETOITAB-VALUE.ELSE.MOVE&3TOITAB-VALUE.ENDIF.ELSE.MOVE&3TOITAB-VALUE.ENDIF.APPENDITAB.CLEARITAB.END-OF-DEFINITION.*&-*&包含ZFIR_1026_SEL*&-*SELECTION-SCREENBEGINOFBLOCKBLK1WITHFRAMETITLEK1.SELECT-OPTIONS:S_BUKRSFORBKPF-BUKRSOBLIGATORY.SELECT-OPTIONS:S_BUDATFORISELLIST-BDATEDEF

25、AULTSY-DATUMOBLIGATORYNOINTERVALSNO-EXTENSION,S_HBKIDFORT012K-HBKID.SELECTION-SCREENENDOFBLOCKBLK1.*ATSELECTION-SCREENONVALUE-REQUESTFORiv_nodid.*PERFORMfrm_f4_help.START-OF-SELECTION.EV_REGCT=GI.SELECT*INTOTABLEGT_ZFIT1011FROMZFIT1011WHEREBUKRSINS_BUKRSORNODID=GI.IFS_BUKRSISNOTINITIAL.LOOPATGT_ZFIT

26、1011ASSIGNINGWHEREBUKRSISINITIAL.-DWNOD=S_BUKRS-LOW.ENDLOOP.ENDIF.IFGT_ZFIT1011ISINITIAL.MESSAGE请先维护资金层次维护表ZFIT1011TYPESDISPLAYLIKEE.LEAVELIST-PROCESSING.ENDIF.*-权限检查AUTHORITY-CHECKOBJECTF_BKPF_BUKIDBUKRSFIELDS_BUKRS-LOW.IFSY-SUBRC0.MESSAGES055(ZFI)DISPLAYLIKEE.EXIT.ENDIF.CALLSCREEN100.*&-*&包含ZFIR_1

27、026_O01*&-*&-*&ModuleSTATUS_0100OUTPUT*&-*text*-*MODULESTATUS_0100OUTPUT.*SETPF-STATUS0100.*SETTITLEBAR0100.PERFORMFRM_BUILT_ALV_100.ENDMODULE.STATUS_0100OUTPUT*&-*&ModuleSTATUS_0200OUTPUT*&-*text*-*MODULESTATUS_0200OUTPUT.*SETPF-STATUSxxxxxxxx.*SETTITLEBARxxx.DATA:L_TOPTYPEI,L_LASTTYPEI.DATA:INDICA

28、TOR(100)TYPECVALUE正在写入，请等待.SETPF-STATUSEXCEL_PF.PERFORMFRM_CREATE_BASIC_OBJECT.PERFORMPROGRESS_INDICATORUSINGINDICATOR.LOOPATIT_TAB.ITAB=IT_TAB-TABCONTENT.PERFORMFRM_SET_CELL.ENDLOOP.PERFORMFRM_SET_GROUPCHANGINGGT_HIERARCHY.*高度宽度自适应5CALLMETHODDOCUMENT-EXECUTE_MACROEXPORTINGMACRO_STRING=module.Macro1.ENDMODULE.STATUS_0200OUTPUT*&-*&包含ZFIR_1026_I01*&-*&-*&ModuleUSER_COMMAND_0100INPUT*&-*text*-*MODULEUSER_COMMAND_0100INPUT.CASESY-UCOMM.WHEN&F03.LEAVETOSCREEN0.WHEN&F15OR&F12.LEAVEPROGRAM