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

-CLASS = 'ZCZJ_17' . WS_TAB-ZCZJ_17 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\公积金 TANSACT-NUMBER = 18.

ELSEIF -TRANSACT_NUMBER = 18. -CLASS = 'ZCZJ_18' . WS_TAB-ZCZJ_18 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\残保金 TANSACT-NUMBER = 19.

ELSEIF -TRANSACT_NUMBER = 19. -CLASS = 'ZCZJ_19' . WS_TAB-ZCZJ_19 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\个人所得税 TANSACT-NUMBER = 20. ELSEIF -TRANSACT_NUMBER = 20. -CLASS = 'ZCZJ_20' . WS_TAB-ZCZJ_20 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\工会经费 TANSACT-NUMBER = 21. ELSEIF -TRANSACT_NUMBER = 21. -CLASS = 'ZCZJ_21' . WS_TAB-ZCZJ_21 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\社保代理/劳务派遣费 TANSACT-NUMBER = 22. ELSEIF -TRANSACT_NUMBER = 22. -CLASS = 'ZCZJ_22' . WS_TAB-ZCZJ_22 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\差旅费 TANSACT-NUMBER = 23.

ELSEIF -TRANSACT_NUMBER = 23. -CLASS = 'ZCZJ_23' . WS_TAB-ZCZJ_23 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\机票款 TANSACT-NUMBER = 24.

ELSEIF -TRANSACT_NUMBER = 24. -CLASS = 'ZCZJ_24' . WS_TAB-ZCZJ_25 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\所得税（含汇算清缴） TANSACT-NUMBER = 25. ELSEIF -TRANSACT_NUMBER = 25. -CLASS = 'ZCZJ_25' . WS_TAB-ZCZJ_25 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\增值税 TANSACT-NUMBER = 26. ELSEIF -TRANSACT_NUMBER = 26. -CLASS = 'ZCZJ_26' . WS_TAB-ZCZJ_26 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\附加税 TANSACT-NUMBER = 27.

ELSEIF -TRANSACT_NUMBER = 27. -CLASS = 'ZCZJ_27' . WS_TAB-ZCZJ_27 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\印花税 TANSACT-NUMBER = 28.

ELSEIF -TRANSACT_NUMBER = 28. -CLASS = 'ZCZJ_28' . WS_TAB-ZCZJ_28 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\一般户备用金（机票款,支） TANSACT-NUMBER = 29. ELSEIF -TRANSACT_NUMBER = 29. -CLASS = 'ZCZJ_29' . WS_TAB-ZCZJ_29 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\租房预借款 TANSACT-NUMBER = 30. ELSEIF -TRANSACT_NUMBER = 30. -CLASS = 'ZCZJ_30' . WS_TAB-ZCZJ_30 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\车位租金 TANSACT-NUMBER = 31. ELSEIF -TRANSACT_NUMBER = 31. -CLASS = 'ZCZJ_31' . WS_TAB-ZCZJ_31 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\电费（办公室） TANSACT-NUMBER = 32. ELSEIF -TRANSACT_NUMBER = 32. -CLASS = 'ZCZJ_32' . WS_TAB-ZCZJ_32 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\水费（办公室） TANSACT-NUMBER = 33. ELSEIF -TRANSACT_NUMBER = 33. -CLASS = 'ZCZJ_33' . WS_TAB-ZCZJ_33 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\其他租赁费（办公室） TANSACT-NUMBER = 34. ELSEIF -TRANSACT_NUMBER = 34. -CLASS = 'ZCZJ_34' . WS_TAB-ZCZJ_34 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\采购固定资产 TANSACT-NUMBER = 35. ELSEIF -TRANSACT_NUMBER = 35. -CLASS = 'ZCZJ_33' . WS_TAB-ZCZJ_35 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\保险费 TANSACT-NUMBER = 36.

ELSEIF -TRANSACT_NUMBER = 36. -CLASS = 'ZCZJ_36' . WS_TAB-ZCZJ_36 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\购办公用品 TANSACT-NUMBER = 37. ELSEIF -TRANSACT_NUMBER = 37. -CLASS = 'ZCZJ_37' . WS_TAB-ZCZJ_37 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\其他 TANSACT-NUMBER = 38.

ELSEIF -TRANSACT_NUMBER = 38. -CLASS = 'ZCZJ_38' . WS_TAB-ZCZJ_38 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\律师费 TANSACT-NUMBER = 39.

ELSEIF -TRANSACT_NUMBER = 39.

-CLASS = 'ZCZJ_39' . WS_TAB-ZCZJ_39 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\运营资金—上海（支） TANSACT-NUMBER = 40. ELSEIF -TRANSACT_NUMBER = 40. -CLASS = 'ZCZJ_40' . WS_TAB-ZCZJ_40 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\运营资金—昆明（支） TANSACT-NUMBER = 41. ELSEIF -TRANSACT_NUMBER = 41. -CLASS = 'ZCZJ_41' . WS_TAB-ZCZJ_41 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\支取备用金（支） TANSACT-NUMBER = 54. ELSEIF -TRANSACT_NUMBER = 54. -CLASS = 'ZCZJ_42' . WS_TAB-ZCZJ_42 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

* \提取差旅费（收） TANSACT-NUMBER = 63. ELSEIF -TRANSACT_NUMBER = 55. -CLASS = 'ZCZJ_43' . WS_TAB-ZCZJ_43 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\其他服务费 TANSACT-NUMBER = 56. ELSEIF -TRANSACT_NUMBER = 56. -CLASS = 'ZCZJ_44' . WS_TAB-ZCZJ_44 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\服务费（支） TANSACT-NUMBER = 57. ELSEIF -TRANSACT_NUMBER = 57. -CLASS = 'ZCZJ_45' . WS_TAB-ZCZJ_45 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\保证金（支） TANSACT-NUMBER = 58. ELSEIF -TRANSACT_NUMBER = 58. -CLASS = 'ZCZJ_46' . WS_TAB-ZCZJ_46 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\归还借款（支） TANSACT-NUMBER = 59. ELSEIF -TRANSACT_NUMBER = 59. -CLASS = 'ZCZJ_47' . WS_TAB-ZCZJ_47 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\奖金 TANSACT-NUMBER = 60.

ELSEIF -TRANSACT_NUMBER = 60. -CLASS = 'ZCZJ_48' . WS_TAB-ZCZJ_48 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\利息支出 TANSACT-NUMBER = 61. ELSEIF -TRANSACT_NUMBER = 61. -CLASS = 'ZCZJ_49' . WS_TAB-ZCZJ_49 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\付支付宝备用金 TANSACT-NUMBER = 69. ELSEIF -TRANSACT_NUMBER = 69. -CLASS = 'ZCZJ_50' . WS_TAB-ZCZJ_50 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

\运营资金-北京（支） TANSACT-NUMBER = 71. ELSEIF -TRANSACT_NUMBER = 71. -CLASS = 'ZCZJ_51' . WS_TAB-ZCZJ_51 = LV_CJAMOUNT .

WS_TAB-ZCZJ_XJ = LV_CJAMOUNT . \支出小计

ENDIF.

* IF ls_t012k-funac = 'A' . * CASE -acatr . * WHEN '01' .

* -class = 'KDYKHB_01' .

* ws_tab-kdykhb_01 = lv_cjamount .\可动用可划拨-可动用可划拨 * WHEN '02'.

* -class = 'KDYKHB_02' .

* ws_tab-kdykhb_02 = lv_cjamount . \可动用可划拨-现金 * ENDCASE .