用友财务软件U8V10.0以上末级科目修复脚本

[重要通告]如您遇疑难杂症,本站支持知识付费业务,扫右边二维码加博主微信,可节省您宝贵时间哦!

最近有客户问了这个问题，今天记录一下，懂得人自然会懂得；

正确食用方法：登陆企业管理器，运行以下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号又微信号)右上方扫一扫可加博主微信

所写所说，是心之所感，思之所悟，行之所得；文当无敷衍，落笔求简洁。 以所舍，求所获；有所依，方所成！