在资产负债表日里没有拨入资金这项 拨入资金该填在哪个科目里
点击联系发帖人
时间：2012-02-01 02:29
您还未登陆，请登录后操作！
货币资金（急急）
共有 2 位网友向您献上回答啦， 对答案满意？赶快给出你的好评，感谢他们吧！
银行存款，现金，其他货币资金（国库券、债券、保证金及外埠存款等）合计就是货币资金。
您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注Excel财务软件(包含会计科目、凭证录入、凭证打印、科目余额表、资产负债表、损益表等)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
15页免费4页免费10页1下载券1页1下载券54页3下载券7页1下载券7页1下载券3页1下载券9页1下载券1页免费
喜欢此文档的还喜欢18页1下载券4页免费2页5下载券2页1下载券13页1下载券
Excel财务软件(包含会计科目、凭证录入、凭证打印、科目余额表、资产负债表、损益表等)|
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢您还未登陆，请登录后操作！
“拨入专款——校舍维修购置”与“专款支出”对冲的余额如果要转入“拨入专款结存”科目，那么明细帐科目是
共有 1 位网友向您献上回答啦， 对答案满意？赶快给出你的好评，感谢他们吧！
在“资产负债表”中，将“拨入专款”与汇总所属的“专款支出”之差列入“拨入专款结存”或“专款结余”栏中，如果不设置这两个科目，直接用“拨入专款”科目也是可以的（通常，事业单位会计都习惯于用“拨入专款”这个科目，不重新设置新科目，事业单位会计制度规定会计人员可根据需要在制度范围内设置相应小科目，如果你不是很熟悉的话，就直接用“拨入专款”这个科目吧）。
拨入专款（拨入专款结存）大类属于负债部类,小类属于收入类，二级明细帐科目就是校舍维修购置。
我以前回答过你关于这个科目的提问，看来你还没有完全理解，再把这个科目的核算和你讲一讲：
拨入专款是指事业单位收到财政部门、上级单位或其他部门拨入的指定项目或用途并需要单独报账的专项资金。“拨入专款”属于收入类科目，贷方记增加数，借方记减少数，余额在贷方，平时贷方余额反映当年上级拨入专款的累计数。其会计分录如下：（1） 单位收到拨入专款时记： 借： 银行存款 贷： 拨入专款——××专款（2） 缴回拨入专款时，作相反分录。（3） 年终结账，对本单位已完工的项目进行转账时记： 借： 拨入专款 贷： 专款支出（4） 年终，上级单位根据所属单位报来的专
在“资产负债表”中，将“拨入专款”与汇总所属的“专款支出”之差列入“拨入专款结存”或“专款结余”栏中，如果不设置这两个科目，直接用“拨入专款”科目也是可以的（通常，事业单位会计都习惯于用“拨入专款”这个科目，不重新设置新科目，事业单位会计制度规定会计人员可根据需要在制度范围内设置相应小科目，如果你不是很熟悉的话，就直接用“拨入专款”这个科目吧）。
拨入专款（拨入专款结存）大类属于负债部类,小类属于收入类，二级明细帐科目就是校舍维修购置。
我以前回答过你关于这个科目的提问，看来你还没有完全理解，再把这个科目的核算和你讲一讲：
拨入专款是指事业单位收到财政部门、上级单位或其他部门拨入的指定项目或用途并需要单独报账的专项资金。“拨入专款”属于收入类科目，贷方记增加数，借方记减少数，余额在贷方，平时贷方余额反映当年上级拨入专款的累计数。其会计分录如下：（1） 单位收到拨入专款时记： 借： 银行存款 贷： 拨入专款——××专款（2） 缴回拨入专款时，作相反分录。（3） 年终结账，对本单位已完工的项目进行转账时记： 借： 拨入专款 贷： 专款支出（4） 年终，上级单位根据所属单位报来的专款支出决算时记： 借： 拨入专款 贷：拨出专款（5） 专款结余按规定留归本单位使用时记： 借： 拨入专款 贷：事业基金（6） 年终，拨入专款贷方余额为尚未完工报销的专项资金数。拨入专款按规定来源和项目设置明细账。
大家还关注1608人阅读
*&---------------------------------------------------------------------*
*&&Report&&ZTEST13
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
REPORT&&ZTEST13&MESSAGE-ID&zfirpt&.&&&&&&&&&&&&报表名称
*&---------------------------------------------------------------------*
*&&tables&&&nodes
*&---------------------------------------------------------------------*
TABLES:&&t001,&&&公司主数据
&&&&&&&&&bkpf,&&&
&&&&&&&&&V_TCURR,
&&&&&&&&&FAGLFLEXT.&&&科目余额表
*&---------------------------------------------------------------------*
*&&internal&tables
*&---------------------------------------------------------------------*
DATA:&BEGIN&OF&tb_result&OCCURS&0,&&资产负债表结果集
&&&&&&&&companyid(4)&&TYPE&c,
&&&&&&&&asset1(30)&TYPE&c,&&&&&&&&&&资产项目
&&&&&&&&row1(2)&&&&TYPE&c,&&&&&&&&&&行次
&&&&&&&&start1&&&&&LIKE&FAGLFLEXT-hslvt,&期初值
&&&&&&&&end1&&&&&&&LIKE&FAGLFLEXT-hslvt,&期未值
&&&&&&&&asset2(30)&TYPE&c,&&&&&&&&&&资产项目
&&&&&&&&row2(2)&&&&TYPE&c,&&&&&&&&&&行次
&&&&&&&&start2&&&&&LIKE&FAGLFLEXT-hslvt,&期初值
&&&&&&&&end2&&&&&&&LIKE&FAGLFLEXT-hslvt,&期未值
&&&&&&END&OF&tb_result.
DATA:&BEGIN&OF&prt_result&OCCURS&0,&&资产负债表结果集
&&&&&&&&companyid(4)&&TYPE&c,
&&&&&&&&asset1(30)&TYPE&c,&&&&&&&&&&&资产项目
&&&&&&&&row1(2)&&&&TYPE&c,&&&&&&&&&&行次
&&&&&&&&start1(16)&type&c,&&&&&&&&&&&期初值
&&&&&&&&end1(16)&&&type&c,&&&&&&&&&&&期未值
&&&&&&&&asset2(30)&TYPE&c,&&&&&&&&&&&资产项目
&&&&&&&&row2(2)&&&&TYPE&c,&&&&&&&&&&行次
&&&&&&&&start2(16)&type&c,&&&&&&&&&&&期初值
&&&&&&&&end2(16)&&&type&c,&&&&&&&&&&&期未值
&&&&&&END&OF&prt_result.
*&---------------------------------------------------------------------*
*&&variant&declare
*&---------------------------------------------------------------------*
DATA:&&s_butxt(50)&type&c,&&&公司名称
&&&&&&s_m1(23)&&TYPE&c,
&&&&&&s_m2(23)&&TYPE&c,
&&&&&&s_m3(23)&&TYPE&c,
&&&&&&s_m4(23)&&TYPE&c.
**PARAMTERS&FOR&OUTPUT&FORMAT
DATA:&i_lwidth&TYPE&i&VALUE&185,&&&横线宽
&&&&&&i_col1&TYPE&i&VALUE&35,&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&列1宽
&&&&&&i_col2&TYPE&i&VALUE&4,&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&列2宽
&&&&&&i_col3&TYPE&i&VALUE&20,&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&列3宽
&&&&&&i_col4&TYPE&i&VALUE&20.&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&列4宽
data:&DYNPREAD&like&table&of&DYNPREAD&with&header&line.
data:&DCURR&like&table&of&BAPI1093_0&with&header&line.
TYPE-POOLS:&SLIS.
data:&FIELDCAT&TYPE&SLIS_T_FIELDCAT_ALV&WITH&HEADER&LINE,
&&&&&&FLD_HEAD&TYPE&SLIS_LISTHEADER,
&&&&&&SORTCAT&&TYPE&SLIS_T_SORTINFO_ALV,
&&&&&&SORTCATLN&&&LIKE&&&LINE&OF&SORTCAT,
&&&&&&ITAB_LISTHEAD&TYPE&SLIS_T_LISTHEADER,
&&&&&&LAYOUT&TYPE&&SLIS_LAYOUT_ALV,
&&&&&&V_REPID&LIKE&SY-REPID,
&&&&&&rt_extab&TYPE&slis_t_extab,
&&&&&&EVENTCAT&&&&&TYPE&&&SLIS_T_EVENT.
data:&tmpdate&like&sy-datum,
&&&&&&prtdate&like&sy-datum,
&&&&&&tempcurr&like&BAPI1093_1-FROM_CURR,
&&&&&&EXCH_RATE(10)&type&c,
&&&&&&txunit(10)&type&c,
&&&&&&errorflag&&type&c,
&&&&&&txcurr(16)&type&c.
*&---------------------------------------------------------------------*
*&&selection-screen
*&---------------------------------------------------------------------*
SELECT-OPTIONS:
&&s_rbukrs&FOR&bkpf-bukrs&OBLIGATORY&.&&&&&&公司代码
PARAMETERS:
&&i_gjahr&LIKE&bkpf-gjahr&DEFAULT&sy-datum+0(4)&OBLIGATORY,&&&财务年度
&&i_monat&LIKE&bkpf-monat&OBLIGATORY,&&&&&&&期间
*&&waers&&&like&bkpf-waers&OBLIGATORY.&&&&&&&货币代码
&&p_butxt(40)&type&c.
SELECTION-SCREEN&BEGIN&OF&BLOCK&b02&WITH&FRAME&TITLE&tit.&&&选择屏幕
PARAMETERS:&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&单选按钮
&&&p_1&&RADIOBUTTON&GROUP&g1&default&'X',
&&&p_2&&RADIOBUTTON&GROUP&g1,
&&&p_3&&RADIOBUTTON&GROUP&g1.
SELECTION-SCREEN&END&OF&BLOCK&b02.&&&&&&&&&&&&&&&&&&&&&&&&&&&选择屏幕结束
SELECTION-SCREEN&BEGIN&OF&BLOCK&b01&WITH&FRAME&TITLE&text-001.
PARAMETERS:&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&单选按钮
&&&m_1&&RADIOBUTTON&GROUP&g2&default&'X',
&&&m_2&&RADIOBUTTON&GROUP&g2,
&&&waers&&&like&bkpf-waers&,&&&&&&&货币代码
&&&p_flag&as&checkbox.
SELECTION-SCREEN&END&OF&BLOCK&b01.
*&---------------------------------------------------------------------*
*&&initialization
*&---------------------------------------------------------------------*
INITIALIZATION.
&&&&tit&=&'金额单位'.
*&---------------------------------------------------------------------*
*&&AT&SELECTION-SCREEN&OUTPUT
*&---------------------------------------------------------------------*
*AT&SELECTION-SCREEN&OUTPUT.
*&&perform&read_screen.
*&&LOOP&AT&SCREEN.
*&&&&IF&m_2&=&'X'&AND&(&screen-name&=&'WAERS'&or&screen-name&=&'P_FLAG'
*&&&&&&&or&screen-name&=&'%_WAERS_%_APP_%-TEXT').
*&&&&&&screen-active&=&1.
*&&&&&&if&screen-name&=&'WAERS'.
*&&&&&&&&screen-request&&=&1.
*&&&&&&&&screen-required&=&1.
*&&&&&&endif.
*&&&&&&MODIFY&SCREEN.
*&&&&ENDIF.
*&&&&IF&m_2&=&''&AND&(&screen-name&=&'WAERS'&or&screen-name&=&'P_FLAG'
*&&&&&&&or&screen-name&=&'%_WAERS_%_APP_%-TEXT').
*&&&&&&screen-active&=&0.
*&&&&&&if&screen-name&=&'WAERS'.
*&&&&&&&&screen-request&&=&0.
*&&&&&&&&screen-required&=&0.
*&&&&&&endif.
*&&&&&&MODIFY&SCREEN.
*&&&&ENDIF.
*&&ENDLOOP.
*&---------------------------------------------------------------------*
*&&at&selection-screen
*&---------------------------------------------------------------------*
AT&SELECTION-SCREEN.
&&perform&check.
&&SELECT&*&FROM&t001&WHERE&bukrs&IN&s_rbukrs&.
&&&&errorflag&=&''.
&&&&AUTHORITY-CHECK&OBJECT&'ZFIRPT'&&&&&&&&&&&&&&&&&&&&&&&&&&&权限判断
&&&&&&&&&&&&&ID&'BUKRS'&FIELD&t001-bukrs.
&&&&IF&sy-subrc&=&0.
&&&&&&&errorflag&=&'f'.
&&&&endif.
&&&&AUTHORITY-CHECK&OBJECT&'ZPARK'&&&&&&&&&&&&&&&&&&&&&&&&&&&权限判断
&&&&&&&&&&&&&ID&'BUKRS'&FIELD&t001-bukrs.
&&&&IF&sy-subrc&=&0.
&&&&&&&errorflag&=&'f'.
&&&&endif.
&&&&IF&errorflag&=&''.
&&&&&&&&MESSAGE&e999(z01)&WITH&'没有在公司代码'&t001-bukrs&'操作的权限！'.
&&&&ENDIF.
&&ENDSELECT.
&&&&IF&i_monat&&&1&OR&i_monat&&&16.&对期间值必须在1-16之间
&&&&&&MESSAGE&e004.
*&---------------------------------------------------------------------*
*&&start-of-selection
*&---------------------------------------------------------------------*
START-OF-SELECTION.
&&concatenate&i_gjahr&i_monat&'01'&into&tmpdate.&&&&&&&&&组合年份
&&CALL&FUNCTION&'LAST_DAY_OF_MONTHS'
&&&&EXPORTING
&&&&&&DAY_IN&&&&&&&&&&&&&&&&&=&tmpdate&&&&&&&&&&&&&&&&&&&根据传入的参数，输出一个月的最后一天
&&&IMPORTING
&&&&&LAST_DAY_OF_MONTH&&&&&&&=&prtdate
&&&EXCEPTIONS
&&&&&DAY_IN_NO_DATE&&&&&&&&&&=&1
&&&&&OTHERS&&&&&&&&&&&&&&&&&&=&2.
*&获得当前汇率
&&&tempcurr&=&waers.
&&&CALL&FUNCTION&'BAPI_EXCHANGERATE_GETDETAIL'
&&&&EXPORTING
&&&&&&RATE_TYPE&&&&&&&&=&'M'
&&&&&&FROM_CURR&&&&&&&&=&tempcurr
&&&&&&TO_CURRNCY&&&&&&&=&'CNY'
&&&&&&DATE&&&&&&&&&&&&&=&tmpdate
&&&IMPORTING
&&&&&EXCH_RATE&&&&&&&&=&DCURR
*&&&&&RETURN&&&&&&&&&&&=
&&read&table&DCURR&index&1.
&&&&&&&EXCH_RATE&=&DCURR-EXCH_RATE.
&&if&p_1&=&'X'.&&&&&&&&&&&&&&&&&&&根据单选框的值给变量值
&&&&txunit&=&'元'.
&&if&p_2&=&'X'.
&&&&txunit(*)&=&'千元'.
&&if&p_3&=&'X'.
&&&&txunit&=&'万元'.
*&&if&p_flag&=&'X'&and&i_monat&=&'12'.&&&判断复选框
*&&&&i_monat&=&'16'.
&&select&single&ktext&into&txcurr&&&&&&&&根据货币单位的值返回货币名称
&&&&from&tcurt
&&&where&waers&=&waers.
&&&if&m_1&=&'X'.
&&&&&&txcurr&=&'人民币(汇总)'.
&&&&&&&If&p_flag&=&'X'.
&&&&&&&&&CONCATENATE&txcurr&'折人民币'&into&txcurr.
&&&&&&&ENDIF.
*&取公司名称
&&if&s_rbukrs-high&is&Initial&OR&s_rbukrs-low&=&s_rbukrs-high.&&&&&&&判断是否为空
&&&&SELECT&SINGLE&butxt&INTO&s_butxt&FROM&t001&WHERE&bukrs&=&s_rbukrs-low.
&&&&&if&p_butxt&is¬&initial.
&&&&&&&&s_butxt&=&p_butxt.
&&&&&else.
&&&&&&&&CONCATENATE&'从'&s_rbukrs-low&'到'&s_rbukrs-high&into&s_butxt.
&&&&&endif.
&&if&s_rbukrs-low(2)&=&s_rbukrs-high(2)&and&s_rbukrs-low&&&&s_rbukrs-high.
&&&&clear&s_butxt.
&&&&SELECT&SINGLE&butxt&INTO&s_butxt&FROM&t001&WHERE&bukrs&=&s_rbukrs-low.
&&&&CONCATENATE&s_butxt&'(汇总)'&into&s_butxt.
&&data&CURR&like&table&of&TCURR&with&header&line.
&&&&SELECT&*&into&corresponding&fields&of&table&CURR&FROM&TCURR
&&&&&&where&KURST&=&'M'
&&&&&&&&and&FCURR&=&waers
&&&&&&&&and&TCURR&=&'CNY'.
&&DATA:&f_tols1&LIKE&FAGLFLEXT-hslvt,&资产期初总计
&&&&&&&&f_tole1&LIKE&FAGLFLEXT-hslvt,&资产期末总计
&&&&&&&&f_tols2&LIKE&FAGLFLEXT-hslvt,&负债期初总计
&&&&&&&&f_tole2&LIKE&FAGLFLEXT-hslvt,&负债期末总计
&&&&&&&&f_sums1&LIKE&FAGLFLEXT-hslvt,&资产期初小计
&&&&&&&&f_sume1&LIKE&FAGLFLEXT-hslvt,&资产期末小计
&&&&&&&&f_sums2&LIKE&FAGLFLEXT-hslvt,&负债期初小计
&&&&&&&&f_sume2&LIKE&FAGLFLEXT-hslvt,&负债期末小计
&&&&&&&&f_rlts1&LIKE&FAGLFLEXT-hslvt,
&&&&&&&&f_rlte1&LIKE&FAGLFLEXT-hslvt,
*&&&&&&&&zx_s&LIKE&FAGLFLEXT-hslvt,
*&&&&&&&&zx_e&LIKE&FAGLFLEXT-hslvt,
&&&&&&&&f_rlts2&LIKE&FAGLFLEXT-hslvt,
&&&&&&&&f_rlte2&LIKE&FAGLFLEXT-hslvt.
&&DATA:&f_smny1&LIKE&FAGLFLEXT-hslvt,
&&&&&&&&f_emny1&LIKE&FAGLFLEXT-hslvt.
**数据计算
&&PERFORM&add_row&USING&'流动资产:'&''&''
&&&&&&&&&&&&&&&&&&&&&&&&'流动负债:'&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&PERFORM&add_row&USING&'&&现金'&&&&&&&'1001'&'1'
&&&&&&&&&&&&&&&&&&&&&&&&'&&短期借款'&&&'2101'&'46'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.&&&&期间---公司代码---年份
&&f_sums2&=&tb_result-start2.&&&&&&&&&&&&&&&&&&&初始值
&&f_sume2&=&tb_result-end2.&&&&&&&&&&&&&&&&&&&&&初始值
&&f_tols1&=&tb_result-start1.&&&&&&&&&&&&&&&&&&&初始值
&&f_tole1&=&tb_result-end1.&&&&&&&&&&&&&&&&&&&&&初始值
&&PERFORM&add_row&USING&'&&银行存款'&&&'1002'&'2'
&&&&&&&&&&&&&&&&&&&&&&&&'&&拆入资金'&&&'2102'&'47'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&其他货币'&&&''&'2'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付利息'&&&'2110'&'80'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&短期投资'&&&'1101'&'3'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付手续费'&'2111'&'48'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
*********************************************************************************************************
&&PERFORM&add_row&USING&'&&短期投资跌价准备'&&&'1102'&'4'
&&&&&&&&&&&&&&&&&&&&&&&&'&&待返售债券'&'2109'&'48'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&待回购债券'&&&''&'4'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付佣金'&'2112'&'49'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&拆出资金'&&&&&&&&&&&'1111'&'5'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付分保帐款&'&&&&&&&'2113'&'50'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&保单质押贷款'&&&&&&&&&&&'1112'&'5'
&&&&&&&&&&&&&&&&&&&&&&&&'&&预收保费'&&&&&&&'2121'&'51'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
*------------------------------应收款项开始------------------------------------
&&PERFORM&add_row&USING&'&&应收利息'&&&&&&&&&&&'1121'&'6'
&&&&&&&&&&&&&&&&&&&&&&&&'&&预收分保赔款'&&&&&&&'2122'&'52'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&tb_result-start1.&&&&&&&&&&&&&&&&&&应收款小计
&&f_sume1&=&tb_result-end1.&&&&&&&&&&&&&&&&&&&&应收款小计
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&应收红利'&&&&'1125'&'6'
&&&&&&&&&&&&&&&&&&&&&&&&'&&存入分保准备金'&&&&&'2131'&'53'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.&&&&&&&&&&&&&&&&应收款小计
&&f_sume1&=&f_sume1&+&tb_result-end1.&&&&&&&&&&&&&&&&&&应收款小计
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&应收保费'&&&&&&&&&&&'1122'&'7'
&&&&&&&&&&&&&&&&&&&&&&&&'&&存入保证金'&&&&&'2132'&'54'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.&&&&&&&&&&&&&&&&&应收款小计
&&f_sume1&=&f_sume1&+&tb_result-end1.&&&&&&&&&&&&&&&&&&&应收款小计
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&应收分保账款'&&&'1123'&'8'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付工资'&&&&&&&&&'2141'&'55'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.&&应收款项小计&-&减：坏帐准备
&&f_sume1&=&f_sume1&+&tb_result-end1.&&&&应收款项小计&-&减：坏帐准备
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&应收款项小计'&&&&&&&''&'9'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付福利费'&'2142'&'56'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&&&&&减：坏帐准备'&&'1124'&&'11'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付保户红利'&&'2143'&'57'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&-&tb_result-start1.&&应收款项小计&-&减：坏帐准备
&&f_sume1&=&f_sume1&-&tb_result-end1.&&&&应收款项小计&-&减：坏帐准备
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&-&tb_result-start1.
&&f_tole1&=&f_tole1&-&tb_result-end1.
&&PERFORM&add_row&USING&'&&应收款项净额'&&''&'12'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付利润'&&'2145'&'58'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
*------------------------------应收款项结束-----------------------------
&&PERFORM&add_row&USING&'&&预付赔款'&'1131'&'13'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应交税金'&'2146'&'59'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&存出分保准备金'&'1141'&'14'
&&&&&&&&&&&&&&&&&&&&&&&&'&&卖出回购证券款'&&&'2147'&'60'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&存出保证金'&'1142'&'15'
&&&&&&&&&&&&&&&&&&&&&&&&'&&其他应付款'&&&'2149'&'61'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&买入返售证券'&'1151'&'16'
&&&&&&&&&&&&&&&&&&&&&&&&'&&预提费用'&&&'2151'&'62'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&其他应收款'&&&&&&&&&'1191'&'17'
&&&&&&&&&&&&&&&&&&&&&&&&'&&未决赔款准备金'&&&'2161'&'63'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&系统往来'&&&&&&&&&'1199'&'66'
&&&&&&&&&&&&&&&&&&&&&&&&'&&未到期责任准备金'&&&'2162'&'64'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&委托资产'&&&&&'1198'&'66'
&&&&&&&&&&&&&&&&&&&&&&&&'&&保户储金&'&&&'2171'&'65'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&物料用品'&&&'1201'&'18'
&&&&&&&&&&&&&&&&&&&&&&&&'&&其他流动负债'&&&''&'67'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&低值易耗品'&&&'1211'&'19'
&&&&&&&&&&&&&&&&&&&&&&&&'&&流动负债合计'&&&''&'68'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&3&1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_tols2&=&f_sums2.
&&f_tole2&=&f_sume2.
&&f_rlts2&=&f_sums2.&&流动负债合计临时结果，用于后面计算
&&f_rlte2&=&f_sume2.&&
&&PERFORM&add_row&USING&'&&待摊费用'&&&'1301'&'20'
&&&&&&&&&&&&&&&&&&&&&&&&'&&&'&&&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
*&&f_sums2&=&f_sums2&+&tb_result-start2.
*&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&待处理流动资产净损失'&&&'190101'&'21'
&&&&&&&&&&&&&&&&&&&&&&&&'长期负债:&'&&&''&'69'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&一年内到期的长期债券投资'&&&''&'22'
&&&&&&&&&&&&&&&&&&&&&&&&'&&长期责任准备金'&&&''&'70'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&PERFORM&add_row&USING&'&&其他流动资产'&&&''&'23'
&&&&&&&&&&&&&&&&&&&&&&&&'&&寿险责任准备金&&&'&&&'2202'&'71'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&tb_result-start2.
&&f_sume2&=&tb_result-end2.
&&f_sums1&=&f_tols1.
&&f_sume1&=&f_tole1.
&&PERFORM&add_row&USING&'&&&&&&&流动资产合计'&&&''&'24'
&&&&&&&&&&&&&&&&&&&&&&&&'&&长期健康险责任准备金&'&&&'2203'&'72'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
*-----------------------------------流动资产--------------------
&&PERFORM&add_row&USING&'长期投资：'&&&''&'25'
&&&&&&&&&&&&&&&&&&&&&&&&'&&'&&&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&PERFORM&add_row&USING&'&&长期股权投资'&&&'1401'&'26'
&&&&&&&&&&&&&&&&&&&&&&&&'&&保险保障基金'&&&'2211'&'73'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&tb_result-start1.
&&f_sume1&=&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&长期债权投资'&&&'1402'&'27'
&&&&&&&&&&&&&&&&&&&&&&&&'&&长期借款'&&&''&'74'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&长期基金投资'&&&'1403'&'35'
&&&&&&&&&&&&&&&&&&&&&&&&'&&长期应付款'&&&''&'75'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&拨付所属资金'&&&''&''
&&&&&&&&&&&&&&&&&&&&&&&&'&&贷币兑换'&'2241'&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&减：投资风险准备'&&&'1405'&'28'
&&&&&&&&&&&&&&&&&&&&&&&&'&&住房周转金'&&&''&'76'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&-&tb_result-start1.
&&f_sume1&=&f_sume1&-&tb_result-end1.
&&f_tols1&=&f_tols1&-&tb_result-start1.
&&f_tole1&=&f_tole1&-&tb_result-end1.
&&PERFORM&add_row&USING&'&&长期投资合计'&&&''&''
&&&&&&&&&&&&&&&&&&&&&&&&'&&其他长期负债'&&&''&'77'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&3.
&&PERFORM&add_row&USING&'固定资产：'&&&''&''
&&&&&&&&&&&&&&&&&&&&&&&&'&&独立帐户负债'&''&'78'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&3.
&&PERFORM&add_row&USING&'&&固定资产原值'&&&'1601'&'30'
&&&&&&&&&&&&&&&&&&&&&&&&'&&独立帐户未实现利得'&''&'79'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&tb_result-start1.
&&f_sume1&=&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&&&减：累计折旧'&&&'1602'&'31'
&&&&&&&&&&&&&&&&&&&&&&&&'&&长期负债合计'&''&'80'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&3&2.
&&f_sums1&=&f_sums1&-&tb_result-start1.
&&f_sume1&=&f_sume1&-&tb_result-end1.
&&f_tols1&=&f_tols1&-&tb_result-start1.
&&f_tole1&=&f_tole1&-&tb_result-end1.
&&f_tols2&=&f_tols2&+&f_sums2.
&&f_tole2&=&f_tole2&+&f_sume2.
&&f_sums2&=&f_sums2&+&f_rlts2.&&&长期负债合计&+&流动负债合计
&&f_sume2&=&f_sume2&+&f_rlte2.
&&PERFORM&add_row&USING&'&&&&减：固定资产减值准备'&&&'1603'&''
&&&&&&&&&&&&&&&&&&&&&&&&'&负债合计&'&''&'81'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&3&1.
&&f_sums1&=&f_sums1&-&tb_result-start1.
&&f_sume1&=&f_sume1&-&tb_result-end1.
&&f_tols1&=&f_tols1&-&tb_result-start1.
&&f_tole1&=&f_tole1&-&tb_result-end1.
*&&f_tols2&=&f_tols2&+&tb_result-start2.
*&&f_tole2&=&f_tole2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&固定资产净值'&&&''&'32'
&&&&&&&&&&&&&&&&&&&&&&&&'所有者权益:'&''&'82'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&3.
&&PERFORM&add_row&USING&'&在建工程'&&&'1606'&'33'
&&&&&&&&&&&&&&&&&&&&&&&&'&&实收资本'&'3101'&'83'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&tb_result-start2.
&&f_sume2&=&tb_result-end2.
&&PERFORM&add_row&USING&'&&减:&在建工程减值准备&'&&&'1607'&''
&&&&&&&&&&&&&&&&&&&&&&&&'&&上级拨入资金'&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&-&tb_result-start1.
&&f_sume1&=&f_sume1&-&tb_result-end1.
&&f_tols1&=&f_tols1&-&tb_result-start1.
&&f_tole1&=&f_tole1&-&tb_result-end1.
&&PERFORM&add_row&USING&'&固定资产清理'&&&'1609'&'34'
&&&&&&&&&&&&&&&&&&&&&&&&'&&资本公积'&'3111'&'84'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&待处理固定资产净损失'&&&'190102'&'35'
&&&&&&&&&&&&&&&&&&&&&&&&'&&盈余公积'&'3121'&'85'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&&&&&固定资产合计'&&&''&'36'
&&&&&&&&&&&&&&&&&&&&&&&&'&&其中:&公益金'&''&'86'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
*&&f_sums2&=&f_sums2&+&tb_result-start2.
*&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'无形资产及其他资产：'&&&''&'37'
&&&&&&&&&&&&&&&&&&&&&&&'&&&总准备金'&'3131'&'87'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&无形资产'&&&'1701'&'38'
&&&&&&&&&&&&&&&&&&&&&&&&'&&未分配利润'&'3141'&'88'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&tb_result-start1.
&&f_sume1&=&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&长期待摊费用'&&&'1711'&'39'
&&&&&&&&&&&&&&&&&&&&&&&&'&&&以前年度损益科目'&'4801'&'88'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&存出资本保证金'&&&'1801'&'40'
&&&&&&&&&&&&&&&&&&&&&&&&'&&外币折算差异'&'5999'&'89'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&抵债物资'&&&''&'41'
&&&&&&&&&&&&&&&&&&&&&&&&'&&所有者权益合计'&''&'90'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&3&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_sums2&=&f_tols2&+&f_sums2.
&&f_sume2&=&f_tole2&+&f_sume2.
&&PERFORM&add_row&USING&'&&&其他长期资产'&&&''&'42'
&&&&&&&&&&&&&&&&&&&&&&&&'负债及所有者权益合计'&''&'91'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&3&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&独立账户资产'&&&''&'43'
&&&&&&&&&&&&&&&&&&&&&&&&''&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&递延税款'&&&'1831'&'43'
&&&&&&&&&&&&&&&&&&&&&&&&'&&'&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&无形资产及其他资产合计'&&&''&'44'
&&&&&&&&&&&&&&&&&&&&&&&&'&'&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
&&f_sums1&=&f_tols1.
&&f_sume1&=&f_tole1.
&&PERFORM&add_row&USING&'&&&&&&资产总计'&&&''&'45'
&&&&&&&&&&&&&&&&&&&&&&&&''&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
&&if&p_2&=&'X'.&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&进行单位的换算
&&&&loop&at&tb_result.
&&&&&&if&tb_result-start1&&&&0.
&&&&&&&&tb_result-start1&=&tb_result-start1&/&1000.
&&&&&&endif.
&&&&&&if&tb_result-end1&&&&0.
&&&&&&&&tb_result-end1&=&tb_result-end1&/&1000.
&&&&&&endif.
&&&&&&if&tb_result-start2&&&&0.
&&&&&&&&tb_result-start2&=&tb_result-start2&/&1000.
&&&&&&endif.
&&&&&&if&tb_result-end2&&&&0.
&&&&&&&&tb_result-end2&=&tb_result-end2&/&1000.
&&&&&&endif.
&&&&&&modify&tb_result.
&&&&endloop.
&&if&p_3&=&'X'.&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&进行单位的换算
&&&&loop&at&tb_result.
&&&&&&if&tb_result-start1&&&&0.
&&&&&&&&tb_result-start1&=&tb_result-start1&/&10000.
&&&&&&endif.
&&&&&&if&tb_result-end1&&&&0.
&&&&&&&&tb_result-end1&=&tb_result-end1&/&10000.
&&&&&&endif.
&&&&&&if&tb_result-start2&&&&0.
&&&&&&&&tb_result-start2&=&tb_result-start2&/&10000.
&&&&&&endif.
&&&&&&if&tb_result-end2&&&&0.
&&&&&&&&tb_result-end2&=&tb_result-end2&/&10000.
&&&&&&endif.
&&&&&&modify&tb_result.
&&&&endloop.
*&---------------------------------------------------------------------*
*&&end-of-selection
*&---------------------------------------------------------------------*
END-OF-SELECTION.
&&loop&at&tb_result.
&&&&clear&prt_result.
&&&&move-corresponding&tb_result&to&prt_result.
&&&&perform&num2char&using&tb_result-start1&changing&prt_result-start1.
&&&&perform&num2char&using&tb_result-start2&changing&prt_result-start2.
&&&&perform&num2char&using&tb_result-end1&changing&prt_result-end1.
&&&&perform&num2char&using&tb_result-end2&changing&prt_result-end2.
*&&&&perform&num2char&using&prt_result-start1&changing&prt_result-start1.
*&&&&perform&num2char&using&prt_result-start2&changing&prt_result-start2.
*&&&&perform&num2char&using&prt_result-end1&changing&prt_result-end1.
*&&&&perform&num2char&using&prt_result-end2&changing&prt_result-end2.
&&&&append&prt_result.
&&endloop.
&&perform&init_fieldcat&using&''.
&&perform&init_layout.
&&perform&event_build.
&&perform&listdata.
***************************************************************
*&&CACUMONEY
*&&查询字段&racct&&&代表的科目名称
*&&子查询语句&saknr&代表的是科目的编号
***************************************************************
FORM&cacumoney&USING&&&&&s_km&&&&&i_monat&&c_rbukrs&&c_gjahr
&&&&&&&&&&&&&&&CHANGING&&f_smny&&&f_money.
&&DATA&s_km1(11)&TYPE&c.
&&data&FAGLFLEXT&like&table&of&FAGLFLEXT&with&header&line.
&&CONCATENATE&s_km&'%'&INTO&s_km1.
&&f_smny&=&0.&f_money&=&0.
&&if&m_1&=&'X'.
&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&AND&racct&LIKE&s_km1
&&&&&&&&AND&rpmax&=&16
&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&AND&rtcur&=&waers
&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&AND&racct&LIKE&s_km1
&&&&&&&&AND&rpmax&=&16
&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&if&s_km&=&'3141'.
&&&&&&clear&FAGLFLEXT[].
&&&&&&if&m_1&=&'X'.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'3141%'&OR&racct&LIKE&'3151%'&OR&(&racct&&=&''&AND&racct&=&&''&)&)
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&else.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rtcur&=&waers
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'3141%'&OR&racct&LIKE&'3151%'&OR&(&racct&&=&''&AND&racct&=&&''&)&)
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&endif.
&&&if&s_km&=&''.
&&&&&&clear&FAGLFLEXT[].
&&&&&&if&m_1&=&'X'.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'%'&OR&racct&LIKE&'%'&OR&&racct&LIKE&'%'&OR&racct&LIKE&'1003%'&OR&racct&LIKE&'1004%'&)
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&else.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rtcur&=&waers
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'%'&OR&racct&LIKE&'%'&OR&&racct&LIKE&'%'&OR&racct&LIKE&'1003%'&OR&racct&LIKE&'1004%'&)
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&endif.
&&&if&s_km&=&''.
&&&&&&clear&FAGLFLEXT[].
&&&&&&if&m_1&=&'X'.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'%'&OR&racct&LIKE&'%')
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&else.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rtcur&=&waers
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'%'&OR&racct&LIKE&'%')
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&endif.
&&loop&at&FAGLFLEXT.
&&&&tb_result-companyid&=&FAGLFLEXT-RBUKRS.
&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&f_smny&=&f_smny&+&FAGLFLEXT-hslvt.
&&&&&&f_money&=&f_money&+&FAGLFLEXT-hslvt.
&&&&&&f_smny&=&f_smny&+&FAGLFLEXT-tslvt.
&&&&&&f_money&=&f_money&+&FAGLFLEXT-tslvt.
&&&&endif.
&&&&IF&i_monat&&=&1.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl01.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl01.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&2.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl02.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl02.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&3.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl03.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl03.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&4.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl04.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl04.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&5.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl05.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl05.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&6.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl06.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl06.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&7.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl07.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl07.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&8.
&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl08.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl08.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&9.
&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl09.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl09.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&10.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl10.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl10.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&11.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl11.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl11.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&12.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl12.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl12.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&13.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl13.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl13.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&14.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl14.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl14.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&15.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl15.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl15.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&16.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl16.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl16.
&&&&&&endif.
&&&&ENDIF.
&&endloop.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&CACUMONEY
***************************************************************
*&&ADD_ROW
*&a_type&&标志行项目是否为合计或者小计
*&a_type1&标志金额是否需要取反&1负债类取反；2资产类取反；3都取反
***************************************************************
FORM&add_row&USING&a_asset1&a_km1&a_row1&&资产科目行号
&&&&&&&&&&&&&&&&&&&a_asset2&a_km2&a_row2
&&&&&&&&&&&&&&&&&&&a_monat&a_rbukrs&a_gjahr&a_type&a_type1.
&&DATA:&f_smny&LIKE&FAGLFLEXT-hslvt,
&&&&&&&&f_emny&LIKE&FAGLFLEXT-hslvt.
&&CLEAR&tb_result.&&&&&&&&&清空结果表
&&tb_result-asset1&&=&&a_asset1.&&&&&资产项目
&&tb_result-row1&&&&=&&a_row1.&&&&&&&行次
&&tb_result-asset2&&=&&a_asset2.&&&&&资产项目
&&tb_result-row2&&&&=&&a_row2.&&&&&&&行次
&&IF&a_type&=&1.&非合计项目
&&&&IF&a_km1&&&&''&AND&a_km1&IS&NOT&INITIAL.&&&&&&判断科目编号不为空
&&&&&&PERFORM&cacumoney&USING&a_km1&a_monat&a_rbukrs&a_gjahr
&&&&&&&&&&&&&&&&&&&&&&&&CHANGING&f_smny&f_emny.&&&调用另外一个函数返回值
&&&&&&if&a_type1&=&2&or&a_type1&=&3.
&&&&&&&&tb_result-start1&&=&0&-&f_smny.&&&资产或都去反
&&&&&&&&tb_result-end1&&&&=&0&-&f_emny.
&&&&&&else.
&&&&&&&&tb_result-start1&&=&f_smny.
&&&&&&&&tb_result-end1&&&&=&f_emny.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&a_km2&&&&''&AND&a_km2&IS&NOT&INITIAL.
&&&&&&PERFORM&cacumoney&USING&a_km2&a_monat&a_rbukrs&a_gjahr
&&&&&&&&&&&&&&&&&&&&&&&&CHANGING&f_smny&f_emny.
&&&&&&IF&&a_type1&=&1&or&a_type1&=&3&.
&&&&&&&&tb_result-start2&&=&0&-&f_smny.
&&&&&&&&tb_result-end2&&&&=&0&-&f_emny.
&&&&&&ELSE.
&&&&&&&&tb_result-start2&&=&f_smny.
&&&&&&&&tb_result-end2&&&&=&f_emny.
&&&&&&ENDIF.
&&&&ENDIF.
&&ELSEIF&a_type&=&2.&左边资产类合计，右边负债类非合计项目
&&&&tb_result-start1&&&&=&f_sums1.
&&&&tb_result-end1&&&&&&=&f_sume1.
&&&&IF&a_km2&&&&''&AND&a_km2&IS&NOT&INITIAL.
&&&&&&PERFORM&cacumoney&USING&a_km2&a_monat&a_rbukrs&a_gjahr
&&&&&&&&&&&&&&&&&&&&&&&&CHANGING&f_smny&f_emny.
&&&&&&IF&a_type1&=&1&or&a_type1&=&3.&&&&&&&&&&&负债取反，都取反
&&&&&&&&tb_result-start2&&=&0&-&f_smny.
&&&&&&&&tb_result-end2&&&&=&0&-&f_emny.
&&&&&&ELSE.
&&&&&&&&tb_result-start2&&=&f_smny.
&&&&&&&&tb_result-end2&&&&=&f_emny.
&&&&&&ENDIF.
&&&&ENDIF.
&&ELSEIF&a_type&=&3.&左边资产类非合计，右边负债类合计项目
&&&&IF&a_km1&&&&''&AND&a_km1&IS&NOT&INITIAL.
&&&&&&PERFORM&cacumoney&USING&a_km1&a_monat&a_rbukrs&a_gjahr
&&&&&&&&&&&&&&&&&&&&&&&&CHANGING&f_smny&f_emny.
&&&&&&if&a_type1&=&2&or&a_type1&=&3.&&&&&&&&&&&资产取反，或都取反
&&&&&&&&tb_result-start1&&=&0&-&f_smny.
&&&&&&&&tb_result-end1&&&&=&0&-&f_emny.
&&&&&&else.
&&&&&&&&tb_result-start1&&=&f_smny.
&&&&&&&&tb_result-end1&&&&=&f_emny.
&&&&&&endif.
&&&&ENDIF.
&&&&tb_result-start2&&&&=&f_sums2.
&&&&tb_result-end2&&&&&&=&f_sume2.
&&ELSEIF&a_type&=&4.&都是合计项目
&&&&tb_result-start1&&&&=&f_sums1.
&&&&tb_result-end1&&&&&&=&f_sume1.
&&&&tb_result-start2&&&&=&f_sums2.
&&&&tb_result-end2&&&&&&=&f_sume2.
&&IF&a_km1&=&'1601'.
&&&&&&PERFORM&cacumoney&USING&'1503'&a_monat&a_rbukrs&a_gjahr
&&&&&&&&&&&&&&&&&&&&&&&&CHANGING&f_smny&f_emny.
&&&&&&&&tb_result-start1&&=&tb_result-start1&+&f_smny.
&&&&&&&&tb_result-end1&&&&=&tb_result-end1&+&f_emny.
&&APPEND&tb_result.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&ADD_ROW
*&--------------------------------------------------------------------*
*&&&&&&&Form&&NUM2CHAR
*&--------------------------------------------------------------------*
*&&&&&&&text
*---------------------------------------------------------------------*
*&&&&&&--&FNUM&&&&&&&text
*&&&&&&--&SRET&&&&&&&text
*---------------------------------------------------------------------*
FORM&num2char&USING&fnum&like&tb_result-end1&CHANGING&sret.
&&WRITE&fnum&NO-ZERO&TO&sret.
&&IF&fnum&&&0.
&&&&CONCATENATE&'-'&sret&INTO&sret.
&&if&sret&CO&'0.'.
&&&&sret&=&'&&&&&&&&&&&&&&&'.
&&CONDENSE&sret&NO-GAPS.
form&init_layout.
&&LAYOUT-ZEBRA&=&'X'.
&&LAYOUT-F2CODE&=&'&IC1'.
&&LAYOUT-DETAIL_POPUP&=&'X'.
&&LAYOUT-colwidth_optimize&=&'X'.
&&LAYOUT-no_vline&=&''.
&&LAYOUT-no_hline&=&''.
*&&LAYOUT-numc_sum&=&'X'.
&&LAYOUT-no_sumchoice&=&''.
&&LAYOUT-no_subchoice&=&''.
&&LAYOUT-no_totalline&=&''.
&&LAYOUT-no_subtotals&=&''.
FORM&TOP_OF_PAGE.
&&select&single&butxt&into&s_butxt
&&&&from&t001
&&&&&&where&bukrs&=&prt_result-companyid.
&&write:/42&&'中国人保寿险有限公司'.
&&write:/48&&'资产负债表'.
&&write:/48&&prtdate.
&&write:/2&'单位名称：',s_butxt,&64&'币&&&&种：',txcurr.
&&if&m_2&=&'X'&AND&waers&&&&'CNY'.
&&&&write:45&'汇率:',EXCH_RATE.
&&write:/64&'金额单位：',txunit.
FORM&END_OF_LIST.
&&write:/2&&'公司负责人：',&40&'财务负责人:',&60&'复核:'&,85&'制表:'.
FORM&EVENT_BUILD&.
&&data:&ls_event&type&slis_alv_event.
&&call&function&'REUSE_ALV_EVENTS_GET'
&&&&EXPORTING
&&&&&&i_list_type&=&0
&&&&IMPORTING
&&&&&&et_events&&&=&EVENTCAT[].
&&read&table&EVENTCAT&with&key&name&=&&slis_ev_top_of_page
&&&&&&&&&&&&&&&&&&&&&&&&&&&&into&ls_event.
&&if&sy-subrc&=&0.
&&&&move&'TOP_OF_PAGE'&to&ls_event-form.
&&&&append&ls_event&to&EVENTCAT.
&&read&table&EVENTCAT&with&key&name&=&&slis_ev_end_of_list
&&&&&&&&&&&&&&&&&&&&&&&&&&&&into&ls_event.
&&if&sy-subrc&=&0.
&&&&move&'END_OF_LIST'&to&ls_event-form.
&&&&append&ls_event&to&EVENTCAT.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&&EVENT_BUILD
form&init_fieldcat&using&flag.&&&&&&&&&&&&&&&&初始化表头
*&&clear&fieldcat[].
*&&CLEAR&FIELDCAT.
*&&FIELDCAT-FIELDNAME&=&'COMPANYID'.
*&&FIELDCAT-reptext_ddic&=&'科目'.
*&&FIELDCAT-no_out&=&'X'.
*&&APPEND&FIELDCAT.
&&clear&fieldcat[].
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'ASSET1'.
&&FIELDCAT-reptext_ddic&=&'项目'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'ROW1'.
&&FIELDCAT-reptext_ddic&=&'行次'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'START1'.
&&FIELDCAT-reptext_ddic&=&'年初数'.
&&FIELDCAT-just&=&'R'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'END1'.
&&FIELDCAT-reptext_ddic&=&'期末数'.
&&FIELDCAT-just&=&'R'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'ASSET2'.
&&FIELDCAT-reptext_ddic&=&'项目'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'ROW2'.
&&FIELDCAT-reptext_ddic&=&'行次'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'START2'.
&&FIELDCAT-reptext_ddic&=&'年初数'.
&&FIELDCAT-just&=&'R'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'END2'.
&&FIELDCAT-reptext_ddic&=&'期末数'.
&&FIELDCAT-just&=&'R'.
&&APPEND&FIELDCAT.
*&&CLEAR:SORTCAT,SORTCATLN.
**&&SORTCATLN-SPOS&=&1.
*&&SORTCATLN-UP&=&'X'.
*&&SORTCATLN-FIELDNAME&=&'COMPANYID'.
*&&SORTCATLN-SUBTOT&=&'X'.
*&&SORTCATLN-GROUP&=&'*'.
*&&APPEND&SORTCATLN&to&SORTCAT.
FORM&LISTDATA.
&v_repid&=&sy-repid.
&CALL&FUNCTION&'REUSE_ALV_LIST_DISPLAY'
&&&&&&EXPORTING
&&&&&&&&&&&I_CALLBACK_PF_STATUS_SET&=&'SET_PF_STATUS'
&&&&&&&&&&&I_CALLBACK_PROGRAM&&&&&&=&&V_REPID
&&&&&&&&&&&I_CALLBACK_USER_COMMAND&=&&'USER_COMMAND'
&&&&&&&&&&&IS_LAYOUT&&&&&&&&&&&&&&&=&&LAYOUT
&&&&&&&&&&&IT_FIELDCAT&&&&&&&&&&&&&=&&FIELDCAT[]
&&&&&&&&&&&IT_EVENTS&&&&&&&&&&&&&&&=&&EVENTCAT
&&&&&&&&&&&IT_SORT&&&&&&&&&&&&&&&&&=&&SORTCAT
&&&&&&&&&&&IT_EXCLUDING&&&&&&&&&&&&=&&rt_extab
&&&&&&TABLES
&&&&&&&&&&&T_OUTTAB&&&&&&&&&&&&&&&&=&&prt_result
&&&&&&EXCEPTIONS
&&&&&&&&&&&PROGRAM_ERROR&&&&&&&&&&&=&1
&&&&&&&&&&&OTHERS&&&&&&&&&&&&&&&&&&=&2.
&IF&SY-SUBRC&&&&0.
&&&MESSAGE&ID&SY-MSGID&TYPE&SY-MSGTY&NUMBER&SY-MSGNO
&&&&&&WITH&SY-MSGV1&SY-MSGV2&SY-MSGV3&SY-MSGV4.
FORM&set_pf_status&using&rt_extab&TYPE&slis_t_extab.
&&data:&wa_extab&type&slis_extab.
&&wa_extab-fcode&=&'&OAD'.
&&append&wa_extab&to&rt_extab.
&&wa_extab-fcode&=&'&AVE'.
&&append&wa_extab&to&rt_extab.
&&SET&PF-STATUS&'ZSTANDARD'&EXCLUDING&rt_extab&.©&from&BCALV_TEST_LIST.
ENDFORM.&&Set_pf_status
FORM&user_command&USING&r_ucomm&&&&&LIKE&sy-ucomm
&&&&&&&&&&&&&&&&&&&&&&&&rs_selfield&TYPE&slis_selfield.
IF&r_ucomm&EQ&'&PRT'.
&&PERFORM&open_form&.
&&PERFORM&write_form&USING&'MAIN'&'E1'.
&&PERFORM&write_form&USING&'MAIN'&'E2'.
&&loop&at&prt_result.
&&&&PERFORM&write_form&USING&'MAIN'&'E3'.
&&endloop.
&&PERFORM&write_form&USING&'MAIN'&'E4'.
&&PERFORM&close_form&.
ENDFORM.&&&User_command
FORM&open_form&.
&&CALL&FUNCTION&'OPEN_FORM'
&&&EXPORTING
*&&&&&APPLICATION&&&&&&&&&&&&&&&&&&&&&&&=&'TX'
*&&&&&ARCHIVE_INDEX&&&&&&&&&&&&&&&&&&&&&=
*&&&&&ARCHIVE_PARAMS&&&&&&&&&&&&&&&&&&&&=
*&&&&&DEVICE&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&'PRINTER'
*&&&&&DIALOG&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&'X'
&&&&&&form&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&&'ZFIRP050'
*&&&&&language&&&&&&&&&&&&&&&&&&&&&&&&&&=&'M'
*&&&&&OPTIONS&&&&&&&&&&&&&&&&&&&&&&&&&&&=&OPTION
*&&&&&MAIL_SENDER&&&&&&&&&&&&&&&&&&&&&&&=
*&&&&&MAIL_RECIPIENT&&&&&&&&&&&&&&&&&&&&=
*&&&&&MAIL_APPL_OBJECT&&&&&&&&&&&&&&&&&&=
*&&&&&RAW_DATA_INTERFACE&&&&&&&&&&&&&&&&=&'*'
*&&&IMPORTING
*&&&&&LANGUAGE&&&&&&&&&&&&&&&&&&&&&&&&&&=
*&&&&&NEW_ARCHIVE_PARAMS&&&&&&&&&&&&&&&&=
*&&&&&RESULT&&&&&&&&&&&&&&&&&&&&&&&&&&&&=
&&&EXCEPTIONS
&&&&&canceled&&&&&&&&&&&&&&&&&&&&&&&&&&=&1
&&&&&device&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&2
&&&&&form&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&3
&&&&&options&&&&&&&&&&&&&&&&&&&&&&&&&&&=&4
&&&&&unclosed&&&&&&&&&&&&&&&&&&&&&&&&&&=&5
&&&&&mail_options&&&&&&&&&&&&&&&&&&&&&&=&6
&&&&&archive_error&&&&&&&&&&&&&&&&&&&&&=&7
&&&&&invalid_fax_number&&&&&&&&&&&&&&&&=&8
&&&&&more_params_needed_in_batch&&&&&&&=&9
&&&&&spool_error&&&&&&&&&&&&&&&&&&&&&&&=&10
&&&&&OTHERS&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&11&&.
&&IF&sy-subrc&&&&0.
&&&&MESSAGE&ID&sy-msgid&TYPE&sy-msgty&NUMBER&sy-msgno
&&&&&&&WITH&sy-msgv1&sy-msgv2&sy-msgv3&sy-msgv4.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&open_form
*&--------------------------------------------------------------------*
*&&&&&&&Form&&write_form
*&--------------------------------------------------------------------*
*&&&&&&&text
*---------------------------------------------------------------------*
*&&&&&&--&L_WINDOW&&&text
*&&&&&&--&L_ELEMENT&&text
*---------------------------------------------------------------------*
FORM&write_form&USING&l_window&l_element.
&&CALL&FUNCTION&'WRITE_FORM'
&&&EXPORTING
&&&&&element&&&&&&&&&&&&&&&&&&&&&&&&=&l_element
*&&&&&FUNCTION&&&&&&&&&&&&&&&&&&&&&&=&'SET'
*&&&&&TYPE&&&&&&&&&&&&&&&&&&&&&&&&&&=&'BODY'
&&&&&window&&&&&&&&&&&&&&&&&&&&&&&&&=&l_window
*&&&IMPORTING
*&&&&&PENDING_LINES&&&&&&&&&&&&&&&&&&=
&&&EXCEPTIONS
&&&&&element&&&&&&&&&&&&&&&&&&&&&&&&=&1
&&&&&function&&&&&&&&&&&&&&&&&&&&&&&=&2
&&&&&type&&&&&&&&&&&&&&&&&&&&&&&&&&&=&3
&&&&&unopened&&&&&&&&&&&&&&&&&&&&&&&=&4
&&&&&unstarted&&&&&&&&&&&&&&&&&&&&&&=&5
&&&&&window&&&&&&&&&&&&&&&&&&&&&&&&&=&6
&&&&&bad_pageformat_for_print&&&&&&&=&7
&&&&&spool_error&&&&&&&&&&&&&&&&&&&&=&8
&&&&&OTHERS&&&&&&&&&&&&&&&&&&&&&&&&&=&9
&&&&&&&&&&&&.
&&IF&sy-subrc&&&&0.
&&&&MESSAGE&ID&sy-msgid&TYPE&sy-msgty&NUMBER&sy-msgno
&&&&&&&WITH&sy-msgv1&sy-msgv2&sy-msgv3&sy-msgv4.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&write_form
*&--------------------------------------------------------------------*
*&&&&&&&Form&&close_form
*&--------------------------------------------------------------------*
*&&&&&&&text
*---------------------------------------------------------------------*
FORM&close_form.
&&CALL&FUNCTION&'CLOSE_FORM'
*&&&IMPORTING
*&&&&&RESULT&&&&&&&&&&&&&&&&&&&&&&&&&=
*&&&&&RDI_RESULT&&&&&&&&&&&&&&&&&&&&&=
*&&&TABLES
*&&&&&OTFDATA&&&&&&&&&&&&&&&&&&&&&&&&=
&&&EXCEPTIONS
&&&&&unopened&&&&&&&&&&&&&&&&&&&&&&&=&1
&&&&&bad_pageformat_for_print&&&&&&&=&2
&&&&&send_error&&&&&&&&&&&&&&&&&&&&&=&3
&&&&&spool_error&&&&&&&&&&&&&&&&&&&&=&4
&&&&&OTHERS&&&&&&&&&&&&&&&&&&&&&&&&&=&5
&&&&&&&&&&&&.
&&IF&sy-subrc&&&&0.
&&&&MESSAGE&ID&sy-msgid&TYPE&sy-msgty&NUMBER&sy-msgno
&&&&&&&WITH&sy-msgv1&sy-msgv2&sy-msgv3&sy-msgv4.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&close_form
form&read_screen.
&&clear&dynpread[].
&&DYNPREAD-FIELDNAME&=&'M_2'.
&&APPEND&DYNPREAD.
CALL&FUNCTION&'DYNP_VALUES_READ'
&&EXPORTING
&&&&DYNAME&&&&&&&&&&&&&&&&&&&&&&&&&=&sy-repid
&&&&DYNUMB&&&&&&&&&&&&&&&&&&&&&&&&&=&sy-dynnr
&&&&DYNPFIELDS&&&&&&&&&&&&&&&&&&&&&=&DYNPREAD
&EXCEPTIONS
&&&INVALID_ABAPWORKAREA&&&&&&&&&&&=&1
&&&INVALID_DYNPROFIELD&&&&&&&&&&&&=&2
&&&INVALID_DYNPRONAME&&&&&&&&&&&&&=&3
&&&INVALID_DYNPRONUMMER&&&&&&&&&&&=&4
&&&INVALID_REQUEST&&&&&&&&&&&&&&&&=&5
&&&NO_FIELDDESCRIPTION&&&&&&&&&&&&=&6
&&&INVALID_PARAMETER&&&&&&&&&&&&&&=&7
&&&UNDEFIND_ERROR&&&&&&&&&&&&&&&&&=&8
&&&DOUBLE_CONVERSION&&&&&&&&&&&&&&=&9
&&&STEPL_NOT_FOUND&&&&&&&&&&&&&&&&=&10
&&&OTHERS&&&&&&&&&&&&&&&&&&&&&&&&&=&11
&&&&&&&&&&.
IF&SY-SUBRC&&&&0.
&&&MESSAGE&ID&SY-MSGID&TYPE&SY-MSGTY&NUMBER&SY-MSGNO
&&&&&&&&&&&WITH&SY-MSGV1&SY-MSGV2&SY-MSGV3&SY-MSGV4.
form&check.
&&if&m_2&=&'X'.
&&&&&&if&waers&is&initial.
&&&&&&&&MESSAGE&e398(00)&WITH&'请输入货币币种'.
&&&&&&endif.
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：612985次
积分：13111
积分：13111
排名：第331名
原创：540篇
转载：864篇
译文：65篇
评论：51条
(14)(14)(3)(2)(32)(2)(4)(5)(11)(34)(35)(39)(35)(36)(33)(10)(41)(39)(40)(16)(5)(12)(55)(38)(33)(24)(22)(43)(56)(55)(10)(68)(21)(53)(18)(76)(45)(159)(224)(9)}
货币资金（急急）
共有 2 位网友向您献上回答啦， 对答案满意？赶快给出你的好评，感谢他们吧！
银行存款，现金，其他货币资金（国库券、债券、保证金及外埠存款等）合计就是货币资金。
您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注Excel财务软件(包含会计科目、凭证录入、凭证打印、科目余额表、资产负债表、损益表等)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
15页免费4页免费10页1下载券1页1下载券54页3下载券7页1下载券7页1下载券3页1下载券9页1下载券1页免费
喜欢此文档的还喜欢18页1下载券4页免费2页5下载券2页1下载券13页1下载券
Excel财务软件(包含会计科目、凭证录入、凭证打印、科目余额表、资产负债表、损益表等)|
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢您还未登陆，请登录后操作！
“拨入专款——校舍维修购置”与“专款支出”对冲的余额如果要转入“拨入专款结存”科目，那么明细帐科目是
共有 1 位网友向您献上回答啦， 对答案满意？赶快给出你的好评，感谢他们吧！
在“资产负债表”中，将“拨入专款”与汇总所属的“专款支出”之差列入“拨入专款结存”或“专款结余”栏中，如果不设置这两个科目，直接用“拨入专款”科目也是可以的（通常，事业单位会计都习惯于用“拨入专款”这个科目，不重新设置新科目，事业单位会计制度规定会计人员可根据需要在制度范围内设置相应小科目，如果你不是很熟悉的话，就直接用“拨入专款”这个科目吧）。
拨入专款（拨入专款结存）大类属于负债部类,小类属于收入类，二级明细帐科目就是校舍维修购置。
我以前回答过你关于这个科目的提问，看来你还没有完全理解，再把这个科目的核算和你讲一讲：
拨入专款是指事业单位收到财政部门、上级单位或其他部门拨入的指定项目或用途并需要单独报账的专项资金。“拨入专款”属于收入类科目，贷方记增加数，借方记减少数，余额在贷方，平时贷方余额反映当年上级拨入专款的累计数。其会计分录如下：（1） 单位收到拨入专款时记： 借： 银行存款 贷： 拨入专款——××专款（2） 缴回拨入专款时，作相反分录。（3） 年终结账，对本单位已完工的项目进行转账时记： 借： 拨入专款 贷： 专款支出（4） 年终，上级单位根据所属单位报来的专
在“资产负债表”中，将“拨入专款”与汇总所属的“专款支出”之差列入“拨入专款结存”或“专款结余”栏中，如果不设置这两个科目，直接用“拨入专款”科目也是可以的（通常，事业单位会计都习惯于用“拨入专款”这个科目，不重新设置新科目，事业单位会计制度规定会计人员可根据需要在制度范围内设置相应小科目，如果你不是很熟悉的话，就直接用“拨入专款”这个科目吧）。
拨入专款（拨入专款结存）大类属于负债部类,小类属于收入类，二级明细帐科目就是校舍维修购置。
我以前回答过你关于这个科目的提问，看来你还没有完全理解，再把这个科目的核算和你讲一讲：
拨入专款是指事业单位收到财政部门、上级单位或其他部门拨入的指定项目或用途并需要单独报账的专项资金。“拨入专款”属于收入类科目，贷方记增加数，借方记减少数，余额在贷方，平时贷方余额反映当年上级拨入专款的累计数。其会计分录如下：（1） 单位收到拨入专款时记： 借： 银行存款 贷： 拨入专款——××专款（2） 缴回拨入专款时，作相反分录。（3） 年终结账，对本单位已完工的项目进行转账时记： 借： 拨入专款 贷： 专款支出（4） 年终，上级单位根据所属单位报来的专款支出决算时记： 借： 拨入专款 贷：拨出专款（5） 专款结余按规定留归本单位使用时记： 借： 拨入专款 贷：事业基金（6） 年终，拨入专款贷方余额为尚未完工报销的专项资金数。拨入专款按规定来源和项目设置明细账。
大家还关注1608人阅读
*&---------------------------------------------------------------------*
*&&Report&&ZTEST13
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
REPORT&&ZTEST13&MESSAGE-ID&zfirpt&.&&&&&&&&&&&&报表名称
*&---------------------------------------------------------------------*
*&&tables&&&nodes
*&---------------------------------------------------------------------*
TABLES:&&t001,&&&公司主数据
&&&&&&&&&bkpf,&&&
&&&&&&&&&V_TCURR,
&&&&&&&&&FAGLFLEXT.&&&科目余额表
*&---------------------------------------------------------------------*
*&&internal&tables
*&---------------------------------------------------------------------*
DATA:&BEGIN&OF&tb_result&OCCURS&0,&&资产负债表结果集
&&&&&&&&companyid(4)&&TYPE&c,
&&&&&&&&asset1(30)&TYPE&c,&&&&&&&&&&资产项目
&&&&&&&&row1(2)&&&&TYPE&c,&&&&&&&&&&行次
&&&&&&&&start1&&&&&LIKE&FAGLFLEXT-hslvt,&期初值
&&&&&&&&end1&&&&&&&LIKE&FAGLFLEXT-hslvt,&期未值
&&&&&&&&asset2(30)&TYPE&c,&&&&&&&&&&资产项目
&&&&&&&&row2(2)&&&&TYPE&c,&&&&&&&&&&行次
&&&&&&&&start2&&&&&LIKE&FAGLFLEXT-hslvt,&期初值
&&&&&&&&end2&&&&&&&LIKE&FAGLFLEXT-hslvt,&期未值
&&&&&&END&OF&tb_result.
DATA:&BEGIN&OF&prt_result&OCCURS&0,&&资产负债表结果集
&&&&&&&&companyid(4)&&TYPE&c,
&&&&&&&&asset1(30)&TYPE&c,&&&&&&&&&&&资产项目
&&&&&&&&row1(2)&&&&TYPE&c,&&&&&&&&&&行次
&&&&&&&&start1(16)&type&c,&&&&&&&&&&&期初值
&&&&&&&&end1(16)&&&type&c,&&&&&&&&&&&期未值
&&&&&&&&asset2(30)&TYPE&c,&&&&&&&&&&&资产项目
&&&&&&&&row2(2)&&&&TYPE&c,&&&&&&&&&&行次
&&&&&&&&start2(16)&type&c,&&&&&&&&&&&期初值
&&&&&&&&end2(16)&&&type&c,&&&&&&&&&&&期未值
&&&&&&END&OF&prt_result.
*&---------------------------------------------------------------------*
*&&variant&declare
*&---------------------------------------------------------------------*
DATA:&&s_butxt(50)&type&c,&&&公司名称
&&&&&&s_m1(23)&&TYPE&c,
&&&&&&s_m2(23)&&TYPE&c,
&&&&&&s_m3(23)&&TYPE&c,
&&&&&&s_m4(23)&&TYPE&c.
**PARAMTERS&FOR&OUTPUT&FORMAT
DATA:&i_lwidth&TYPE&i&VALUE&185,&&&横线宽
&&&&&&i_col1&TYPE&i&VALUE&35,&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&列1宽
&&&&&&i_col2&TYPE&i&VALUE&4,&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&列2宽
&&&&&&i_col3&TYPE&i&VALUE&20,&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&列3宽
&&&&&&i_col4&TYPE&i&VALUE&20.&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&列4宽
data:&DYNPREAD&like&table&of&DYNPREAD&with&header&line.
data:&DCURR&like&table&of&BAPI1093_0&with&header&line.
TYPE-POOLS:&SLIS.
data:&FIELDCAT&TYPE&SLIS_T_FIELDCAT_ALV&WITH&HEADER&LINE,
&&&&&&FLD_HEAD&TYPE&SLIS_LISTHEADER,
&&&&&&SORTCAT&&TYPE&SLIS_T_SORTINFO_ALV,
&&&&&&SORTCATLN&&&LIKE&&&LINE&OF&SORTCAT,
&&&&&&ITAB_LISTHEAD&TYPE&SLIS_T_LISTHEADER,
&&&&&&LAYOUT&TYPE&&SLIS_LAYOUT_ALV,
&&&&&&V_REPID&LIKE&SY-REPID,
&&&&&&rt_extab&TYPE&slis_t_extab,
&&&&&&EVENTCAT&&&&&TYPE&&&SLIS_T_EVENT.
data:&tmpdate&like&sy-datum,
&&&&&&prtdate&like&sy-datum,
&&&&&&tempcurr&like&BAPI1093_1-FROM_CURR,
&&&&&&EXCH_RATE(10)&type&c,
&&&&&&txunit(10)&type&c,
&&&&&&errorflag&&type&c,
&&&&&&txcurr(16)&type&c.
*&---------------------------------------------------------------------*
*&&selection-screen
*&---------------------------------------------------------------------*
SELECT-OPTIONS:
&&s_rbukrs&FOR&bkpf-bukrs&OBLIGATORY&.&&&&&&公司代码
PARAMETERS:
&&i_gjahr&LIKE&bkpf-gjahr&DEFAULT&sy-datum+0(4)&OBLIGATORY,&&&财务年度
&&i_monat&LIKE&bkpf-monat&OBLIGATORY,&&&&&&&期间
*&&waers&&&like&bkpf-waers&OBLIGATORY.&&&&&&&货币代码
&&p_butxt(40)&type&c.
SELECTION-SCREEN&BEGIN&OF&BLOCK&b02&WITH&FRAME&TITLE&tit.&&&选择屏幕
PARAMETERS:&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&单选按钮
&&&p_1&&RADIOBUTTON&GROUP&g1&default&'X',
&&&p_2&&RADIOBUTTON&GROUP&g1,
&&&p_3&&RADIOBUTTON&GROUP&g1.
SELECTION-SCREEN&END&OF&BLOCK&b02.&&&&&&&&&&&&&&&&&&&&&&&&&&&选择屏幕结束
SELECTION-SCREEN&BEGIN&OF&BLOCK&b01&WITH&FRAME&TITLE&text-001.
PARAMETERS:&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&单选按钮
&&&m_1&&RADIOBUTTON&GROUP&g2&default&'X',
&&&m_2&&RADIOBUTTON&GROUP&g2,
&&&waers&&&like&bkpf-waers&,&&&&&&&货币代码
&&&p_flag&as&checkbox.
SELECTION-SCREEN&END&OF&BLOCK&b01.
*&---------------------------------------------------------------------*
*&&initialization
*&---------------------------------------------------------------------*
INITIALIZATION.
&&&&tit&=&'金额单位'.
*&---------------------------------------------------------------------*
*&&AT&SELECTION-SCREEN&OUTPUT
*&---------------------------------------------------------------------*
*AT&SELECTION-SCREEN&OUTPUT.
*&&perform&read_screen.
*&&LOOP&AT&SCREEN.
*&&&&IF&m_2&=&'X'&AND&(&screen-name&=&'WAERS'&or&screen-name&=&'P_FLAG'
*&&&&&&&or&screen-name&=&'%_WAERS_%_APP_%-TEXT').
*&&&&&&screen-active&=&1.
*&&&&&&if&screen-name&=&'WAERS'.
*&&&&&&&&screen-request&&=&1.
*&&&&&&&&screen-required&=&1.
*&&&&&&endif.
*&&&&&&MODIFY&SCREEN.
*&&&&ENDIF.
*&&&&IF&m_2&=&''&AND&(&screen-name&=&'WAERS'&or&screen-name&=&'P_FLAG'
*&&&&&&&or&screen-name&=&'%_WAERS_%_APP_%-TEXT').
*&&&&&&screen-active&=&0.
*&&&&&&if&screen-name&=&'WAERS'.
*&&&&&&&&screen-request&&=&0.
*&&&&&&&&screen-required&=&0.
*&&&&&&endif.
*&&&&&&MODIFY&SCREEN.
*&&&&ENDIF.
*&&ENDLOOP.
*&---------------------------------------------------------------------*
*&&at&selection-screen
*&---------------------------------------------------------------------*
AT&SELECTION-SCREEN.
&&perform&check.
&&SELECT&*&FROM&t001&WHERE&bukrs&IN&s_rbukrs&.
&&&&errorflag&=&''.
&&&&AUTHORITY-CHECK&OBJECT&'ZFIRPT'&&&&&&&&&&&&&&&&&&&&&&&&&&&权限判断
&&&&&&&&&&&&&ID&'BUKRS'&FIELD&t001-bukrs.
&&&&IF&sy-subrc&=&0.
&&&&&&&errorflag&=&'f'.
&&&&endif.
&&&&AUTHORITY-CHECK&OBJECT&'ZPARK'&&&&&&&&&&&&&&&&&&&&&&&&&&&权限判断
&&&&&&&&&&&&&ID&'BUKRS'&FIELD&t001-bukrs.
&&&&IF&sy-subrc&=&0.
&&&&&&&errorflag&=&'f'.
&&&&endif.
&&&&IF&errorflag&=&''.
&&&&&&&&MESSAGE&e999(z01)&WITH&'没有在公司代码'&t001-bukrs&'操作的权限！'.
&&&&ENDIF.
&&ENDSELECT.
&&&&IF&i_monat&&&1&OR&i_monat&&&16.&对期间值必须在1-16之间
&&&&&&MESSAGE&e004.
*&---------------------------------------------------------------------*
*&&start-of-selection
*&---------------------------------------------------------------------*
START-OF-SELECTION.
&&concatenate&i_gjahr&i_monat&'01'&into&tmpdate.&&&&&&&&&组合年份
&&CALL&FUNCTION&'LAST_DAY_OF_MONTHS'
&&&&EXPORTING
&&&&&&DAY_IN&&&&&&&&&&&&&&&&&=&tmpdate&&&&&&&&&&&&&&&&&&&根据传入的参数，输出一个月的最后一天
&&&IMPORTING
&&&&&LAST_DAY_OF_MONTH&&&&&&&=&prtdate
&&&EXCEPTIONS
&&&&&DAY_IN_NO_DATE&&&&&&&&&&=&1
&&&&&OTHERS&&&&&&&&&&&&&&&&&&=&2.
*&获得当前汇率
&&&tempcurr&=&waers.
&&&CALL&FUNCTION&'BAPI_EXCHANGERATE_GETDETAIL'
&&&&EXPORTING
&&&&&&RATE_TYPE&&&&&&&&=&'M'
&&&&&&FROM_CURR&&&&&&&&=&tempcurr
&&&&&&TO_CURRNCY&&&&&&&=&'CNY'
&&&&&&DATE&&&&&&&&&&&&&=&tmpdate
&&&IMPORTING
&&&&&EXCH_RATE&&&&&&&&=&DCURR
*&&&&&RETURN&&&&&&&&&&&=
&&read&table&DCURR&index&1.
&&&&&&&EXCH_RATE&=&DCURR-EXCH_RATE.
&&if&p_1&=&'X'.&&&&&&&&&&&&&&&&&&&根据单选框的值给变量值
&&&&txunit&=&'元'.
&&if&p_2&=&'X'.
&&&&txunit(*)&=&'千元'.
&&if&p_3&=&'X'.
&&&&txunit&=&'万元'.
*&&if&p_flag&=&'X'&and&i_monat&=&'12'.&&&判断复选框
*&&&&i_monat&=&'16'.
&&select&single&ktext&into&txcurr&&&&&&&&根据货币单位的值返回货币名称
&&&&from&tcurt
&&&where&waers&=&waers.
&&&if&m_1&=&'X'.
&&&&&&txcurr&=&'人民币(汇总)'.
&&&&&&&If&p_flag&=&'X'.
&&&&&&&&&CONCATENATE&txcurr&'折人民币'&into&txcurr.
&&&&&&&ENDIF.
*&取公司名称
&&if&s_rbukrs-high&is&Initial&OR&s_rbukrs-low&=&s_rbukrs-high.&&&&&&&判断是否为空
&&&&SELECT&SINGLE&butxt&INTO&s_butxt&FROM&t001&WHERE&bukrs&=&s_rbukrs-low.
&&&&&if&p_butxt&is¬&initial.
&&&&&&&&s_butxt&=&p_butxt.
&&&&&else.
&&&&&&&&CONCATENATE&'从'&s_rbukrs-low&'到'&s_rbukrs-high&into&s_butxt.
&&&&&endif.
&&if&s_rbukrs-low(2)&=&s_rbukrs-high(2)&and&s_rbukrs-low&&&&s_rbukrs-high.
&&&&clear&s_butxt.
&&&&SELECT&SINGLE&butxt&INTO&s_butxt&FROM&t001&WHERE&bukrs&=&s_rbukrs-low.
&&&&CONCATENATE&s_butxt&'(汇总)'&into&s_butxt.
&&data&CURR&like&table&of&TCURR&with&header&line.
&&&&SELECT&*&into&corresponding&fields&of&table&CURR&FROM&TCURR
&&&&&&where&KURST&=&'M'
&&&&&&&&and&FCURR&=&waers
&&&&&&&&and&TCURR&=&'CNY'.
&&DATA:&f_tols1&LIKE&FAGLFLEXT-hslvt,&资产期初总计
&&&&&&&&f_tole1&LIKE&FAGLFLEXT-hslvt,&资产期末总计
&&&&&&&&f_tols2&LIKE&FAGLFLEXT-hslvt,&负债期初总计
&&&&&&&&f_tole2&LIKE&FAGLFLEXT-hslvt,&负债期末总计
&&&&&&&&f_sums1&LIKE&FAGLFLEXT-hslvt,&资产期初小计
&&&&&&&&f_sume1&LIKE&FAGLFLEXT-hslvt,&资产期末小计
&&&&&&&&f_sums2&LIKE&FAGLFLEXT-hslvt,&负债期初小计
&&&&&&&&f_sume2&LIKE&FAGLFLEXT-hslvt,&负债期末小计
&&&&&&&&f_rlts1&LIKE&FAGLFLEXT-hslvt,
&&&&&&&&f_rlte1&LIKE&FAGLFLEXT-hslvt,
*&&&&&&&&zx_s&LIKE&FAGLFLEXT-hslvt,
*&&&&&&&&zx_e&LIKE&FAGLFLEXT-hslvt,
&&&&&&&&f_rlts2&LIKE&FAGLFLEXT-hslvt,
&&&&&&&&f_rlte2&LIKE&FAGLFLEXT-hslvt.
&&DATA:&f_smny1&LIKE&FAGLFLEXT-hslvt,
&&&&&&&&f_emny1&LIKE&FAGLFLEXT-hslvt.
**数据计算
&&PERFORM&add_row&USING&'流动资产:'&''&''
&&&&&&&&&&&&&&&&&&&&&&&&'流动负债:'&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&PERFORM&add_row&USING&'&&现金'&&&&&&&'1001'&'1'
&&&&&&&&&&&&&&&&&&&&&&&&'&&短期借款'&&&'2101'&'46'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.&&&&期间---公司代码---年份
&&f_sums2&=&tb_result-start2.&&&&&&&&&&&&&&&&&&&初始值
&&f_sume2&=&tb_result-end2.&&&&&&&&&&&&&&&&&&&&&初始值
&&f_tols1&=&tb_result-start1.&&&&&&&&&&&&&&&&&&&初始值
&&f_tole1&=&tb_result-end1.&&&&&&&&&&&&&&&&&&&&&初始值
&&PERFORM&add_row&USING&'&&银行存款'&&&'1002'&'2'
&&&&&&&&&&&&&&&&&&&&&&&&'&&拆入资金'&&&'2102'&'47'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&其他货币'&&&''&'2'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付利息'&&&'2110'&'80'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&短期投资'&&&'1101'&'3'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付手续费'&'2111'&'48'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
*********************************************************************************************************
&&PERFORM&add_row&USING&'&&短期投资跌价准备'&&&'1102'&'4'
&&&&&&&&&&&&&&&&&&&&&&&&'&&待返售债券'&'2109'&'48'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&待回购债券'&&&''&'4'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付佣金'&'2112'&'49'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&拆出资金'&&&&&&&&&&&'1111'&'5'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付分保帐款&'&&&&&&&'2113'&'50'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&保单质押贷款'&&&&&&&&&&&'1112'&'5'
&&&&&&&&&&&&&&&&&&&&&&&&'&&预收保费'&&&&&&&'2121'&'51'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
*------------------------------应收款项开始------------------------------------
&&PERFORM&add_row&USING&'&&应收利息'&&&&&&&&&&&'1121'&'6'
&&&&&&&&&&&&&&&&&&&&&&&&'&&预收分保赔款'&&&&&&&'2122'&'52'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&tb_result-start1.&&&&&&&&&&&&&&&&&&应收款小计
&&f_sume1&=&tb_result-end1.&&&&&&&&&&&&&&&&&&&&应收款小计
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&应收红利'&&&&'1125'&'6'
&&&&&&&&&&&&&&&&&&&&&&&&'&&存入分保准备金'&&&&&'2131'&'53'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.&&&&&&&&&&&&&&&&应收款小计
&&f_sume1&=&f_sume1&+&tb_result-end1.&&&&&&&&&&&&&&&&&&应收款小计
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&应收保费'&&&&&&&&&&&'1122'&'7'
&&&&&&&&&&&&&&&&&&&&&&&&'&&存入保证金'&&&&&'2132'&'54'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.&&&&&&&&&&&&&&&&&应收款小计
&&f_sume1&=&f_sume1&+&tb_result-end1.&&&&&&&&&&&&&&&&&&&应收款小计
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&应收分保账款'&&&'1123'&'8'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付工资'&&&&&&&&&'2141'&'55'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.&&应收款项小计&-&减：坏帐准备
&&f_sume1&=&f_sume1&+&tb_result-end1.&&&&应收款项小计&-&减：坏帐准备
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&应收款项小计'&&&&&&&''&'9'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付福利费'&'2142'&'56'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&&&&&减：坏帐准备'&&'1124'&&'11'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付保户红利'&&'2143'&'57'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&-&tb_result-start1.&&应收款项小计&-&减：坏帐准备
&&f_sume1&=&f_sume1&-&tb_result-end1.&&&&应收款项小计&-&减：坏帐准备
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&-&tb_result-start1.
&&f_tole1&=&f_tole1&-&tb_result-end1.
&&PERFORM&add_row&USING&'&&应收款项净额'&&''&'12'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应付利润'&&'2145'&'58'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
*------------------------------应收款项结束-----------------------------
&&PERFORM&add_row&USING&'&&预付赔款'&'1131'&'13'
&&&&&&&&&&&&&&&&&&&&&&&&'&&应交税金'&'2146'&'59'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&存出分保准备金'&'1141'&'14'
&&&&&&&&&&&&&&&&&&&&&&&&'&&卖出回购证券款'&&&'2147'&'60'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&存出保证金'&'1142'&'15'
&&&&&&&&&&&&&&&&&&&&&&&&'&&其他应付款'&&&'2149'&'61'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&买入返售证券'&'1151'&'16'
&&&&&&&&&&&&&&&&&&&&&&&&'&&预提费用'&&&'2151'&'62'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&其他应收款'&&&&&&&&&'1191'&'17'
&&&&&&&&&&&&&&&&&&&&&&&&'&&未决赔款准备金'&&&'2161'&'63'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&系统往来'&&&&&&&&&'1199'&'66'
&&&&&&&&&&&&&&&&&&&&&&&&'&&未到期责任准备金'&&&'2162'&'64'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&委托资产'&&&&&'1198'&'66'
&&&&&&&&&&&&&&&&&&&&&&&&'&&保户储金&'&&&'2171'&'65'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&物料用品'&&&'1201'&'18'
&&&&&&&&&&&&&&&&&&&&&&&&'&&其他流动负债'&&&''&'67'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&低值易耗品'&&&'1211'&'19'
&&&&&&&&&&&&&&&&&&&&&&&&'&&流动负债合计'&&&''&'68'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&3&1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_tols2&=&f_sums2.
&&f_tole2&=&f_sume2.
&&f_rlts2&=&f_sums2.&&流动负债合计临时结果，用于后面计算
&&f_rlte2&=&f_sume2.&&
&&PERFORM&add_row&USING&'&&待摊费用'&&&'1301'&'20'
&&&&&&&&&&&&&&&&&&&&&&&&'&&&'&&&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
*&&f_sums2&=&f_sums2&+&tb_result-start2.
*&&f_sume2&=&f_sume2&+&tb_result-end2.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&待处理流动资产净损失'&&&'190101'&'21'
&&&&&&&&&&&&&&&&&&&&&&&&'长期负债:&'&&&''&'69'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&一年内到期的长期债券投资'&&&''&'22'
&&&&&&&&&&&&&&&&&&&&&&&&'&&长期责任准备金'&&&''&'70'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&PERFORM&add_row&USING&'&&其他流动资产'&&&''&'23'
&&&&&&&&&&&&&&&&&&&&&&&&'&&寿险责任准备金&&&'&&&'2202'&'71'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&tb_result-start2.
&&f_sume2&=&tb_result-end2.
&&f_sums1&=&f_tols1.
&&f_sume1&=&f_tole1.
&&PERFORM&add_row&USING&'&&&&&&&流动资产合计'&&&''&'24'
&&&&&&&&&&&&&&&&&&&&&&&&'&&长期健康险责任准备金&'&&&'2203'&'72'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
*-----------------------------------流动资产--------------------
&&PERFORM&add_row&USING&'长期投资：'&&&''&'25'
&&&&&&&&&&&&&&&&&&&&&&&&'&&'&&&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&PERFORM&add_row&USING&'&&长期股权投资'&&&'1401'&'26'
&&&&&&&&&&&&&&&&&&&&&&&&'&&保险保障基金'&&&'2211'&'73'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&tb_result-start1.
&&f_sume1&=&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&长期债权投资'&&&'1402'&'27'
&&&&&&&&&&&&&&&&&&&&&&&&'&&长期借款'&&&''&'74'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&长期基金投资'&&&'1403'&'35'
&&&&&&&&&&&&&&&&&&&&&&&&'&&长期应付款'&&&''&'75'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&拨付所属资金'&&&''&''
&&&&&&&&&&&&&&&&&&&&&&&&'&&贷币兑换'&'2241'&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&减：投资风险准备'&&&'1405'&'28'
&&&&&&&&&&&&&&&&&&&&&&&&'&&住房周转金'&&&''&'76'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&-&tb_result-start1.
&&f_sume1&=&f_sume1&-&tb_result-end1.
&&f_tols1&=&f_tols1&-&tb_result-start1.
&&f_tole1&=&f_tole1&-&tb_result-end1.
&&PERFORM&add_row&USING&'&&长期投资合计'&&&''&''
&&&&&&&&&&&&&&&&&&&&&&&&'&&其他长期负债'&&&''&'77'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&3.
&&PERFORM&add_row&USING&'固定资产：'&&&''&''
&&&&&&&&&&&&&&&&&&&&&&&&'&&独立帐户负债'&''&'78'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&3.
&&PERFORM&add_row&USING&'&&固定资产原值'&&&'1601'&'30'
&&&&&&&&&&&&&&&&&&&&&&&&'&&独立帐户未实现利得'&''&'79'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&tb_result-start1.
&&f_sume1&=&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&&&减：累计折旧'&&&'1602'&'31'
&&&&&&&&&&&&&&&&&&&&&&&&'&&长期负债合计'&''&'80'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&3&2.
&&f_sums1&=&f_sums1&-&tb_result-start1.
&&f_sume1&=&f_sume1&-&tb_result-end1.
&&f_tols1&=&f_tols1&-&tb_result-start1.
&&f_tole1&=&f_tole1&-&tb_result-end1.
&&f_tols2&=&f_tols2&+&f_sums2.
&&f_tole2&=&f_tole2&+&f_sume2.
&&f_sums2&=&f_sums2&+&f_rlts2.&&&长期负债合计&+&流动负债合计
&&f_sume2&=&f_sume2&+&f_rlte2.
&&PERFORM&add_row&USING&'&&&&减：固定资产减值准备'&&&'1603'&''
&&&&&&&&&&&&&&&&&&&&&&&&'&负债合计&'&''&'81'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&3&1.
&&f_sums1&=&f_sums1&-&tb_result-start1.
&&f_sume1&=&f_sume1&-&tb_result-end1.
&&f_tols1&=&f_tols1&-&tb_result-start1.
&&f_tole1&=&f_tole1&-&tb_result-end1.
*&&f_tols2&=&f_tols2&+&tb_result-start2.
*&&f_tole2&=&f_tole2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&固定资产净值'&&&''&'32'
&&&&&&&&&&&&&&&&&&&&&&&&'所有者权益:'&''&'82'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&3.
&&PERFORM&add_row&USING&'&在建工程'&&&'1606'&'33'
&&&&&&&&&&&&&&&&&&&&&&&&'&&实收资本'&'3101'&'83'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&tb_result-start2.
&&f_sume2&=&tb_result-end2.
&&PERFORM&add_row&USING&'&&减:&在建工程减值准备&'&&&'1607'&''
&&&&&&&&&&&&&&&&&&&&&&&&'&&上级拨入资金'&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&-&tb_result-start1.
&&f_sume1&=&f_sume1&-&tb_result-end1.
&&f_tols1&=&f_tols1&-&tb_result-start1.
&&f_tole1&=&f_tole1&-&tb_result-end1.
&&PERFORM&add_row&USING&'&固定资产清理'&&&'1609'&'34'
&&&&&&&&&&&&&&&&&&&&&&&&'&&资本公积'&'3111'&'84'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&待处理固定资产净损失'&&&'190102'&'35'
&&&&&&&&&&&&&&&&&&&&&&&&'&&盈余公积'&'3121'&'85'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&&&&&固定资产合计'&&&''&'36'
&&&&&&&&&&&&&&&&&&&&&&&&'&&其中:&公益金'&''&'86'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
*&&f_sums2&=&f_sums2&+&tb_result-start2.
*&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'无形资产及其他资产：'&&&''&'37'
&&&&&&&&&&&&&&&&&&&&&&&'&&&总准备金'&'3131'&'87'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&无形资产'&&&'1701'&'38'
&&&&&&&&&&&&&&&&&&&&&&&&'&&未分配利润'&'3141'&'88'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&tb_result-start1.
&&f_sume1&=&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&长期待摊费用'&&&'1711'&'39'
&&&&&&&&&&&&&&&&&&&&&&&&'&&&以前年度损益科目'&'4801'&'88'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&存出资本保证金'&&&'1801'&'40'
&&&&&&&&&&&&&&&&&&&&&&&&'&&外币折算差异'&'5999'&'89'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&f_sums2&=&f_sums2&+&tb_result-start2.
&&f_sume2&=&f_sume2&+&tb_result-end2.
&&PERFORM&add_row&USING&'&&抵债物资'&&&''&'41'
&&&&&&&&&&&&&&&&&&&&&&&&'&&所有者权益合计'&''&'90'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&3&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&f_sums2&=&f_tols2&+&f_sums2.
&&f_sume2&=&f_tole2&+&f_sume2.
&&PERFORM&add_row&USING&'&&&其他长期资产'&&&''&'42'
&&&&&&&&&&&&&&&&&&&&&&&&'负债及所有者权益合计'&''&'91'
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&3&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&独立账户资产'&&&''&'43'
&&&&&&&&&&&&&&&&&&&&&&&&''&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_sums1&=&f_sums1&+&tb_result-start1.
&&f_sume1&=&f_sume1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&递延税款'&&&'1831'&'43'
&&&&&&&&&&&&&&&&&&&&&&&&'&&'&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&1&1.
&&f_tols1&=&f_tols1&+&tb_result-start1.
&&f_tole1&=&f_tole1&+&tb_result-end1.
&&PERFORM&add_row&USING&'&&无形资产及其他资产合计'&&&''&'44'
&&&&&&&&&&&&&&&&&&&&&&&&'&'&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
&&f_sums1&=&f_tols1.
&&f_sume1&=&f_tole1.
&&PERFORM&add_row&USING&'&&&&&&资产总计'&&&''&'45'
&&&&&&&&&&&&&&&&&&&&&&&&''&''&''
&&&&&&&&&&&&&&&&&&&&&&&&i_monat&s_rbukrs&i_gjahr&2&1.
&&if&p_2&=&'X'.&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&进行单位的换算
&&&&loop&at&tb_result.
&&&&&&if&tb_result-start1&&&&0.
&&&&&&&&tb_result-start1&=&tb_result-start1&/&1000.
&&&&&&endif.
&&&&&&if&tb_result-end1&&&&0.
&&&&&&&&tb_result-end1&=&tb_result-end1&/&1000.
&&&&&&endif.
&&&&&&if&tb_result-start2&&&&0.
&&&&&&&&tb_result-start2&=&tb_result-start2&/&1000.
&&&&&&endif.
&&&&&&if&tb_result-end2&&&&0.
&&&&&&&&tb_result-end2&=&tb_result-end2&/&1000.
&&&&&&endif.
&&&&&&modify&tb_result.
&&&&endloop.
&&if&p_3&=&'X'.&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&进行单位的换算
&&&&loop&at&tb_result.
&&&&&&if&tb_result-start1&&&&0.
&&&&&&&&tb_result-start1&=&tb_result-start1&/&10000.
&&&&&&endif.
&&&&&&if&tb_result-end1&&&&0.
&&&&&&&&tb_result-end1&=&tb_result-end1&/&10000.
&&&&&&endif.
&&&&&&if&tb_result-start2&&&&0.
&&&&&&&&tb_result-start2&=&tb_result-start2&/&10000.
&&&&&&endif.
&&&&&&if&tb_result-end2&&&&0.
&&&&&&&&tb_result-end2&=&tb_result-end2&/&10000.
&&&&&&endif.
&&&&&&modify&tb_result.
&&&&endloop.
*&---------------------------------------------------------------------*
*&&end-of-selection
*&---------------------------------------------------------------------*
END-OF-SELECTION.
&&loop&at&tb_result.
&&&&clear&prt_result.
&&&&move-corresponding&tb_result&to&prt_result.
&&&&perform&num2char&using&tb_result-start1&changing&prt_result-start1.
&&&&perform&num2char&using&tb_result-start2&changing&prt_result-start2.
&&&&perform&num2char&using&tb_result-end1&changing&prt_result-end1.
&&&&perform&num2char&using&tb_result-end2&changing&prt_result-end2.
*&&&&perform&num2char&using&prt_result-start1&changing&prt_result-start1.
*&&&&perform&num2char&using&prt_result-start2&changing&prt_result-start2.
*&&&&perform&num2char&using&prt_result-end1&changing&prt_result-end1.
*&&&&perform&num2char&using&prt_result-end2&changing&prt_result-end2.
&&&&append&prt_result.
&&endloop.
&&perform&init_fieldcat&using&''.
&&perform&init_layout.
&&perform&event_build.
&&perform&listdata.
***************************************************************
*&&CACUMONEY
*&&查询字段&racct&&&代表的科目名称
*&&子查询语句&saknr&代表的是科目的编号
***************************************************************
FORM&cacumoney&USING&&&&&s_km&&&&&i_monat&&c_rbukrs&&c_gjahr
&&&&&&&&&&&&&&&CHANGING&&f_smny&&&f_money.
&&DATA&s_km1(11)&TYPE&c.
&&data&FAGLFLEXT&like&table&of&FAGLFLEXT&with&header&line.
&&CONCATENATE&s_km&'%'&INTO&s_km1.
&&f_smny&=&0.&f_money&=&0.
&&if&m_1&=&'X'.
&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&AND&racct&LIKE&s_km1
&&&&&&&&AND&rpmax&=&16
&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&AND&rtcur&=&waers
&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&AND&racct&LIKE&s_km1
&&&&&&&&AND&rpmax&=&16
&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&if&s_km&=&'3141'.
&&&&&&clear&FAGLFLEXT[].
&&&&&&if&m_1&=&'X'.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'3141%'&OR&racct&LIKE&'3151%'&OR&(&racct&&=&''&AND&racct&=&&''&)&)
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&else.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rtcur&=&waers
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'3141%'&OR&racct&LIKE&'3151%'&OR&(&racct&&=&''&AND&racct&=&&''&)&)
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&endif.
&&&if&s_km&=&''.
&&&&&&clear&FAGLFLEXT[].
&&&&&&if&m_1&=&'X'.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'%'&OR&racct&LIKE&'%'&OR&&racct&LIKE&'%'&OR&racct&LIKE&'1003%'&OR&racct&LIKE&'1004%'&)
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&else.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rtcur&=&waers
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'%'&OR&racct&LIKE&'%'&OR&&racct&LIKE&'%'&OR&racct&LIKE&'1003%'&OR&racct&LIKE&'1004%'&)
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&endif.
&&&if&s_km&=&''.
&&&&&&clear&FAGLFLEXT[].
&&&&&&if&m_1&=&'X'.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'%'&OR&racct&LIKE&'%')
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&else.
&&&&&&&&SELECT&*&into&corresponding&fields&of&table&FAGLFLEXT&FROM&FAGLFLEXT
&&&&&&&&&&WHERE&rldnr&=&'0L'
&&&&&&&&&&&&AND&rrcty&=&'0'
&&&&&&&&&&&&AND&rtcur&=&waers
&&&&&&&&&&&&AND&rbukrs&IN&&s_rbukrs
&&&&&&&&&&&&AND&ryear&=&c_gjahr
&&&&&&&&&&&&AND&(&racct&LIKE&'%'&OR&racct&LIKE&'%')
&&&&&&&&&&&&AND&rpmax&=&16
&&&&&&&&&&&&AND&racct&IN&(&SELECT&saknr&FROM&ska1&WHERE&ktopl&=&'PICL'&).
&&&&&&endif.
&&loop&at&FAGLFLEXT.
&&&&tb_result-companyid&=&FAGLFLEXT-RBUKRS.
&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&f_smny&=&f_smny&+&FAGLFLEXT-hslvt.
&&&&&&f_money&=&f_money&+&FAGLFLEXT-hslvt.
&&&&&&f_smny&=&f_smny&+&FAGLFLEXT-tslvt.
&&&&&&f_money&=&f_money&+&FAGLFLEXT-tslvt.
&&&&endif.
&&&&IF&i_monat&&=&1.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl01.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl01.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&2.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl02.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl02.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&3.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl03.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl03.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&4.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl04.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl04.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&5.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl05.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl05.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&6.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl06.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl06.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&7.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl07.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl07.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&8.
&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl08.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl08.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&9.
&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl09.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl09.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&10.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl10.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl10.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&11.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl11.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl11.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&12.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl12.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl12.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&13.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl13.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl13.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&14.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl14.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl14.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&15.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl15.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl15.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&i_monat&&=&16.
&&&&&&if&m_1&=&'X'&or&p_flag&=&'X'.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-hsl16.
&&&&&&else.
&&&&&&&&f_money&=&f_money&+&FAGLFLEXT-tsl16.
&&&&&&endif.
&&&&ENDIF.
&&endloop.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&CACUMONEY
***************************************************************
*&&ADD_ROW
*&a_type&&标志行项目是否为合计或者小计
*&a_type1&标志金额是否需要取反&1负债类取反；2资产类取反；3都取反
***************************************************************
FORM&add_row&USING&a_asset1&a_km1&a_row1&&资产科目行号
&&&&&&&&&&&&&&&&&&&a_asset2&a_km2&a_row2
&&&&&&&&&&&&&&&&&&&a_monat&a_rbukrs&a_gjahr&a_type&a_type1.
&&DATA:&f_smny&LIKE&FAGLFLEXT-hslvt,
&&&&&&&&f_emny&LIKE&FAGLFLEXT-hslvt.
&&CLEAR&tb_result.&&&&&&&&&清空结果表
&&tb_result-asset1&&=&&a_asset1.&&&&&资产项目
&&tb_result-row1&&&&=&&a_row1.&&&&&&&行次
&&tb_result-asset2&&=&&a_asset2.&&&&&资产项目
&&tb_result-row2&&&&=&&a_row2.&&&&&&&行次
&&IF&a_type&=&1.&非合计项目
&&&&IF&a_km1&&&&''&AND&a_km1&IS&NOT&INITIAL.&&&&&&判断科目编号不为空
&&&&&&PERFORM&cacumoney&USING&a_km1&a_monat&a_rbukrs&a_gjahr
&&&&&&&&&&&&&&&&&&&&&&&&CHANGING&f_smny&f_emny.&&&调用另外一个函数返回值
&&&&&&if&a_type1&=&2&or&a_type1&=&3.
&&&&&&&&tb_result-start1&&=&0&-&f_smny.&&&资产或都去反
&&&&&&&&tb_result-end1&&&&=&0&-&f_emny.
&&&&&&else.
&&&&&&&&tb_result-start1&&=&f_smny.
&&&&&&&&tb_result-end1&&&&=&f_emny.
&&&&&&endif.
&&&&ENDIF.
&&&&IF&a_km2&&&&''&AND&a_km2&IS&NOT&INITIAL.
&&&&&&PERFORM&cacumoney&USING&a_km2&a_monat&a_rbukrs&a_gjahr
&&&&&&&&&&&&&&&&&&&&&&&&CHANGING&f_smny&f_emny.
&&&&&&IF&&a_type1&=&1&or&a_type1&=&3&.
&&&&&&&&tb_result-start2&&=&0&-&f_smny.
&&&&&&&&tb_result-end2&&&&=&0&-&f_emny.
&&&&&&ELSE.
&&&&&&&&tb_result-start2&&=&f_smny.
&&&&&&&&tb_result-end2&&&&=&f_emny.
&&&&&&ENDIF.
&&&&ENDIF.
&&ELSEIF&a_type&=&2.&左边资产类合计，右边负债类非合计项目
&&&&tb_result-start1&&&&=&f_sums1.
&&&&tb_result-end1&&&&&&=&f_sume1.
&&&&IF&a_km2&&&&''&AND&a_km2&IS&NOT&INITIAL.
&&&&&&PERFORM&cacumoney&USING&a_km2&a_monat&a_rbukrs&a_gjahr
&&&&&&&&&&&&&&&&&&&&&&&&CHANGING&f_smny&f_emny.
&&&&&&IF&a_type1&=&1&or&a_type1&=&3.&&&&&&&&&&&负债取反，都取反
&&&&&&&&tb_result-start2&&=&0&-&f_smny.
&&&&&&&&tb_result-end2&&&&=&0&-&f_emny.
&&&&&&ELSE.
&&&&&&&&tb_result-start2&&=&f_smny.
&&&&&&&&tb_result-end2&&&&=&f_emny.
&&&&&&ENDIF.
&&&&ENDIF.
&&ELSEIF&a_type&=&3.&左边资产类非合计，右边负债类合计项目
&&&&IF&a_km1&&&&''&AND&a_km1&IS&NOT&INITIAL.
&&&&&&PERFORM&cacumoney&USING&a_km1&a_monat&a_rbukrs&a_gjahr
&&&&&&&&&&&&&&&&&&&&&&&&CHANGING&f_smny&f_emny.
&&&&&&if&a_type1&=&2&or&a_type1&=&3.&&&&&&&&&&&资产取反，或都取反
&&&&&&&&tb_result-start1&&=&0&-&f_smny.
&&&&&&&&tb_result-end1&&&&=&0&-&f_emny.
&&&&&&else.
&&&&&&&&tb_result-start1&&=&f_smny.
&&&&&&&&tb_result-end1&&&&=&f_emny.
&&&&&&endif.
&&&&ENDIF.
&&&&tb_result-start2&&&&=&f_sums2.
&&&&tb_result-end2&&&&&&=&f_sume2.
&&ELSEIF&a_type&=&4.&都是合计项目
&&&&tb_result-start1&&&&=&f_sums1.
&&&&tb_result-end1&&&&&&=&f_sume1.
&&&&tb_result-start2&&&&=&f_sums2.
&&&&tb_result-end2&&&&&&=&f_sume2.
&&IF&a_km1&=&'1601'.
&&&&&&PERFORM&cacumoney&USING&'1503'&a_monat&a_rbukrs&a_gjahr
&&&&&&&&&&&&&&&&&&&&&&&&CHANGING&f_smny&f_emny.
&&&&&&&&tb_result-start1&&=&tb_result-start1&+&f_smny.
&&&&&&&&tb_result-end1&&&&=&tb_result-end1&+&f_emny.
&&APPEND&tb_result.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&ADD_ROW
*&--------------------------------------------------------------------*
*&&&&&&&Form&&NUM2CHAR
*&--------------------------------------------------------------------*
*&&&&&&&text
*---------------------------------------------------------------------*
*&&&&&&--&FNUM&&&&&&&text
*&&&&&&--&SRET&&&&&&&text
*---------------------------------------------------------------------*
FORM&num2char&USING&fnum&like&tb_result-end1&CHANGING&sret.
&&WRITE&fnum&NO-ZERO&TO&sret.
&&IF&fnum&&&0.
&&&&CONCATENATE&'-'&sret&INTO&sret.
&&if&sret&CO&'0.'.
&&&&sret&=&'&&&&&&&&&&&&&&&'.
&&CONDENSE&sret&NO-GAPS.
form&init_layout.
&&LAYOUT-ZEBRA&=&'X'.
&&LAYOUT-F2CODE&=&'&IC1'.
&&LAYOUT-DETAIL_POPUP&=&'X'.
&&LAYOUT-colwidth_optimize&=&'X'.
&&LAYOUT-no_vline&=&''.
&&LAYOUT-no_hline&=&''.
*&&LAYOUT-numc_sum&=&'X'.
&&LAYOUT-no_sumchoice&=&''.
&&LAYOUT-no_subchoice&=&''.
&&LAYOUT-no_totalline&=&''.
&&LAYOUT-no_subtotals&=&''.
FORM&TOP_OF_PAGE.
&&select&single&butxt&into&s_butxt
&&&&from&t001
&&&&&&where&bukrs&=&prt_result-companyid.
&&write:/42&&'中国人保寿险有限公司'.
&&write:/48&&'资产负债表'.
&&write:/48&&prtdate.
&&write:/2&'单位名称：',s_butxt,&64&'币&&&&种：',txcurr.
&&if&m_2&=&'X'&AND&waers&&&&'CNY'.
&&&&write:45&'汇率:',EXCH_RATE.
&&write:/64&'金额单位：',txunit.
FORM&END_OF_LIST.
&&write:/2&&'公司负责人：',&40&'财务负责人:',&60&'复核:'&,85&'制表:'.
FORM&EVENT_BUILD&.
&&data:&ls_event&type&slis_alv_event.
&&call&function&'REUSE_ALV_EVENTS_GET'
&&&&EXPORTING
&&&&&&i_list_type&=&0
&&&&IMPORTING
&&&&&&et_events&&&=&EVENTCAT[].
&&read&table&EVENTCAT&with&key&name&=&&slis_ev_top_of_page
&&&&&&&&&&&&&&&&&&&&&&&&&&&&into&ls_event.
&&if&sy-subrc&=&0.
&&&&move&'TOP_OF_PAGE'&to&ls_event-form.
&&&&append&ls_event&to&EVENTCAT.
&&read&table&EVENTCAT&with&key&name&=&&slis_ev_end_of_list
&&&&&&&&&&&&&&&&&&&&&&&&&&&&into&ls_event.
&&if&sy-subrc&=&0.
&&&&move&'END_OF_LIST'&to&ls_event-form.
&&&&append&ls_event&to&EVENTCAT.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&&EVENT_BUILD
form&init_fieldcat&using&flag.&&&&&&&&&&&&&&&&初始化表头
*&&clear&fieldcat[].
*&&CLEAR&FIELDCAT.
*&&FIELDCAT-FIELDNAME&=&'COMPANYID'.
*&&FIELDCAT-reptext_ddic&=&'科目'.
*&&FIELDCAT-no_out&=&'X'.
*&&APPEND&FIELDCAT.
&&clear&fieldcat[].
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'ASSET1'.
&&FIELDCAT-reptext_ddic&=&'项目'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'ROW1'.
&&FIELDCAT-reptext_ddic&=&'行次'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'START1'.
&&FIELDCAT-reptext_ddic&=&'年初数'.
&&FIELDCAT-just&=&'R'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'END1'.
&&FIELDCAT-reptext_ddic&=&'期末数'.
&&FIELDCAT-just&=&'R'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'ASSET2'.
&&FIELDCAT-reptext_ddic&=&'项目'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'ROW2'.
&&FIELDCAT-reptext_ddic&=&'行次'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'START2'.
&&FIELDCAT-reptext_ddic&=&'年初数'.
&&FIELDCAT-just&=&'R'.
&&APPEND&FIELDCAT.
&&CLEAR&FIELDCAT.
&&FIELDCAT-FIELDNAME&=&'END2'.
&&FIELDCAT-reptext_ddic&=&'期末数'.
&&FIELDCAT-just&=&'R'.
&&APPEND&FIELDCAT.
*&&CLEAR:SORTCAT,SORTCATLN.
**&&SORTCATLN-SPOS&=&1.
*&&SORTCATLN-UP&=&'X'.
*&&SORTCATLN-FIELDNAME&=&'COMPANYID'.
*&&SORTCATLN-SUBTOT&=&'X'.
*&&SORTCATLN-GROUP&=&'*'.
*&&APPEND&SORTCATLN&to&SORTCAT.
FORM&LISTDATA.
&v_repid&=&sy-repid.
&CALL&FUNCTION&'REUSE_ALV_LIST_DISPLAY'
&&&&&&EXPORTING
&&&&&&&&&&&I_CALLBACK_PF_STATUS_SET&=&'SET_PF_STATUS'
&&&&&&&&&&&I_CALLBACK_PROGRAM&&&&&&=&&V_REPID
&&&&&&&&&&&I_CALLBACK_USER_COMMAND&=&&'USER_COMMAND'
&&&&&&&&&&&IS_LAYOUT&&&&&&&&&&&&&&&=&&LAYOUT
&&&&&&&&&&&IT_FIELDCAT&&&&&&&&&&&&&=&&FIELDCAT[]
&&&&&&&&&&&IT_EVENTS&&&&&&&&&&&&&&&=&&EVENTCAT
&&&&&&&&&&&IT_SORT&&&&&&&&&&&&&&&&&=&&SORTCAT
&&&&&&&&&&&IT_EXCLUDING&&&&&&&&&&&&=&&rt_extab
&&&&&&TABLES
&&&&&&&&&&&T_OUTTAB&&&&&&&&&&&&&&&&=&&prt_result
&&&&&&EXCEPTIONS
&&&&&&&&&&&PROGRAM_ERROR&&&&&&&&&&&=&1
&&&&&&&&&&&OTHERS&&&&&&&&&&&&&&&&&&=&2.
&IF&SY-SUBRC&&&&0.
&&&MESSAGE&ID&SY-MSGID&TYPE&SY-MSGTY&NUMBER&SY-MSGNO
&&&&&&WITH&SY-MSGV1&SY-MSGV2&SY-MSGV3&SY-MSGV4.
FORM&set_pf_status&using&rt_extab&TYPE&slis_t_extab.
&&data:&wa_extab&type&slis_extab.
&&wa_extab-fcode&=&'&OAD'.
&&append&wa_extab&to&rt_extab.
&&wa_extab-fcode&=&'&AVE'.
&&append&wa_extab&to&rt_extab.
&&SET&PF-STATUS&'ZSTANDARD'&EXCLUDING&rt_extab&.©&from&BCALV_TEST_LIST.
ENDFORM.&&Set_pf_status
FORM&user_command&USING&r_ucomm&&&&&LIKE&sy-ucomm
&&&&&&&&&&&&&&&&&&&&&&&&rs_selfield&TYPE&slis_selfield.
IF&r_ucomm&EQ&'&PRT'.
&&PERFORM&open_form&.
&&PERFORM&write_form&USING&'MAIN'&'E1'.
&&PERFORM&write_form&USING&'MAIN'&'E2'.
&&loop&at&prt_result.
&&&&PERFORM&write_form&USING&'MAIN'&'E3'.
&&endloop.
&&PERFORM&write_form&USING&'MAIN'&'E4'.
&&PERFORM&close_form&.
ENDFORM.&&&User_command
FORM&open_form&.
&&CALL&FUNCTION&'OPEN_FORM'
&&&EXPORTING
*&&&&&APPLICATION&&&&&&&&&&&&&&&&&&&&&&&=&'TX'
*&&&&&ARCHIVE_INDEX&&&&&&&&&&&&&&&&&&&&&=
*&&&&&ARCHIVE_PARAMS&&&&&&&&&&&&&&&&&&&&=
*&&&&&DEVICE&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&'PRINTER'
*&&&&&DIALOG&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&'X'
&&&&&&form&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&&'ZFIRP050'
*&&&&&language&&&&&&&&&&&&&&&&&&&&&&&&&&=&'M'
*&&&&&OPTIONS&&&&&&&&&&&&&&&&&&&&&&&&&&&=&OPTION
*&&&&&MAIL_SENDER&&&&&&&&&&&&&&&&&&&&&&&=
*&&&&&MAIL_RECIPIENT&&&&&&&&&&&&&&&&&&&&=
*&&&&&MAIL_APPL_OBJECT&&&&&&&&&&&&&&&&&&=
*&&&&&RAW_DATA_INTERFACE&&&&&&&&&&&&&&&&=&'*'
*&&&IMPORTING
*&&&&&LANGUAGE&&&&&&&&&&&&&&&&&&&&&&&&&&=
*&&&&&NEW_ARCHIVE_PARAMS&&&&&&&&&&&&&&&&=
*&&&&&RESULT&&&&&&&&&&&&&&&&&&&&&&&&&&&&=
&&&EXCEPTIONS
&&&&&canceled&&&&&&&&&&&&&&&&&&&&&&&&&&=&1
&&&&&device&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&2
&&&&&form&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&3
&&&&&options&&&&&&&&&&&&&&&&&&&&&&&&&&&=&4
&&&&&unclosed&&&&&&&&&&&&&&&&&&&&&&&&&&=&5
&&&&&mail_options&&&&&&&&&&&&&&&&&&&&&&=&6
&&&&&archive_error&&&&&&&&&&&&&&&&&&&&&=&7
&&&&&invalid_fax_number&&&&&&&&&&&&&&&&=&8
&&&&&more_params_needed_in_batch&&&&&&&=&9
&&&&&spool_error&&&&&&&&&&&&&&&&&&&&&&&=&10
&&&&&OTHERS&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&11&&.
&&IF&sy-subrc&&&&0.
&&&&MESSAGE&ID&sy-msgid&TYPE&sy-msgty&NUMBER&sy-msgno
&&&&&&&WITH&sy-msgv1&sy-msgv2&sy-msgv3&sy-msgv4.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&open_form
*&--------------------------------------------------------------------*
*&&&&&&&Form&&write_form
*&--------------------------------------------------------------------*
*&&&&&&&text
*---------------------------------------------------------------------*
*&&&&&&--&L_WINDOW&&&text
*&&&&&&--&L_ELEMENT&&text
*---------------------------------------------------------------------*
FORM&write_form&USING&l_window&l_element.
&&CALL&FUNCTION&'WRITE_FORM'
&&&EXPORTING
&&&&&element&&&&&&&&&&&&&&&&&&&&&&&&=&l_element
*&&&&&FUNCTION&&&&&&&&&&&&&&&&&&&&&&=&'SET'
*&&&&&TYPE&&&&&&&&&&&&&&&&&&&&&&&&&&=&'BODY'
&&&&&window&&&&&&&&&&&&&&&&&&&&&&&&&=&l_window
*&&&IMPORTING
*&&&&&PENDING_LINES&&&&&&&&&&&&&&&&&&=
&&&EXCEPTIONS
&&&&&element&&&&&&&&&&&&&&&&&&&&&&&&=&1
&&&&&function&&&&&&&&&&&&&&&&&&&&&&&=&2
&&&&&type&&&&&&&&&&&&&&&&&&&&&&&&&&&=&3
&&&&&unopened&&&&&&&&&&&&&&&&&&&&&&&=&4
&&&&&unstarted&&&&&&&&&&&&&&&&&&&&&&=&5
&&&&&window&&&&&&&&&&&&&&&&&&&&&&&&&=&6
&&&&&bad_pageformat_for_print&&&&&&&=&7
&&&&&spool_error&&&&&&&&&&&&&&&&&&&&=&8
&&&&&OTHERS&&&&&&&&&&&&&&&&&&&&&&&&&=&9
&&&&&&&&&&&&.
&&IF&sy-subrc&&&&0.
&&&&MESSAGE&ID&sy-msgid&TYPE&sy-msgty&NUMBER&sy-msgno
&&&&&&&WITH&sy-msgv1&sy-msgv2&sy-msgv3&sy-msgv4.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&write_form
*&--------------------------------------------------------------------*
*&&&&&&&Form&&close_form
*&--------------------------------------------------------------------*
*&&&&&&&text
*---------------------------------------------------------------------*
FORM&close_form.
&&CALL&FUNCTION&'CLOSE_FORM'
*&&&IMPORTING
*&&&&&RESULT&&&&&&&&&&&&&&&&&&&&&&&&&=
*&&&&&RDI_RESULT&&&&&&&&&&&&&&&&&&&&&=
*&&&TABLES
*&&&&&OTFDATA&&&&&&&&&&&&&&&&&&&&&&&&=
&&&EXCEPTIONS
&&&&&unopened&&&&&&&&&&&&&&&&&&&&&&&=&1
&&&&&bad_pageformat_for_print&&&&&&&=&2
&&&&&send_error&&&&&&&&&&&&&&&&&&&&&=&3
&&&&&spool_error&&&&&&&&&&&&&&&&&&&&=&4
&&&&&OTHERS&&&&&&&&&&&&&&&&&&&&&&&&&=&5
&&&&&&&&&&&&.
&&IF&sy-subrc&&&&0.
&&&&MESSAGE&ID&sy-msgid&TYPE&sy-msgty&NUMBER&sy-msgno
&&&&&&&WITH&sy-msgv1&sy-msgv2&sy-msgv3&sy-msgv4.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&close_form
form&read_screen.
&&clear&dynpread[].
&&DYNPREAD-FIELDNAME&=&'M_2'.
&&APPEND&DYNPREAD.
CALL&FUNCTION&'DYNP_VALUES_READ'
&&EXPORTING
&&&&DYNAME&&&&&&&&&&&&&&&&&&&&&&&&&=&sy-repid
&&&&DYNUMB&&&&&&&&&&&&&&&&&&&&&&&&&=&sy-dynnr
&&&&DYNPFIELDS&&&&&&&&&&&&&&&&&&&&&=&DYNPREAD
&EXCEPTIONS
&&&INVALID_ABAPWORKAREA&&&&&&&&&&&=&1
&&&INVALID_DYNPROFIELD&&&&&&&&&&&&=&2
&&&INVALID_DYNPRONAME&&&&&&&&&&&&&=&3
&&&INVALID_DYNPRONUMMER&&&&&&&&&&&=&4
&&&INVALID_REQUEST&&&&&&&&&&&&&&&&=&5
&&&NO_FIELDDESCRIPTION&&&&&&&&&&&&=&6
&&&INVALID_PARAMETER&&&&&&&&&&&&&&=&7
&&&UNDEFIND_ERROR&&&&&&&&&&&&&&&&&=&8
&&&DOUBLE_CONVERSION&&&&&&&&&&&&&&=&9
&&&STEPL_NOT_FOUND&&&&&&&&&&&&&&&&=&10
&&&OTHERS&&&&&&&&&&&&&&&&&&&&&&&&&=&11
&&&&&&&&&&.
IF&SY-SUBRC&&&&0.
&&&MESSAGE&ID&SY-MSGID&TYPE&SY-MSGTY&NUMBER&SY-MSGNO
&&&&&&&&&&&WITH&SY-MSGV1&SY-MSGV2&SY-MSGV3&SY-MSGV4.
form&check.
&&if&m_2&=&'X'.
&&&&&&if&waers&is&initial.
&&&&&&&&MESSAGE&e398(00)&WITH&'请输入货币币种'.
&&&&&&endif.
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：612985次
积分：13111
积分：13111
排名：第331名
原创：540篇
转载：864篇
译文：65篇
评论：51条
(14)(14)(3)(2)(32)(2)(4)(5)(11)(34)(35)(39)(35)(36)(33)(10)(41)(39)(40)(16)(5)(12)(55)(38)(33)(24)(22)(43)(56)(55)(10)(68)(21)(53)(18)(76)(45)(159)(224)(9)}
我要回帖
更多关于 资产负债表 的文章
- ·有谁能做网吧资产负债表日和利润表，形式主义害死人
- ·资产负债表 现金中的累计折旧和现金流量表里的固定资产折旧相...
- ·哪能下载到2011资产负债表下载和利润表，请发到我邮箱yffps1010@1...
- ·最新房地产企业利润表开发企业根据资产负债表，利润表 两大主表自动...
- ·谁有根据资产负债表怎么填和利润表可以自动生成现金流量表的软...
- ·资产负债表日表格下载求2010年最新财务报表（资产负债表日，...
- ·可不可以也给我发一份提供根据资产负债表下载及利润表自动生...
- ·下列应确认为资产负债表的是（ ）选择如下
- ·2011年2011资产负债表表表格下载,可以发送...
- ·求物流公司资产负债表和利润表、利润表、现金流量...
- ·在资产负债表上货币资金资产比应如何填列?
- ·如何虚增资产固定资产，那资产负债表咋调整。请高...
- ·下列经济业务中引起资产负债表和负债同时增加的...
- ·在做资产负债表怎么填时，里面的未分配利润怎么...
- ·求企业会计制度财务报表 <资产负债表月报表》...
- ·求一份用资产负债表分析和利润表能自动生成的...
- ·资产负债表=负债+股东权益 问个弱智的问题啊...
- ·在已知资产负债表日和利润表的情况下，如何...
- ·需一个博科的2011小企业资产负债表模板利...
- ·我公司是商业性质的，8月份的商业资产负债表表...
- ·有利润表与资产负债表表、利润表空白表格
- ·资产负债表日表格下载求2011年最新财务...
- ·请问怎样自动生成资产负债表日和损益表
- ·资产负债表存货公式的期未数设公式 时为什么不写...
- ·求资产负债表 利润表、利润表、现金流量表三者自...
- ·资产负债表不平中 员工退休养老金 算流动负...
- ·急用房地产开发企业资产负债表及利润表利润表模表...
- ·由资产负债表生成比率（杜邦财务分析法分析法）的模...
- ·民间非营利组织会计报表(资产负债表日/业...
- ·求餐饮业会计月报表,资产负债表,资产损益表表格下载...
- ·亏损是否可看成资产负债表?
- ·好心人，给我也发一份资产负债表表格，利润表...
- ·现金流量表模板(可以根据资产负债表的模板、损...
- ·求一份联想集团近几年最好的资产负债表日、...
- ·怎么样做资产负债表表的问题 做9月份的怎么样做资产负债表表...
- ·急需最新的房地产开发企业的房地产资产负债表表、...
- ·我单位小规模公司，现在还用交资产负债表日...
- ·急需民办幼儿幼财务报表（资产负债表分析、损...
- ·资产负债表公式中的C/S 是什么意思？
- ·有资产负债表表格的实例吗
- ·能否发份资产负债表 利润表,利润表,现金流量表...
- ·能不能给我发一份资产负债表表格和利润表的表...
- ·求建筑公司的资产负债表日，发邮箱suny...
- ·资产负债表表格和利润表的问题
- ·资产负债表表格中的“流动负债合计”项目，应...
- ·求家庭资产负债表日模版，邮箱112108...
- ·我们的资产负债表表格下载中的未分配利润和利润表...
- ·求资产负债表、利润表、现金流量表与利润表及内帐...
- ·求最新的EXCEL资产负债表表格下载，利润表，...
- ·自考资产负债表存货公式年末数等于
- ·公司固定财产包括哪些 资产负债表
- ·在资产负债表中年期初数 期末数和期末数各指什么？
- ·有上月的资产负债表表格和利润表,如何做本月...
- ·电算化在做资产负债表货币资金怎么操作货币资金=...
- ·整怎样做资产负债表表
- ·请问内部帐怎么做？包括资产负债表日，利润...
- ·资产减值损失为负数负债表的暂付款一栏可以为负数吗
- ·求最新2011资产负债表日表格下载（EX...
- ·我怎么填写零申报第2月的资产负债表表格，我...
- ·以前在网上下过一个能根据资产负债表日和损...
- ·急！怎么找一家公司的资产负债表 损益表 资产未来现金流量量表？如果有这三个表的案例 请发到 谢谢
- ·谁有会计总帐，明细帐，资产负债表 利润表，利润表样版呀
- ·谁有加油站帐的资产损益表负债表，损益表，现金流量表，
- ·资产负债表空白表格表格 利润表 要空白的，急需！谢谢
- ·资产负债日后事项表日后事项包括资产负债日后事项表日至财务报告批准报出日之间发生的全部事项。这句话哪里错了？
- ·怎样全面的看一个企业的资产负债表日？主要有哪几步，看哪些项目？
- ·哪个企业的资产负债表融资正面效应比较突出
- ·商业银行的资产负债表业务经营管理的目标是什么？
- ·急需做一份贷款的资产负债表表格下载，利润表
- ·我是从固定资产总账负债表的应收应付 来推总账的应收和应付 ……
- ·在资产负债表日里没有拨入资金这项 拨入资金该填在哪个科目里
- ·求丁字账转财务报表（科目余额汇总表汇总余额表、资产负债表、利润表、和现金流量表，请发给我一份。
- ·资产负债表方 负债方什么意思
- ·企业事业单位资产负债表表应该怎样去找准确的
- ·12月份没有计提所得税，导致1月份资产负债表表不平（差额正好是去年四季度的所得税额），我应该怎么处理呢，谢谢
- ·1. （ ）是复式记账法的理论基础，也是企业编制资产负债表下载的依据。 A. 资产＝负债＋所有者权益
- ·急求一份企业的资产负债表分析，有数据。（最好是门窗行业的） 自己用来做数据分析的。
- ·是不是有那种输入利润表和资产负债表和利润表，还有一些附加数据，就可以得出间接法现金流量表的？急求这种模版啊
- ·求最新资产负债表和利润表？这两损益表是不是利润表适合各个行业？
- ·你好，请问有3万元公司的年检需要的那些资产负债表表和利润表，经营情况什么的。有的话。麻烦发一份给我。无线感
- ·长期资产负债率需要由长期负债来保证的说法对吗
- ·求物流公司的资产负债表模板及损益估算表等相关财务表，写论文用。
- ·业务题 1．企业上年末的资产负债表计算题如下
- ·为什么资产负债表表格不平，就差0.1.。资产少了0.1，负债多了0.1，怎么才能做平，做的才合理，手工内账的》
- ·新开的办公司资产负债表如何填写和利润表怎样填写?
- ·利润表年报怎么填怎么填
- ·急求一份上市公司最近连续三年的资产负债表和利润表，利润表，现金流量表的数据~~
- ·有销售收入可以资产负债表表格下载原始申报吗?
- ·净资产 资产负债表表中净资产不足30万元怎样调增
- ·如果既有利润表又有现金流量表,那么资产负债表与利润表就不必要吗
- ·被投资方直接处置相关资产负债表分析和负债相同的基础进行会计处理，到底什么意思？
- ·资产负债表分析的意义意义
- ·资产资本是什么意思思？
- ·从2015年资产负债表分析看高盛集团的优劣势
- ·中国建设银行里的削减资产负债表的意思是什么意思呀？我没有欠款呀？
- ·作为一个穷人 如何拥有资产与穷人而不是负债
- ·将于一年之内到期的长期债券投资，在资产负债表怎么算中应，
更多推荐
- ·太阳花是吉花还是凶花的寓意和象征
- ·开斋节发朋友圈的句子的文化内涵
- ·网贷逾期了暂时还不上怎么办额度是取现额度吗，有区别吗？
- ·有什么好的一键去除衣物免费的软件软件吗？
- ·境外线上支付跨境汇款手续费怎么收多少？
- ·外痔疮怎么治疗好呢？？不知谁知道些什么怎样治疗痔疮疮有用的方法么？？
- ·辽宁省建筑科学施工企业管理系统密码怎么找回？
- ·车险应该去哪里需要护照上，需要带什么证件？
- ·睡觉起来干呕,宝宝有时候干呕吃晚饭也干呕,女,这月有过ML,不过都有戴套,是不是怀孕了?前后大概20时间,
- ·总经理岗位说明书书
- ·在同乐城 提款时你会不会会扣钱啊，充钱的时候有优惠吗
- ·打全身打美白针针多少钱啊
- ·我们是一个童鞋十大品牌企业，新的一年到了，想找一家长久合作的广告公司，并能提供网络宣传服务，求介绍啊
- ·想做个小本生意，想问问台湾特色做什么小吃生意好呦呦饭团如何？
- ·求最新2011资产负债表、损益表中的所得税，利润分配表，综合纳税申报表、所得税清算等表格下载（EXCEL格式）要带公式
- ·银行都有哪些黄金招商银行理财产品品？
- ·年终奖个税计算如何记账？是否需要导入个税系统
- ·浪潮软件中月末结账时总提示其它人员操作本系统该痛经怎么办快速解决
- ·有谁知道在遂宁物流园港上班的李霞的资料
- ·在资产负债表日里没有拨入资金这项 拨入资金该填在哪个科目里
- ·打美白针有效果吗什麽副作用
- ·被谴散职工的职称证被原单位盗用无线网络该怎么办
- ·未参保集体企业退休人员基本2011养老保险新政策障 截止到2011年12月30日，现在过期了还能办吗
- ·我们是一支老年腰鼓队，经常要为公司开业、生日等场合表演，但是没得自己的龙年开场白白。
- ·乌龙茶 出口退税咨询网
- ·我在郑州商铺投资，10万左右有什么好的投资项目吗？
- ·2012年1月13日邮政物流从2012襄阳招聘会市发往广州花都一件食品，2月1日才收到，食品半数坏掉，损失千余，如何索赔？
- ·╬◆欧美禁播mv性＠交图片，｛￥AAAAA￥｝色＃播电影◆人￥性联盟－就去吻，就去￥干黄
- ·不知道为了什么在KENO 要怎么开户啊，谁能教下详细的步骤
- ·经营新品牌双汇冷鲜肉肉，计划向本地大型超市铺货（正经营另一品牌），如何运作才能做到投入少，效果好？
- ·我想在京东 信用卡买苹果用信用卡分期问题
- ·河南省工程咨询公司内企业文化做的最成功的管理咨询公司是哪家？
- ·你骗人吧，学习哪有那么难大？
- ·申通订单查询E物流说查询不到订单
- ·什么叫基尼系数数的含义?
