AO数据采集—方正春元 - 财政总预算会计辅助帐处理方法

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)