《SAP动态树程序1.docx》由会员分享，可在线阅读，更多相关《SAP动态树程序1.docx（71页珍藏版）》请在三一办公上搜索。
1、SAP动态树程序一 Author:SUNZK QQ:1131341075REPORTZFIR_1027.INCLUDEZFIR_1027_TOP.INCLUDEZFIR_1027_CLS.INCLUDEZFIR_1027_SEL.INCLUDEZFIR_1027_O01.INCLUDEZFIR_1027_I01.INCLUDEZFIR_1027_F01.*&-*&包含ZFIR_1026_TOP*&-*TYPE-POOLS:KKBLO.TABLES:T001,T012K,TCJ_POSITIONS,ZFIT1011,SSCRFIELDS,BKPF,ISELLIST,TCJ_DOCUMENTS.T
2、YPES:BEGINOFTY_TAB.INCLUDETYPEZFIT1011.TYPES:BANKATYPEBNKA-BANKA,HBKIDTYPET012K-HBKID,BCJNRTYPET012K-BCJNR,ZJLBTYPECHAR20,资金类别KHHTTYPECHAR20,开户行描述QCZHYETYPEFDBL_DE_S,期初帐户余额(2015-05-01)SRZJ_01TYPEFDBL_DE_S,运维收入SRZJ_02TYPEFDBL_DE_S,咨询技术服务收入SRZJ_03TYPEFDBL_DE_S,软件收入SRZJ_04TYPEFDBL_DE_S,培训收入SRZJ_05TYPEF
3、DBL_DE_S,备用金收入SRZJ_06TYPEFDBL_DE_S,其他收入SRZJ_07TYPEFDBL_DE_S,运营资金昆明（收）SRZJ_08TYPEFDBL_DE_S,运营资金上海（收）SRZJ_09TYPEFDBL_DE_S,利息收入SRZJ_10TYPEFDBL_DE_S,其他货币资金SRZJ_11TYPEFDBL_DE_S,筹资收入SRZJ_12TYPEFDBL_DE_S,借款SRZJ_13TYPEFDBL_DE_S,归还借款（收）SRZJ_14TYPEFDBL_DE_S,提取差旅费（收）SRZJ_15TYPEFDBL_DE_S,提取备用金（收）SRZJ_16TYPEFDBL
4、_DE_S,退款SRZJ_17TYPEFDBL_DE_S,保证金SRZJ_18TYPEFDBL_DE_S,一般户备用金SRZJ_19TYPEFDBL_DE_S,运营资金北京（收）SRZJ_XJTYPEFDBL_DE_S,收入小计ZCZJ_01TYPEFDBL_DE_S,报销款ZCZJ_02TYPEFDBL_DE_S,租房合同领导租房ZCZJ_03TYPEFDBL_DE_S,工资ZCZJ_04TYPEFDBL_DE_S,预借差旅费ZCZJ_05TYPEFDBL_DE_S,预借报销款ZCZJ_06TYPEFDBL_DE_S,其他预借款ZCZJ_07TYPEFDBL_DE_S,合同付款ZCZJ_08
5、TYPEFDBL_DE_S,培训费（员工福利）ZCZJ_09TYPEFDBL_DE_S,培训费（对公free）ZCZJ_10TYPEFDBL_DE_S,办公室装修费ZCZJ_11TYPEFDBL_DE_S,办公室房租ZCZJ_12TYPEFDBL_DE_S,转款手续费ZCZJ_13TYPEFDBL_DE_S,采购软件ZCZJ_14TYPEFDBL_DE_S,软件服务费ZCZJ_15TYPEFDBL_DE_S,其他库存采购支出ZCZJ_16TYPEFDBL_DE_S,工资（代发）ZCZJ_17TYPEFDBL_DE_S,社保四险/医保险ZCZJ_18TYPEFDBL_DE_S,公积金ZCZJ_1
6、9TYPEFDBL_DE_S,残保金ZCZJ_20TYPEFDBL_DE_S,个人所得税ZCZJ_21TYPEFDBL_DE_S,工会经费ZCZJ_22TYPEFDBL_DE_S,社保代理/劳务派遣费ZCZJ_23TYPEFDBL_DE_S,差旅费ZCZJ_24TYPEFDBL_DE_S,机票款ZCZJ_25TYPEFDBL_DE_S,所得税（含汇算清缴）ZCZJ_26TYPEFDBL_DE_S,增值税ZCZJ_27TYPEFDBL_DE_S,附加税ZCZJ_28TYPEFDBL_DE_S,印花税ZCZJ_29TYPEFDBL_DE_S,一般户备用金（机票款,支）ZCZJ_30TYPEFDBL
7、_DE_S,租房预借款ZCZJ_31TYPEFDBL_DE_S,车位租金ZCZJ_32TYPEFDBL_DE_S,电费（办公室）ZCZJ_33TYPEFDBL_DE_S,水费（办公室）ZCZJ_34TYPEFDBL_DE_S,其他租赁费（办公室）ZCZJ_35TYPEFDBL_DE_S,采购固定资产ZCZJ_36TYPEFDBL_DE_S,保险费ZCZJ_37TYPEFDBL_DE_S,购办公用品ZCZJ_38TYPEFDBL_DE_S,其他ZCZJ_39TYPEFDBL_DE_S,律师费ZCZJ_40TYPEFDBL_DE_S,运营资金上海（支）ZCZJ_41TYPEFDBL_DE_S,运营
8、资金昆明（支）ZCZJ_42TYPEFDBL_DE_S,支取备用金ZCZJ_43TYPEFDBL_DE_S,支取差旅费ZCZJ_44TYPEFDBL_DE_S,其他服务费ZCZJ_45TYPEFDBL_DE_S,服务费（支）ZCZJ_46TYPEFDBL_DE_S,保证金ZCZJ_47TYPEFDBL_DE_S,归还借款（支）ZCZJ_48TYPEFDBL_DE_S,奖金ZCZJ_49TYPEFDBL_DE_S,利息支出ZCZJ_50TYPEFDBL_DE_S,付支付宝备用金ZCZJ_51TYPEFDBL_DE_S,运营资金-北京（支）ZCZJ_XJTYPEFDBL_DE_S,支出小计QMYE
9、TYPEFDBL_DE_S,支出小计ZHJTYPEFDBL_DE_S.合计TYPES:ENDOFTY_TAB.DATA:BEGINOFGT_TCJ_POSITIONSOCCURS0.INCLUDETYPETCJ_POSITIONS.DATA:TRANSACT_NAMETYPETCJ_TRANS_NAMES-TRANSACT_NAME,*NUMTYPECHAR4,*ORT01TYPET001-ORT01,HBKIDTYPET012K-HBKID,帐号*FUNACTYPET012K-FUNAC,资金性质*FUNACTTYPEZFIE1002-FUNACT,资金性质描述ACATRTYPET012K-
10、ACATR,资金类别明细ACATRTTYPEZFIE1002-ACATRT,账户性质描述*TEXT1TYPET012T-TEXT1,银行账户描述BANKATYPEBNKA-BANKA,银行账户描述CLASSTYPECHAR20.*CSHYETYPEFAGL_BALANCE_LINE-DEBIT,*QCYETYPEFAGL_BALANCE_LINE-DEBIT,*CSHRQTYPEBKPF-BUDATDATA:ENDOFGT_TCJ_POSITIONS.-SC100-*ALV实列DATA:GC_ALVGRID100TYPEREFTOCL_GUI_ALV_GRID.*客户容器DATA:GC_CCO
11、NTAINER100TYPEREFTOCL_GUI_CUSTOM_CONTAINER,GO_TREE100TYPEREFTOCL_GUI_COLUMN_TREE,GV_CONT_100TYPESCRFNAMEVALUEALV100,*ALV字段设置GT_FIELDCAT100TYPELVC_T_FCAT,GS_FIELDCAT100TYPELVC_S_FCAT,*ALV布局GS_LAYOUT100TYPELVC_S_LAYO,GT_SORT100TYPELVC_T_SORT,GS_SORT100TYPELVC_S_SORT,GT_UIFUNCTION100TYPEUI_FUNCTIONS.*-
12、*DOIvaribles*-*DATA:INITIALIZED(1),SPLITTERTYPEREFTOCL_GUI_SPLITTER_CONTAINER,CONTAINERTYPEREFTOCL_GUI_CONTAINER,CONTROLTYPEREFTOI_OI_CONTAINER_CONTROL,DOCUMENTTYPEREFTOI_OI_DOCUMENT_PROXY,FILENAMELIKERLGRAP-FILENAME,RETCODETYPESOI_RET_STRING,SPREADSHEETTYPEREFTOI_OI_SPREADSHEET,ERRORTYPEREFTOI_OI_E
13、RROR,ERRORSTYPEREFTOI_OI_ERROROCCURS0WITHHEADERLINE,APPTYPEVRM_ID,BDS_INSTANCETYPEREFTOCL_BDS_DOCUMENT_SET,DOC_SIGNATURETYPESBDST_SIGNATURE,WA_DOC_SIGNATURELIKELINEOFDOC_SIGNATURE,DOC_COMPONENTSTYPESBDST_COMPONENTS,DOC_URISTYPESBDST_URI,WA_DOC_URISLIKELINEOFDOC_URIS,EXCEL(80)VALUEExcel.Sheet,RANGEST
14、YPESOI_RANGE_LIST,RANGEITEMTYPESOI_RANGE_ITEM,EXCEL_INPUTTYPESOI_GENERIC_TABLE,EXCEL_INPUT_WATYPESOI_GENERIC_ITEM,TABLENAME(10),OKCODE(15),ROW(4),COLUMN(4),DATA(39),DOCUMENT_TYPE(80),ITEM_URL(256).DATA:BEGINOFGT_CULUMNOCCURS0,NAMETYPETV_ITMNAME,TEXTTYPETV_HEADING,ENDOFGT_CULUMN.DATA:BEGINOFGT_T012OC
15、CURS0.INCLUDETYPET012.DATA:BANKATYPEBNKA-BANKA.DATA:ENDOFGT_T012.DATA:BEGINOFGT_SUB_ALVOCCURS0.INCLUDETYPETCJ_POSITIONS.DATA:ENDOFGT_SUB_ALV.DATA:BEGINOFIT_TABOCCURS0,FLAG(1),AREANO(5)TYPEN,TABCONTENTTYPEZTAB_EXCEL,ENDOFIT_TAB.DATA:BEGINOFITABOCCURS0.INCLUDESTRUCTUREALSMEX_TABLINE.DATA:ENDOFITAB.RAN
16、GES:R_BUKRSFORT001-BUKRS.DATA:GV_FLAGTYPEC,EV_REGCTTYPEZFINODID,GV_NUMTYPECHAR3,G_VALUETYPESTRING.DATA:GT_HIERARCHYTYPESOI_HIERARCHY_TABLE.DATA:GT_T001TYPET001OCCURS0WITHHEADERLINE,GT_T012KTYPETABLEOFT012KWITHHEADERLINE,GT_ZFIE1002TYPETABLEOFZFIE1002WITHHEADERLINE.TYPES:TT_DEMO_ITEMTYPESTANDARDTABLE
17、OFDEMO_ITEM,TT_ZFIT1011TYPESTANDARDTABLEOFZFIT1011,TT_TABTYPESTANDARDTABLEOFTY_TAB,TY_DEMO_ITEMTYPEDEMO_ITEM,TY_ZFIT1011TYPEZFIT1011.DATA:GT_NODE_TABTYPETREEV_NTAB,GT_ITEM_TABTYPESTANDARDTABLEOFDEMO_ITEM,GT_ZFIT1011TYPETABLEOFZFIT1011,GT_TABTYPETT_TAB,WT_TABTYPETT_TAB,GS_TABTYPETY_TAB,WS_TABTYPETY_T
18、AB.FIELD-SYMBOLS:TYPEZFIT1011.DATA:GT_TCJ_DOCUMENTSTYPETCJ_DOCUMENTSOCCURS0WITHHEADERLINE,GT_TCJ_TRANSACTIONSTYPETCJ_TRANSACTIONSOCCURS0WITHHEADERLINE,GT_TCJ_TRANS_NAMESTYPETCJ_TRANS_NAMESOCCURS0WITHHEADERLINE,GT_BNKATYPEBNKAOCCURS0WITHHEADERLINE.*-*ALVrelated*-*DATA:GT_SUB_FIELDCATTYPELVC_T_FCAT.DA
19、TA:GT_FIELDCATTYPELVC_T_FCAT,IT_FIELDCATTYPELVC_T_FCAT,IS_FIELDCATTYPELVC_S_FCAT,IT_EVENTSTYPESLIS_T_EVENTWITHHEADERLINE,IT_SUB_EVENTSTYPESLIS_T_EVENTWITHHEADERLINE,GS_LAYOUTTYPELVC_S_LAYO,IT_SORTTYPESLIS_T_SORTINFO_ALV,IT_PRINTTYPESLIS_PRINT_ALV,G_GRIDTYPEREFTOCL_GUI_ALV_GRID.DATA:G_REPIDLIKESY-REP
20、ID,GT_LAYOUT_ALVTYPELVC_S_LAYO.DATA:WA_SORTTYPESLIS_SORTINFO_ALV,GT_SORTTYPELVC_T_SORT,GS_T012KTYPET012K.DATA:LR_GRIDTYPEREFTOCL_GUI_ALV_GRID.DATA:G_LAYOUTTYPESLIS_LAYOUT_ALV,TITLETYPELVC_TITLE,IVARIANTLIKEDISVARIANT.DATAFNAME(20).*-*FIELDsymbols*-*FIELD-SYMBOLS:TYPEANY,TYPEANY.FIELD-SYMBOLS:LIKEGT_
21、TCJ_POSITIONS.FIELD-SYMBOLS:TYPETY_TAB.*&-*&包含ZFIR_1026_CLS*&-*-*INCLUDEBCALV_TOOLBAR_EVENT_RECEIVER*-*CLASSLCL_EVENT_RECEIVERDEFINITION.PUBLICSECTION.METHODS:CONSTRUCTORIMPORTINGHANDLETYPEREFTOCL_GUI_COLUMN_TREECB_NODE_DOUBLE_CLICKTYPERS38L_FNAM,HANDLE_ITEM_DOUBLE_CLICKFOREVENTITEM_DOUBLE_CLICKOFCL
22、_GUI_COLUMN_TREEIMPORTINGNODE_KEYITEM_NAME.PRIVATESECTION.DATA:TREE_HANDLETYPEREFTOCL_GUI_COLUMN_TREE.DATA:TREE_CB_NODE_DOUBLE_CLICKTYPERS38L_FNAM.ENDCLASS.lcl_toolbar_event_receiverDEFINITION*-*CLASSLCL_EVENT_RECEIVERIMPLEMENTATION*-*-*CLASSLCL_EVENT_RECEIVERIMPLEMENTATION.METHODCONSTRUCTOR.TREE_HA
23、NDLE=HANDLE.TREE_CB_NODE_DOUBLE_CLICK=CB_NODE_DOUBLE_CLICK.ENDMETHOD.constructorMETHODHANDLE_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
24、_4TYPESTRING.*BREAKAB_LUOFY.CLEAR:LV_NODID,LV_ITEM_NAME.LV_NODID=NODE_KEY.LV_ITEM_NAME=ITEM_NAME.READTABLEGT_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_TC
25、J_POSITIONSINTOLS_TCJ_POSITIONSWHERECOMP_CODE=GS_TAB-BUKRS公司代码ANDHBKID=GS_TAB-HBKID银行CODEANDCAJO_NUMBER=GS_TAB-BCJNR.银行描述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_INT
26、OLV_1LV_2.分割出资金类别，资金类别明细SPLITLS_TCJ_POSITIONS-CLASSAT_INTOLV_3LV_4.分割出资金类别，资金类别明细CONDENSE:LV_1,LV_2,LV_3,LV_4NO-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.
27、CLEARLS_SUB_ALV.ENDLOOP.ENDLOOP.SORTGT_SUB_ALVBYCOMP_CODECAJO_NUMBERFISC_YEARPOSTING_NUMBERPOSITION_NUMBER.DELETEADJACENTDUPLICATESFROMGT_SUB_ALVCOMPARINGCOMP_CODECAJO_NUMBERFISC_YEARPOSTING_NUMBERPOSITION_NUMBER.IFGT_SUB_ALVISNOTINITIAL.PERFORMFRM_SUB_FIELDCAT.PERFORMFRM_SUB_EVENTS.PERFORMFRM_SUB_A
28、LV.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.CONDENSEG_VALUENO
29、-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,S_BUDATFORISELLIST-BDATEDEFAULTSY-DATUMOBLIGATORYNOI
30、NTERVALSNO-EXTENSION.SELECTION-SCREENENDOFBLOCKBLK1.START-OF-SELECTION.REFRESHGT_T012K.EV_REGCT=GI.SELECT*INTOTABLEGT_ZFIT1011FROMZFIT1011WHEREBUKRSINS_BUKRSORNODID=GI.IFS_BUKRSISNOTINITIAL.LOOPATGT_ZFIT1011ASSIGNINGWHEREBUKRSISINITIAL.-DWNOD=S_BUKRS-LOW.ENDLOOP.ENDIF.IFGT_ZFIT1011ISINITIAL.MESSAGE请先维护资金层次维护表：ZFIT1011TYPESDISPLAYLIKEE.LEAVELIST-PROCESSING.ENDIF.*-权限检
