ebs财务报表用HTML方法实现
来源:互联网 发布:永宏plc-fbe编程软件 编辑:程序博客网 时间:2024/06/05 03:22
开发步骤:
一,创建一个PROCEDURE 类似如下:
CREATE OR REPLACE PROCEDURE xxafx_TEST(p_sob_id NUMBER,
p_period_year NUMBER,
p_period_name VARCHAR2,
p_start_date varchar2,
p_end_date varchar2,
p_period_num NUMBER,
p_period_id number,
p_company_id varchar2,
p_currency_code VARCHAR2,
p_zbr VARCHAR2,
p_fhr VARCHAR2) IS
----------------------------------------------------------------------
-- Purpose :资产负债表
-----------------------------------------------------------------------
v_standard_code VARCHAR2(30);
v_converted_code VARCHAR2(30);
v_description VARCHAR2(240);
v_currency_code VARCHAR2(10);
v_column_1_name VARCHAR2(10);
v_column_2_name VARCHAR2(10);
p_date_title_str VARCHAR2(50);
n NUMBER(20);
v_balance_value number;
v_begin_balance NUMBER(20, 2);
v_period_balance NUMBER(20, 2);
v_period_min_num NUMBER(13);
v_company VARCHAR2(1000);
v_month NUMBER(10);
v_title_month number(10);
v_day NUMBER(10);
v_user VARCHAR2(20);
v_appro VARCHAR2(20);
v_r1_c1 NUMBER(30, 2); --行次为1,第一个变量
v_r1_c2 NUMBER(30, 2); --行次为1,第二个变量
v_r2_c1 NUMBER(30, 2);
v_r2_c2 NUMBER(30, 2);
v_r3_c1 NUMBER(30, 2);
v_r3_c2 NUMBER(30, 2);
v_r4_c1 NUMBER(30, 2);
v_r4_c2 NUMBER(30, 2);
v_r5_c1 NUMBER(30, 2);
v_r5_c2 NUMBER(30, 2);
v_r6_c1 NUMBER(30, 2); --应收帐款(1131-1141)
v_r6_c2 NUMBER(30, 2);
v_r7_c1 NUMBER(30, 2);
v_r7_c2 NUMBER(30, 2);
v_r8_c1 NUMBER(30, 2);
v_r8_c2 NUMBER(30, 2);
v_r9_c1 NUMBER(30, 2);
v_r9_c2 NUMBER(30, 2);
v_r10_c1 NUMBER(20, 2);
v_r10_c2 NUMBER(20, 2);
v_r11_c1 NUMBER(30, 2);
v_r11_c2 NUMBER(30, 2);
v_r24_c1 NUMBER(30, 2);
v_r24_c2 NUMBER(30, 2);
v_r31_c1 NUMBER(30, 2); --流动资产合计
v_r31_c2 NUMBER(30, 2);
v_r32_c1 NUMBER(30, 2);
v_r32_c2 NUMBER(30, 2);
v_r34_c1 NUMBER(30, 2);
v_r34_c2 NUMBER(30, 2);
v_r38_c1 NUMBER(30, 2); --长期投资合计
v_r38_c2 NUMBER(30, 2);
v_r39_c1 NUMBER(30, 2);
v_r39_c2 NUMBER(30, 2);
v_r40_c1 NUMBER(30, 2);
v_r40_c2 NUMBER(30, 2);
v_r41_c1 NUMBER(30, 2);
v_r41_c2 NUMBER(30, 2);
v_r42_c1 NUMBER(30, 2);
v_r42_c2 NUMBER(30, 2);
v_r43_c1 NUMBER(30, 2);
v_r43_c2 NUMBER(30, 2);
v_r44_c1 NUMBER(30, 2);
v_r44_c2 NUMBER(30, 2);
v_r45_c1 NUMBER(30, 2);
v_r45_c2 NUMBER(30, 2);
v_r46_c1 NUMBER(30, 2);
v_r46_c2 NUMBER(30, 2);
v_r50_c1 NUMBER(30, 2); --固定资产合计
v_r50_c2 NUMBER(30, 2);
v_r51_c1 NUMBER(30, 2);
v_r51_c2 NUMBER(30, 2);
v_r52_c1 NUMBER(30, 2);
v_r52_c2 NUMBER(30, 2);
v_r60_c1 NUMBER(30, 2); --无形资产及其他资产合计
v_r60_c2 NUMBER(30, 2);
v_r67_c2 NUMBER(30, 2); --资产总计
v_r67_c1 NUMBER(30, 2);
v_r68_c1 NUMBER(30, 2);
v_r68_c2 NUMBER(30, 2);
v_r69_c1 NUMBER(30, 2);
v_r69_c2 NUMBER(30, 2);
v_r70_c1 NUMBER(30, 2);
v_r70_c2 NUMBER(30, 2);
v_r71_c1 NUMBER(30, 2);
v_r71_c2 NUMBER(30, 2);
v_r72_c1 NUMBER(30, 2);
v_r72_c2 NUMBER(30, 2);
v_r73_c1 NUMBER(30, 2);
v_r73_c2 NUMBER(30, 2);
v_r74_c1 NUMBER(30, 2);
v_r74_c2 NUMBER(30, 2);
v_r75_c1 NUMBER(30, 2);
v_r75_c2 NUMBER(30, 2);
v_r76_c1 NUMBER(30, 2);
v_r76_c2 NUMBER(30, 2);
v_r81_c1 NUMBER(30, 2);
v_r81_c2 NUMBER(30, 2);
v_r82_c1 NUMBER(30, 2);
v_r82_c2 NUMBER(30, 2);
v_r83_c1 NUMBER(30, 2);
v_r83_c2 NUMBER(30, 2);
v_r90_c1 NUMBER(30, 2);
v_r90_c2 NUMBER(30, 2);
v_r100_c1 NUMBER(30, 2); --流动负债合计
v_r100_c2 NUMBER(30, 2);
v_r101_c1 NUMBER(30, 2);
v_r101_c2 NUMBER(30, 2);
v_r102_c1 NUMBER(30, 2);
v_r102_c2 NUMBER(30, 2);
v_r103_c1 NUMBER(30, 2);
v_r103_c2 NUMBER(30, 2);
v_r106_c1 NUMBER(30, 2);
v_r106_c2 NUMBER(30, 2);
v_r110_c1 NUMBER(30, 2); --长期负债合计
v_r110_c2 NUMBER(30, 2);
v_r111_c1 NUMBER(30, 2);
v_r111_c2 NUMBER(30, 2);
v_r114_c1 NUMBER(30, 2); --负债总计
v_r114_c2 NUMBER(30, 2);
v_r115_c1 NUMBER(30, 2);
v_r115_c2 NUMBER(30, 2);
v_r116_c1 NUMBER(30, 2);
v_r116_c2 NUMBER(30, 2);
v_r117_c1 NUMBER(30, 2);
v_r117_c2 NUMBER(30, 2);
v_r118_c1 NUMBER(30, 2);
v_r118_c2 NUMBER(30, 2);
v_r119_c1 NUMBER(30, 2);
v_r119_c2 NUMBER(30, 2);
v_r120_c1 NUMBER(30, 2);
v_r120_c2 NUMBER(30, 2);
v_r120_c3 NUMBER(30, 2);
v_r120_c4 NUMBER(30, 2);
v_r121_c2 NUMBER(30, 2);
v_r121_c1 NUMBER(30, 2);
v_r122_c1 NUMBER(30, 2);
v_r122_c2 NUMBER(30, 2);
v_r135_c1 NUMBER(30, 2);
v_r135_c2 NUMBER(30, 2);
v_internal_1 NUMBER(30, 2);
v_internal_2 NUMBER(30, 2);
v_reivable_1 NUMBER(30, 2);
v_reivable_2 NUMBER(30, 2);
v_r2176_c1 NUMBER(30, 2);
v_r2176_c2 NUMBER(30, 2);
v_period_name varchar2(60);
--====================取所有明细科目,余额用于计算======================
CURSOR c_acc IS
SELECT standard_code, converted_code, description
FROM xxafx_stx_converted_account
WHERE converted_code IS NOT NULL AND set_of_books_id = p_sob_id;
BEGIN
DELETE FROM xxafx_afx_bs;
COMMIT;
HTP.htmlOpen;
HTP.PRINT('<HEAD><META http-equiv=Content-Type content="text/html; charset=GB2312"></HEAD>');
HTP.bodyOpen;
----min period num
SELECT MIN(offset.period_num)
INTO v_period_min_num
FROM gl_period_statuses offset,
gl_period_statuses poi,
gl_period_types ptype
WHERE poi.period_year = p_period_year AND
offset.period_type = poi.period_type AND
ptype.period_type = poi.period_type AND
poi.period_year * ptype.number_per_fiscal_year + poi.period_num + 0 >=
offset.period_year * ptype.number_per_fiscal_year + 1 AND
poi.period_year * ptype.number_per_fiscal_year + poi.period_num + 0 <=
offset.period_year * ptype.number_per_fiscal_year +
ptype.number_per_fiscal_year AND
offset.application_id = poi.application_id AND
offset.set_of_books_id = poi.set_of_books_id AND
poi.set_of_books_id = p_sob_id AND poi.application_id = 101;
--年初数用期初数代替
--v_period_min_num:=p_period_num;
begin
select user_name
into v_user
from xxafx_user_profile_line
where user_id = p_zbr
and rownum < 2;
select user_name
into v_appro
from xxafx_user_profile_line
where user_id = p_fhr
and rownum < 2;
--COMPANY为空时显示帐套名称2008-1-24 by yxh
if p_company_id is not null then
select company_name
into v_company
from xxafx_user_profile_line
where company_id = p_company_id
and rownum < 2;
else
select t.description
into v_company
from gl_sets_of_books t
where t.set_of_books_id = p_sob_id
and rownum < 2;
end if;
EXCEPTION
WHEN OTHERS THEN
htp.P('公司ID或USER ID参数有误!');
end;
v_month := p_period_num;
INSERT INTO xxafx_afx_bs(
PERIOD_NUM,
STANDARD_CODE,
CONVERTED_CODE,
DESCRIPTION,
RESULT_1,
RESULT_2,
SET_OF_BOOKS_ID,
CURRENCY_CODE)
SELECT gb.period_num,
ca.standard_code,
ca.converted_code,
ca.description,
SUM(nvl(gb.begin_balance_dr, 0) - nvl(gb.begin_balance_cr, 0)),
SUM(nvl(gb.begin_balance_dr, 0) - nvl(gb.begin_balance_cr, 0) +
nvl(gb.period_net_dr, 0) - nvl(gb.period_net_cr, 0)),
p_sob_id,
p_currency_code
FROM gl_balances gb,
xxafx_stx_converted_account ca,
gl_code_combinations gcc
WHERE gcc.code_combination_id = gb.code_combination_id AND
gcc.segment3 = ca.converted_code AND
gcc.segment1 = nvl(p_company_id,gcc.segment1) and
gb.currency_code = p_currency_code AND
gb.period_year = p_period_year and
nvl(gcc.summary_flag,'N') <> 'Y' and
(gb.period_num = v_period_min_num or gb.period_num = v_month) and
gb.set_of_books_id = p_sob_id and
ca.set_of_books_id = p_sob_id
group by ca.standard_code,
ca.converted_code,
ca.description,
gb.period_num;
--取该区间的最后一天日期
select substr(p_start_date,6,2),
substr(p_end_date,9,2)
into v_title_month,
v_day
from dual;
--TITLE显示会计期间
select gps.period_name
into v_period_name
from gl_period_statuses gps
where gps.effective_period_num = p_period_id
and gps.application_id = 101
and gps.set_of_books_id = p_sob_id;
p_date_title_str := v_period_name;
--IF substr(p_start_date,6,2) = '12' THEN
--p_date_title_str := p_period_year || '年度';
--ELSE
--p_date_title_str := p_period_year || '年' || v_title_month || '月' || v_day || '日';
--END IF;
--Fetch date accord to standard account for bs
--------------------------------------------------ASSET-------------------------------------------------
SELECT SUM(result_1) --货币资金r1
INTO v_r1_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 3) = '100' AND period_num = v_period_min_num;
SELECT SUM(result_2) --货币资金r1
INTO v_r1_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 3) = '100' AND period_num = v_month;
SELECT SUM(result_1) --短期投资-短期投资跌价准备r2
INTO v_r2_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
(SUBSTR(standard_code, 1, 4) = '1101' OR
SUBSTR(standard_code, 1, 4) = '1102') AND period_num = v_period_min_num;
SELECT SUM(result_2) --短期投资-短期投资跌价准备r2
INTO v_r2_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
(SUBSTR(standard_code, 1, 4) = '1101' OR
SUBSTR(standard_code, 1, 4) = '1102') AND period_num = v_month;
SELECT SUM(result_1) --应收票据r3
INTO v_r3_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1111' AND period_num = v_period_min_num;
SELECT SUM(result_2) --应收票据r3
INTO v_r3_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1111' AND period_num = v_month;
SELECT SUM(result_1) --应收股利r4
INTO v_r4_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1121' AND period_num = v_period_min_num;
SELECT SUM(result_2) --应收股利r4
INTO v_r4_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1121' AND period_num = v_month;
SELECT SUM(result_1) --应收利息r5
INTO v_r5_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1122' AND period_num = v_period_min_num;
SELECT SUM(result_2) --应收利息r5
INTO v_r5_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1122' AND period_num = v_month;
SELECT SUM(result_1) --应收账款+减:坏帐准备r6
INTO v_r6_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
(SUBSTR(standard_code, 1, 4) = '1131' OR
SUBSTR(standard_code, 1, 4) = '1141') AND period_num = v_period_min_num;
SELECT SUM(result_2) --应收账款+减:坏帐准备r6
INTO v_r6_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
(SUBSTR(standard_code, 1, 4) = '1131' OR
SUBSTR(standard_code, 1, 4) = '1141') AND period_num = v_month;
SELECT SUM(result_1) --其他应收款r7
INTO v_r7_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1133' AND period_num = v_period_min_num;
SELECT SUM(result_2) --其他应收款r7
INTO v_r7_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1133' AND period_num = v_month;
SELECT SUM(result_1) --预付账款r8
INTO v_r8_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1151' AND period_num = v_period_min_num;
SELECT SUM(result_2) --预付账款r8
INTO v_r8_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1151' AND period_num = v_month;
SELECT SUM(result_1)--应收补贴款r9
INTO v_r9_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1161' AND period_num = v_period_min_num;
SELECT SUM(result_2) --应收补贴款r9
INTO v_r9_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1161' AND period_num = v_month;
SELECT SUM(result_1) --Internal transaction
INTO v_internal_1 --"1"开头,且未在以上科目中计算的,此处只含"待处理财产损溢"
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1181' AND period_num = v_period_min_num;
SELECT SUM(result_2) --Internal transaction
INTO v_internal_2 --"1"开头,且未在以上科目中计算的,此处只含"待处理财产损溢"
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1181' AND period_num = v_month;
SELECT SUM(result_1) --存货r10
INTO v_r10_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
period_num = v_period_min_num AND
SUBSTR(standard_code, 1, 2) = '12' OR LPAD(standard_code, 1) = 4;
SELECT SUM(result_2) --存货r10
INTO v_r10_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
period_num = v_month AND
SUBSTR(standard_code, 1, 2) = '12' OR LPAD(standard_code, 1) = 4;
SELECT SUM(result_1) --待摊费用r11
INTO v_r11_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1301' AND period_num = v_period_min_num;
SELECT SUM(result_2) --待摊费用r11
INTO v_r11_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1301' AND period_num = v_month;
SELECT SUM(result_1) --其他流动资产r24
INTO v_r24_c1 --"1"开头,且未在以上科目中计算的,此处只含"待处理财产损溢"
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) in ('1181','1191') AND period_num = v_period_min_num;
SELECT SUM(result_2) --其他流动资产r24
INTO v_r24_c2 --"1"开头,且未在以上科目中计算的,此处只含"待处理财产损溢"
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) in ('1181','1191') AND period_num = v_month;
v_reivable_1 := NVL(v_internal_1, 0) + NVL(v_r24_c1, 0);
v_reivable_2 := NVL(v_internal_2, 0) + NVL(v_r24_c2, 0);
v_r31_c1 := NVL(v_r1_c1, 0) + NVL(v_r2_c1, 0) + --流动资产合计r31
NVL(v_r3_c1, 0) + NVL(v_r4_c1, 0) + NVL(v_r5_c1, 0) +
NVL(v_r7_c1, 0) + NVL(v_r8_c1, 0) + NVL(v_r9_c1, 0) +
NVL(v_r10_c1, 0) + NVL(v_r11_c1, 0) + NVL(v_r6_c1, 0) +
NVL(v_reivable_1, 0);
v_r31_c2 := NVL(v_r1_c2, 0) + NVL(v_r2_c2, 0) + NVL(v_r3_c2, 0) +
NVL(v_r4_c2, 0) + NVL(v_r5_c2, 0) + NVL(v_r7_c2, 0) +
NVL(v_r8_c2, 0) + NVL(v_r9_c2, 0) + NVL(v_r10_c2, 0) +
NVL(v_r11_c2, 0) + NVL(v_r6_c2, 0) + NVL(v_reivable_2, 0);
SELECT SUM(result_1) --长期股权投资r32
INTO v_r32_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1401' AND period_num = v_period_min_num;
SELECT SUM(result_2) --长期股权投资r32
INTO v_r32_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1401' AND period_num = v_month;
SELECT SUM(result_1) --长期债权投资+委托贷款r34
INTO v_r34_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) in ('1402', '1421', '1431') AND period_num = v_period_min_num;
SELECT SUM(result_2) --长期债权投资+委托贷款r34
INTO v_r34_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) in ('1402', '1421', '1431') AND period_num = v_month;
v_r38_c1 := NVL(v_r32_c1, 0) + NVL(v_r34_c1, 0); --长期投资合计r38
v_r38_c2 := NVL(v_r32_c2, 0) + NVL(v_r34_c2, 0);
SELECT SUM(result_1) --固定资产原价r39
INTO v_r39_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1501' AND period_num = v_period_min_num;
SELECT SUM(result_2) --固定资产原价r39
INTO v_r39_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1501' AND period_num = v_month;
SELECT SUM(result_1) --减:累计折旧r40
INTO v_r40_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1502' AND period_num = v_period_min_num;
SELECT SUM(result_2) --减:累计折旧r40
INTO v_r40_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1502' AND period_num = v_month;
v_r41_c1 := NVL(v_r39_c1, 0) + NVL(v_r40_c1, 0); --固定资产净值r41
v_r41_c2 := NVL(v_r39_c2, 0) + NVL(v_r40_c2, 0);
SELECT SUM(result_1) --减:固定资产减值准备r42
INTO v_r42_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1505' AND period_num = v_period_min_num;
SELECT SUM(result_2) --减:固定资产减值准备r42
INTO v_r42_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1505' AND period_num = v_month;
v_r43_c1 := NVL(v_r41_c1, 0) + NVL(v_r42_c1, 0); --固定资产净额=固定资产净值+减:固定资产减值准备r43
v_r43_c2 := NVL(v_r41_c2, 0) + NVL(v_r42_c2, 0);
SELECT SUM(result_1) --工程物资r44
INTO v_r44_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1601' AND period_num = v_period_min_num;
SELECT SUM(result_2) --工程物资r44
INTO v_r44_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1601' AND period_num = v_month;
SELECT SUM(result_1) --在建工程-在建工程减值准备r45
INTO v_r45_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
(SUBSTR(standard_code, 1, 4) = '1603' OR
SUBSTR(standard_code, 1, 4) = '1605') AND period_num = v_period_min_num;
SELECT SUM(result_2) --在建工程-在建工程减值准备r45
INTO v_r45_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
(SUBSTR(standard_code, 1, 4) = '1603' OR
SUBSTR(standard_code, 1, 4) = '1605') AND period_num = v_month;
SELECT SUM(result_1) --固定资产清理r46
INTO v_r46_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1701' AND period_num = v_period_min_num;
SELECT SUM(result_2) --固定资产清理r46
INTO v_r46_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1701' AND period_num = v_month;
v_r50_c1 := NVL(v_r39_c1, 0) + NVL(v_r40_c1, 0) --固定资产合计r50
+ NVL(v_r42_c1, 0) + NVL(v_r44_c1, 0) + NVL(v_r45_c1, 0) +
NVL(v_r46_c1, 0);
v_r50_c2 := NVL(v_r39_c2, 0) + NVL(v_r40_c2, 0) + NVL(v_r42_c2, 0) +
NVL(v_r44_c2, 0) + NVL(v_r45_c2, 0) + NVL(v_r46_c2, 0);
SELECT SUM(result_1) --无形资产-无形资产减值准备r51
INTO v_r51_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
(SUBSTR(standard_code, 1, 4) = '1801' OR
SUBSTR(standard_code, 1, 4) = '1805') AND period_num = v_period_min_num;
SELECT SUM(result_2) --无形资产-无形资产减值准备r51
INTO v_r51_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
(SUBSTR(standard_code, 1, 4) = '1801' OR
SUBSTR(standard_code, 1, 4) = '1805') AND period_num = v_month;
SELECT SUM(result_1)--长期待摊费用r52
INTO v_r52_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1901' AND period_num = v_period_min_num;
SELECT SUM(result_2) --长期待摊费用r52
INTO v_r52_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '1901' AND period_num = v_month;
v_r60_c1 := NVL(v_r51_c1, 0) + NVL(v_r52_c1, 0); --无形资产及其他资产合计r60
v_r60_c2 := NVL(v_r51_c2, 0) + NVL(v_r52_c2, 0);
v_r67_c1 := NVL(v_r31_c1, 0) + NVL(v_r50_c1, 0) --资产总计r67
+ NVL(v_r60_c1, 0) + NVL(v_r38_c1, 0);
v_r67_c2 := NVL(v_r31_c2, 0) + NVL(v_r50_c2, 0) + NVL(v_r60_c2, 0) +
NVL(v_r38_c2, 0);
--------------------------------------------------DEBT-------------------------------------------------
SELECT SUM(result_1) --短期借款r68
INTO v_r68_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2101' AND period_num = v_period_min_num;
SELECT SUM(result_2) --短期借款r68
INTO v_r68_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2101' AND period_num = v_month;
SELECT SUM(result_1) --应付票据r69
INTO v_r69_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2111' AND period_num = v_period_min_num;
SELECT SUM(result_2) --应付票据r69
INTO v_r69_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2111' AND period_num = v_month;
SELECT SUM(result_1) --应付帐款(应计负债并入)r70
INTO v_r70_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2121' AND period_num = v_period_min_num;
SELECT SUM(result_2) --应付帐款(应计负债并入)r70
INTO v_r70_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2121' AND period_num = v_month;
SELECT SUM(result_1) --预收帐款r71
INTO v_r71_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2131' AND period_num = v_period_min_num;
SELECT SUM(result_2) --预收帐款r71
INTO v_r71_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2131' AND period_num = v_month;
SELECT SUM(result_1) --应付工资r72
INTO v_r72_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2151' AND period_num = v_period_min_num;
SELECT SUM(result_2) --应付工资r72
INTO v_r72_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2151' AND period_num = v_month;
SELECT SUM(result_1) --应付福利费r73
INTO v_r73_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2153' AND period_num = v_period_min_num;
SELECT SUM(result_2) --应付福利费r73
INTO v_r73_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2153' AND period_num = v_month;
SELECT SUM(result_1) --应付股利r74
INTO v_r74_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2161' AND period_num = v_period_min_num;
SELECT SUM(result_2) --应付股利r74
INTO v_r74_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2161' AND period_num = v_month;
select SUM(result_1) --应付利息r75
into v_r75_c1
from xxafx_afx_bs
where currency_code = p_currency_code and set_of_books_id = p_sob_id and
DESCRIPTION LIKE '%应付%利息%' AND period_num = v_period_min_num;
select SUM(result_2) --应付利息r75
into v_r75_c2
from xxafx_afx_bs
where currency_code = p_currency_code and set_of_books_id = p_sob_id and
DESCRIPTION LIKE '%应付%利息%' AND period_num = v_month;
SELECT SUM(result_1) --应交税金r76
INTO v_r76_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2171' AND period_num = v_period_min_num;
SELECT SUM(result_2) --应交税金r76
INTO v_r76_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2171' AND period_num = v_month;
SELECT SUM(result_1) --其他应交款
INTO v_r2176_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2176' AND period_num = v_period_min_num;
SELECT SUM(result_2) --其他应交款
INTO v_r2176_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2176' AND period_num = v_month;
SELECT SUM(result_1) --其他应付款r81
INTO v_r81_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2181' AND period_num = v_period_min_num;
SELECT SUM(result_2) --其他应付款r81
INTO v_r81_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2181' AND period_num = v_month;
SELECT SUM(result_1) --预提费用r82
INTO v_r82_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2191' AND period_num = v_period_min_num;
SELECT SUM(result_2) --预提费用r82
INTO v_r82_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2191' AND period_num = v_month;
SELECT SUM(result_1) --预计负债r83
INTO v_r83_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2211' AND period_num = v_period_min_num;
SELECT SUM(result_2) --预计负债r83
INTO v_r83_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2211' AND period_num = v_month;
SELECT SUM(result_1) --其他流动负债r90
INTO v_r90_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) IN ('2201', '2141') AND period_num = v_period_min_num;
SELECT SUM(result_2) --其他流动负债r90
INTO v_r90_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) IN ('2201', '2141') AND period_num = v_month;
v_r100_c1 := NVL(v_r68_c1, 0) + NVL(v_r69_c1, 0) + NVL(v_r70_c1, 0) + --流动负债合计r100
NVL(v_r71_c1, 0) + NVL(v_r72_c1, 0) + NVL(v_r73_c1, 0) +
NVL(v_r74_c1, 0) + NVL(v_r75_c1, 0) + NVL(v_r76_c1, 0) +
NVL(v_r81_c1, 0) + NVL(v_r82_c1, 0) + NVL(v_r83_c1, 0) +
NVL(v_r90_c1, 0) + NVL(v_r2176_c1, 0);
v_r100_c2 := NVL(v_r68_c2, 0) + NVL(v_r69_c2, 0) + NVL(v_r70_c2, 0) +
NVL(v_r71_c2, 0) + NVL(v_r72_c2, 0) + NVL(v_r73_c2, 0) +
NVL(v_r74_c2, 0) + NVL(v_r75_c2, 0) + NVL(v_r76_c2, 0) +
NVL(v_r81_c2, 0) + NVL(v_r82_c2, 0) + NVL(v_r83_c2, 0) +
NVL(v_r90_c2, 0) + NVL(v_r2176_c2, 0);
SELECT SUM(result_1)--长期借款r101
INTO v_r101_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2301' AND period_num = v_period_min_num;
SELECT SUM(result_2) --长期借款r101
INTO v_r101_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2301' AND period_num = v_month;
SELECT SUM(result_1) --应付债券r102
INTO v_r102_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2311' AND period_num = v_period_min_num;
SELECT SUM(result_2) --应付债券r102
INTO v_r102_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2311' AND period_num = v_month;
SELECT SUM(result_1) --长期应付款r103
INTO v_r103_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2321' AND period_num = v_period_min_num;
SELECT SUM(result_2) --长期应付款r103
INTO v_r103_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2321' AND period_num = v_month;
SELECT SUM(result_1) --专项应付款r106
INTO v_r106_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2331' AND period_num = v_period_min_num;
SELECT SUM(result_2) --专项应付款r106
INTO v_r106_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2331' AND period_num = v_month;
v_r110_c1 := NVL(v_r101_c1, 0) + NVL(v_r102_c1, 0) --长期负债合计r110
+ NVL(v_r103_c1, 0) + NVL(v_r106_c1, 0);
v_r110_c2 := NVL(v_r101_c2, 0) + NVL(v_r102_c2, 0) + NVL(v_r103_c2, 0) +
NVL(v_r106_c2, 0);
SELECT SUM(result_1) --递延贷项r111
INTO v_r111_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2341' AND period_num = v_period_min_num;
SELECT SUM(result_2) --递延贷项r111
INTO v_r111_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '2341' AND period_num = v_month;
v_r114_c1 := NVL(v_r100_c1, 0) + NVL(v_r110_c1, 0) --负债合计r114
+ NVL(v_r111_c1, 0);
v_r114_c2 := NVL(v_r100_c2, 0) + NVL(v_r110_c2, 0) + NVL(v_r111_c2, 0);
---------------------------------------------OWNER------------------------------------------------
SELECT SUM(result_1) --实收资本(或股本)r115
INTO v_r115_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) in ('3101', '3102') AND period_num = v_period_min_num;
SELECT SUM(result_2) --实收资本(或股本)r115
INTO v_r115_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) in ('3101', '3102') AND period_num = v_month;
SELECT SUM(result_1) --资本公积r118
INTO v_r116_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '3103' AND period_num = v_period_min_num;
SELECT SUM(result_2) --资本公积r118
INTO v_r116_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '3103' AND period_num = v_month;
--------------update by jane 2009/06/29
v_r117_c1 := nvl(v_r115_c1,0) + nvl(v_r116_c1,0);
v_r117_c2 := nvl(v_r115_c2,0) + nvl(v_r116_c2,0);
--------------update by jane 2009/06/29
SELECT SUM(result_1) --资本公积r118
INTO v_r118_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '3111' AND period_num = v_period_min_num;
SELECT SUM(result_2) --资本公积r118
INTO v_r118_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '3111' AND period_num = v_month;
SELECT SUM(result_1) --盈余公积r119
INTO v_r119_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '3121' AND period_num = v_period_min_num;
SELECT SUM(result_2) --盈余公积r119
INTO v_r119_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 4) = '3121' AND period_num = v_month;
SELECT SUM(result_1)
INTO v_r120_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 6) = '312103' AND period_num = v_period_min_num;
SELECT SUM(result_2)
INTO v_r120_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
SUBSTR(standard_code, 1, 6) = '312103' AND period_num = v_month;
SELECT SUM(result_1) --未分配利润r121
INTO v_r121_c1
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
(SUBSTR(standard_code, 1, 4) = '3131' OR
SUBSTR(standard_code, 1, 4) = '3141' OR LPAD(standard_code, 1) = 5) AND period_num = v_period_min_num;
SELECT SUM(result_2) --未分配利润r121
INTO v_r121_c2
FROM xxafx_afx_bs
WHERE currency_code = p_currency_code AND set_of_books_id = p_sob_id AND
(SUBSTR(standard_code, 1, 4) = '3131' OR
SUBSTR(standard_code, 1, 4) = '3141' OR LPAD(standard_code, 1) = 5) AND period_num = v_month;
v_r122_c1 := NVL(v_r115_c1, 0) + NVL(v_r116_c1, 0) + NVL(v_r118_c1, 0) --所有者权益(或股东权益)合计r122
+ NVL(v_r119_c1, 0) + NVL(v_r121_c1, 0);
v_r122_c2 := NVL(v_r115_c2, 0) + NVL(v_r116_c2, 0) + NVL(v_r118_c2, 0) +
NVL(v_r119_c2, 0) + NVL(v_r121_c2, 0);
v_r135_c1 := NVL(v_r114_c1, 0) + NVL(v_r122_c1, 0); --负债和所有者权益(或股东权益)总计r135
v_r135_c2 := NVL(v_r114_c2, 0) + NVL(v_r122_c2, 0);
--=========================================================
--如果为0则已空的形式填入
--如果是负债及所有者权益类,则取反号填入
--=========================================================
if v_r1_c1 = 0 then
v_r1_c1 := null;
end if;
if v_r1_c2 = 0 then
v_r1_c2 := null;
end if;
if v_r6_c1 = 0 then
v_r6_c1 := null;
end if;
if v_r6_c2 = 0 then
v_r6_c2 := null;
end if;
if v_r2_c1 = 0 then
v_r2_c1 := null;
end if;
if v_r2_c2 = 0 then
v_r2_c2 := null;
end if;
if v_r3_c1 = 0 then
v_r3_c1 := null;
end if;
if v_r3_c2 = 0 then
v_r3_c2 := null;
end if;
if v_r4_c1 = 0 then
v_r4_c1 := null;
end if;
if v_r4_c2 = 0 then
v_r4_c2 := null;
end if;
if v_r5_c1 = 0 then
v_r5_c1 := null;
end if;
if v_r5_c2 = 0 then
v_r5_c2 := null;
end if;
if v_reivable_1 = 0 then
v_reivable_1 := null;
end if;
if v_reivable_2 = 0 then
v_reivable_2 := null;
end if;
if v_r7_c1 = 0 then
v_r7_c1 := null;
end if;
if v_r7_c2 = 0 then
v_r7_c2 := null;
end if;
if v_r8_c1 = 0 then
v_r8_c1 := null;
end if;
if v_r8_c2 = 0 then
v_r8_c2 := null;
end if;
if v_r9_c1 = 0 then
v_r9_c1 := null;
end if;
if v_r9_c2 = 0 then
v_r9_c2 := null;
end if;
if v_r10_c1 = 0 then
v_r10_c1 := null;
end if;
if v_r10_c2 = 0 then
v_r10_c2 := null;
end if;
if v_r11_c1 = 0 then
v_r11_c1 := null;
end if;
if v_r11_c2 = 0 then
v_r11_c2 := null;
end if;
if v_r24_c1 = 0 then
v_r24_c1 := null;
end if;
if v_r24_c2 = 0 then
v_r24_c2 := null;
end if;
if v_r31_c1 = 0 then
v_r31_c1 := null;
end if;
if v_r31_c2 = 0 then
v_r31_c2 := null;
end if;
if v_r32_c1 = 0 then
v_r32_c1 := null;
end if;
if v_r32_c2 = 0 then
v_r32_c2 := null;
end if;
if v_r34_c1 = 0 then
v_r34_c1 := null;
end if;
if v_r34_c2 = 0 then
v_r34_c2 := null;
end if;
if v_r38_c1 = 0 then
v_r38_c1 := null;
end if;
if v_r38_c2 = 0 then
v_r38_c2 := null;
end if;
if v_r39_c1 = 0 then
v_r39_c1 := null;
end if;
if v_r39_c2 = 0 then
v_r39_c2 := null;
end if;
if v_r40_c1 = 0 then
v_r40_c1 := null;
else
v_r40_c1 := -v_r40_c1;
end if;
if v_r40_c2 = 0 then
v_r40_c2 := null;
else
v_r40_c2 := -v_r40_c2;
end if;
if v_r41_c1 = 0 then
v_r41_c1 := null;
end if;
if v_r41_c2 = 0 then
v_r41_c2 := null;
end if;
if v_r42_c1 = 0 then
v_r42_c1 := null;
else
v_r42_c1 := -v_r42_c1;
end if;
if v_r42_c2 = 0 then
v_r42_c2 := null;
else
v_r42_c2 := -v_r42_c2;
end if;
if v_r43_c1 = 0 then
v_r43_c1 := null;
end if;
if v_r43_c2 = 0 then
v_r43_c2 := null;
end if;
if v_r44_c1 = 0 then
v_r44_c1 := null;
end if;
if v_r44_c2 = 0 then
v_r44_c2 := null;
end if;
if v_r45_c1 = 0 then
v_r45_c1 := null;
end if;
if v_r45_c2 = 0 then
v_r45_c2 := null;
end if;
if v_r46_c1 = 0 then
v_r46_c1 := null;
end if;
if v_r46_c2 = 0 then
v_r46_c2 := null;
end if;
if v_r50_c1 = 0 then
v_r50_c1 := null;
end if;
if v_r50_c2 = 0 then
v_r50_c2 := null;
end if;
if v_r51_c1 = 0 then
v_r51_c1 := null;
end if;
if v_r51_c2 = 0 then
v_r51_c2 := null;
end if;
if v_r52_c1 = 0 then
v_r52_c1 := null;
end if;
if v_r52_c2 = 0 then
v_r52_c2 := null;
end if;
if v_r60_c1 = 0 then
v_r60_c1 := null;
end if;
if v_r60_c2 = 0 then
v_r60_c2 := null;
end if;
if v_r67_c1 = 0 then
v_r67_c1 := null;
end if;
if v_r67_c2 = 0 then
v_r67_c2 := null;
end if;
IF v_r68_c1 > 0 then
v_r68_c1 := -v_r68_c1;
elsif v_r68_c1 = 0 then
v_r68_c1 := null;
else
v_r68_c1 := -v_r68_c1;
end if;
IF v_r68_c2 > 0 then
v_r68_c2 := -v_r68_c2;
elsif v_r68_c2 = 0 then
v_r68_c2 := null;
else
v_r68_c2 := -v_r68_c2;
end if;
IF v_r69_c1 > 0 then
v_r69_c1 := -v_r69_c1;
elsif v_r69_c1 = 0 then
v_r69_c1 := null;
else
v_r69_c1 := -v_r69_c1;
end if;
IF v_r69_c2 > 0 then
v_r69_c2 := -v_r69_c2;
elsif v_r69_c2 = 0 then
v_r69_c2 := null;
else
v_r69_c2 := -v_r69_c2;
end if;
IF v_r70_c1 = 0 then
v_r70_c1 := null;
else
v_r70_c1 := -v_r70_c1;
end if;
IF v_r70_c2 = 0 then
v_r70_c2 := null;
else
v_r70_c2 := -v_r70_c2;
end if;
IF v_r71_c1 > 0 then
v_r71_c1 := -v_r71_c1;
elsif v_r71_c1 = 0 then
v_r71_c1 := null;
else
v_r71_c1 := -v_r71_c1;
end if;
IF v_r71_c2 > 0 then
v_r71_c2 := -v_r71_c2;
elsif v_r71_c2 = 0 then
v_r71_c2 := null;
else
v_r71_c2 := -v_r71_c2;
end if;
IF v_r72_c1 > 0 then
v_r72_c1 := -v_r72_c1;
elsif v_r72_c1 = 0 then
v_r72_c1 := null;
else
v_r72_c1 := -v_r72_c1;
end if;
IF v_r72_c2 > 0 then
v_r72_c2 := -v_r72_c2;
elsif v_r72_c2 = 0 then
v_r72_c2 := null;
else
v_r72_c2 := -v_r72_c2;
end if;
IF v_r73_c1 > 0 then
v_r73_c1 := -v_r73_c1;
elsif v_r73_c1 = 0 then
v_r73_c1 := null;
else
v_r73_c1 := -v_r73_c1;
end if;
IF v_r73_c2 > 0 then
v_r73_c2 := -v_r73_c2;
elsif v_r73_c2 = 0 then
v_r73_c2 := null;
else
v_r73_c2 := -v_r73_c2;
end if;
IF v_r74_c1 > 0 then
v_r74_c1 := -v_r74_c1;
elsif v_r74_c1 = 0 then
v_r74_c1 := null;
else
v_r74_c1 := -v_r74_c1;
end if;
IF v_r74_c2 > 0 then
v_r74_c2 := -v_r74_c2;
elsif v_r74_c2 = 0 then
v_r74_c2 := null;
else
v_r74_c2 := -v_r74_c2;
end if;
IF v_r75_c1 > 0 then
v_r75_c1 := -v_r75_c1;
elsif v_r75_c1 = 0 then
v_r75_c1 := null;
else
v_r75_c1 := -v_r75_c1;
end if;
IF v_r75_c2 > 0 then
v_r75_c2 := -v_r75_c2;
elsif v_r75_c2 = 0 then
v_r75_c2 := null;
else
v_r75_c2 := -v_r75_c2;
end if;
IF v_r76_c1 > 0 then
v_r76_c1 := -v_r76_c1;
elsif v_r76_c1 = 0 then
v_r76_c1 := null;
else
v_r76_c1 := -v_r76_c1;
end if;
IF v_r76_c2 > 0 then
v_r76_c2 := -v_r76_c2;
elsif v_r76_c2 = 0 then
v_r76_c2 := null;
else
v_r76_c2 := -v_r76_c2;
end if;
IF v_r2176_c1 = 0 then
v_r2176_c1 := null;
else
v_r2176_c1 := -v_r2176_c1;
end if;
IF v_r2176_c2 = 0 then
v_r2176_c2 := null;
else
v_r2176_c2 := -v_r2176_c2;
end if;
IF v_r81_c1 = 0 then
v_r81_c1 := null;
else
v_r81_c1 := -v_r81_c1;
end if;
----update by jane 2009/06/29
IF v_r81_c2 = 0 then
v_r81_c2 := null;
else
v_r81_c2:= -v_r81_c2;
end if;
IF v_r82_c1 = 0 then
v_r82_c1 := null;
else
v_r82_c1 := -v_r82_c1;
end if;
----update by jane 2009/06/29
IF v_r82_c2 = 0 then
v_r82_c2 := null;
else
v_r82_c2 := -v_r82_c2;
end if;
IF v_r83_c1 > 0 then
v_r83_c1 := -v_r83_c1;
elsif v_r83_c1 = 0 then
v_r83_c1 := null;
else
v_r83_c1 := -v_r83_c1;
end if;
IF v_r83_c2 > 0 then
v_r83_c2 := -v_r83_c2;
elsif v_r83_c2 = 0 then
v_r83_c2 := null;
else
v_r83_c2 := -v_r83_c2;
end if;
IF v_r90_c1 > 0 then
v_r90_c1 := -v_r90_c1;
elsif v_r90_c1 = 0 then
v_r90_c1 := null;
else
v_r90_c1 := -v_r90_c1;
end if;
IF v_r90_c2 > 0 then
v_r90_c2 := -v_r90_c2;
elsif v_r90_c2 = 0 then
v_r90_c2 := null;
else
v_r90_c2 := -v_r90_c2;
end if;
IF v_r100_c1 > 0 then
v_r100_c1 := -v_r100_c1;
elsif v_r100_c1 = 0 then
v_r100_c1 := null;
else
v_r100_c1 := -v_r100_c1;
end if;
IF v_r100_c2 > 0 then
v_r100_c2 := -v_r100_c2;
elsif v_r100_c2 = 0 then
v_r100_c2 := null;
else
v_r100_c2 := -v_r100_c2;
end if;
IF v_r101_c1 > 0 then
v_r101_c1 := -v_r101_c1;
elsif v_r101_c1 = 0 then
v_r101_c1 := null;
else
v_r101_c1 := -v_r101_c1;
end if;
IF v_r101_c2 > 0 then
v_r101_c2 := -v_r101_c2;
elsif v_r101_c2 = 0 then
v_r101_c2 := null;
else
v_r101_c2 := -v_r101_c2;
end if;
IF v_r102_c1 > 0 then
v_r102_c1 := -v_r102_c1;
elsif v_r102_c1 = 0 then
v_r102_c1 := null;
else
v_r102_c1 := -v_r102_c1;
end if;
IF v_r102_c2 > 0 then
v_r102_c2 := -v_r102_c2;
elsif v_r102_c2 = 0 then
v_r102_c2 := null;
else
v_r102_c2 := -v_r102_c2;
end if;
IF v_r103_c1 > 0 then
v_r103_c1 := -v_r103_c1;
elsif v_r103_c1 = 0 then
v_r103_c1 := null;
else
v_r103_c1 := -v_r103_c1;
end if;
IF v_r103_c2 > 0 then
v_r103_c2 := -v_r103_c2;
elsif v_r103_c2 = 0 then
v_r103_c2 := null;
else
v_r103_c2 := -v_r103_c2;
end if;
IF v_r106_c1 > 0 then
v_r106_c1 := -v_r106_c1;
elsif v_r106_c1 = 0 then
v_r106_c1 := null;
else
v_r106_c1 := -v_r106_c1;
end if;
IF v_r106_c2 > 0 then
v_r106_c2 := -v_r106_c2;
elsif v_r106_c2 = 0 then
v_r106_c2 := null;
else
v_r106_c2 := -v_r106_c2;
end if;
--select decode(v_r107_c1,0,'',-v_r107_c1) into v_r107_c1 from dual;
-- select decode(v_r107_c2,0,'',-v_r107_c2) into v_r107_c2 from dual;
IF v_r110_c1 > 0 then
v_r110_c1 := -v_r110_c1;
elsif v_r110_c1 = 0 then
v_r110_c1 := null;
else
v_r110_c1 := -v_r110_c1;
end if;
IF v_r110_c2 > 0 then
v_r110_c2 := -v_r110_c2;
elsif v_r110_c2 = 0 then
v_r110_c2 := null;
else
v_r110_c2 := -v_r110_c2;
end if;
IF v_r111_c1 > 0 then
v_r111_c1 := -v_r111_c1;
elsif v_r111_c1 = 0 then
v_r111_c1 := null;
else
v_r111_c1 := -v_r111_c1;
end if;
IF v_r111_c2 > 0 then
v_r111_c2 := -v_r111_c2;
elsif v_r111_c2 = 0 then
v_r111_c2 := null;
else
v_r111_c2 := -v_r111_c2;
end if;
IF v_r114_c1 > 0 then
v_r114_c1 := -v_r114_c1;
elsif v_r114_c1 = 0 then
v_r114_c1 := null;
else
v_r114_c1 := -v_r114_c1;
end if;
IF v_r114_c2 > 0 then
v_r114_c2 := -v_r114_c2;
elsif v_r114_c2 = 0 then
v_r114_c2 := null;
else
v_r114_c2 := -v_r114_c2;
end if;
IF v_r115_c1 > 0 then
v_r115_c1 := -v_r115_c1;
elsif v_r115_c1 = 0 then
v_r115_c1 := null;
else
v_r115_c1 := -v_r115_c1;
end if;
IF v_r115_c2 > 0 then
v_r115_c2 := -v_r115_c2;
elsif v_r115_c2 = 0 then
v_r115_c2 := null;
else
v_r115_c2 := -v_r115_c2;
end if;
IF v_r116_c2 = 0 then
v_r116_c2 := null;
else
v_r116_c2 := -v_r116_c2;
end if;
-----------------------update by jane 2009/06/29
IF v_r117_c1 = 0 then
v_r117_c1 := null;
else
v_r117_c1 := -v_r117_c1;
end if;
-----------------------update by jane 2009/06/29
IF v_r117_c2 = 0 then
v_r117_c2 := null;
else
v_r117_c2 := -v_r117_c2;
end if;
IF v_r118_c1 > 0 then
v_r118_c1 := -v_r118_c1;
elsif v_r118_c1 = 0 then
v_r118_c1 := null;
else
v_r118_c1 := -v_r118_c1;
end if;
IF v_r118_c2 > 0 then
v_r118_c2 := -v_r118_c2;
elsif v_r118_c2 = 0 then
v_r118_c2 := null;
else
v_r118_c2 := -v_r118_c2;
end if;
IF v_r119_c1 > 0 then
v_r119_c1 := -v_r119_c1;
elsif v_r119_c1 = 0 then
v_r119_c1 := null;
else
v_r119_c1 := -v_r119_c1;
end if;
IF v_r119_c2 > 0 then
v_r119_c2 := -v_r119_c2;
elsif v_r119_c2 = 0 then
v_r119_c2 := null;
else
v_r119_c2 := -v_r119_c2;
end if;
IF v_r120_c1 > 0 then
v_r120_c1 := -v_r120_c1;
elsif v_r120_c1 = 0 then
v_r120_c1 := null;
else
v_r120_c1 := -v_r120_c1;
end if;
IF v_r120_c2 > 0 then
v_r120_c2 := -v_r120_c2;
elsif v_r120_c2 = 0 then
v_r120_c2 := null;
else
v_r120_c2 := -v_r120_c2;
end if;
IF v_r120_c3 > 0 then
v_r120_c3 := -v_r120_c3;
elsif v_r120_c3 = 0 then
v_r120_c3 := null;
else
v_r120_c3 := -v_r120_c3;
end if;
IF v_r120_c4 > 0 then
v_r120_c4 := -v_r120_c4;
elsif v_r120_c4 = 0 then
v_r120_c4 := null;
else
v_r120_c4 := -v_r120_c4;
end if;
IF v_r121_c1 > 0 then
v_r121_c1 := -v_r121_c1;
elsif v_r121_c1 = 0 then
v_r121_c1 := null;
else
v_r121_c1 := -v_r121_c1;
end if;
IF v_r121_c2 > 0 then
v_r121_c2 := -v_r121_c2;
elsif v_r121_c2 = 0 then
v_r121_c2 := null;
else
v_r121_c2 := -v_r121_c2;
end if;
IF v_r122_c1 > 0 then
v_r122_c1 := -v_r122_c1;
elsif v_r122_c1 = 0 then
v_r122_c1 := null;
else
v_r122_c1 := -v_r122_c1;
end if;
IF v_r122_c2 > 0 then
v_r122_c2 := -v_r122_c2;
elsif v_r122_c2 = 0 then
v_r122_c2 := null;
else
v_r122_c2 := -v_r122_c2;
end if;
IF v_r135_c1 > 0 then
v_r135_c1 := -v_r135_c1;
elsif v_r135_c1 = 0 then
v_r135_c1 := null;
else
v_r135_c1 := -v_r135_c1;
end if;
IF v_r135_c2 > 0 then
v_r135_c2 := -v_r135_c2;
elsif v_r135_c2 = 0 then
v_r135_c2 := null;
else
v_r135_c2 := -v_r135_c2;
end if;
if p_currency_code = 'USD' then
v_currency_code := '美元';
elsif p_currency_code = 'JPY' then
v_currency_code := '日元';
else
v_currency_code := '元';
end if;
IF substr(p_start_date,6,2) = '12' THEN
v_column_1_name := '年初数';
v_column_2_name := '年末数';
ELSE
v_column_1_name := '年初数';
--v_column_1_name := '期初数';
v_column_2_name := '期末数';
END IF;
-------------------------------Web print---------------------------------------------------
HTP.htmlOpen;
HTP.p('<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>资产负债表</title></head>');
HTP.bodyOpen;
HTP.p('<p><font face="宋体" size="2">
<b> </b></font></p>');
HTP.p('<table border="0" width="100%" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td width="451" > </td>
<td width="451" align="center" height="13" ><font face="宋体" size="2">上海市' ||
p_period_year ||
'企业月度会计报表</font></td>
<td width="451" > </td>
</tr>
<tr>
<td width="451" >  </td>
</tr>
<tr>
<td width="451" height="18" > </td>
<td width="451" align="center" height="30"><font face="宋体" size="4"><b>资产负债表</b></font></td>
<td width="451" height="18"> </td>
</tr>
<tr>
<td width="451" height="13"> </td>
<td width="451" height="13"> </td>
<td width="451" align="right" height="13"><font size="2" face="宋体">会企地月01表</font></td>
</tr>
<tr>
<td width="451" align="left" height="13"><font size="2" face="宋体">编制单位:' ||
v_company ||
'</font></td>
<td width="451" align="center" height="13"><font size="2" face="宋体">' ||
TRIM(p_date_title_str) ||
'</font></td>
<td width="451" align="right" height="13"><font size="2" face="宋体">金额单位: ' ||
v_currency_code || '</font></td>
</tr>
</table>');
HTP.p('<table border="1" width="100%" bordercolorlight="#000000" cellspacing="1" style="border-collapse: collapse">
<tr>
<td width="420" align="center" height="18"><font size="1" face="宋体">资 产</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">行次</font></td>
<td width="150" align="center" height="18"><font size="1" face="宋体">' ||
TRIM(v_column_1_name) ||
'</font></td>
<td width="150" align="center" height="18"><font size="1" face="宋体">' ||
TRIM(v_column_2_name) ||
'</font></td>
<td width="420" align="center" height="18"><font size="1" face="宋体">负 债 和 股 东 权 益 </font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">行次</font></td>
<td width="150" align="center" height="18"><font size="1" face="宋体">' ||
TRIM(v_column_1_name) ||
'</font></td>
<td width="150" align="center" height="18"><font size="1" face="宋体">' ||
TRIM(v_column_2_name) ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"><b>流动资产:</b></font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"><b>流动负债</b></font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>
<tr>
<td width="420" height="18" ><font size="1" face="宋体"> 货币资金</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">1</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r1_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r1_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 短期借款</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">68</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r68_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r68_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 短期投资</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">2</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r2_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r2_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 应付票据</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">69</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r69_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r69_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 应收票据</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">3</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r3_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r3_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 应付帐款</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">70</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r70_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r70_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 应收股利</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">4</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r4_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r4_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 预收帐款</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">71</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r71_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r71_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 应收利息</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">5</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font>' ||
TO_CHAR(v_r5_c1, '999,999,999,990.00') ||
'</td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font>' ||
TO_CHAR(v_r5_c2, '999,999,999,990.00') ||
'</td>
<td width="420" height="18"><font size="1" face="宋体"> 应付工资</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">72</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r72_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r72_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 应收帐款</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">6</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r6_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r6_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 应付福利费</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">73</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r73_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r73_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 其他应收款</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">7</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r7_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r7_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 应付股利</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">74</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r74_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r74_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 预付帐款</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">8</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r8_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r8_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 应付利息</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">75</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r75_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r75_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 应收补帖款</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">9</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r9_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r9_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 应交税金</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">76</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r76_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r76_c2, '999,999,999,990.00') || '</font></td>
</tr>');
HTP.p('<tr>
<td width="420" height="18"><font size="1" face="宋体"> 存 货</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">10</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r10_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r10_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 其他应交款</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体"80</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r2176_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r2176_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 待摊费用</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">11</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r11_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r11_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 其他应付款</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">81</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r81_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r81_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"></font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"> 预提费用</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">82</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r82_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r82_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 一年内到期的长期债权投资</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">21</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"> 预计负债</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">83</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r83_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font>' ||
TO_CHAR(v_r83_c2, '999,999,999,990.00') ||
'</td>
</tr>
<tr>
<td width="420" height="18"><font face="宋体" size="1"> 其他流动资产</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">24</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_reivable_1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_reivable_2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 递延收益</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">84</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>
<tr>
<td width="380" align="center" height="18"><b><font size="1" face="宋体">
流 动 资 产 合 计 </font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">31</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r31_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r31_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"></font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>
<tr>
<td width="420" align="center" height="18"><b><font size="1" face="宋体"></font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"> 一年内到期的长期负债</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">86</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>
<tr>
<td width="380" height="18"><b><font size="1" face="宋体"><b>长期投资:</b></font></b></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" ><font size="1" face="宋体"> 其他流动负债</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">90</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r90_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r90_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 长期股权投资</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">32</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r32_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r32_c1, '999,999,999,990.00') ||
'</font></td>
<td width="380" align="center" height="18"><b><font size="1" face="宋体">流 动 负 债 合 计</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">100</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r100_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r100_c2, '999,999,999,990.00') || '</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 长期债权投资</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">34</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"><b>长期负债:</b></font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>');
HTP.p('<tr>
<td width="380" height="18"><font size="1" face="宋体"> 长期投资合计</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">38</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r38_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r38_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 长期借款</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">101</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r101_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r101_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 其中;合并价差:(贷差以“- ”号表示,合并报表填列) </font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">38-1</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"> 应付债券</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">102</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r102_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r102_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font face="宋体" size="1"> 其中:股权投资差额(贷差以“- ”号表示,合并报表填列) </font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">38-2</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"> 长期应付款</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">103</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r103_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r103_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" align="center" height="18"><b><font size="1" face="宋体"></font></b></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"> 专项应付款</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">106</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"><' ||
TO_CHAR(v_r106_c1, '999,999,999,990.00') ||
'/font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r106_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"><b>固定资产:</b></font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"> 职业风险基金</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">107</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 固定资产原价</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">39</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r39_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r39_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 其他长期负债</font></b></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">108</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>
<tr>
<td width="380" height="18"><font size="1" face="宋体"> 减:累计折旧</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">40</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r40_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r40_c2, '999,999,999,990.00') ||
'</font></td>
<td width="380" align="center" height="18"><b><font size="1" face="宋体">长 期 负 债 合 计</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">110</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r110_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r110_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 固定资产净值</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">41</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r41_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r41_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"><b>递延税项:</b></font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 减:固定资产减值准备</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">42</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r42_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r42_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 递延税款贷项</font></b></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">111</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r111_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r111_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 固定资产净额</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">43</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r43_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r43_c2, '999,999,999,990.00') ||
'</font></td>
<td width="380" align="center" height="18"><b><font size="1" face="宋体">负 债 合 计</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">114</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r114_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r114_c2, '999,999,999,990.00') || '</font></td>
</tr>');
HTP.p('<tr>
<td width="420" height="18"><font size="1" face="宋体"> 工程物资</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">44</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r44_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r44_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 少数股东权益(合并报表填列)</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">114-1</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 在建工程</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">45</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r45_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r45_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"><b>所有者权益(或股东权益):</b></font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 固定资产清理</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">46</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r46_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r46_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 实收资本(或股本)</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">115</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r115_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r115_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="380" align="center" height="18"><b><font size="1" face="宋体">固 定 资 产 合 计</font></b></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">50</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r50_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r50_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 减:已归还投资</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">116</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r116_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r116_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"></font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"> 实收资本(或股本)净额</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">117</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r117_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r117_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"><b>无形资产及其他资产:</b></font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"> 资本公积</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">118</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r118_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r118_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font size="1" face="宋体"> 无形资产</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">51</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r51_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r51_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 盈余公积</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">119</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r119_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r119_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font face="宋体" size="1"> 长期待摊费用</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">52</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r52_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r52_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 其中:法定公益金</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">120</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r120_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r120_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="380" height="18"><font size="1" face="宋体"> 其他长期资产</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">53</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"> 减: 未确认的投资损失(合并报表填列)</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">120-1</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>
<tr>
<td width="380" align="center" height="18"><b><font size="1" face="宋体">无形资产及其他资产合计</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">60</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r60_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r60_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" height="18"><font size="1" face="宋体"> 未分配利润</font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">121</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r121_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r121_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" height="18"><font face="宋体" size="1"><b>递延税项:</b></font></td>
<td width="40" align="center" height="18"><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18"><font size="1" face="宋体"> 外币报表折算差额(合并报表填列)</font></td>
<td width="40" align="center" height="18" ><font size="1" face="宋体">121-1</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
</tr>
<tr>
<td width="420" height="18"><font face="宋体" size="1"> 递延税款借项</font></td>
<td width="40" align="center" height="18"><font face="宋体" size="1">61</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体"></font></td>
<td width="420" height="18" align="center" ><b><font size="1" face="宋体">所有者权益(或股东权益)合计</font></b></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">122</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r122_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r122_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
<tr>
<td width="420" align="center" height="18"><b><font size="1" face="宋体">资 产 总 计</font></b></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">67</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r67_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r67_c2, '999,999,999,990.00') ||
'</font></td>
<td width="420" align="center" height="18"><b><font size="1" face="宋体">负债和所有者权益(或股东权益)总计</font></b></td>
<td width="40" align="center" height="18"><font size="1" face="宋体">135</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r135_c1, '999,999,999,990.00') ||
'</font></td>
<td width="150" align="right" height="18" ><font size="1" face="宋体">' ||
TO_CHAR(v_r135_c2, '999,999,999,990.00') ||
'</font></td>
</tr>
</table>');
HTP.p('<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-top-width:0px" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="25%" align="left" height="13"><font size="2" face="宋体">单位负责人:</font></td>
<td width="25%" align="left" height="13"><font size="2" face="宋体">主管会计工作的负责人:' ||
v_appro ||
'</font></td>
<td width="25%" align="left" height="13"><font size="2" face="宋体">会计机构负责人:</font></td>
<td width="25%" align="right" height="13"><font size="2" face="宋体">填表人:' ||
v_user || '</font></td>
</tr>
</table>');
------------------------------PRINT END-----------------------------------------------
HTP.bodyClose;
HTP.htmlClose;
EXCEPTION
WHEN OTHERS THEN
htp.p('未找到数据');
END xxafx_afxglbas;
二,在System administrator职责
->Security->Web PL/SQL界面注册PROCEDURE。
三,Form中的调用方法:
declare
v_command varchar2(600);
begin
--公司可以为空 2008-1-24 by yxh
IF (:USER_INPUT.PERIOD_YEAR IS NULL OR
:USER_INPUT.CURRENCY_CODE IS NULL or
:USER_INPUT.zbr is null or
:USER_INPUT.fhr is null or
:USER_INPUT.period_name is null)
THEN
FND_MESSAGE.DEBUG('All of items must be filled in');
if :USER_INPUT.PERIOD_YEAR IS NULL then gO_ITEM('USER_INPUT.PERIOD_YEAR');
elsif :USER_INPUT.CURRENCY_CODE is null then GO_ITEM(':USER_INPUT.CURRENCY_CODE');
END IF;
ELSE
v_command := fnd_profile.value('APPS_WEB_AGENT');
v_command := v_command||'/XXAFX_TEST?p_sob_id=' ||:parameter.books_id;
v_command := v_command ||'&p_period_year='||:USER_INPUT.PERIOD_YEAR;
v_command := v_command ||'&p_period_name='||:USER_INPUT.PERIOD_NAME;
v_command := v_command ||'&p_start_date='||:USER_INPUT.start_date;
v_command := v_command ||'&p_end_date='||:USER_INPUT.end_date;
v_command := v_command ||'&p_period_num='||:USER_INPUT.PERIOD_NUM;
v_command := v_command ||'&p_period_id='||:USER_INPUT.PERIOD_ID;
v_command := v_command ||'&p_company_id='|| :PARAMETER.COMPANY_ID;
v_command := v_command ||'&p_currency_code='||:USER_INPUT.CURRENCY_CODE;
v_command := v_command||'&p_zbr='||:parameter.zbr;
v_command := v_command||'&p_fhr='||:parameter.fhr;
web.show_document(v_command,'_blank');
END IF;
end;
- ebs财务报表用HTML方法实现
- Oracle EBS OAF嵌入HTML方法
- oracle ebs 采购订单关闭之PL/SQL实现方法
- oracle ebs 采购订单关闭之PL/SQL实现方法
- html 锚点三种实现方法
- 财务报表陷阱
- 财务报表版本
- 学习财务报表
- java财务报表
- EBS输出HTML报表中文乱码
- EBS并发请求程序 Html 模板
- ebs文件夹功能的实现
- EBS
- ebs
- HTML实现遮罩层的方法 HTML中如何使用遮罩层
- HTML实现遮罩层的方法 HTML中如何使用遮罩层
- HTML实现遮罩层的方法 HTML中如何使用遮罩层
- HTML中树的实现方法
- 网络数据包收发流程(三):e1000网卡和DMA
- linux慢慢前行之网络服务
- JQuery 笔记(一) jQuery核心
- jvm中的帧frame
- 请把Camera hold住 - Android高通平台调试Camera驱动全纪录
- ebs财务报表用HTML方法实现
- PMP学习笔记
- poi cell日期判断 源代码注释
- 好友blog
- 敏捷测试的思考和新发展(转载)
- 网络数据包收发流程(四):协议栈之packet_type
- JVM内存管理,堆、栈
- C语言嵌入式系统编程修炼之内存操作 (2)
- mysql变量使用总结