PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_23'.
LV_TEXT = '差旅费' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_24'.
LV_TEXT = '机票款' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_25'.
LV_TEXT = '所得税（含汇算清缴）' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_26'.
LV_TEXT = '增值税' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_27'.
LV_TEXT = '附加税' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_28'.
LV_TEXT = '印花税' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_29'.
LV_TEXT = '一般户备用金（机票款,支）' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_30'.
LV_TEXT = '租房预借款' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_31'.
LV_TEXT = '车位租金' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_32'.
LV_TEXT = '电费（办公室）' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_33'.
LV_TEXT = '水费（办公室）' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_34'.
LV_TEXT = '其他租赁费（办公室）' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_35'.
LV_TEXT = '采购固定资产' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_36'.
LV_TEXT = '保险费' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_37'.
LV_TEXT = '购办公用品' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_38'.
LV_TEXT = '其他' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_39'.
LV_TEXT = '律师费' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_40'.
LV_TEXT = '运营资金—上海（支）' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_41'.
LV_TEXT = '运营资金—昆明（支）' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_42'.
LV_TEXT = '支取备用金' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_43'.
LV_TEXT = '支取差旅费' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_44'.
LV_TEXT = '其他服务费' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_45'.
LV_TEXT = '服务费（支）' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_46'.
LV_TEXT = '保证金' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_47'.
LV_TEXT = '归还借款（支）' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_48'.
LV_TEXT = '奖金' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_49'.
LV_TEXT = '利息支出' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_50'.
LV_TEXT = '付支付宝备用金' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_51'.
LV_TEXT = '运营资金-北京（支）' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT .
LV_NAME = 'ZCZJ_XJ'.
LV_TEXT = '支出小计' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'QMYE'.
LV_TEXT = '期末余额' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZHJ' .
LV_TEXT = '合计' .
PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT .
ENDFORM. \
*&---------------------------------------------------------------------*
*& Form FRM_ADD_COLUMN
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LV_NAME text * -->P_LV_TEXT text
*----------------------------------------------------------------------*
FORM FRM_ADD_COLUMN USING PV_NAME TYPE TV_ITMNAME PV_TEXT TYPE TV_HEADING . DATA:LV_NUM TYPE I.
DATA:LV_TEXT TYPE TV_HEADING .
CALL METHOD GO_TREE100->ADD_COLUMN EXPORTING
NAME = PV_NAME * HIDDEN = * DISABLED = ALIGNMENT = '2' WIDTH = '40' * WIDTH_PIX = 'X' * HEADER_IMAGE =
HEADER_TEXT = PV_TEXT * HEADER_TOOLTIP = EXCEPTIONS
COLUMN_EXISTS = 1 ILLEGAL_COLUMN_NAME = 2 TOO_MANY_COLUMNS = 3 ILLEGAL_ALIGNMENT = 4
DIFFERENT_COLUMN_TYPES = 5 CNTL_SYSTEM_ERROR = 6 FAILED = 7 PREDECESSOR_COLUMN_NOT_FOUND = 8 OTHERS = 9. IF SY-SUBRC <> 0.
* Implement suitable error handling here ENDIF.
GT_CULUMN-NAME = PV_NAME . GT_CULUMN-TEXT = PV_TEXT . APPEND GT_CULUMN . CLEAR GT_CULUMN .
ENDFORM. \
*&---------------------------------------------------------------------*
*& Form BUILD_NODE_AND_ITEM_TABLE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GT_ZFIT1011 text * <--P_GT_NODE_TAB text * <--P_GT_ITEM_TAB text
*----------------------------------------------------------------------*
FORM BUILD_NODE_AND_ITEM_TABLE USING IT_TAB TYPE TT_ZFIT1011 CHANGING CT_NODE TYPE TREEV_NTAB CT_ITEM TYPE TT_DEMO_ITEM. DATA:LS_TAB TYPE TY_TAB , LS_NODE TYPE TREEV_NODE, LS_ITEM TYPE TY_DEMO_ITEM. DATA:LV_UPNOD TYPE ZFIUPNOD . REFRESH:GT_TAB,R_BUKRS . CLEAR LV_UPNOD .
PERFORM FRM_BUILD_FIELDCAT. \添加列
*--------------------------------------------------------------------*
* 用递归获取树结构数据
GV_FLAG = 'X' . \第一次要排除同级节点
PERFORM FRM_COLLECT_NODE USING EV_REGCT CHANGING IT_TAB . \
* 整理业务数据
PERFORM FRM_SUBROUTINES .
*--------------------------------------------------------------------*
\根节点
LOOP AT GT_TAB INTO LS_TAB WHERE NODID = EV_REGCT . LS_NODE-NODE_KEY = EV_REGCT . LS_NODE-RELATKEY = ''.
LS_NODE-ISFOLDER = ABAP_TRUE. LS_NODE-EXPANDER = ABAP_TRUE.
APPEND LS_NODE TO CT_NODE. CLEAR:LS_NODE.
LS_ITEM-ITEM_NAME = 'NODID'. LS_ITEM-NODE_KEY = LS_TAB-NODID.
LS_ITEM-CLASS = 2. \k
LS_ITEM-EDITABLE = ''.
* modify by tianhaiguang on 20130422.
* ls_item-text = ls_tab-nodid && ' ' && ls_tab-ndtxt.
CONCATENATE LS_TAB-NODID LS_TAB-NDTXT INTO LS_ITEM-TEXT SEPARATED BY SPACE. * end modify
APPEND LS_ITEM TO CT_ITEM. CLEAR:LS_ITEM.
CLEAR:LS_TAB-ZJLB,LS_TAB-KHHT.
PERFORM FRM_ADD_DATA USING LS_TAB CHANGING CT_NODE CT_ITEM .
ENDLOOP.
* SORT GT_TAB BY NODID UPNOD RCFLG DESCENDING.\
LOOP AT GT_TAB INTO LS_TAB WHERE UPNOD IS NOT INITIAL.
\判断当前层的上一级是否存在
READ TABLE GT_TAB WITH KEY NODID = LS_TAB-UPNOD TRANSPORTING NO FIELDS.
IF SY-SUBRC <> 0. CONTINUE. ENDIF.
\判断当前层的下一级是否存在
READ TABLE GT_TAB WITH KEY UPNOD = LS_TAB-NODID TRANSPORTING NO F
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库SAP动态树程序Dialog ALV报表(5)在线全文阅读。
相关推荐：