SAP动态树程序Dialog ALV报表(4)

ENDIF.

* assign event handlers in the application class to each desired event

\

CLEAR:LT_EVENTS,LS_EVENT.

LS_EVENT-EVENTID = CL_GUI_COLUMN_TREE=>EVENTID_ITEM_DOUBLE_CLICK.

LS_EVENT-APPL_EVENT = 'X'. APPEND LS_EVENT TO LT_EVENTS.

CALL METHOD GO_TREE100->SET_REGISTERED_EVENTS EXPORTING

EVENTS = LT_EVENTS EXCEPTIONS

CNTL_ERROR = 1 CNTL_SYSTEM_ERROR = 2 ILLEGAL_EVENT_COMBINATION = 3. IF SY-SUBRC <> 0. * MESSAGE A000. ENDIF.

IF GO_APPLICATION IS NOT INITIAL.

SET HANDLER GO_APPLICATION->HANDLE_ITEM_DOUBLE_CLICK FOR GO_TREE100. ENDIF.

***********************add ****************************

* build data

PERFORM BUILD_NODE_AND_ITEM_TABLE USING GT_ZFIT1011

CHANGING GT_NODE_TAB GT_ITEM_TAB.

*-- 为tree添加节点

CALL METHOD GO_TREE100->ADD_NODES_AND_ITEMS EXPORTING

NODE_TABLE = GT_NODE_TAB[] ITEM_TABLE = GT_ITEM_TAB[] ITEM_TABLE_STRUCTURE_NAME = 'DEMO_ITEM' EXCEPTIONS

FAILED = 1

CNTL_SYSTEM_ERROR = 3 ERROR_IN_TABLES = 4 DP_ERROR = 5 TABLE_STRUCTURE_NAME_NOT_FOUND = 6.

CALL METHOD GO_TREE100->EXPAND_ROOT_NODES * EXPORTING

* level_count = * expand_subtree = EXCEPTIONS

FAILED = 1 ILLEGAL_LEVEL_COUNT = 2 CNTL_SYSTEM_ERROR = 3 OTHERS = 4. IF SY-SUBRC <> 0.

* Implement suitable error handling here ENDIF.

CALL METHOD CL_GUI_CFW=>FLUSH.

ENDIF.

ENDFORM. \

*&---------------------------------------------------------------------*

*& Form FRM_BUILD_FIELDCAT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text * <-- p2 text

*----------------------------------------------------------------------*

FORM FRM_BUILD_FIELDCAT . DATA:LV_NAME TYPE TV_ITMNAME, LV_TEXT TYPE TV_HEADING . REFRESH GT_CULUMN. LV_NAME = 'ZJLB'. LV_TEXT = '资金类别' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'KHHT'.

LV_TEXT = '开户行描述' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'QCZHYE'.

LV_TEXT = '期初帐户余额 (2015-05-01)' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_01'.

LV_TEXT = '运维收入' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_02'.

LV_TEXT = '咨询＆技术服务收入' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_03'.

LV_TEXT = '软件收入' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_04'.

LV_TEXT = '培训收入' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_05'.

LV_TEXT = '备用金收入' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_06'.

LV_TEXT = '其他收入' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_07'.

LV_TEXT = '运营资金—昆明（收）' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_08'.

LV_TEXT = '运营资金—上海（收）' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_09'.

LV_TEXT = '利息收入' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_10'.

LV_TEXT = '其他货币资金' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_11'.

LV_TEXT = '筹资收入' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_12'.

LV_TEXT = '借款' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_13'.

LV_TEXT = '归还借款（收）' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_14'.

LV_TEXT = '提取差旅费（收）' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_15'.

LV_TEXT = '提取备用金（收）' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_16'.

LV_TEXT = '退款' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_17'.

LV_TEXT = '保证金收入' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_18'.

LV_TEXT = '一般户备用金' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_19'.

LV_TEXT = '运营资金—北京（收）' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'SRZJ_XJ'.

LV_TEXT = '收入小计' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_01'.

LV_TEXT = '报销款' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_02'.

LV_TEXT = '租房合同—领导租房' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_03'.

LV_TEXT = '工资' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_04'.

LV_TEXT = '预借差旅费' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_05'.

LV_TEXT = '预借报销款' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_06'.

LV_TEXT = '其他预借款' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_07'.

LV_TEXT = '合同付款' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT .

LV_NAME = 'ZCZJ_08'.

LV_TEXT = '培训费（员工福利）' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_09'.

LV_TEXT = '培训费 （对公FREE）' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_10'.

LV_TEXT = '办公室装修费' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_11'.

LV_TEXT = '办公室房租' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_12'.

LV_TEXT = '转款手续费' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_13'.

LV_TEXT = '采购软件' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_14'.

LV_TEXT = '软件服务费' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_15'.

LV_TEXT = '其他库存采购支出' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_16'.

LV_TEXT = '工资（代发）' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_17'.

LV_TEXT = '社保四险/医保险' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_18'.

LV_TEXT = '公积金' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_19'.

LV_TEXT = '残保金' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_20'.

LV_TEXT = '个人所得税' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_21'.

LV_TEXT = '工会经费' .

PERFORM FRM_ADD_COLUMN USING LV_NAME LV_TEXT . LV_NAME = 'ZCZJ_22'.

LV_TEXT = '社保代理/劳务派遣费' .

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库SAP动态树程序Dialog ALV报表(4)在线全文阅读。