设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

abap中资产负债表的开发

Twilight发表于 2014-03-16 20:46Twilight 最后回复于 2014-03-16 20:46 [复制链接] 6898 0

资产负债表（the Balance Sheet)亦称财务状况表，表示企业在一定日期（通常为各会计期末）的财务状况（即资产、负债和业主权益的状况）的主要会计报表，资产负债表利用会计平衡原则，将合乎会计原则的资产、负债、股东权益”交易科目分为“资产”和“负债及股东权益”两大区块，在经过分录、转帐、分类帐、试算、调整等等会计程序后，以特定日期的静态企业情况为基准，浓缩成一张报表。其报表功用除了企业内部除错、经营方向、防止弊端外，也可让所有阅读者于最短时间了解企业经营状况。

选择屏幕：
资产负债表选择屏幕.jpg

程序执行结果屏幕：
资产负债表.jpg

主程序代码：
  1. *&---------------------------------------------------------------------*
  2. *& Report  ZDEMON_030
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*

  9. REPORT  zdemon_030 MESSAGE-ID zfirpt.
  10. *&---------------------------------------------------------------------*
  11. *& tables & nodes
  12. *&---------------------------------------------------------------------*
  13. TABLES:  t001,  "公司主数据
  14.          bkpf,  "会计凭证头
  15.          v_tcurr,"视图   货币兑换利率
  16.          faglflext.  "科目余额表

  18. *&---------------------------------------------------------------------*
  19. *& internal tables
  20. *&---------------------------------------------------------------------*
  21. DATA: BEGIN OF tb_result OCCURS 0, "资产负债表结果集
  22.         companyid(4)  TYPE c,
  23.         asset1(30) TYPE c,         "资产项目
  24.         row1(2)    TYPE c,         "行次
  25.         start1     LIKE faglflext-hslvt,"期初值
  26.         end1       LIKE faglflext-hslvt,"期未值
  27.         asset2(30) TYPE c,         "资产项目
  28.         row2(2)    TYPE c,         "行次
  29.         start2     LIKE faglflext-hslvt,"期初值
  30.         end2       LIKE faglflext-hslvt,"期未值
  31.       END OF tb_result.

  33. DATA: BEGIN OF prt_result OCCURS 0, "资产负债表结果集
  34.         companyid(4)  TYPE c,
  35.         asset1(30) TYPE c,          "资产项目
  36.         row1(2)    TYPE c,         "行次
  37.         start1(16) TYPE c,          "期初值
  38.         end1(16)   TYPE c,          "期未值
  39.         asset2(30) TYPE c,          "资产项目
  40.         row2(2)    TYPE c,         "行次
  41.         start2(16) TYPE c,          "期初值
  42.         end2(16)   TYPE c,          "期未值
  43.       END OF prt_result.

  45. *&---------------------------------------------------------------------*
  46. *& variant declare
  47. *&---------------------------------------------------------------------*
  48. DATA:  s_butxt(50) TYPE c,  "公司名称
  49.       s_m1(23)  TYPE c,
  50.       s_m2(23)  TYPE c,
  51.       s_m3(23)  TYPE c,
  52.       s_m4(23)  TYPE c.

  54. **PARAMTERS FOR OUTPUT FORMAT
  55. DATA: i_lwidth TYPE i VALUE 185,  "横线宽
  56.       i_col1 TYPE i VALUE 35,                               "列1宽
  57.       i_col2 TYPE i VALUE 4,                                "列2宽
  58.       i_col3 TYPE i VALUE 20,                               "列3宽
  59.       i_col4 TYPE i VALUE 20.                               "列4宽
  60. DATA: dynpread LIKE TABLE OF dynpread WITH HEADER LINE.
  61. DATA: dcurr LIKE TABLE OF bapi1093_0 WITH HEADER LINE.
  62. TYPE-POOLS: slis.
  63. DATA: fieldcat TYPE slis_t_fieldcat_ALV WITH HEADER LINE,
  64.       fld_head TYPE slis_listheader,
  65.       sortcat  TYPE slis_t_sortinfo_alv,
  66.       sortcatln   LIKE   LINE OF sortcat,
  67.       itab_listhead TYPE slis_t_listheader,
  68.       layout TYPE  slis_layout_alv,
  69.       v_repid LIKE sy-repid,
  70.       rt_extab TYPE slis_t_extab,
  71.       eventcat     TYPE   slis_t_event.


  74. DATA: tmpdate LIKE sy-datum,
  75.       prtdate LIKE sy-datum,
  76.       tempcurr LIKE bapi1093_1-from_curr,
  77.       exch_rate(10) TYPE c,
  78.       txunit(10) TYPE c,
  79.       errorflag  TYPE c,
  80.       txcurr(16) TYPE c.

  82. *&---------------------------------------------------------------------*
  83. *& selection-screen
  84. *&---------------------------------------------------------------------*
  85. SELECT-OPTIONS:
  86.   s_rbukrs FOR bkpf-bukrs OBLIGATORY .     "公司代码
  87. PARAMETERS:
  88.   i_gjahr LIKE bkpf-gjahr DEFAULT sy-datum+0(4) OBLIGATORY,  "财务年度
  89.   i_monat LIKE bkpf-monat OBLIGATORY,      "期间
  90. *  waers   like bkpf-waers OBLIGATORY.      "货币代码
  91.   p_butxt(40) TYPE c.

  93. SELECTION-SCREEN BEGIN OF BLOCK b02 WITH FRAME TITLE tit.  "选择屏幕

  95. PARAMETERS:                                                 "单选按钮
  96.    p_1  RADIOBUTTON GROUP g1 DEFAULT 'X',
  97.    p_2  RADIOBUTTON GROUP g1,
  98.    p_3  RADIOBUTTON GROUP g1.

  100. SELECTION-SCREEN END OF BLOCK b02.                          "选择屏幕结束

  102. SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE text-001.
  103. PARAMETERS:                                                 "单选按钮
  104.    m_1  RADIOBUTTON GROUP g2 DEFAULT 'X',
  105.    m_2  RADIOBUTTON GROUP g2,
  106.    waers   LIKE bkpf-waers ,      "货币代码
  107.    p_flag AS CHECKBOX.
  108. SELECTION-SCREEN END OF BLOCK b01.



  112. *&---------------------------------------------------------------------*
  113. *& initialization
  114. *&---------------------------------------------------------------------*
  115. INITIALIZATION.
  116.   tit = '金额单位'.
  117. *&---------------------------------------------------------------------*
  118. *& AT SELECTION-SCREEN OUTPUT
  119. *&---------------------------------------------------------------------*
  120. *AT SELECTION-SCREEN OUTPUT.
  121. *  perform read_screen.
  122. *  LOOP AT SCREEN.
  123. *    IF m_2 = 'X' AND ( screen-name = 'WAERS' or screen-name = 'P_FLAG'
  124. *       or screen-name = '%_WAERS_%_APP_%-TEXT').
  125. *      screen-active = 1.
  126. *      if screen-name = 'WAERS'.
  127. *        screen-request  = 1.
  128. *        screen-required = 1.
  129. *      endif.
  130. *      MODIFY SCREEN.
  131. *    ENDIF.
  132. *    IF m_2 = '' AND ( screen-name = 'WAERS' or screen-name = 'P_FLAG'
  133. *       or screen-name = '%_WAERS_%_APP_%-TEXT').
  134. *      screen-active = 0.
  135. *      if screen-name = 'WAERS'.
  136. *        screen-request  = 0.
  137. *        screen-required = 0.
  138. *      endif.
  139. *      MODIFY SCREEN.
  140. *    ENDIF.
  141. *  ENDLOOP.


  144. *&---------------------------------------------------------------------*
  145. *& at selection-screen
  146. *&---------------------------------------------------------------------*
  147. AT SELECTION-SCREEN.
  148.   PERFORM check.
  149. *-->调试程序时 可以先把这里的权限代码注释掉在运行
  150.   SELECT * FROM t001 WHERE bukrs IN s_rbukrs .
  151.     errorflag = ''.
  152.     AUTHORITY-CHECK OBJECT 'ZFIRPT'                          "权限判断
  153.              ID 'BUKRS' FIELD t001-bukrs.
  154.     IF sy-subrc = 0.
  155.       errorflag = 'f'.
  156.     ENDIF.
  157.     AUTHORITY-CHECK OBJECT 'ZPARK'                          "权限判断
  158.              ID 'BUKRS' FIELD t001-bukrs.
  159.     IF sy-subrc = 0.
  160.       errorflag = 'f'.
  161.     ENDIF.
  162.     IF errorflag = ''.
  163.       MESSAGE e999(z01) WITH '没有在公司代码' t001-bukrs '操作的权限！'.
  164.     ENDIF.
  165.   ENDSELECT.

  167.   IF i_monat < 1 OR i_monat > 16."对期间值必须在1-16之间
  168.     MESSAGE e004.
  169.   ENDIF.


  172. *&---------------------------------------------------------------------*
  173. *& start-of-selection
  174. *&---------------------------------------------------------------------*
  175. START-OF-SELECTION.
  176.   CONCATENATE i_gjahr i_monat '01' INTO tmpdate.        "组合年份
  177.   CALL FUNCTION 'LAST_DAY_OF_MONTHS'
  178.     EXPORTING
  179.       day_in            = tmpdate                  "根据传入的参数，输出一个月的最后一天
  180.     IMPORTING
  181.       last_day_of_month = prtdate
  182.     EXCEPTIONS
  183.       day_in_no_date    = 1
  184.       OTHERS            = 2.
  185. * 获得当前汇率
  186.   tempcurr = waers.
  187.   CALL FUNCTION 'BAPI_EXCHANGERATE_GETDETAIL'
  188.     EXPORTING
  189.       rate_type  = 'M'
  190.       from_curr  = tempcurr
  191.       to_currncy = 'CNY'
  192.       date       = tmpdate
  193.     IMPORTING
  194.       exch_rate  = dcurr
  195. *     RETURN     =
  196.     .

  198.   READ TABLE dcurr INDEX 1.
  199.   exch_rate = dcurr-exch_rate.

  201.   IF p_1 = 'X'.                  "根据单选框的值给变量值
  202.     txunit = '元'.
  203.   ENDIF.
  204.   IF p_2 = 'X'.
  205.     txunit(*) = '千元'.
  206.   ENDIF.
  207.   IF p_3 = 'X'.
  208.     txunit = '万元'.
  209.   ENDIF.

  211. *  if p_flag = 'X' and i_monat = '12'.  "判断复选框
  212. *    i_monat = '16'.
  213. *  endif.

  215.   SELECT SINGLE ktext INTO txcurr       "根据货币单位的值返回货币名称
  216.     FROM tcurt
  217.    WHERE waers = waers.

  219.   IF m_1 = 'X'.
  220.     txcurr = '人民币(汇总)'.
  221.   ELSE.
  222.     IF p_flag = 'X'.
  223.       CONCATENATE txcurr '折人民币' INTO txcurr.
  224.     ENDIF.
  225.   ENDIF.

  227. * 取公司名称
  228.   IF s_rbukrs-high IS INITIAL OR s_rbukrs-low = s_rbukrs-high.      "判断是否为空
  229.     SELECT SINGLE butxt INTO s_butxt FROM t001 WHERE bukrs = s_rbukrs-low.
  230.   ELSE.
  231.     IF p_butxt IS NOT INITIAL.
  232.       s_butxt = p_butxt.
  233.     ELSE.
  234.       CONCATENATE '从' s_rbukrs-low '到' s_rbukrs-high INTO s_butxt.
  235.     ENDIF.
  236.   ENDIF.
  237.   IF s_rbukrs-low(2) = s_rbukrs-high(2) AND s_rbukrs-low <> s_rbukrs-high.
  238.     CLEAR s_butxt.
  239.     SELECT SINGLE butxt INTO s_butxt FROM t001 WHERE bukrs = s_rbukrs-low.
  240.     CONCATENATE s_butxt '(汇总)' INTO s_butxt.
  241.   ENDIF.


  244.   DATA curr LIKE TABLE OF tcurr WITH HEADER LINE.
  245.   SELECT * INTO CORRESPONDING FIELDS OF TABLE curr FROM tcurr
  246.     WHERE kurst = 'M'
  247.       AND fcurr = waers
  248.       AND tcurr = 'CNY'.


  251.   DATA: f_tols1 LIKE faglflext-hslvt,"资产期初总计
  252.         f_tole1 LIKE faglflext-hslvt,"资产期末总计
  253.         f_tols2 LIKE faglflext-hslvt,"负债期初总计
  254.         f_tole2 LIKE faglflext-hslvt,"负债期末总计
  255.         f_sums1 LIKE faglflext-hslvt,"资产期初小计
  256.         f_sume1 LIKE faglflext-hslvt,"资产期末小计
  257.         f_sums2 LIKE faglflext-hslvt,"负债期初小计
  258.         f_sume2 LIKE faglflext-hslvt,"负债期末小计
  259.         f_rlts1 LIKE faglflext-hslvt,
  260.         f_rlte1 LIKE faglflext-hslvt,
  261. *        zx_s LIKE FAGLFLEXT-hslvt,
  262. *        zx_e LIKE FAGLFLEXT-hslvt,
  263.         f_rlts2 LIKE faglflext-hslvt,
  264.         f_rlte2 LIKE faglflext-hslvt.

  266.   DATA: f_smny1 LIKE faglflext-hslvt,
  267.         f_emny1 LIKE faglflext-hslvt.

  269. **数据计算

  271.   PERFORM add_row USING '流动资产:' '' ''
  272.                         '流动负债:' '' ''
  273.                         i_monat s_rbukrs i_gjahr 1 1.

  275.   PERFORM add_row USING '  现金'       '1001' '1'
  276.                         '  短期借款'   '2101' '46'
  277.                         i_monat s_rbukrs i_gjahr 1 1.   "期间---公司代码---年份
  278.   f_sums2 = tb_result-start2.                  "初始值
  279.   f_sume2 = tb_result-end2.                    "初始值
  280.   f_tols1 = tb_result-start1.                  "初始值
  281.   f_tole1 = tb_result-end1.                    "初始值

  283.   PERFORM add_row USING '  银行存款'   '1002' '2'
  284.                         '  拆入资金'   '2102' '47'
  285.                         i_monat s_rbukrs i_gjahr 1 1.
  286.   f_sums2 = f_sums2 + tb_result-start2.
  287.   f_sume2 = f_sume2 + tb_result-end2.
  288.   f_tols1 = f_tols1 + tb_result-start1.
  289.   f_tole1 = f_tole1 + tb_result-end1.

  291.   PERFORM add_row USING '  其他货币'   '1009010000' '2'
  292.                         '  应付利息'   '2110' '80'
  293.                         i_monat s_rbukrs i_gjahr 1 1.
  294.   f_sums2 = f_sums2 + tb_result-start2.
  295.   f_sume2 = f_sume2 + tb_result-end2.
  296.   f_tols1 = f_tols1 + tb_result-start1.
  297.   f_tole1 = f_tole1 + tb_result-end1.


  300.   PERFORM add_row USING '  短期投资'   '1101' '3'
  301.                         '  应付手续费' '2111' '48'
  302.                         i_monat s_rbukrs i_gjahr 1 1.
  303.   f_sums2 = f_sums2 + tb_result-start2.
  304.   f_sume2 = f_sume2 + tb_result-end2.
  305.   f_tols1 = f_tols1 + tb_result-start1.
  306.   f_tole1 = f_tole1 + tb_result-end1.
  307. *********************************************************************************************************
  308.   PERFORM add_row USING '  短期投资跌价准备'   '1102' '4'
  309.                         '  待返售债券' '2109' '48'
  310.                         i_monat s_rbukrs i_gjahr 1 1.
  311.   f_sums2 = f_sums2 + tb_result-start2.
  312.   f_sume2 = f_sume2 + tb_result-end2.
  313.   f_tols1 = f_tols1 + tb_result-start1.
  314.   f_tole1 = f_tole1 + tb_result-end1.

  316.   PERFORM add_row USING '  待回购债券'   '1009100100' '4'
  317.                         '  应付佣金' '2112' '49'
  318.                         i_monat s_rbukrs i_gjahr 1 1.
  319.   f_sums2 = f_sums2 + tb_result-start2.
  320.   f_sume2 = f_sume2 + tb_result-end2.
  321.   f_tols1 = f_tols1 + tb_result-start1.
  322.   f_tole1 = f_tole1 + tb_result-end1.


  325.   PERFORM add_row USING '  拆出资金'           '1111' '5'
  326.                         '  应付分保帐款 '       '2113' '50'
  327.                         i_monat s_rbukrs i_gjahr 1 1.
  328.   f_sums2 = f_sums2 + tb_result-start2.
  329.   f_sume2 = f_sume2 + tb_result-end2.
  330.   f_tols1 = f_tols1 + tb_result-start1.
  331.   f_tole1 = f_tole1 + tb_result-end1.

  333.   PERFORM add_row USING '  保单质押贷款'           '1112' '5'
  334.                         '  预收保费'       '2121' '51'
  335.                         i_monat s_rbukrs i_gjahr 1 1.
  336.   f_sums2 = f_sums2 + tb_result-start2.
  337.   f_sume2 = f_sume2 + tb_result-end2.
  338.   f_tols1 = f_tols1 + tb_result-start1.
  339.   f_tole1 = f_tole1 + tb_result-end1.

  341. *------------------------------应收款项开始------------------------------------

  343.   PERFORM add_row USING '  应收利息'           '1121' '6'
  344.                         '  预收分保赔款'       '2122' '52'
  345.                         i_monat s_rbukrs i_gjahr 1 1.
  346.   f_sums1 = tb_result-start1.                 "应收款小计
  347.   f_sume1 = tb_result-end1.                   "应收款小计
  348.   f_sums2 = f_sums2 + tb_result-start2.
  349.   f_sume2 = f_sume2 + tb_result-end2.
  350.   f_tols1 = f_tols1 + tb_result-start1.
  351.   f_tole1 = f_tole1 + tb_result-end1.

  353.   PERFORM add_row USING '  应收红利'    '1125' '6'
  354.                         '  存入分保准备金'     '2131' '53'
  355.                         i_monat s_rbukrs i_gjahr 1 1.
  356.   f_sums1 = f_sums1 + tb_result-start1.               "应收款小计
  357.   f_sume1 = f_sume1 + tb_result-end1.                 "应收款小计
  358.   f_sums2 = f_sums2 + tb_result-start2.
  359.   f_sume2 = f_sume2 + tb_result-end2.
  360.   f_tols1 = f_tols1 + tb_result-start1.
  361.   f_tole1 = f_tole1 + tb_result-end1.

  363.   PERFORM add_row USING '  应收保费'           '1122' '7'
  364.                         '  存入保证金'     '2132' '54'
  365.                         i_monat s_rbukrs i_gjahr 1 1.
  366.   f_sums1 = f_sums1 + tb_result-start1.                "应收款小计
  367.   f_sume1 = f_sume1 + tb_result-end1.                  "应收款小计
  368.   f_sums2 = f_sums2 + tb_result-start2.
  369.   f_sume2 = f_sume2 + tb_result-end2.
  370.   f_tols1 = f_tols1 + tb_result-start1.
  371.   f_tole1 = f_tole1 + tb_result-end1.

  373.   PERFORM add_row USING '  应收分保账款'   '1123' '8'
  374.                         '  应付工资'         '2141' '55'
  375.                         i_monat s_rbukrs i_gjahr 1 1.
  376.   f_sums1 = f_sums1 + tb_result-start1. "应收款项小计 - 减：坏帐准备
  377.   f_sume1 = f_sume1 + tb_result-end1.   "应收款项小计 - 减：坏帐准备
  378.   f_sums2 = f_sums2 + tb_result-start2.
  379.   f_sume2 = f_sume2 + tb_result-end2.
  380.   f_tols1 = f_tols1 + tb_result-start1.
  381.   f_tole1 = f_tole1 + tb_result-end1.

  383.   PERFORM add_row USING '  应收款项小计'       '' '9'
  384.                         '  应付福利费' '2142' '56'
  385.                         i_monat s_rbukrs i_gjahr 2 1.
  386.   f_sums2 = f_sums2 + tb_result-start2.
  387.   f_sume2 = f_sume2 + tb_result-end2.

  389.   PERFORM add_row USING '      减：坏帐准备'  '1124'  '11'
  390.                         '  应付保户红利'  '2143' '57'
  391.                         i_monat s_rbukrs i_gjahr 1 1.
  392.   f_sums1 = f_sums1 - tb_result-start1. "应收款项小计 - 减：坏帐准备
  393.   f_sume1 = f_sume1 - tb_result-end1.   "应收款项小计 - 减：坏帐准备
  394.   f_sums2 = f_sums2 + tb_result-start2.
  395.   f_sume2 = f_sume2 + tb_result-end2.
  396.   f_tols1 = f_tols1 - tb_result-start1.
  397.   f_tole1 = f_tole1 - tb_result-end1.

  399.   PERFORM add_row USING '  应收款项净额'  '' '12'
  400.                         '  应付利润'  '2145' '58'
  401.                         i_monat s_rbukrs i_gjahr 2 1.
  402.   f_sums2 = f_sums2 + tb_result-start2.
  403.   f_sume2 = f_sume2 + tb_result-end2.

  405. *------------------------------应收款项结束-----------------------------

  407.   PERFORM add_row USING '  预付赔款' '1131' '13'
  408.                         '  应交税金' '2146' '59'
  409.                         i_monat s_rbukrs i_gjahr 1 1.
  410.   f_sums2 = f_sums2 + tb_result-start2.
  411.   f_sume2 = f_sume2 + tb_result-end2.
  412.   f_tols1 = f_tols1 + tb_result-start1.
  413.   f_tole1 = f_tole1 + tb_result-end1.

  415.   PERFORM add_row USING '  存出分保准备金' '1141' '14'
  416.                         '  卖出回购证券款'   '2147' '60'
  417.                         i_monat s_rbukrs i_gjahr 1 1.
  418.   f_sums2 = f_sums2 + tb_result-start2.
  419.   f_sume2 = f_sume2 + tb_result-end2.
  420.   f_tols1 = f_tols1 + tb_result-start1.
  421.   f_tole1 = f_tole1 + tb_result-end1.

  423.   PERFORM add_row USING '  存出保证金' '1142' '15'
  424.                         '  其他应付款'   '2149' '61'
  425.                         i_monat s_rbukrs i_gjahr 1 1.
  426.   f_sums2 = f_sums2 + tb_result-start2.
  427.   f_sume2 = f_sume2 + tb_result-end2.
  428.   f_tols1 = f_tols1 + tb_result-start1.
  429.   f_tole1 = f_tole1 + tb_result-end1.

  431.   PERFORM add_row USING '  买入返售证券' '1151' '16'
  432.                         '  预提费用'   '2151' '62'
  433.                         i_monat s_rbukrs i_gjahr 1 1.
  434.   f_sums2 = f_sums2 + tb_result-start2.
  435.   f_sume2 = f_sume2 + tb_result-end2.
  436.   f_tols1 = f_tols1 + tb_result-start1.
  437.   f_tole1 = f_tole1 + tb_result-end1.

  439.   PERFORM add_row USING '  其他应收款'         '1191' '17'
  440.                         '  未决赔款准备金'   '2161' '63'
  441.                         i_monat s_rbukrs i_gjahr 1 1.
  442.   f_sums2 = f_sums2 + tb_result-start2.
  443.   f_sume2 = f_sume2 + tb_result-end2.
  444.   f_tols1 = f_tols1 + tb_result-start1.
  445.   f_tole1 = f_tole1 + tb_result-end1.

  447.   PERFORM add_row USING '  系统往来'         '1199' '66'
  448.                         '  未到期责任准备金'   '2162' '64'
  449.                         i_monat s_rbukrs i_gjahr 1 1.
  450.   f_sums2 = f_sums2 + tb_result-start2.
  451.   f_sume2 = f_sume2 + tb_result-end2.
  452.   f_tols1 = f_tols1 + tb_result-start1.
  453.   f_tole1 = f_tole1 + tb_result-end1.

  455.   PERFORM add_row USING '  委托资产'     '1198' '66'
  456.                         '  保户储金 '   '2171' '65'
  457.                         i_monat s_rbukrs i_gjahr 1 1.
  458.   f_sums2 = f_sums2 + tb_result-start2.
  459.   f_sume2 = f_sume2 + tb_result-end2.
  460.   f_tols1 = f_tols1 + tb_result-start1.
  461.   f_tole1 = f_tole1 + tb_result-end1.

  463.   PERFORM add_row USING '  物料用品'   '1201' '18'
  464.                         '  其他流动负债'   '' '67'
  465.                         i_monat s_rbukrs i_gjahr 1 1.
  466.   f_tols1 = f_tols1 + tb_result-start1.
  467.   f_tole1 = f_tole1 + tb_result-end1.

  469.   PERFORM add_row USING '  低值易耗品'   '1211' '19'
  470.                         '  流动负债合计'   '' '68'
  471.                         i_monat s_rbukrs i_gjahr 3 1.
  472.   f_tols1 = f_tols1 + tb_result-start1.
  473.   f_tole1 = f_tole1 + tb_result-end1.
  474.   f_tols2 = f_sums2.
  475.   f_tole2 = f_sume2.
  476.   f_rlts2 = f_sums2. "流动负债合计临时结果，用于后面计算
  477.   f_rlte2 = f_sume2. "

  479.   PERFORM add_row USING '  待摊费用'   '1301' '20'
  480.                         '   '   '' ''
  481.                         i_monat s_rbukrs i_gjahr 1 1.
  482. *  f_sums2 = f_sums2 + tb_result-start2.
  483. *  f_sume2 = f_sume2 + tb_result-end2.
  484.   f_tols1 = f_tols1 + tb_result-start1.
  485.   f_tole1 = f_tole1 + tb_result-end1.

  487.   PERFORM add_row USING '  待处理流动资产净损失'   '190101' '21'
  488.                         '长期负债: '   '' '69'
  489.                         i_monat s_rbukrs i_gjahr 1 1.
  490.   f_tols1 = f_tols1 + tb_result-start1.
  491.   f_tole1 = f_tole1 + tb_result-end1.


  494.   PERFORM add_row USING '  一年内到期的长期债券投资'   '' '22'
  495.                         '  长期责任准备金'   '' '70'
  496.                         i_monat s_rbukrs i_gjahr 1 1.


  499.   PERFORM add_row USING '  其他流动资产'   '' '23'
  500.                         '  寿险责任准备金   '   '2202' '71'
  501.                         i_monat s_rbukrs i_gjahr 1 1.
  502.   f_sums2 = tb_result-start2.
  503.   f_sume2 = tb_result-end2.

  505.   f_sums1 = f_tols1.
  506.   f_sume1 = f_tole1.

  508.   PERFORM add_row USING '       流动资产合计'   '' '24'
  509.                         '  长期健康险责任准备金 '   '2203' '72'
  510.                         i_monat s_rbukrs i_gjahr 2 1.
  511.   f_sums2 = f_sums2 + tb_result-start2.
  512.   f_sume2 = f_sume2 + tb_result-end2.

  514. *-----------------------------------流动资产--------------------

  516.   PERFORM add_row USING '长期投资：'   '' '25'
  517.                         '  '   '' ''
  518.                         i_monat s_rbukrs i_gjahr 1 1.

  520.   PERFORM add_row USING '  长期股权投资'   '1401' '26'
  521.                         '  保险保障基金'   '2211' '73'
  522.                         i_monat s_rbukrs i_gjahr 1 1.
  523.   f_sums1 = tb_result-start1.
  524.   f_sume1 = tb_result-end1.
  525.   f_tols1 = f_tols1 + tb_result-start1.
  526.   f_tole1 = f_tole1 + tb_result-end1.
  527.   f_sums2 = f_sums2 + tb_result-start2.
  528.   f_sume2 = f_sume2 + tb_result-end2.


  531.   PERFORM add_row USING '  长期债权投资'   '1402' '27'
  532.                         '  长期借款'   '' '74'
  533.                         i_monat s_rbukrs i_gjahr 1 1.
  534.   f_sums1 = f_sums1 + tb_result-start1.
  535.   f_sume1 = f_sume1 + tb_result-end1.
  536.   f_tols1 = f_tols1 + tb_result-start1.
  537.   f_tole1 = f_tole1 + tb_result-end1.

  539.   PERFORM add_row USING '  长期基金投资'   '1403' '35'
  540.                         '  长期应付款'   '' '75'
  541.                         i_monat s_rbukrs i_gjahr 1 1.
  542.   f_sums1 = f_sums1 + tb_result-start1.
  543.   f_sume1 = f_sume1 + tb_result-end1.
  544.   f_tols1 = f_tols1 + tb_result-start1.
  545.   f_tole1 = f_tole1 + tb_result-end1.

  547.   PERFORM add_row USING '  拨付所属资金'   '' ''
  548.                         '  贷币兑换' '2241' ''
  549.                         i_monat s_rbukrs i_gjahr 1 1.
  550.   f_sums2 = f_sums2 + tb_result-start2.
  551.   f_sume2 = f_sume2 + tb_result-end2.

  553.   PERFORM add_row USING '  减：投资风险准备'   '1405' '28'
  554.                         '  住房周转金'   '' '76'
  555.                         i_monat s_rbukrs i_gjahr 1 1.
  556.   f_sums1 = f_sums1 - tb_result-start1.
  557.   f_sume1 = f_sume1 - tb_result-end1.
  558.   f_tols1 = f_tols1 - tb_result-start1.
  559.   f_tole1 = f_tole1 - tb_result-end1.


  562.   PERFORM add_row USING '  长期投资合计'   '' ''
  563.                         '  其他长期负债'   '' '77'
  564.                         i_monat s_rbukrs i_gjahr 2 3.


  567.   PERFORM add_row USING '固定资产：'   '' ''
  568.                         '  独立帐户负债' '' '78'
  569.                         i_monat s_rbukrs i_gjahr 1 3.


  572.   PERFORM add_row USING '  固定资产原值'   '1601' '30'
  573.                         '  独立帐户未实现利得' '' '79'
  574.                         i_monat s_rbukrs i_gjahr 1 1.
  575.   f_sums1 = tb_result-start1.
  576.   f_sume1 = tb_result-end1.
  577.   f_tols1 = f_tols1 + tb_result-start1.
  578.   f_tole1 = f_tole1 + tb_result-end1.



  582.   PERFORM add_row USING '    减：累计折旧'   '1602' '31'
  583.                         '  长期负债合计' '' '80'
  584.                         i_monat s_rbukrs i_gjahr 3 2.
  585.   f_sums1 = f_sums1 - tb_result-start1.
  586.   f_sume1 = f_sume1 - tb_result-end1.
  587.   f_tols1 = f_tols1 - tb_result-start1.
  588.   f_tole1 = f_tole1 - tb_result-end1.
  589.   f_tols2 = f_tols2 + f_sums2.
  590.   f_tole2 = f_tole2 + f_sume2.
  591.   f_sums2 = f_sums2 + f_rlts2.  "长期负债合计 + 流动负债合计
  592.   f_sume2 = f_sume2 + f_rlte2.


  595.   PERFORM add_row USING '    减：固定资产减值准备'   '1603' ''
  596.                         ' 负债合计 ' '' '81'
  597.                         i_monat s_rbukrs i_gjahr 3 1.
  598.   f_sums1 = f_sums1 - tb_result-start1.
  599.   f_sume1 = f_sume1 - tb_result-end1.
  600.   f_tols1 = f_tols1 - tb_result-start1.
  601.   f_tole1 = f_tole1 - tb_result-end1.
  602. *  f_tols2 = f_tols2 + tb_result-start2.
  603. *  f_tole2 = f_tole2 + tb_result-end2.


  606.   PERFORM add_row USING '  固定资产净值'   '' '32'
  607.                         '所有者权益:' '' '82'
  608.                         i_monat s_rbukrs i_gjahr 2 3.


  611.   PERFORM add_row USING ' 在建工程'   '1606' '33'
  612.                         '  实收资本' '3101' '83'
  613.                         i_monat s_rbukrs i_gjahr 1 1.
  614.   f_sums1 = f_sums1 + tb_result-start1.
  615.   f_sume1 = f_sume1 + tb_result-end1.
  616.   f_tols1 = f_tols1 + tb_result-start1.
  617.   f_tole1 = f_tole1 + tb_result-end1.
  618.   f_sums2 = tb_result-start2.
  619.   f_sume2 = tb_result-end2.


  622.   PERFORM add_row USING '  减: 在建工程减值准备 '   '1607' ''
  623.                         '  上级拨入资金' '' ''
  624.                         i_monat s_rbukrs i_gjahr 1 1.
  625.   f_sums1 = f_sums1 - tb_result-start1.
  626.   f_sume1 = f_sume1 - tb_result-end1.
  627.   f_tols1 = f_tols1 - tb_result-start1.
  628.   f_tole1 = f_tole1 - tb_result-end1.

  630.   PERFORM add_row USING ' 固定资产清理'   '1609' '34'
  631.                         '  资本公积' '3111' '84'
  632.                         i_monat s_rbukrs i_gjahr 1 1.
  633.   f_sums1 = f_sums1 + tb_result-start1.
  634.   f_sume1 = f_sume1 + tb_result-end1.
  635.   f_tols1 = f_tols1 + tb_result-start1.
  636.   f_tole1 = f_tole1 + tb_result-end1.
  637.   f_sums2 = f_sums2 + tb_result-start2.
  638.   f_sume2 = f_sume2 + tb_result-end2.


  641.   PERFORM add_row USING ' 待处理固定资产净损失'   '190102' '35'
  642.                         '  盈余公积' '3121' '85'
  643.                         i_monat s_rbukrs i_gjahr 1 1.
  644.   f_sums1 = f_sums1 + tb_result-start1.
  645.   f_sume1 = f_sume1 + tb_result-end1.
  646.   f_tols1 = f_tols1 + tb_result-start1.
  647.   f_tole1 = f_tole1 + tb_result-end1.
  648.   f_sums2 = f_sums2 + tb_result-start2.
  649.   f_sume2 = f_sume2 + tb_result-end2.


  652.   PERFORM add_row USING '      固定资产合计'   '' '36'
  653.                         '  其中: 公益金' '3121030000' '86'
  654.                         i_monat s_rbukrs i_gjahr 2 1.
  655. *  f_sums2 = f_sums2 + tb_result-start2.
  656. *  f_sume2 = f_sume2 + tb_result-end2.


  659.   PERFORM add_row USING '无形资产及其他资产：'   '' '37'
  660.                        '   总准备金' '3131' '87'
  661.                         i_monat s_rbukrs i_gjahr 1 1.
  662.   f_sums2 = f_sums2 + tb_result-start2.
  663.   f_sume2 = f_sume2 + tb_result-end2.

  665.   PERFORM add_row USING '  无形资产'   '1701' '38'
  666.                         '  未分配利润' '3141' '88'
  667.                         i_monat s_rbukrs i_gjahr 1 1.
  668.   f_sums1 = tb_result-start1.
  669.   f_sume1 = tb_result-end1.
  670.   f_tols1 = f_tols1 + tb_result-start1.
  671.   f_tole1 = f_tole1 + tb_result-end1.
  672.   f_sums2 = f_sums2 + tb_result-start2.
  673.   f_sume2 = f_sume2 + tb_result-end2.

  675.   PERFORM add_row USING '  长期待摊费用'   '1711' '39'
  676.                         '   以前年度损益科目' '4801' '88'
  677.                         i_monat s_rbukrs i_gjahr 1 1.
  678.   f_sums1 = f_sums1 + tb_result-start1.
  679.   f_sume1 = f_sume1 + tb_result-end1.
  680.   f_tols1 = f_tols1 + tb_result-start1.
  681.   f_tole1 = f_tole1 + tb_result-end1.
  682.   f_sums2 = f_sums2 + tb_result-start2.
  683.   f_sume2 = f_sume2 + tb_result-end2.

  685.   PERFORM add_row USING '  存出资本保证金'   '1801' '40'
  686.                         '  外币折算差异' '5999' '89'
  687.                         i_monat s_rbukrs i_gjahr 1 1.
  688.   f_sums1 = f_sums1 + tb_result-start1.
  689.   f_sume1 = f_sume1 + tb_result-end1.
  690.   f_tols1 = f_tols1 + tb_result-start1.
  691.   f_tole1 = f_tole1 + tb_result-end1.
  692.   f_sums2 = f_sums2 + tb_result-start2.
  693.   f_sume2 = f_sume2 + tb_result-end2.

  695.   PERFORM add_row USING '  抵债物资'   '' '41'
  696.                         '  所有者权益合计' '' '90'
  697.                         i_monat s_rbukrs i_gjahr 3 1.
  698.   f_sums1 = f_sums1 + tb_result-start1.
  699.   f_sume1 = f_sume1 + tb_result-end1.
  700.   f_sums2 = f_tols2 + f_sums2.
  701.   f_sume2 = f_tole2 + f_sume2.

  703.   PERFORM add_row USING '   其他长期资产'   '' '42'
  704.                         '负债及所有者权益合计' '' '91'
  705.                         i_monat s_rbukrs i_gjahr 3 1.
  706.   f_sums1 = f_sums1 + tb_result-start1.
  707.   f_sume1 = f_sume1 + tb_result-end1.



  711.   PERFORM add_row USING '  独立账户资产'   '' '43'
  712.                         '' '' ''
  713.                         i_monat s_rbukrs i_gjahr 1 1.
  714.   f_sums1 = f_sums1 + tb_result-start1.
  715.   f_sume1 = f_sume1 + tb_result-end1.



  719.   PERFORM add_row USING '  递延税款'   '1831' '43'
  720.                         '  ' '' ''
  721.                         i_monat s_rbukrs i_gjahr 1 1.
  722.   f_tols1 = f_tols1 + tb_result-start1.
  723.   f_tole1 = f_tole1 + tb_result-end1.

  725.   PERFORM add_row USING '  无形资产及其他资产合计'   '' '44'
  726.                         ' ' '' ''
  727.                         i_monat s_rbukrs i_gjahr 2 1.

  729.   f_sums1 = f_tols1.
  730.   f_sume1 = f_tole1.

  732.   PERFORM add_row USING '      资产总计'   '' '45'
  733.                         '' '' ''
  734.                         i_monat s_rbukrs i_gjahr 2 1.




  739. ***千元
  740.   IF p_2 = 'X'.                               "进行单位的换算
  741.     LOOP AT tb_result.
  742.       IF tb_result-start1 <> 0.
  743.         tb_result-start1 = tb_result-start1 / 1000.
  744.       ENDIF.
  745.       IF tb_result-end1 <> 0.
  746.         tb_result-end1 = tb_result-end1 / 1000.
  747.       ENDIF.
  748.       IF tb_result-start2 <> 0.
  749.         tb_result-start2 = tb_result-start2 / 1000.
  750.       ENDIF.
  751.       IF tb_result-end2 <> 0.
  752.         tb_result-end2 = tb_result-end2 / 1000.
  753.       ENDIF.
  754.       MODIFY tb_result.
  755.     ENDLOOP.
  756.   ENDIF.
  757. ***万元
  758.   IF p_3 = 'X'.                              "进行单位的换算
  759.     LOOP AT tb_result.
  760.       IF tb_result-start1 <> 0.
  761.         tb_result-start1 = tb_result-start1 / 10000.
  762.       ENDIF.
  763.       IF tb_result-end1 <> 0.
  764.         tb_result-end1 = tb_result-end1 / 10000.
  765.       ENDIF.
  766.       IF tb_result-start2 <> 0.
  767.         tb_result-start2 = tb_result-start2 / 10000.
  768.       ENDIF.
  769.       IF tb_result-end2 <> 0.
  770.         tb_result-end2 = tb_result-end2 / 10000.
  771.       ENDIF.
  772.       MODIFY tb_result.
  773.     ENDLOOP.
  774.   ENDIF.
  775. *&---------------------------------------------------------------------*
  776. *& end-of-selection
  777. *&---------------------------------------------------------------------*
  778. END-OF-SELECTION.

  780.   LOOP AT tb_result.
  781.     CLEAR prt_result.
  782.     MOVE-CORRESPONDING tb_result TO prt_result.
  783.     PERFORM num2char USING tb_result-start1 CHANGING prt_result-start1.
  784.     PERFORM num2char USING tb_result-start2 CHANGING prt_result-start2.
  785.     PERFORM num2char USING tb_result-end1 CHANGING prt_result-end1.
  786.     PERFORM num2char USING tb_result-end2 CHANGING prt_result-end2.
  787. *    perform num2char using prt_result-start1 changing prt_result-start1.
  788. *    perform num2char using prt_result-start2 changing prt_result-start2.
  789. *    perform num2char using prt_result-end1 changing prt_result-end1.
  790. *    perform num2char using prt_result-end2 changing prt_result-end2.
  791.     APPEND prt_result.
  792.   ENDLOOP.
  793.   PERFORM init_fieldcat USING ''.
  794.   PERFORM init_layout.
  795.   PERFORM event_build.
  796.   PERFORM listdata.


  799. ***************************************************************
  800. *  CACUMONEY
  801. *  查询字段 racct   代表的科目名称
  802. *  子查询语句 saknr 代表的是科目的编号
  803. ***************************************************************
  804. FORM cacumoney USING     s_km     i_monat  c_rbukrs  c_gjahr
  805.                CHANGING  f_smny   f_money.
  806.   DATA s_km1(11) TYPE c.
  807.   DATA faglflext LIKE TABLE OF faglflext WITH HEADER LINE.
  808.   CONCATENATE s_km '%' INTO s_km1.
  809.   f_smny = 0. f_money = 0.
  810.   IF m_1 = 'X'.
  811.     SELECT * INTO CORRESPONDING FIELDS OF TABLE faglflext FROM faglflext
  812.       WHERE rldnr = '0L'
  813.         AND rrcty = '0'
  814.         AND rbukrs IN  s_rbukrs
  815.         AND ryear = c_gjahr
  816.         AND racct LIKE s_km1
  817.         AND rpmax = 16
  818.         AND racct IN ( SELECT saknr FROM ska1 WHERE ktopl = 'PICL' ).
  819.   ELSE.
  820.     SELECT * INTO CORRESPONDING FIELDS OF TABLE faglflext FROM faglflext
  821.       WHERE rldnr = '0L'
  822.         AND rrcty = '0'
  823.         AND rtcur = waers
  824.         AND rbukrs IN  s_rbukrs
  825.         AND ryear = c_gjahr
  826.         AND racct LIKE s_km1
  827.         AND rpmax = 16
  828.         AND racct IN ( SELECT saknr FROM ska1 WHERE ktopl = 'PICL' ).
  829.   ENDIF.

  831.   IF s_km = '3141'.
  832.     CLEAR faglflext[].
  833.     IF m_1 = 'X'.
  834.       SELECT * INTO CORRESPONDING FIELDS OF TABLE faglflext FROM faglflext
  835.         WHERE rldnr = '0L'
  836.           AND rrcty = '0'
  837.           AND rbukrs IN  s_rbukrs
  838.           AND ryear = c_gjahr
  839.           AND ( racct LIKE '3141%' OR racct LIKE '3151%' OR ( racct >= '4101000000' AND racct =< '4701999999' ) )
  840.           AND rpmax = 16
  841.           AND racct IN ( SELECT saknr FROM ska1 WHERE ktopl = 'PICL' ).
  842.     ELSE.
  843.       SELECT * INTO CORRESPONDING FIELDS OF TABLE faglflext FROM faglflext
  844.         WHERE rldnr = '0L'
  845.           AND rrcty = '0'
  846.           AND rtcur = waers
  847.           AND rbukrs IN  s_rbukrs
  848.           AND ryear = c_gjahr
  849.           AND ( racct LIKE '3141%' OR racct LIKE '3151%' OR ( racct >= '4101000000' AND racct =< '4701999999' ) )
  850.           AND rpmax = 16
  851.           AND racct IN ( SELECT saknr FROM ska1 WHERE ktopl = 'PICL' ).
  852.     ENDIF.
  853.   ENDIF.

  855.   IF s_km = '1009010000'.
  856.     CLEAR faglflext[].
  857.     IF m_1 = 'X'.
  858.       SELECT * INTO CORRESPONDING FIELDS OF TABLE faglflext FROM faglflext
  859.         WHERE rldnr = '0L'
  860.           AND rrcty = '0'
  861.           AND rbukrs IN  s_rbukrs
  862.           AND ryear = c_gjahr
  863.           AND ( racct LIKE '1009010000%' OR racct LIKE '1009020000%' OR  racct LIKE '1009030000%' OR racct LIKE '1003%' OR racct LIKE '1004%' )
  864.           AND rpmax = 16
  865.           AND racct IN ( SELECT saknr FROM ska1 WHERE ktopl = 'PICL' ).
  866.     ELSE.
  867.       SELECT * INTO CORRESPONDING FIELDS OF TABLE faglflext FROM faglflext
  868.         WHERE rldnr = '0L'
  869.           AND rrcty = '0'
  870.           AND rtcur = waers
  871.           AND rbukrs IN  s_rbukrs
  872.           AND ryear = c_gjahr
  873.           AND ( racct LIKE '1009010000%' OR racct LIKE '1009020000%' OR  racct LIKE '1009030000%' OR racct LIKE '1003%' OR racct LIKE '1004%' )
  874.           AND rpmax = 16
  875.           AND racct IN ( SELECT saknr FROM ska1 WHERE ktopl = 'PICL' ).
  876.     ENDIF.
  877.   ENDIF.

  879.   IF s_km = '1009100100'.
  880.     CLEAR faglflext[].
  881.     IF m_1 = 'X'.
  882.       SELECT * INTO CORRESPONDING FIELDS OF TABLE faglflext FROM faglflext
  883.         WHERE rldnr = '0L'
  884.           AND rrcty = '0'
  885.           AND rbukrs IN  s_rbukrs
  886.           AND ryear = c_gjahr
  887.           AND ( racct LIKE '1009100100%' OR racct LIKE '1009100200%')
  888.           AND rpmax = 16
  889.           AND racct IN ( SELECT saknr FROM ska1 WHERE ktopl = 'PICL' ).
  890.     ELSE.
  891.       SELECT * INTO CORRESPONDING FIELDS OF TABLE faglflext FROM faglflext
  892.         WHERE rldnr = '0L'
  893.           AND rrcty = '0'
  894.           AND rtcur = waers
  895.           AND rbukrs IN  s_rbukrs
  896.           AND ryear = c_gjahr
  897.           AND ( racct LIKE '1009100100%' OR racct LIKE '1009100200%')
  898.           AND rpmax = 16
  899.           AND racct IN ( SELECT saknr FROM ska1 WHERE ktopl = 'PICL' ).
  900.     ENDIF.
  901.   ENDIF.
  902.   LOOP AT faglflext.
  903.     tb_result-companyid = faglflext-rbukrs.
  904.     IF m_1 = 'X' OR p_flag = 'X'.
  905.       f_smny = f_smny + faglflext-hslvt.
  906.       f_money = f_money + faglflext-hslvt.
  907.     ELSE.
  908.       f_smny = f_smny + faglflext-tslvt.
  909.       f_money = f_money + faglflext-tslvt.
  910.     ENDIF.
  911.     IF i_monat >= 1.
  912.       IF m_1 = 'X' OR p_flag = 'X'.
  913.         f_money = f_money + faglflext-hsl01.
  914.       ELSE.
  915.         f_money = f_money + faglflext-tsl01.
  916.       ENDIF.
  917.     ENDIF.
  918.     IF i_monat >= 2.
  919.       IF m_1 = 'X' OR p_flag = 'X'.
  920.         f_money = f_money + faglflext-hsl02.
  921.       ELSE.
  922.         f_money = f_money + faglflext-tsl02.
  923.       ENDIF.
  924.     ENDIF.
  925.     IF i_monat >= 3.
  926.       IF m_1 = 'X' OR p_flag = 'X'.
  927.         f_money = f_money + faglflext-hsl03.
  928.       ELSE.
  929.         f_money = f_money + faglflext-tsl03.
  930.       ENDIF.
  931.     ENDIF.
  932.     IF i_monat >= 4.
  933.       IF m_1 = 'X' OR p_flag = 'X'.
  934.         f_money = f_money + faglflext-hsl04.
  935.       ELSE.
  936.         f_money = f_money + faglflext-tsl04.
  937.       ENDIF.
  938.     ENDIF.
  939.     IF i_monat >= 5.
  940.       IF m_1 = 'X' OR p_flag = 'X'.
  941.         f_money = f_money + faglflext-hsl05.
  942.       ELSE.
  943.         f_money = f_money + faglflext-tsl05.
  944.       ENDIF.
  945.     ENDIF.
  946.     IF i_monat >= 6.
  947.       IF m_1 = 'X' OR p_flag = 'X'.
  948.         f_money = f_money + faglflext-hsl06.
  949.       ELSE.
  950.         f_money = f_money + faglflext-tsl06.
  951.       ENDIF.
  952.     ENDIF.
  953.     IF i_monat >= 7.
  954.       IF m_1 = 'X' OR p_flag = 'X'.
  955.         f_money = f_money + faglflext-hsl07.
  956.       ELSE.
  957.         f_money = f_money + faglflext-tsl07.
  958.       ENDIF.
  959.     ENDIF.
  960.     IF i_monat >= 8.
  961.       IF m_1 = 'X' OR p_flag = 'X'.
  962.         f_money = f_money + faglflext-hsl08.
  963.       ELSE.
  964.         f_money = f_money + faglflext-tsl08.
  965.       ENDIF.
  966.     ENDIF.
  967.     IF i_monat >= 9.
  968.       IF m_1 = 'X' OR p_flag = 'X'.
  969.         f_money = f_money + faglflext-hsl09.
  970.       ELSE.
  971.         f_money = f_money + faglflext-tsl09.
  972.       ENDIF.
  973.     ENDIF.
  974.     IF i_monat >= 10.
  975.       IF m_1 = 'X' OR p_flag = 'X'.
  976.         f_money = f_money + faglflext-hsl10.
  977.       ELSE.
  978.         f_money = f_money + faglflext-tsl10.
  979.       ENDIF.
  980.     ENDIF.
  981.     IF i_monat >= 11.
  982.       IF m_1 = 'X' OR p_flag = 'X'.
  983.         f_money = f_money + faglflext-hsl11.
  984.       ELSE.
  985.         f_money = f_money + faglflext-tsl11.
  986.       ENDIF.
  987.     ENDIF.
  988.     IF i_monat >= 12.
  989.       IF m_1 = 'X' OR p_flag = 'X'.
  990.         f_money = f_money + faglflext-hsl12.
  991.       ELSE.
  992.         f_money = f_money + faglflext-tsl12.
  993.       ENDIF.
  994.     ENDIF.
  995.     IF i_monat >= 13.
  996.       IF m_1 = 'X' OR p_flag = 'X'.
  997.         f_money = f_money + faglflext-hsl13.
  998.       ELSE.
  999.         f_money = f_money + faglflext-tsl13.
  1000.       ENDIF.
  1001.     ENDIF.
  1002.     IF i_monat >= 14.
  1003.       IF m_1 = 'X' OR p_flag = 'X'.
  1004.         f_money = f_money + faglflext-hsl14.
  1005.       ELSE.
  1006.         f_money = f_money + faglflext-tsl14.
  1007.       ENDIF.
  1008.     ENDIF.
  1009.     IF i_monat >= 15.
  1010.       IF m_1 = 'X' OR p_flag = 'X'.
  1011.         f_money = f_money + faglflext-hsl15.
  1012.       ELSE.
  1013.         f_money = f_money + faglflext-tsl15.
  1014.       ENDIF.
  1015.     ENDIF.
  1016.     IF i_monat >= 16.
  1017.       IF m_1 = 'X' OR p_flag = 'X'.
  1018.         f_money = f_money + faglflext-hsl16.
  1019.       ELSE.
  1020.         f_money = f_money + faglflext-tsl16.
  1021.       ENDIF.
  1022.     ENDIF.
  1023.   ENDLOOP.
  1024. ENDFORM.                    "CACUMONEY


  1027. ***************************************************************
  1028. *  ADD_ROW
  1029. * a_type  标志行项目是否为合计或者小计
  1030. * a_type1 标志金额是否需要取反 1负债类取反；2资产类取反；3都取反
  1031. ***************************************************************
  1032. FORM add_row USING a_asset1 a_km1 a_row1 "资产科目行号
  1033.                    a_asset2 a_km2 a_row2
  1034.                    a_monat a_rbukrs a_gjahr a_type a_type1.

  1036.   DATA: f_smny LIKE faglflext-hslvt,
  1037.         f_emny LIKE faglflext-hslvt.

  1039.   CLEAR tb_result.        "清空结果表
  1040.   tb_result-asset1  =  a_asset1.    "资产项目
  1041.   tb_result-row1    =  a_row1.      "行次
  1042.   tb_result-asset2  =  a_asset2.    "资产项目
  1043.   tb_result-row2    =  a_row2.      "行次

  1045.   IF a_type = 1."非合计项目
  1046.     IF a_km1 <> '' AND a_km1 IS NOT INITIAL.     "判断科目编号不为空
  1047.       PERFORM cacumoney USING a_km1 a_monat a_rbukrs a_gjahr
  1048.                         CHANGING f_smny f_emny.  "调用另外一个函数返回值
  1049.       IF a_type1 = 2 OR a_type1 = 3.
  1050.         tb_result-start1  = 0 - f_smny.  "资产或都去反
  1051.         tb_result-end1    = 0 - f_emny.
  1052.       ELSE.
  1053.         tb_result-start1  = f_smny.
  1054.         tb_result-end1    = f_emny.
  1055.       ENDIF.
  1056.     ENDIF.
  1057.     IF a_km2 <> '' AND a_km2 IS NOT INITIAL.
  1058.       PERFORM cacumoney USING a_km2 a_monat a_rbukrs a_gjahr
  1059.                         CHANGING f_smny f_emny.
  1060.       IF  a_type1 = 1 OR a_type1 = 3 .
  1061.         tb_result-start2  = 0 - f_smny.
  1062.         tb_result-end2    = 0 - f_emny.
  1063.       ELSE.
  1064.         tb_result-start2  = f_smny.
  1065.         tb_result-end2    = f_emny.
  1066.       ENDIF.
  1067.     ENDIF.
  1068.   ELSEIF a_type = 2."左边资产类合计，右边负债类非合计项目
  1069.     tb_result-start1    = f_sums1.
  1070.     tb_result-end1      = f_sume1.

  1072.     IF a_km2 <> '' AND a_km2 IS NOT INITIAL.
  1073.       PERFORM cacumoney USING a_km2 a_monat a_rbukrs a_gjahr
  1074.                         CHANGING f_smny f_emny.
  1075.       IF a_type1 = 1 OR a_type1 = 3.          "负债取反，都取反
  1076.         tb_result-start2  = 0 - f_smny.
  1077.         tb_result-end2    = 0 - f_emny.
  1078.       ELSE.
  1079.         tb_result-start2  = f_smny.
  1080.         tb_result-end2    = f_emny.
  1081.       ENDIF.
  1082.     ENDIF.
  1083.   ELSEIF a_type = 3."左边资产类非合计，右边负债类合计项目
  1084.     IF a_km1 <> '' AND a_km1 IS NOT INITIAL.
  1085.       PERFORM cacumoney USING a_km1 a_monat a_rbukrs a_gjahr
  1086.                         CHANGING f_smny f_emny.
  1087.       IF a_type1 = 2 OR a_type1 = 3.          "资产取反，或都取反
  1088.         tb_result-start1  = 0 - f_smny.
  1089.         tb_result-end1    = 0 - f_emny.
  1090.       ELSE.
  1091.         tb_result-start1  = f_smny.
  1092.         tb_result-end1    = f_emny.
  1093.       ENDIF.

  1095.     ENDIF.
  1096.     tb_result-start2    = f_sums2.
  1097.     tb_result-end2      = f_sume2.
  1098.   ELSEIF a_type = 4."都是合计项目
  1099.     tb_result-start1    = f_sums1.
  1100.     tb_result-end1      = f_sume1.
  1101.     tb_result-start2    = f_sums2.
  1102.     tb_result-end2      = f_sume2.
  1103.   ENDIF.
  1104.   IF a_km1 = '1601'.
  1105.     PERFORM cacumoney USING '1503' a_monat a_rbukrs a_gjahr
  1106.                       CHANGING f_smny f_emny.
  1107.     tb_result-start1  = tb_result-start1 + f_smny.
  1108.     tb_result-end1    = tb_result-end1 + f_emny.
  1109.   ENDIF.
  1110.   APPEND tb_result.

  1112. ENDFORM.                    "ADD_ROW

  1114. *&--------------------------------------------------------------------*
  1115. *&      Form  NUM2CHAR
  1116. *&--------------------------------------------------------------------*
  1117. *       text
  1118. *---------------------------------------------------------------------*
  1119. *      -->FNUM       text
  1120. *      -->SRET       text
  1121. *---------------------------------------------------------------------*
  1122. FORM num2char USING fnum LIKE tb_result-end1 CHANGING sret.
  1123.   WRITE fnum NO-ZERO TO sret.
  1124.   IF fnum < 0.
  1125.     CONCATENATE '-' sret INTO sret.
  1126.   ENDIF.
  1127.   IF sret CO '0.'.
  1128.     sret = '               '.
  1129.   ENDIF.
  1130.   CONDENSE sret NO-GAPS.
  1131. ENDFORM.                    "num2char

  1133. *&---------------------------------------------------------------------*
  1134. *&      Form  init_layout
  1135. *&---------------------------------------------------------------------*
  1136. *       text
  1137. *----------------------------------------------------------------------*
  1138. FORM init_layout.
  1139.   layout-zebra = 'X'.
  1140.   layout-f2code = '&IC1'.
  1141.   layout-detail_popup = 'X'.
  1142.   layout-colwidth_optimize = 'X'.
  1143.   layout-no_vline = ''.
  1144.   layout-no_hline = ''.
  1145. *  LAYOUT-numc_sum = 'X'.
  1146.   layout-no_sumchoice = ''.
  1147.   layout-no_subchoice = ''.
  1148.   layout-no_totalline = ''.
  1149.   layout-no_subtotals = ''.
  1150. ENDFORM.                    "init_layout

  1152. *&---------------------------------------------------------------------*
  1153. *&      Form  TOP_OF_PAGE
  1154. *&---------------------------------------------------------------------*
  1155. *       text
  1156. *----------------------------------------------------------------------*
  1157. FORM top_of_page.
  1158.   SELECT SINGLE butxt INTO s_butxt
  1159.     FROM t001
  1160.       WHERE bukrs = prt_result-companyid.
  1161.   WRITE:/42  '中国人保寿险有限公司'.
  1162.   WRITE:/48  '资产负债表'.
  1163.   WRITE:/48  prtdate.
  1164.   WRITE:/2 '单位名称：',s_butxt, 64 '币    种：',txcurr.
  1165.   IF m_2 = 'X' AND waers <> 'CNY'.
  1166.     WRITE:45 '汇率:',exch_rate.
  1167.   ENDIF.
  1168.   WRITE:/64 '金额单位：',txunit.
  1169. ENDFORM.                    "TOP_OF_PAGE

  1171. *&---------------------------------------------------------------------*
  1172. *&      Form  END_OF_LIST
  1173. *&---------------------------------------------------------------------*
  1174. *       text
  1175. *----------------------------------------------------------------------*
  1176. FORM end_of_list.
  1177.   WRITE:/2  '公司负责人：', 40 '财务负责人:', 60 '复核:' ,85 '制表:'.
  1178. ENDFORM.                    "END_OF_LIST

  1180. *&---------------------------------------------------------------------*
  1181. *&      Form  EVENT_BUILD
  1182. *&---------------------------------------------------------------------*
  1183. *       text
  1184. *----------------------------------------------------------------------*
  1185. FORM event_build .
  1186.   DATA: ls_event TYPE slis_alv_event.
  1187.   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
  1188.     EXPORTING
  1189.       i_list_type = 0
  1190.     IMPORTING
  1191.       et_events   = eventcat[].
  1192.   READ TABLE eventcat WITH KEY name =  slis_ev_top_of_page
  1193.                             INTO ls_event.
  1194.   IF sy-subrc = 0.
  1195.     MOVE 'TOP_OF_PAGE' TO ls_event-form.
  1196.     APPEND ls_event TO eventcat.
  1197.   ENDIF.
  1198.   READ TABLE eventcat WITH KEY name =  slis_ev_end_of_list
  1199.                             INTO ls_event.
  1200.   IF sy-subrc = 0.
  1201.     MOVE 'END_OF_LIST' TO ls_event-form.
  1202.     APPEND ls_event TO eventcat.
  1203.   ENDIF.
  1204. ENDFORM.                    " EVENT_BUILD

  1206. *&---------------------------------------------------------------------*
  1207. *&      Form  init_fieldcat
  1208. *&---------------------------------------------------------------------*
  1209. *       text
  1210. *----------------------------------------------------------------------*
  1211. *      -->FLAG       text
  1212. *----------------------------------------------------------------------*
  1213. FORM init_fieldcat USING flag.               "初始化表头
  1214. *  clear fieldcat[].
  1215. *  CLEAR FIELDCAT.
  1216. *  FIELDCAT-FIELDNAME = 'COMPANYID'.
  1217. *  FIELDCAT-reptext_ddic = '科目'.
  1218. *  FIELDCAT-no_out = 'X'.
  1219. *  APPEND FIELDCAT.

  1221.   CLEAR fieldcat[].
  1222.   CLEAR fieldcat.
  1223.   fieldcat-fieldname = 'ASSET1'.
  1224.   fieldcat-reptext_ddic = '项目'.
  1225.   APPEND fieldcat.

  1227.   CLEAR fieldcat.
  1228.   fieldcat-fieldname = 'ROW1'.
  1229.   fieldcat-reptext_ddic = '行次'.
  1230.   APPEND fieldcat.

  1232.   CLEAR fieldcat.
  1233.   fieldcat-fieldname = 'START1'.
  1234.   fieldcat-reptext_ddic = '年初数'.
  1235.   fieldcat-just = 'R'.
  1236.   APPEND fieldcat.

  1238.   CLEAR fieldcat.
  1239.   fieldcat-fieldname = 'END1'.
  1240.   fieldcat-reptext_ddic = '期末数'.
  1241.   fieldcat-just = 'R'.
  1242.   APPEND fieldcat.

  1244.   CLEAR fieldcat.
  1245.   fieldcat-fieldname = 'ASSET2'.
  1246.   fieldcat-reptext_ddic = '项目'.
  1247.   APPEND fieldcat.

  1249.   CLEAR fieldcat.
  1250.   fieldcat-fieldname = 'ROW2'.
  1251.   fieldcat-reptext_ddic = '行次'.
  1252.   APPEND fieldcat.

  1254.   CLEAR fieldcat.
  1255.   fieldcat-fieldname = 'START2'.
  1256.   fieldcat-reptext_ddic = '年初数'.
  1257.   fieldcat-just = 'R'.
  1258.   APPEND fieldcat.

  1260.   CLEAR fieldcat.
  1261.   fieldcat-fieldname = 'END2'.
  1262.   fieldcat-reptext_ddic = '期末数'.
  1263.   fieldcat-just = 'R'.
  1264.   APPEND fieldcat.

  1266. *  CLEAR:SORTCAT,SORTCATLN.
  1267. **  SORTCATLN-SPOS = 1.
  1268. *  SORTCATLN-UP = 'X'.
  1269. *  SORTCATLN-FIELDNAME = 'COMPANYID'.
  1270. *  SORTCATLN-SUBTOT = 'X'.
  1271. *  SORTCATLN-GROUP = '*'.
  1272. *  APPEND SORTCATLN to SORTCAT.

  1274. ENDFORM.                    "init_fieldcat

  1276. *&---------------------------------------------------------------------*
  1277. *&      Form  LISTDATA
  1278. *&---------------------------------------------------------------------*
  1279. *       text
  1280. *----------------------------------------------------------------------*
  1281. FORM listdata.
  1282.   v_repid = sy-repid.
  1283.   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
  1284.     EXPORTING
  1285.       i_callback_pf_status_set = 'SET_PF_STATUS'
  1286.       i_callback_program       = v_repid
  1287.       i_callback_user_command  = 'USER_COMMAND'
  1288.       is_layout                = layout
  1289.       it_fieldcat              = fieldcat[]
  1290.       it_events                = eventcat
  1291.       it_sort                  = sortcat
  1292.       it_excluding             = rt_extab
  1293.     TABLES
  1294.       t_outtab                 = prt_result
  1295.     EXCEPTIONS
  1296.       program_error            = 1
  1297.       OTHERS                   = 2.
  1298.   IF sy-subrc <> 0.
  1299.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  1300.        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  1301.   ENDIF.
  1302. ENDFORM.                    "LISTDATA

  1304. *&---------------------------------------------------------------------*
  1305. *&      Form  set_pf_status
  1306. *&---------------------------------------------------------------------*
  1307. *       text
  1308. *----------------------------------------------------------------------*
  1309. *      -->RT_EXTAB   text
  1310. *----------------------------------------------------------------------*
  1311. FORM set_pf_status USING rt_extab TYPE slis_t_extab.
  1312.   DATA: wa_extab TYPE slis_extab.
  1313.   wa_extab-fcode = '&OAD'.
  1314.   APPEND wa_extab TO rt_extab.
  1315.   wa_extab-fcode = '&AVE'.
  1316.   APPEND wa_extab TO rt_extab.
  1317.   SET PF-STATUS 'ZSTANDARD' EXCLUDING rt_extab ."copy from BCALV_TEST_LIST.
  1318. ENDFORM. "Set_pf_status

  1320. *&---------------------------------------------------------------------*
  1321. *&      Form  user_command
  1322. *&---------------------------------------------------------------------*
  1323. *       text
  1324. *----------------------------------------------------------------------*
  1325. *      -->R_UCOMM      text
  1326. *      -->RS_SELFIELD  text
  1327. *----------------------------------------------------------------------*
  1328. FORM user_command USING r_ucomm     LIKE sy-ucomm
  1329.                         rs_selfield TYPE slis_selfield.
  1330.   IF r_ucomm EQ '&PRT'.
  1331.     PERFORM open_form .
  1332.     PERFORM write_form USING 'MAIN' 'E1'.
  1333.     PERFORM write_form USING 'MAIN' 'E2'.
  1334.     LOOP AT prt_result.
  1335.       PERFORM write_form USING 'MAIN' 'E3'.
  1336.     ENDLOOP.
  1337.     PERFORM write_form USING 'MAIN' 'E4'.
  1338.     PERFORM close_form .
  1339.   ENDIF.
  1340. ENDFORM.  "User_command

  1342. *&---------------------------------------------------------------------*
  1343. *&      Form  open_form
  1344. *&---------------------------------------------------------------------*
  1345. *       text
  1346. *----------------------------------------------------------------------*
  1347. FORM open_form .
  1348.   CALL FUNCTION 'OPEN_FORM'
  1349.    EXPORTING
  1350. *     APPLICATION                       = 'TX'
  1351. *     ARCHIVE_INDEX                     =
  1352. *     ARCHIVE_PARAMS                    =
  1353. *     DEVICE                            = 'PRINTER'
  1354. *     Dialog                            = 'X'
  1355.       form                              =  'ZFIRP050'
  1356. *     language                          = 'M'
  1357. *     OPTIONS                           = OPTION
  1358. *     MAIL_SENDER                       =
  1359. *     MAIL_RECIPIENT                    =
  1360. *     MAIL_APPL_OBJECT                  =
  1361. *     RAW_DATA_INTERFACE                = '*'
  1362. *   IMPORTING
  1363. *     LANGUAGE                          =
  1364. *     NEW_ARCHIVE_PARAMS                =
  1365. *     RESULT                            =
  1366.    EXCEPTIONS
  1367.      canceled                          = 1
  1368.      device                            = 2
  1369.      form                              = 3
  1370.      options                           = 4
  1371.      unclosed                          = 5
  1372.      mail_options                      = 6
  1373.      archive_error                     = 7
  1374.      invalid_fax_number                = 8
  1375.      more_params_needed_in_batch       = 9
  1376.      spool_error                       = 10
  1377.      OTHERS                            = 11  .
  1378.   IF sy-subrc <> 0.
  1379.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  1380.        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  1381.   ENDIF.

  1383. ENDFORM.                    "open_form

  1385. *&--------------------------------------------------------------------*
  1386. *&      Form  write_form
  1387. *&--------------------------------------------------------------------*
  1388. *       text
  1389. *---------------------------------------------------------------------*
  1390. *      -->L_WINDOW   text
  1391. *      -->L_ELEMENT  text
  1392. *---------------------------------------------------------------------*
  1393. FORM write_form USING l_window l_element.

  1395.   CALL FUNCTION 'WRITE_FORM'
  1396.    EXPORTING
  1397.      element                        = l_element
  1398. *     FUNCTION                      = 'SET'
  1399. *     TYPE                          = 'BODY'
  1400.      window                         = l_window
  1401. *   IMPORTING
  1402. *     PENDING_LINES                  =
  1403.    EXCEPTIONS
  1404.      element                        = 1
  1405.      function                       = 2
  1406.      type                           = 3
  1407.      unopened                       = 4
  1408.      unstarted                      = 5
  1409.      window                         = 6
  1410.      bad_pageformat_for_print       = 7
  1411.      spool_error                    = 8
  1412.      OTHERS                         = 9
  1413.             .
  1414.   IF sy-subrc <> 0.
  1415.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  1416.        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  1417.   ENDIF.
  1418. ENDFORM.                    "write_form

  1420. *&--------------------------------------------------------------------*
  1421. *&      Form  close_form
  1422. *&--------------------------------------------------------------------*
  1423. *       text
  1424. *---------------------------------------------------------------------*
  1425. FORM close_form.
  1426.   CALL FUNCTION 'CLOSE_FORM'
  1427. *   IMPORTING
  1428. *     RESULT                         =
  1429. *     RDI_RESULT                     =
  1430. *   TABLES
  1431. *     OTFDATA                        =
  1432.    EXCEPTIONS
  1433.      unopened                       = 1
  1434.      bad_pageformat_for_print       = 2
  1435.      send_error                     = 3
  1436.      spool_error                    = 4
  1437.      OTHERS                         = 5
  1438.             .

  1440.   IF sy-subrc <> 0.
  1441.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  1442.        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  1443.   ENDIF.

  1445. ENDFORM.                    "close_form

  1447. *&---------------------------------------------------------------------*
  1448. *&      Form  read_screen
  1449. *&---------------------------------------------------------------------*
  1450. *       text
  1451. *----------------------------------------------------------------------*
  1452. FORM read_screen.
  1453.   CLEAR dynpread[].
  1454.   dynpread-fieldname = 'M_2'.
  1455.   APPEND dynpread.
  1456.   CALL FUNCTION 'DYNP_VALUES_READ'
  1457.     EXPORTING
  1458.       dyname               = sy-repid
  1459.       dynumb               = sy-dynnr
  1460.     TABLES
  1461.       dynpfields           = dynpread
  1462.     EXCEPTIONS
  1463.       invalid_abapworkarea = 1
  1464.       invalid_dynprofield  = 2
  1465.       invalid_dynproname   = 3
  1466.       invalid_dynpronummer = 4
  1467.       invalid_request      = 5
  1468.       no_fielddescription  = 6
  1469.       invalid_parameter    = 7
  1470.       undefind_error       = 8
  1471.       double_conversion    = 9
  1472.       stepl_not_found      = 10
  1473.       OTHERS               = 11.
  1474.   IF sy-subrc <> 0.
  1475.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  1476.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  1477.   ENDIF.
  1478. ENDFORM.                    "read_screen

  1480. *&---------------------------------------------------------------------*
  1481. *&      Form  check
  1482. *&---------------------------------------------------------------------*
  1483. *       text
  1484. *----------------------------------------------------------------------*
  1485. FORM check.
  1486.   IF m_2 = 'X'.
  1487.     IF waers IS INITIAL.
  1488.       MESSAGE e398(00) WITH '请输入货币币种'.
  1489.     ENDIF.
  1490.   ENDIF.
  1491. ENDFORM.                    "check
复制代码
资产负债表, balance sheet

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 846 主题
  2. 125 回帖
  3. 11239 积分
发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-11-21 17:43 , Processed in 0.058204 second(s), 9 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.5

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表