用友財務軟件U8V10.0以上末級科目修復腳本

[重要通告]如您遇疑難雜癥,本站支持知識付費業(yè)務,掃右邊二維碼加博主微信,可節(jié)省您寶貴時間哦!

最近有客戶問了這個問題，今天記錄一下，懂得人自然會懂得；

正確食用方法：登陸企業(yè)管理器，運行以下SQL語句或者下載txt文件復制運行SQL語句即可

-----備份科目表
SELECT * INTO codebak_hbyb FROM code

-------------10.0 以上末級科目檢查

if EXISTS (select * from sysobjects where name='temp_aa' and xtype='u')
drop table temp_aa

select top 0 bend c ,ccode,ccode_name,bend,iyear into temp_aa from code

---------------------------------游標檢查末級標志
DECLARE @ccode nvarchar(200), @ccode_name nvarchar(200),@bend nvarchar(200),@iyear nvarchar(20)
,@ccode1 nvarchar(200)
DECLARE ccode_test CURSOR FOR
SELECT ccode,ccode_name,bend,iyear
FROM code
order by iyear,ccode

OPEN ccode_test

FETCH NEXT FROM ccode_test
INTO @ccode,@ccode_name,@bend,@iyear

WHILE @@FETCH_STATUS = 0
BEGIN
set @ccode1=@ccode+'%'
insert into temp_aa
select case when count(*)>1 then 0 else 1 end,
@ccode,@ccode_name,@bend,@iyear from code where ccode like @ccode1 and iyear=@iyear

FETCH NEXT FROM ccode_test
INTO @ccode,@ccode_name,@bend,@iyear
END
CLOSE ccode_test
DEALLOCATE ccode_test
------------------------------------游標檢查末級標志

select * from temp_aa where c<>bend -----------查詢末級標志不對的科目

----------------更新
if EXISTS (select * from temp_aa where c<>bend)
begin
update c
set c.bend=a.c
from code c inner join temp_aa a on c.ccode=a.ccode and c.iyear=a.iyear
where a.c<>a.bend
end

------------更新

drop table temp_aa --------刪除臨時表

用友U810.0以上末級科目修復

問題未解決？付費解決問題加Q或微信 2589053300 (即Q號又微信號)右上方掃一掃可加博主微信

所寫所說，是心之所感，思之所悟，行之所得；文當無敷衍，落筆求簡潔。 以所舍，求所獲；有所依，方所成！