ABAP實現(xiàn)本地化的資產負債表和損益表概述講義

1、ABAP實現(xiàn)本地化的資產負債表和損益表1.設計思路：SAP沒有提供標準的符合中國標準的資產負債表和損益表，需要我們在系統(tǒng)中自定義開發(fā)，我們在配置報表版本時都指定了一個項目的編號，一個版本下面都有期其統(tǒng)馭的科目范圍，我們可以根據這個項目編號找到相應的科目范圍，然后根據科目范圍獲取科目借貸匯總的值。SAP中資產負債表的配置圖示：我們傳統(tǒng)的資產負債表如下格式：我們可以在程序中用項目編號找到其下面的科目范圍，然后取科目匯總值，因為資產負債表是固定的，所以我們要建立一個CBO表來存放各個具體的項目和在SAP中對應的項目編號。最后要強調的是在資產負債表中未分配利潤的計算：未分配利潤的期末余額=年初結轉額（

2、留存收益的上年余額）+今年截至到本月的盈利額（利潤表中有體現(xiàn)）利潤表的思路和資產負債表是一樣的。具體的代碼實現(xiàn)：*&*&Company Code:N207*& module:FI*& create by:rrzhang*& create date:2011.12.28*&*& title:資產負債表，利潤表*& Description:資產負債表，利潤表報表呈現(xiàn)*&*& Change History*-*C.R No    |Date|Developer|Description*-*  

3、;       2012.01.11|ccyu*-*REPORT  zfir00026.INCLUDE zfir00026_top.INCLUDE zfir00026_cls.INCLUDE zfir00026_f01.INCLUDE zfir00026_o01.INCLUDE zfir00026_i01.INCLUDE <icon>.INITIALIZATION.p_y = sy-datum+0(4).p_m = sy-datum+4(2).AT SELECTION-SCREEN OUTPUT.PERFORM setdis USING p_

4、rpv.IF c IS INITIAL.PERFORM setlist.gv_name = 愛思開實業(yè)（上海）商貿有限公司合并財務報表版本.c = X.gv_rp = 資產負債表.ELSE.PERFORM setpcg USING p_rpv.CASE p_rpv.WHEN 2070.gv_name = 愛思開實業(yè)（上海）商貿有限公司合并財務報表版本.WHEN 2071.gv_name = 愛思開實業(yè)（上海）商貿有限公總部財務報表版本.WHEN 2072.gv_name = 愛思開實業(yè)（上海）商貿有限公司直營店財務報表版本.WHEN 2073.gv_name = ”.ENDCASE.IF p_

5、rp = BS.gv_rp = 資產負債表.ELSE.gv_rp = 利潤表.ENDIF.ENDIF.START-OF-SELECTION.PERFORM synchrodata.PERFORM get_data1.*&*&  Include           ZFIR00026_TOP*&*Data definitionTYPE-POOLS vrm.TABLES:faglflexa.“同步數據用的憑證抬頭表DATA:BEGIN OF gt_bkpfsyn OCCURS 0,gjahr LIKE bkpf-g

6、jahr,bukrs LIKE bkpf-bukrs,belnr LIKE bkpf-belnr,END OF gt_bkpfsyn.DATA ly(4) TYPE n.“同步數據用的憑證行項目表（bseg）DATA:BEGIN OF gt_bsegsyn OCCURS 0,gjahr LIKE bseg-gjahr,bukrs LIKE bseg-bukrs,belnr LIKE bseg-belnr,prctr LIKE bseg-prctr,pprct LIKE bseg-pprct,buzei LIKE bseg-buzei,END OF gt_bsegsyn.DATA:BEGIN O

7、F gt_fagasyn OCCURS 0.INCLUDE STRUCTURE faglflexa.DATA:END OF gt_fagasyn.TYPES: ch(3) TYPE c,cf(4) TYPE c,cgcp(12) TYPE c,ok_code LIKE sy-ucomm.DATA:c,d,gv_bs TYPE ukurs_curr VALUE 1,”倍數gv_iden(2).“要顯示的資產負債表DATA:BEGIN OF gt_alv_bs0 OCCURS 0,lct1 TYPE int1,item1 TYPE zitem,yamt1 TYPE hslvt12,ysamt1 T

8、YPE hslvt12,lct2 TYPE int1,item2 TYPE zitem,yamt2 TYPE hslvt12,ysamt2 TYPE hslvt12,waers LIKE t001-waers,END OF  gt_alv_bs0.DATA:BEGIN OF gt_bs OCCURS 0,ukurs TYPE ukurs_curr,gdatu TYPE gdatu_inv,END OF gt_bs.DATA:gv_mf(5).”The month field*The report version account information.“要顯示的利潤表DATA:BEG

9、IN OF gt_alv_is0 OCCURS 0,lct TYPE int1,item TYPE zitem,yamt LIKE faglflext-hslvt,”本年累計數mamt LIKE faglflext-hslvt,”本月累計數waers LIKE t001-waers,END OF gt_alv_is0.“下載數據的內表DATA:BEGIN OF gt_alv_is01 OCCURS 0,lct TYPE int1,item TYPE zitem,yamt LIKE faglflext-hslvt,”本年累計數mamt LIKE faglflext-hslvt,”本月累計數END

10、 OF gt_alv_is01.*利潤表下鉆數據內表* >2012.01.16 CCYU STARTDATA:BEGIN OF gt_skat OCCURS 0,saknr LIKE skat-saknr,txt50 LIKE skat-txt50,END OF gt_skat.* <2012.01.16 CCYU END.DATA:BEGIN OF gt_alv_is_dp1  OCCURS 0,racct LIKE faglflexa-racct,* >2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* <2012.0

11、1.16 CCYU END.hsl LIKE faglflexa-hsl,END OF gt_alv_is_dp1.*利潤表下鉆數據內表DATA:BEGIN OF gt_alv_bs_dp1  OCCURS 0,racct LIKE faglflexa-racct,* >2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* <2012.01.16 CCYU END.hsl LIKE faglflexa-hsl,END OF gt_alv_bs_dp1.DATA:BEGIN OF gt_alv_bs_dp2  OCCURS 0,

12、racct LIKE faglflexa-racct,* >2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* <2012.01.16 CCYU END.hsl LIKE faglflexa-hsl,END OF gt_alv_bs_dp2.TYPES:BEGIN OF gs_alv_bs_dp_obj ,racct LIKE faglflexa-racct,* >2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* <2012.01.16 CCYU END.hsl LIKE faglflexa-

13、hsl,END OF gs_alv_bs_dp_obj.DATA:gs_alv_bs_dp_obj1 TYPE gs_alv_bs_dp_obj.TYPES:gt_alv_bs_dp TYPE STANDARD TABLE OF gs_alv_bs_dp_obj.*利潤表下鉆臨時數據內表DATA:BEGIN OF gt_alv_is_dp2 OCCURS 0,racct LIKE faglflexa-racct,* >2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* <2012.01.16 CCYU END.hsl LIKE faglflex

14、a-hsl,END OF gt_alv_is_dp2.DATA:BEGIN OF gt_fagl_011zc OCCURS 0,versn LIKE fagl_011zc-versn,ergsl  LIKE fagl_011zc-ergsl,txt45 LIKE fagl_011qt-txt45,vonkt LIKE fagl_011zc-vonkt,biskt LIKE fagl_011zc-biskt,END OF gt_fagl_011zc.DATA:BEGIN OF gt_fagl_011qt OCCURS 0,ergsl  LIKE fagl_011qt-ergs

15、l,txt45 LIKE fagl_011qt-txt45,END OF gt_fagl_011qt.DATA:BEGIN OF gt_mamt_is OCCURS 0,amt LIKE faglflext-hslvt,END OF gt_mamt_is.RANGES gr_act FOR faglflext-racct.DATA:BEGIN OF gt_monv OCCURS 0,month(2) TYPE n,value LIKE faglflext-hslvt,END OF gt_monv.DATA:BEGIN OF gs_hsl,hsl01 LIKE faglflext-hslvt,h

16、sl02 LIKE faglflext-hslvt,hsl03 LIKE faglflext-hslvt,hsl04 LIKE faglflext-hslvt,hsl05 LIKE faglflext-hslvt,hsl06 LIKE faglflext-hslvt,hsl07 LIKE faglflext-hslvt,hsl08 LIKE faglflext-hslvt,hsl09 LIKE faglflext-hslvt,hsl10 LIKE faglflext-hslvt,hsl11 LIKE faglflext-hslvt,hsl12 LIKE faglflext-hslvt,END

17、OF gs_hsl.DATA:BEGIN OF gs_hsl1,hsl01 LIKE faglflext-hslvt,hsl02 LIKE faglflext-hslvt,hsl03 LIKE faglflext-hslvt,hsl04 LIKE faglflext-hslvt,hsl05 LIKE faglflext-hslvt,hsl06 LIKE faglflext-hslvt,hsl07 LIKE faglflext-hslvt,hsl08 LIKE faglflext-hslvt,hsl09 LIKE faglflext-hslvt,hsl10 LIKE faglflext-hslv

18、t,hsl11 LIKE faglflext-hslvt,hsl12 LIKE faglflext-hslvt,hslvt LIKE faglflext-hslvt,END OF gs_hsl1.DATA:gs_alv_is TYPE REF TO cl_gui_alv_grid,”the alv object for is reportgs_alv_bs TYPE REF TO cl_gui_alv_grid,”the alv object for bs reportgs_alv_is_dp1 TYPE REF TO cl_gui_alv_grid,”the alv object for b

19、s reportgs_alv_bs_dp1 TYPE REF TO cl_gui_alv_grid,”the alv object for bs reportgs_con TYPE REF TO cl_gui_custom_container,”the contianer objectgs_con1 TYPE REF TO cl_gui_custom_container,”the contianer objectgs_layout   TYPE lvc_s_layo,”set the layout of the alvgt_fieldcat TYPE lvc_t_fcat,”the

20、field catelog tablegs_fieldcat TYPE lvc_s_fcat,”the field catelog work areag_toolbar   TYPE ui_functions,”the toolbar of the alvg_toolbar1   TYPE ui_functions,”the toolbar of the alvgt_sort     TYPE lvc_t_sort,”control the sort of the alvgs_sort     TYPE lvc_s_sort.”the

21、 work area of the gt_sortDATA:gs_dyndoc_id TYPE REF TO cl_dd_document ,gs_dyndoc_id1 TYPE REF TO cl_dd_document ,gs_splitter TYPE REF TO cl_gui_splitter_container ,gs_parent_html TYPE REF TO cl_gui_container ,gs_parent_grid TYPE REF TO cl_gui_container ,gs_splitter1 TYPE REF TO cl_gui_splitter_conta

22、iner ,gs_parent_html1 TYPE REF TO cl_gui_container ,gs_parent_grid1 TYPE REF TO cl_gui_container ,gs_html_cntrl TYPE REF TO cl_gui_html_viewer .*SCREEN DEFINEDATA  ok_code.* >2012.01.17 CCYU STARTDATA:BEGIN OF gt_head1  OCCURS 0,t1(6),t2(20),t3(20),t4(20),t5(6),t6(20),t7(20),t8(20),END

23、OF gt_head1.DATA:BEGIN OF gt_head2  OCCURS 0,t1(6),t2(20),t3(20),t4(20),END OF gt_head2.DATA:BEGIN OF gt_alv_bs01 OCCURS 0,lct1 TYPE int1,item1 TYPE zitem,yamt1 TYPE hslvt12,ysamt1 TYPE hslvt12,lct2 TYPE int1,item2 TYPE zitem,yamt2 TYPE hslvt12,ysamt2 TYPE hslvt12,END OF  gt_alv_bs01.* <

24、;2012.01.17 CCYU END.SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE text-001.“公司代碼SELECTION-SCREEN BEGIN OF LINE.SELECTION-SCREEN POSITION 1.SELECTION-SCREEN COMMENT (79) text-002.SELECTION-SCREEN END OF LINE.“CurrencySELECTION-SCREEN BEGIN OF LINE.SELECTION-SCREEN POSITION 1.     &#

25、160;                         “從位置1開始輸出SELECTION-SCREEN COMMENT (7) text-003 FOR FIELD p_curr.SELECTION-SCREEN POSITION 15.PARAMETERS p_curr TYPE ch AS LISTBOX  VISIBLE LENGTH 12  OBLIGATORY DEFAULT CNY .SELECTION-SCREEN END OF LIN

26、E.“report versionSELECTION-SCREEN BEGIN OF LINE.SELECTION-SCREEN POSITION 1.SELECTION-SCREEN COMMENT (9) text-004 FOR FIELD p_rpv.SELECTION-SCREEN POSITION 15.PARAMETERS p_rpv TYPE cf AS LISTBOX VISIBLE LENGTH 12 USER-COMMAND dp OBLIGATORY DEFAULT 2070.SELECTION-SCREEN POSITION 28.SELECTION-SCREEN C

27、OMMENT (60) gv_name.SELECTION-SCREEN END OF LINE.“profit center groupSELECTION-SCREEN BEGIN OF LINE.SELECTION-SCREEN POSITION 1.SELECTION-SCREEN COMMENT (12) text-005 FOR FIELD p_pcg.SELECTION-SCREEN POSITION 15.PARAMETERS p_pcg TYPE cgcp AS LISTBOX VISIBLE LENGTH 12 USER-COMMAND dp1 OBLIGATORY.SELE

28、CTION-SCREEN END OF LINE.“profit centerSELECTION-SCREEN BEGIN OF LINE.SELECTION-SCREEN POSITION 1.SELECTION-SCREEN COMMENT (12) text-006 FOR FIELD p_pc.SELECTION-SCREEN POSITION 15.PARAMETERS p_pc TYPE cgcp AS LISTBOX VISIBLE LENGTH 12 MODIF ID pc.SELECTION-SCREEN END OF LINE.“REPROTSELECTION-SCREEN

29、 BEGIN OF LINE.SELECTION-SCREEN POSITION 1.SELECTION-SCREEN COMMENT (12) text-007 FOR FIELD p_rp.SELECTION-SCREEN POSITION 15.PARAMETERS p_rp TYPE cgcp AS LISTBOX VISIBLE LENGTH 12 USER-COMMAND rp OBLIGATORY DEFAULT BS.SELECTION-SCREEN COMMENT (12) gv_rp.SELECTION-SCREEN END OF LINE.“YEARSELECTION-S

30、CREEN BEGIN OF LINE.SELECTION-SCREEN POSITION 1.SELECTION-SCREEN COMMENT (12) text-008 FOR FIELD p_y.SELECTION-SCREEN POSITION 15.PARAMETERS p_y(4) TYPE n OBLIGATORY.SELECTION-SCREEN END OF LINE.“MONTHSELECTION-SCREEN BEGIN OF LINE.SELECTION-SCREEN POSITION 1.SELECTION-SCREEN COMMENT (12) text-009 F

31、OR FIELD p_m.SELECTION-SCREEN POSITION 15.* PARAMETERS P_M(2) TYPE N OBLIGATORY.* >2012.01.11 ccyu STARTPARAMETERS p_m(3) TYPE n AS LISTBOX  VISIBLE LENGTH 4 OBLIGATORY.* <2012.01.11 ccyu END.SELECTION-SCREEN END OF LINE.SELECTION-SCREEN END OF BLOCK blk.*&*&*&     &

32、#160; Class LCL_APP_COMPT*&*        the event handler class for alv*-*CLASS LCL_APP_COMPT DEFINITION.PUBLIC SECTION .*the function handle_toolbar which handle the toolbar event of the alvMETHODS : HANDLE_TOOLBAR FOR EVENT TOOLBAROF CL_GUI_ALV_GRIDIMPORTING E_OBJECTE_INTERACTI

33、VE .*the function handle_user_command which handle the user_command*event of the alvMETHODS: HANDLE_USER_COMMAND FOR EVENT USER_COMMANDOF CL_GUI_ALV_GRIDIMPORTING E_UCOMM .*the function handle_topofpage which handle the top of pageMETHODS:HANDLE_TOPOFPAGE FOR EVENT TOP_OF_PAGEOF CL_GUI_ALV_GRIDIMPOR

34、TING E_DYNDOC_ID .*handle the hotspot_click事件METHODS:HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICKOF CL_GUI_ALV_GRIDIMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO.ENDCLASS.               “LCL_APP_COMPT*&  Include           ZOOALV_CLS 

35、0;                                     *&*&*&       Class (Implementation)  lcl_app_compt*&*        implementation:for alv*-*CLASS LCL_APP_COMPT IMPLEMENT

36、ATION.METHOD : HANDLE_TOOLBAR .PERFORM MODIFY_TOOLBAR USING E_OBJECT ” .ENDMETHOD .                    ”:METHOD: HANDLE_USER_COMMAND .PERFORM FM_USER_COMMAND USING E_UCOMM .ENDMETHOD .                   &#

37、160;”handle_user_command*TOP OF PAGEMETHOD: HANDLE_TOPOFPAGE .PERFORM FM_ADD_TOPOFPAGE USING E_DYNDOC_ID .ENDMETHOD .                    ”handle_topofpageMETHOD:HANDLE_HOTSPOT_CLICK.PERFORM DRILLDOWNIS1 USING E_ROW_ID E_COLUMN_ID ES_ROW_NO.ENDMETHOD.

38、                    ”HANDLE_HOTSPOT_CLICKENDCLASS.               “l(fā)cl_app_compt*&*&  Include           ZFIR00026_F01*&*&*&      Form  SETLIST*&am

39、p;*       text*-*  >  p1        text*  <  p2        text*-*FORM setlist .DATA: itab TYPE STANDARD TABLE OF vrm_value,line TYPE vrm_value.CLEAR itab.line-key = CNY.line-text = CNY.APPEND line TO itab.line-key = KRW.line-

40、text = KRW.APPEND line TO itab.CALL FUNCTION VRM_SET_VALUESEXPORTINGid     = P_CURRvalues = itab.CLEAR itab.CLEAR line.line-key = 2070.line-text = 2070.APPEND line TO itab.line-key = 2071.line-text = 2071.APPEND line TO itab.line-key = 2072.line-text = 2072.APPEND line TO itab.line-key = 2

41、073.line-text = 2073.APPEND line TO itab.CALL FUNCTION VRM_SET_VALUESEXPORTINGid     = P_RPVvalues = itab.IF p_pcg IS INITIAL.CLEAR itab.CLEAR line.line-key = N207.line-text = N207.APPEND line TO itab.CALL FUNCTION VRM_SET_VALUESEXPORTINGid     = P_PCGvalues = itab.ENDIF.CLEAR it

42、ab.CLEAR line.line-key = BS.line-text = BS.APPEND line TO itab.line-key = IS.line-text = IS.APPEND line TO itab.CALL FUNCTION VRM_SET_VALUESEXPORTINGid     = P_RPvalues = itab.* >2012.01.11 CCYU SRARTCLEAR itab.CLEAR line.line-key = 01.line-text = 01.APPEND line TO itab.line-key = 02.li

43、ne-text = 02.APPEND line TO itab.line-key = 03.line-text = 03.APPEND line TO itab.line-key = 04.line-text = 04.APPEND line TO itab.line-key = 05.line-text = 05.APPEND line TO itab.line-key = 06.line-text = 06.APPEND line TO itab.line-key = 07.line-text = 07.APPEND line TO itab.line-key = 08.line-tex

44、t = 08.APPEND line TO itab.line-key = 09.line-text = 09.APPEND line TO itab.line-key = 10.line-text = 10.APPEND line TO itab.line-key = 11.line-text = 11.APPEND line TO itab.line-key = 12.line-text = 12.APPEND line TO itab.CALL FUNCTION VRM_SET_VALUESEXPORTINGid     = P_Mvalues = itab.” &#

45、160;IF P_PCG IS INITIAL.”    CLEAR ITAB.”    CALL FUNCTION VRM_SET_VALUES”      EXPORTING”        ID     = P_PC”        VALUES = ITAB.”  ELSE.PERFORM setpcg USING p_rpv.”  ENDIF.* <2012.01.11 CCYU END.E

46、NDFORM.                    ” SETLIST*&*&      Form  SETPCG*&*       text*-*      SET THE PROFIT CENTER GROUP*-*FORM setpcg  USING p.DATA: itab TYPE STANDARD TABLE OF vrm_value,line TY

47、PE vrm_value.CLEAR: itab,line.“CLEAR p_pcg.IF p = 2070.line-key = N207.line-text = N207.APPEND line TO itab.CALL FUNCTION VRM_SET_VALUESEXPORTINGid     = P_PCGvalues = itab.p_pcg = N207.CLEAR itab.”  APPEND LINE TO ITAB.CALL FUNCTION VRM_SET_VALUESEXPORTINGid     = P_PCvalue

48、s = itab.CLEAR d.ELSE.CLEAR itab.CLEAR p_pc.CALL FUNCTION VRM_SET_VALUESEXPORTINGid     = P_PCvalues = itab.IF d IS INITIAL.SELECT DISTINCT setname AS key setname AS text FROM setleafINTO CORRESPONDING FIELDS OF TABLE itabWHERE subclass = N207 AND setclass = 0106.IF itab IS NOT  INITI

49、AL.CALL FUNCTION VRM_SET_VALUESEXPORTINGid     = P_PCGvalues = itab.READ TABLE itab INTO line INDEX 1.p_pcg = line-key.CLEAR itab.SELECT DISTINCT valfrom AS key valfrom AS text FROM setleafINTO CORRESPONDING FIELDS OF TABLE itabWHERE subclass = N207 AND setname = p_pcg AND setclass = 0106.

50、IF itab IS NOT INITIAL.CALL FUNCTION VRM_SET_VALUESEXPORTINGid     = P_PCvalues = itab.ENDIF.d = X.ENDIF.ELSE.SELECT DISTINCT valfrom AS key valfrom AS text FROM setleafINTO CORRESPONDING FIELDS OF TABLE itabWHERE subclass = N207 AND setname = p_pcg AND setclass = 0106.IF itab IS NOT INITI

51、AL.CALL FUNCTION VRM_SET_VALUESEXPORTINGid     = P_PCvalues = itab.ENDIF.CLEAR itab.ENDIF.ENDIF.ENDFORM.                    ” SETPCG*&*&      Form  SETDIS*&*       set the disable of the profit

52、 center*-*      >P_P_RPV  text*-*FORM setdis  USING p.LOOP AT SCREEN.IF p = 2070.IF screen-group1 = PC.screen-input = 0.ENDIF.ENDIF.MODIFY SCREEN.ENDLOOP.ENDFORM.                    ” SETDIS*&*&      

53、;Form  GET_DATA*&*       text*-*  >  p1        text*  <  p2        text*-*FORM get_data1 .PERFORM getrv.”獲取報表項目對應的科目范圍ENDFORM.                    ” GET_DATA*&am

54、p;*&      Form  GETRV*&*       get the report item  and the account range*-*  >  p1        text*  <  p2        text*-*FORM getrv .CLEAR gt_fagl_011zc.SELECT versnergslvonktbisktFROM fagl

55、_011zc INTO CORRESPONDING FIELDS OF TABLE gt_fagl_011zcWHERE versn = p_rpv.IF gt_fagl_011zc IS NOT  INITIAL.SELECT DISTINCT ergsltxt45INTO CORRESPONDING FIELDS OF TABLE gt_fagl_011qtFROM fagl_011qt FOR ALL ENTRIES IN gt_fagl_011zcWHERE versn = p_rpv AND ergsl = gt_fagl_011zc-ergsl.IF gt_fagl_01

56、1qt IS NOT INITIAL.SORT gt_fagl_011qt BY ergsl.LOOP AT gt_fagl_011zc.READ TABLE gt_fagl_011qt WITH KEY ergsl = gt_fagl_011zc-ergsl BINARY SEARCH.IF sy-subrc = 0.gt_fagl_011zc-txt45 = gt_fagl_011qt-txt45.ENDIF.MODIFY gt_fagl_011zc.ENDLOOP.ENDIF.IF p_curr = KRW.PERFORM getbs.ENDIF.ly = p_y - 1.”取去年CAL

57、L FUNCTION CONVERSION_EXIT_ALPHA_INPUTEXPORTINGinput  = p_mIMPORTINGoutput = p_m.IF p_rp = BS.CLEAR gt_alv_bs0.PERFORM setbsitem.SORT gt_alv_bs0 BY lct1 ASCENDING.DATA:lv_pro(10) TYPE p DECIMALS 2 VALUE 3,lv_i(10) TYPE p DECIMALS 2 VALUE 3.“為核算固定資產等項目設置的臨時變量DATA:a1601_1 TYPE hslvt12,a1601_2 TYPE hslvt12,a1602_1 TYPE hslvt12,a1602_2 TYPE hslvt12,a1603_1 TYPE hslvt12,a1603_2 TYPE hslvt12,a4001_1 TYPE hslvt12