发布时间 : 星期四 文章AO数据采集—方正春元 - 财政总预算会计辅助帐处理方法更新完毕开始阅读20b9c5a2b0717fd5360cdc4e
ON A.预算单位=B.内码 AND A.业务年度=B.业务年度 JOIN U_支出分类科目 CC
ON LEFT(A.预算科目,6)=CC.内码 AND A.业务年度=CC.业务年度
JOIN U_总预算科目1 D
ON A.会计科目=D.内码 AND A.业务年度=D.业务年度 where A.业务年度 =2008
--扩展位数的科目+收入+预算单位 UNION
SELECT 新科目= 新科目编码+新收入编码+新预算单位编码, 科目名称=预算单位名称,A.业务年度,方向=(CASE WHEN LEFT(会计科目,1) IN (1,5)THEN '借' ELSE '贷' END)
FROM dbo.总预算会计账期初数表 A JOIN U_预算单位 B
ON A.预算单位=B.内码 AND A.业务年度=B.业务年度 JOIN U_收入分类科目 C
ON LEFT(A.预算收入,9)=C.内码 AND A.业务年度=C.业务年度
JOIN U_总预算科目1 D
ON A.会计科目=D.内码 AND A.业务年度=D.业务年度 where A.业务年度 =2008 --扩展位数的科目+收入科目
UNION
SELECT 新科目=新科目编码+新收入编码,
科目名称=收入名称,A.业务年度,方向=(CASE WHEN LEFT(会计科目,1) IN (1,5)THEN '借' ELSE '贷' END)
FROM dbo.总预算会计账期初数表 A JOIN U_收入分类科目 C
ON LEFT(A.预算收入,6)=C.内码 AND A.业务年度=C.业务年度
JOIN U_总预算科目1 D
ON A.会计科目=D.内码 AND A.业务年度=D.业务年度 WHERE A.业务年度 =2008 UNION
SELECT 新科目=新科目编码+新收入编码,科目名称=收入名称,A.业务年度,方向=(CASE WHEN LEFT(会计科目,1) IN (1,5)THEN '借' ELSE '贷' END)
FROM dbo.总预算会计账期初数表 A JOIN U_收入分类科目 C
ON LEFT(A.预算收入,9)=C.内码 AND A.业务年度=C.业务年度
JOIN U_总预算科目1 D
ON A.会计科目=D.内码 AND A.业务年度=D.业务年度 WHERE A.业务年度 =2008
--扩展位数的科目+支出类科目 UNION
SELECT 新科目=新科目编码+新支出编码,
科目名称=支出名称,A.业务年度,方向=(CASE WHEN LEFT(会计科目,1) IN (1,5)THEN '借' ELSE '贷' END)
FROM dbo.总预算会计账期初数表 A JOIN U_支出分类科目 C
ON LEFT(A.预算科目,3)=C.内码 AND A.业务年度=C.业务年度
JOIN U_总预算科目1 D
ON A.会计科目=D.内码 AND A.业务年度=D.业务年度 WHERE A.业务年度 =2008 --扩展位数的科目+支出款科目 UNION
SELECT 新科目=新科目编码+CC.新支出编码,
科目名称=CC.支出名称,A.业务年度,方向=(CASE WHEN LEFT(会计科目,1) IN (1,5)THEN '借' ELSE '贷' END)
FROM dbo.总预算会计账期初数表 A JOIN U_支出分类科目 CC
ON LEFT(A.预算科目,6)=CC.内码 AND A.业务年度=CC.业务年度
JOIN U_总预算科目1 D
ON A.会计科目=D.内码 AND A.业务年度=D.业务年度 WHERE A.业务年度 =2008 2.凭证提取会计科目 --扩展位数的科目+预算单位 UNION
SELECT DISTINCT 新科目=新科目编码+新预算单位编码, 科目名称=预算单位名称,业务年度=A.SET_year ,方向=(CASE WHEN LEFT(会计科目,1) IN (1,5) THEN '借' ELSE '贷' END)
FROM 总预算会计账凭证明细表 A LEFT JOIN U_总预算科目1 B
ON A.会计科目=B.内码 AND A.SET_YEAR=B.业务年度 LEFT JOIN U_预算单位 C
ON A.预算单位=C.内码 AND A.SET_YEAR=C.业务年度 where A.SET_YEAR =2008 AND( 预算科目 IS NULL AND 预算收入 IS null)
--扩展位数的科目+支出+预算单位 UNION
SELECT DISTINCT 新科目=新科目编码+DD.新支出编码+新预算单位编码, 科目名称=预算单位名称,业务年度=A.SET_year ,方向=(CASE WHEN LEFT(会计科目,1) IN (1,5) THEN '借' ELSE '贷' END)