【文章內(nèi)容簡介】 0。ELSE.CHECKLS_TCJ_POSITIONSNODIDISINITIAL.ENDIF.IFLV_ITEM_NAME=39。ZHJ39。ORLV_ITEM_NAME=39。NODID39。.合計項不做限制ELSE.SPLITLV_ITEM_NAMEAT39。_39。INTOLV_1LV_2.分割出資金類別，資金類別明細SPLITLS_TCJ_POSITIONSCLASSAT39。_39。INTOLV_3LV_4.分割出資金類別，資金類別明細CONDENSE:LV_1,LV_2,LV_3,LV_4NOGAPS.CHECKLV_1=LV_3.檢查出資金類別IFLV_2=39。XJ39。.ELSE.CHECKLV_2=LV_4.ENDIF.ENDIF.GS_TABNODID=LS_TCJ_POSITIONSNODID.區(qū)域中心標識.MOVECORRESPONDINGLS_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_ALV[]ISNOTINITIAL.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**DEFINEHFILLCELL.ITABCOL=amp。1.ITABROW=amp。2.IFamp。4=39。X39。.IFamp。30.CLEARG_VALUE.G_VALUE=ABS(amp。3).CONCATENATE39。39。G_VALUEINTOG_VALUE.CONDENSEG_VALUENOGAPS.MOVEG_VALUETOITABVALUE.ELSE.MOVEamp。3TOITABVALUE.ENDIF.ELSE.MOVEamp。3TOITABVALUE.ENDIF.APPENDITAB.CLEARITAB.ENDOFDEFINITION.*amp。**amp。包含ZFIR_1026_SEL*amp。*SELECTIONSCREENBEGINOFBLOCKBLK1WITHFRAMETITLEK1.SELECTOPTIONS:S_BUKRSFORBKPFBUKRSOBLIGATORY,S_BUDATFORISELLISTBDATEDEFAULTSYDATUMOBLIGATORYNOINTERVALSNOEXTENSION.SELECTIONSCREENENDOFBLOCKBLK1.STARTOFSELECTION.REFRESHGT_T012K[].EV_REGCT=39。GI39。.SELECT*INTOTABLEGT_ZFIT1011FROMZFIT1011WHEREBUKRSINS_BUKRSORNODID=39。GI39。.IFS_BUKRSISNOTINITIAL.LOOPATGT_ZFIT1011ASSIGNINGZFIT1011WHEREBUKRSISINITIAL.ZFIT1011DWNOD=S_BUKRSLOW.ENDLOOP.ENDIF.IFGT_ZFIT1011[]ISINITIAL.MESSAGE39。請先維護資金層次維護表：ZFIT101139。TYPE39。S39。DISPLAYLIKE39。E39。.LEAVELISTPROCESSING.ENDIF.*權(quán)限檢查AUTHORITYCHECKOBJECT39。F_BKPF_BUK39。ID39。BUKRS39。FIELDS_BUKRSLOW.IFSYSUBRC0.MESSAGES055(ZFI)DISPLAYLIKE39。E39。.EXIT.ENDIF.CALLSCREEN100.*amp。**amp。包含ZFIR_1026_O01*amp。**amp。**amp。ModuleSTATUS_0100OUTPUT*amp。**text**MODULESTATUS_0100OUTPUT.*SETPFSTATUS39。010039。.*SETTITLEBAR39。010039。.PERFORMFRM_BUILT_ALV_100.ENDMODULE.STATUS_0100OUTPUT*amp。**amp。ModuleSTATUS_0200OUTPUT*amp。**text**MODULESTATUS_0200OUTPUT.*SETPFSTATUS39。xxxxxxxx39。.*SETTITLEBAR39。xxx39。.DATA:L_TOPTYPEI,L_LASTTYPEI.DATA:INDICATOR(100)TYPECVALUE39。正在寫入，請等待...39。.SETPFSTATUS39。EXCEL_PF39。.PERFORMFRM_CREATE_BASIC_OBJECT.PERFORMPROGRESS_INDICATORUSINGINDICATOR.LOOPATIT_TAB.ITAB[]=IT_TABTABCONTENT[].PERFORMFRM_SET_CELL.ENDLOOP.PERFORMFRM_SET_GROUPCHANGINGGT_HIERARCHY.****高度寬度自適應5CALLMETHODDOCUMENTEXECUTE_MACROEXPORTINGMACRO_STRING=39。39。.ENDMODULE.STATUS_0200OUTPUT*amp。**amp。包含ZFIR_1026_I01*amp。**amp。**amp。ModuleUSER_COMMAND_0100INPUT*amp。**text**MODULEUSER_COMMAND_0100INPUT.CASESYUCOMM.WHEN39。amp。F0339。.LEAVETOSCREEN0.WHEN39。amp。F1539。OR39。amp。F1239。.LEAVEPROGRAM.WHEN39。EXPORT39。.PERFORMFRM_EXCEL_OUTPUT.WHENOTHERS.ENDCASE.CALLMETHODCL_GUI_CFW=FLUSH.CLEAR:SYUCOMM.ENDMODULE.USER_COMMAND_0100INPUT*amp。**amp。ModuleUSER_COMMAND_0200INPUT*amp。**text**MODULEUSER_COMMAND_0200INPUT.CASESYUCOMM.WHEN39。BACK39。.CALLMETHODCL_GUI_CFW=FLUSH.CALLMETHODCL_GUI_CFW=DISPATCH.FREE:CONTROL,DOCUMENT,ERROR,BDS_INSTANCE,SPREADSHEET.REFRESH:DOC_COMPONENTS,DOC_URIS,DOC_SIGNATURE.CLEAR:INITIALIZED.CALLMETHODCONTAINERFREE.CALLMETHODSPLITTERFREE.LEAVETOSCREEN0.WHEN39。EXIT39。.IFNOTDOCUMENTISINITIAL.CALLMETHODDOCUMENTCLOSE_DOCUMENT.FREEDOCUMENT.ENDIF.IFNOTCONTROLISINITIAL.CALLMETHODCONTROLDESTROY_C