用友软件重算对方科目脚本

USE UFDATA_100_2009

IF EXISTS (SELECT NAME FROM sysobjects WHERE NAME ='tb1')
    DROP table tb1
select distinct a.i_id,a.iperiod,a.isignseq,a.ino_id,a.ccode,c.ccode as ccode_equal
into tb1
from GL_accvouch a left join GL_accvouch c on a.iperiod=c.iperiod and a.isignseq=c.isignseq and a.ino_id=c.ino_id and a.ccode<>c.ccode
where a.ccode_equal is null and a.ccode like '1002%'
order by a.iperiod,a.isignseq,a.ino_id

IF EXISTS (SELECT NAME FROM sysobjects WHERE NAME ='f_lsd')
    DROP function [f_lsd]
go
create function   f_lsd(@i_id   int)   
returns varchar(8000)   
as
begin
          declare   @ret   varchar(8000)   
          set @ret=''
          select @ret=@ret+','+ccode_equal from tb1 where i_id=@i_id   
          set @ret=stuff(@ret,1,1,'')   
          return @ret    
end   
go   

--执行
IF EXISTS (SELECT NAME FROM sysobjects WHERE NAME ='tb2')
    DROP table tb2
select  i_id,iperiod,isignseq,ino_id,ccode,ccode_equal=dbo.f_lsd(i_id) 
into tb2