SAP動(dòng)態(tài)樹程序DialogALV報(bào)表.docx

SAP動(dòng)態(tài)樹程序Dialog ALV報(bào)表-Author：SUNZK QQ：1131341075 微信：DreamSunlight88REPORTZFIR_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.TYPES:BEGINOFTY_TAB.INCLUDETYPEZFIT1011.TYPES:BANKATYPEBNKA-BANKA,HBKIDTYPET012K-HBKID,BCJNRTYPET012K-BCJNR,ZJLBTYPECHAR20,資金類別KHHTTYPECHAR20,開戶行描述QCZHYETYPEFDBL_DE_S,期初帳戶余額(2015-05-01)SRZJ_01TYPEFDBL_DE_S,運(yùn)維收入SRZJ_02TYPEFDBL_DE_S,咨詢技術(shù)服務(wù)收入SRZJ_03TYPEFDBL_DE_S,軟件收入SRZJ_04TYPEFDBL_DE_S,培訓(xùn)收入SRZJ_05TYPEFDBL_DE_S,備用金收入SRZJ_06TYPEFDBL_DE_S,其他收入SRZJ_07TYPEFDBL_DE_S,運(yùn)營資金昆明（收）SRZJ_08TYPEFDBL_DE_S,運(yùn)營資金上海（收）SRZJ_09TYPEFDBL_DE_S,利息收入SRZJ_10TYPEFDBL_DE_S,其他貨幣資金SRZJ_11TYPEFDBL_DE_S,籌資收入SRZJ_12TYPEFDBL_DE_S,借款SRZJ_13TYPEFDBL_DE_S,歸還借款（收）SRZJ_14TYPEFDBL_DE_S,提取差旅費(fèi)（收）SRZJ_15TYPEFDBL_DE_S,提取備用金（收）SRZJ_16TYPEFDBL_DE_S,退款SRZJ_17TYPEFDBL_DE_S,保證金SRZJ_18TYPEFDBL_DE_S,一般戶備用金SRZJ_19TYPEFDBL_DE_S,運(yùn)營資金北京（收）SRZJ_XJTYPEFDBL_DE_S,收入小計(jì)ZCZJ_01TYPEFDBL_DE_S,報(bào)銷款ZCZJ_02TYPEFDBL_DE_S,租房合同領(lǐng)導(dǎo)租房ZCZJ_03TYPEFDBL_DE_S,工資ZCZJ_04TYPEFDBL_DE_S,預(yù)借差旅費(fèi)ZCZJ_05TYPEFDBL_DE_S,預(yù)借報(bào)銷款ZCZJ_06TYPEFDBL_DE_S,其他預(yù)借款ZCZJ_07TYPEFDBL_DE_S,合同付款ZCZJ_08TYPEFDBL_DE_S,培訓(xùn)費(fèi)（員工福利）ZCZJ_09TYPEFDBL_DE_S,培訓(xùn)費(fèi)（對公free）ZCZJ_10TYPEFDBL_DE_S,辦公室裝修費(fèi)ZCZJ_11TYPEFDBL_DE_S,辦公室房租ZCZJ_12TYPEFDBL_DE_S,轉(zhuǎn)款手續(xù)費(fèi)ZCZJ_13TYPEFDBL_DE_S,采購軟件ZCZJ_14TYPEFDBL_DE_S,軟件服務(wù)費(fèi)ZCZJ_15TYPEFDBL_DE_S,其他庫存采購支出ZCZJ_16TYPEFDBL_DE_S,工資（代發(fā)）ZCZJ_17TYPEFDBL_DE_S,社保四險(xiǎn)/醫(yī)保險(xiǎn)ZCZJ_18TYPEFDBL_DE_S,公積金ZCZJ_19TYPEFDBL_DE_S,殘保金ZCZJ_20TYPEFDBL_DE_S,個(gè)人所得稅ZCZJ_21TYPEFDBL_DE_S,工會(huì)經(jīng)費(fèi)ZCZJ_22TYPEFDBL_DE_S,社保代理/勞務(wù)派遣費(fèi)ZCZJ_23TYPEFDBL_DE_S,差旅費(fèi)ZCZJ_24TYPEFDBL_DE_S,機(jī)票款ZCZJ_25TYPEFDBL_DE_S,所得稅（含匯算清繳）ZCZJ_26TYPEFDBL_DE_S,增值稅ZCZJ_27TYPEFDBL_DE_S,附加稅ZCZJ_28TYPEFDBL_DE_S,印花稅ZCZJ_29TYPEFDBL_DE_S,一般戶備用金（機(jī)票款,支）ZCZJ_30TYPEFDBL_DE_S,租房預(yù)借款ZCZJ_31TYPEFDBL_DE_S,車位租金ZCZJ_32TYPEFDBL_DE_S,電費(fèi)（辦公室）ZCZJ_33TYPEFDBL_DE_S,水費(fèi)（辦公室）ZCZJ_34TYPEFDBL_DE_S,其他租賃費(fèi)（辦公室）ZCZJ_35TYPEFDBL_DE_S,采購固定資產(chǎn)ZCZJ_36TYPEFDBL_DE_S,保險(xiǎn)費(fèi)ZCZJ_37TYPEFDBL_DE_S,購辦公用品ZCZJ_38TYPEFDBL_DE_S,其他ZCZJ_39TYPEFDBL_DE_S,律師費(fèi)ZCZJ_40TYPEFDBL_DE_S,運(yùn)營資金上海（支）ZCZJ_41TYPEFDBL_DE_S,運(yùn)營資金昆明（支）ZCZJ_42TYPEFDBL_DE_S,支取備用金ZCZJ_43TYPEFDBL_DE_S,支取差旅費(fèi)ZCZJ_44TYPEFDBL_DE_S,其他服務(wù)費(fèi)ZCZJ_45TYPEFDBL_DE_S,服務(wù)費(fèi)（支）ZCZJ_46TYPEFDBL_DE_S,保證金ZCZJ_47TYPEFDBL_DE_S,歸還借款（支）ZCZJ_48TYPEFDBL_DE_S,獎(jiǎng)金ZCZJ_49TYPEFDBL_DE_S,利息支出ZCZJ_50TYPEFDBL_DE_S,付支付寶備用金ZCZJ_51TYPEFDBL_DE_S,運(yùn)營資金-北京（支）ZCZJ_XJTYPEFDBL_DE_S,支出小計(jì)QMYETYPEFDBL_DE_S,支出小計(jì)ZHJTYPEFDBL_DE_S.合計(jì)TYPES:ENDOFTY_TAB.DATA:BEGINOFGT_TCJ_POSITIONSOCCURS0.INCLUDETYPETCJ_POSITIONS.DATA:TRANSACT_NAMETYPETCJ_TRANS_NAMES-TRANSACT_NAME,*NUMTYPECHAR4,*ORT01TYPET001-ORT01,HBKIDTYPET012K-HBKID,帳號*FUNACTYPET012K-FUNAC,資金性質(zhì)*FUNACTTYPEZFIE1002-FUNACT,資金性質(zhì)描述ACATRTYPET012K-ACATR,資金類別明細(xì)ACATRTTYPEZFIE1002-ACATRT,賬戶性質(zhì)描述*TEXT1TYPET012T-TEXT1,銀行賬戶描述BANKATYPEBNKA-BANKA,銀行賬戶描述CLASSTYPECHAR20.*CSHYETYPEFAGL_BALANCE_LINE-DEBIT,*QCYETYPEFAGL_BALANCE_LINE-DEBIT,*CSHRQTYPEBKPF-BUDATDATA:ENDOFGT_TCJ_POSITIONS.-SC100-*ALV實(shí)列DATA:GC_ALVGRID100TYPEREFTOCL_GUI_ALV_GRID.*客戶容器DATA:GC_CCONTAINER100TYPEREFTOCL_GUI_CUSTOM_CONTAINER,GO_TREE100TYPEREFTOCL_GUI_COLUMN_TREE,GV_CONT_100TYPESCRFNAMEVALUEALV100,*ALV字段設(shè)置GT_FIELDCAT100TYPELVC_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_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_SIGNATURE,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),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_T012OCCURS0.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.RANGES: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_ITEMTYPESTANDARDTABLEOFDEMO_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_TAB.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.DATA: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-REPID,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_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_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_HANDLE=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_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.使用遞歸找尋下級數(shù)據(jù)LOOPATWT_TABINTOGS_TAB.LOOPATGT_TCJ_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.合計(jì)項(xiàng)不做限制ELSE.SPLITLV_ITEM_NAMEAT_INTOLV_1LV_2.分割出資金類別，資金類別明細(xì)SPLITLS_TCJ_POSITIONS-CLASSAT_INTOLV_3LV_4.分割出資金類別，資金類別明細(xì)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.區(qū)域中心標(biāo)識.MOVE-CORRESPONDINGLS_TCJ_POSITIONSTOLS_SUB_ALV.APPENDLS_SUB_ALVTOGT_SUB_ALV.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_ALV.ENDIF.ENDIF.ENDMETHOD.handle_item_double_clickENDCLASS.LCL_EVENT_RECEIVERIMPLEMENTATIONDATA:GO_APPLICATIONTYPEREFTOLCL_EVENT_RECEIVER.*-*-p1參數(shù):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-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-DATUMOBLIGATORYNOINTERVALSNO-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請先維護(hù)資金層次維護(hù)表：ZFIT1011TYPESDISPLAYLIKEE.LEAVELIST-PROCESSING.ENDIF.*-權(quán)限檢查AUTHORITY-CHECKOBJECTF_BKPF_BUKIDBUKRSFIELDS_BUKRS-LOW.IFSY-SUBRC0.MESSAGES055(ZFI)DISPLAYLIKEE.EXIT.ENDIF.CALLSCREEN100.*&-*&包含ZFIR_1026_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:INDICATOR(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.*高度寬度自適應(yīng)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.WHENEXPORT.PERFORMFRM_EXCEL_OUTPUT.WHENOTHERS.ENDCASE.CALLMETHODCL_GUI_CFW=FLUSH.CLEAR:SY-UCOMM.ENDMODULE.USER_COMMAND_0100INPUT*&-*&ModuleUSER_COMMAND_0200INPUT*&-*text*-*MODULEUSER_COMMAND_0200INPUT.CASESY-UCOMM.WHENBACK.CALLMETHODCL_GUI_CFW=FLUSH.CALLMETHODCL_GUI_CFW=DISPATCH.FREE:CONTROL,DOCUMENT,ERROR,BDS_INSTANCE,SPREADSHEET.REFRESH:DOC_COMPONENTS,DOC_URIS,DOC_SIGNATURE.CLEAR:INITIALIZED.CALLMETHODCONTAINER-FREE.CALLMETHODSPLITTER-FREE.LEAVET