用友U8普及版，复制权限

小雨奇缘

适应于U8普及版及U6 3.x
在人员或帐套间复制权限使用， 支持角色权限复制
完全自己编写，请大家仔细阅读代码后使用

1. 
   
2. use ufsystem
   
3. declare @acc_from nchar(20) ,@year_from nchar(20) ,@user_from nchar(20)
   
4. declare @acc_to nchar(20) ,@year_to nchar(20) ,@user_to nchar(20)
   
5. set @acc_from = '900'  -- 来源帐套号
   
6. set @year_from = '2008' -- 来源年度
   
7. set @user_from = '9-admin2' -- 来源人员编号
   
8. set @acc_to = '504'  -- 目标帐套号
   
9. set @year_to = '2008' -- 目标年度
   
10. set @user_to = '9-admin2' -- 目标人员编号
    
11. /*
    
12. --查询某帐套共有多少年度
    
13. select cAcc_Id,iYear from UA_Period
    
14.   where cAcc_Id='391' group by cAcc_Id,iYear order by cAcc_Id,iYear
    
15. */
    
16. --删除目标人员权限
    
17. delete from UA_HoldAuth where cAcc_id=@acc_to and iYear=@year_to and cUser_id=@user_to
    
18. --复制权限
    
19. insert into UA_HoldAuth
    
20. select @acc_to,@year_to,@user_to,cAuth_id,iIsUser from UA_HoldAuth where cAcc_id=@acc_from and iYear=@year_from and cUser_id=@user_from
    

复制代码