用友U8 固定资产总账年初数等于当年某一个月的月末数
2016-1-3 0:0:0 用友NC小编用友U8 固定资产总账年初数等于当年某一个月的月末数
用友U8 固定资产总账年初数等于当年某一个月的月末数 问题原因:软件设计缺陷,8.21与8.61都存在这个问题。 解决方法:执行脚本:if (not exists(select top 1 cCuscode from customer)) and (not exists (select top 1 cCCCode from customerclass)) Beginif (exists(select top 1 * from accInformation where cid='40' and csysid='AA' and cvalue='false' )) and (not exists (select top 1 * from customer)) begin delete from customerclass where cCCCode='00' End if (not exists(select top 1 cCuscode from customer)) and (not exists (select top 1 cCCCode from customerclass)) Beginupdate accInformation set cvalue=(select top 1 cValue from AccInformation where cid='41' and cSysId='AA') where cid='40' and csysid='AA'update gradedef set CodingRule=(select top 1 codingRule from gradedef where keyword='vendorclass') where keyword='customerclass'update gradedef set CodingRule=(select top 1 codingRule from gradedef where keyword='vendorAuth') where keyword='customerAuth'insert into CustomerClass(cCCCode,cCCName,iCCGrade,bCCEnd) select cVCCode,cVCName,iVCGrade,bVCEnd from vendorClassinsert into customer(cCusCode,cCusName,cCusAbbName,cCCCode,cDCCode,cCusDepart,cCusPPerson,dCusDevDate,cCusPhone,cCusHand,cCusFax,cCusBP,cCusPerson,cCusOAddress,cCusEmail,cCusHeadCode) select cVenCode,cVenName,cVenAbbName,cVCCode,cDCCode,cVenDepart,cVenPPerson,dVenDevDate,cVenPhone,cVenHand,cVenFax,cVenBP,cVenPerson,cVenIAddress,cVenEmail,cVenHeadCode from vendorif (not exists(select top 1 id from aa_authclass where cbusobid='customer'))Beginif (exists(select top 1 * from aa_busobject where cbusobid = 'vendor' and bauthcontrol = 1 and iauthtype = 255)) update aa_busobject set bauthcontrol = 1 where cbusobid = 'customer' and iauthtype = 0 if (exists(select top 1 * from aa_busobject where cbusobid = 'vendor' and bauthcontrol = 1 and iauthtype = 1)) update aa_busobject set bauthcontrol = 1 where cbusobid = 'customer' and iauthtype = 1update aa_authclass set cbusobid='customer' where cbusobid='vendor'update aa_holdauth set cbusobid='customerclass' where cbusobid='vendorclass'update aa_holdauth set cbusobid='customer' where cbusobid='vendor'Endupdate code set bcus=1 where bsup=1 update code set bsup=0update gl_accvouch set ccus_id=csup_id where ccus_id is null and csup_id is not null update gl_accvouch set csup_id=null update gl_accass set ccus_id=csup_id where ccus_id is null and csup_id is not null update gl_accass set csup_id=nullEndEndElseBegin--判断以前有没有转换过Declare @cVenAbbName Varchar(100)Set @cVenAbbName = (Select Top 1 cVenAbbName + 'G' From Vendor)if (Not exists(select top 1 cCuscode from customer Where cCusAbbName = @cVenAbbName))Begin--得到供应商分类的第一级Declare @cMaxCusClassCode Varchar(12)--最大第一级客户分类编码Declare @cMinVenClassCodeOld Varchar(12)--由客户分类编码计算出来的第一个一级供应商分类编码Declare @cMinVenClassCode Varchar(12)--由客户分类编码计算出来的第一个一级供应商分类编码Set @cMinVenClassCodeOld = (Select Max(cVCCode) From VendorClass Where iVCGrade = 1)Set @cMaxCusClassCode = (Select Max(cCCCode) From CustomerClass Where iCCGrade = 1)If (CharIndex(Right(@cMaxCusClassCode,1), '123456789') > 0)--如果是数字类型的客户编码BeginIf (Right(@cMaxCusClassCode,1)+1 <= 9)Set @cMinVenClassCode = Left(@cMaxCusClassCode,Len(@cMaxCusClassCode)-1) + Right(@cMaxCusClassCode,1)+1ElseSet @cMinVenClassCode = Left(@cMaxCusClassCode,Len(@cMaxCusClassCode)-1) + 'A'EndElse--如果是字符类型的客户编码BeginSet @cMinVenClassCode = Left(@cMaxCusClassCode,Len(@cMaxCusClassCode)-1) + Char(Ascii(Right(@cMaxCusClassCode,1)) + 1)EndSet @cMaxCusClassCode = (Select Max(cCCCode) From CustomerClass Where iCCGrade = 1)Declare @iVenClassCount int--供应商一级分类个数Declare @iVenClassLoop int --供应商分类循环变量Declare @cVenClassCodeOld varchar(12) --旧的供应商一级编码--取得供应商一级分类个数set @iVenClassCount = (Select Count(*) From VendorClass Where iVCGrade = 1)Set @iVenClassLoop = 0While (@iVenClassLoop < @iVenClassCount)BeginSet @iVenClassLoop = @iVenClassLoop +1If (@iVenClassLoop = 1)Set @cVenClassCodeOld = (Select Min(cVCCode) From VendorClass)ElseSet @cVenClassCodeOld = (Select Min(cVCCode) From VendorClass Where cVCCode > @cVenClassCodeOld And Len(cVCCode) = Len(@cVenClassCodeOld))--Select @cVenClassCodeOld--将新的供应商分类和供应商信息插入到客户信息中If (@cMaxCusClassCode <> '00' Or @cMinVenClassCodeOld <> '00')Begin--select Replace(cVCCode,@cVenClassCodeOld,@cMinVenClassCode) From vendorinsert into CustomerClass(cCCCode,cCCName,iCCGrade,bCCEnd) select Replace(cVCCode,@cVenClassCodeOld,@cMinVenClassCode),cVCName,iVCGrade,bVCEnd from vendorClass Where Left(cVCCode,Len(@cVenClassCodeOld)) = @cVenClassCodeOldinsert into Customer(cCusCode,cCusName,cCusAbbName,cCCCode,cDCCode,cCusDepart,cCusPPerson,dCusDevDate,cCusPhone,cCusHand,cCusFax,cCusBP,cCusPerson,cCusOAddress,cCusEmail,cCusHeadCode) select cVenCode + 'G',cVenName,cVenAbbName + 'G',Replace(cVCCode,@cVenClassCodeOld,@cMinVenClassCode),cDCCode,cVenDepart,cVenPPerson,dVenDevDate,cVenPhone,cVenHand,cVenFax,cVenBP,cVenPerson,cVenIAddress,cVenEmail,cVenHeadCode from vendor Where Left(cVCCode,Len(@cVenClassCodeOld)) = @cVenClassCodeOldIf Char(Ascii(Right(@cMinVenClassCode,1)) + 1) = '9'Set @cMinVenClassCode = Left(@cMinVenClassCode, Len(@cMinVenClassCode) - 1) + 'A'ElseSet @cMinVenClassCode = Left(@cMinVenClassCode, Len(@cMinVenClassCode) - 1) + Char(Ascii(Right(@cMinVenClassCode,1)) + 1)EndElseBegininsert into Customer(cCusCode,cCusName,cCusAbbName,cCCCode,cDCCode,cCusDepart,cCusPPerson,dCusDevDate,cCusPhone,cCusHand,cCusFax,cCusBP,cCusPerson,cCusOAddress,cCusEmail,cCusHeadCode) select cVenCode + 'G',cVenName,cVenAbbName + 'G','00',cDCCode,cVenDepart,cVenPPerson,dVenDevDate,cVenPhone,cVenHand,cVenFax,cVenBP,cVenPerson,cVenIAddress,cVenEmail,cVenHeadCode from vendor Where cVCCode = '00'EndEndupdate code set bcus=1 where bsup=1update code set bsup=0update gl_accvouch set ccus_id = csup_id + 'G' where csup_id <> '' And csup_id Is Not NULLupdate gl_accvouch set csup_id = null update gl_accass set ccus_id= csup_id + 'G' where csup_id <> '' And csup_id Is Not NULLupdate gl_accass set csup_id=nullEndEnd解决方案:
问题原因:软件设计缺陷,8.21与8.61都存在这个问题。 解决方法:执行脚本:if (not exists(select top 1 cCuscode from customer)) and (not exists (select top 1 cCCCode from customerclass)) Beginif (exists(select top 1 * from accInformation where cid='40' and csysid='AA' and cvalue='false' )) and (not exists (select top 1 * from customer)) begin delete from customerclass where cCCCode='00' End if (not exists(select top 1 cCuscode from customer)) and (not exists (select top 1 cCCCode from customerclass)) Beginupdate accInformation set cvalue=(select top 1 cValue from AccInformation where cid='41' and cSysId='AA') where cid='40' and csysid='AA'update gradedef set CodingRule=(select top 1 codingRule from gradedef where keyword='vendorclass') where keyword='customerclass'update gradedef set CodingRule=(select top 1 codingRule from gradedef where keyword='vendorAuth') where keyword='customerAuth'insert into CustomerClass(cCCCode,cCCName,iCCGrade,bCCEnd) select cVCCode,cVCName,iVCGrade,bVCEnd from vendorClassinsert into customer(cCusCode,cCusName,cCusAbbName,cCCCode,cDCCode,cCusDepart,cCusPPerson,dCusDevDate,cCusPhone,cCusHand,cCusFax,cCusBP,cCusPerson,cCusOAddress,cCusEmail,cCusHeadCode) select cVenCode,cVenName,cVenAbbName,cVCCode,cDCCode,cVenDepart,cVenPPerson,dVenDevDate,cVenPhone,cVenHand,cVenFax,cVenBP,cVenPerson,cVenIAddress,cVenEmail,cVenHeadCode from vendorif (not exists(select top 1 id from aa_authclass where cbusobid='customer'))Beginif (exists(select top 1 * from aa_busobject where cbusobid = 'vendor' and bauthcontrol = 1 and iauthtype = 255)) update aa_busobject set bauthcontrol = 1 where cbusobid = 'customer' and iauthtype = 0 if (exists(select top 1 * from aa_busobject where cbusobid = 'vendor' and bauthcontrol = 1 and iauthtype = 1)) update aa_busobject set bauthcontrol = 1 where cbusobid = 'customer' and iauthtype = 1update aa_authclass set cbusobid='customer' where cbusobid='vendor'update aa_holdauth set cbusobid='customerclass' where cbusobid='vendorclass'update aa_holdauth set cbusobid='customer' where cbusobid='vendor'Endupdate code set bcus=1 where bsup=1 update code set bsup=0update gl_accvouch set ccus_id=csup_id where ccus_id is null and csup_id is not null update gl_accvouch set csup_id=null update gl_accass set ccus_id=csup_id where ccus_id is null and csup_id is not null update gl_accass set csup_id=nullEndEndElseBegin--判断以前有没有转换过Declare @cVenAbbName Varchar(100)Set @cVenAbbName = (Select Top 1 cVenAbbName + 'G' From Vendor)if (Not exists(select top 1 cCuscode from customer Where cCusAbbName = @cVenAbbName))Begin--得到供应商分类的第一级Declare @cMaxCusClassCode Varchar(12)--最大第一级客户分类编码Declare @cMinVenClassCodeOld Varchar(12)--由客户分类编码计算出来的第一个一级供应商分类编码Declare @cMinVenClassCode Varchar(12)--由客户分类编码计算出来的第一个一级供应商分类编码Set @cMinVenClassCodeOld = (Select Max(cVCCode) From VendorClass Where iVCGrade = 1)Set @cMaxCusClassCode = (Select Max(cCCCode) From CustomerClass Where iCCGrade = 1)If (CharIndex(Right(@cMaxCusClassCode,1), '123456789') > 0)--如果是数字类型的客户编码BeginIf (Right(@cMaxCusClassCode,1)+1 <= 9)Set @cMinVenClassCode = Left(@cMaxCusClassCode,Len(@cMaxCusClassCode)-1) + Right(@cMaxCusClassCode,1)+1ElseSet @cMinVenClassCode = Left(@cMaxCusClassCode,Len(@cMaxCusClassCode)-1) + 'A'EndElse--如果是字符类型的客户编码BeginSet @cMinVenClassCode = Left(@cMaxCusClassCode,Len(@cMaxCusClassCode)-1) + Char(Ascii(Right(@cMaxCusClassCode,1)) + 1)EndSet @cMaxCusClassCode = (Select Max(cCCCode) From CustomerClass Where iCCGrade = 1)Declare @iVenClassCount int--供应商一级分类个数Declare @iVenClassLoop int --供应商分类循环变量Declare @cVenClassCodeOld varchar(12) --旧的供应商一级编码--取得供应商一级分类个数set @iVenClassCount = (Select Count(*) From VendorClass Where iVCGrade = 1)Set @iVenClassLoop = 0While (@iVenClassLoop < @iVenClassCount)BeginSet @iVenClassLoop = @iVenClassLoop +1If (@iVenClassLoop = 1)Set @cVenClassCodeOld = (Select Min(cVCCode) From VendorClass)ElseSet @cVenClassCodeOld = (Select Min(cVCCode) From VendorClass Where cVCCode > @cVenClassCodeOld And Len(cVCCode) = Len(@cVenClassCodeOld))--Select @cVenClassCodeOld--将新的供应商分类和供应商信息插入到客户信息中If (@cMaxCusClassCode <> '00' Or @cMinVenClassCodeOld <> '00')Begin--select Replace(cVCCode,@cVenClassCodeOld,@cMinVenClassCode) From vendorinsert into CustomerClass(cCCCode,cCCName,iCCGrade,bCCEnd) select Replace(cVCCode,@cVenClassCodeOld,@cMinVenClassCode),cVCName,iVCGrade,bVCEnd from vendorClass Where Left(cVCCode,Len(@cVenClassCodeOld)) = @cVenClassCodeOldinsert into Customer(cCusCode,cCusName,cCusAbbName,cCCCode,cDCCode,cCusDepart,cCusPPerson,dCusDevDate,cCusPhone,cCusHand,cCusFax,cCusBP,cCusPerson,cCusOAddress,cCusEmail,cCusHeadCode) select cVenCode + 'G',cVenName,cVenAbbName + 'G',Replace(cVCCode,@cVenClassCodeOld,@cMinVenClassCode),cDCCode,cVenDepart,cVenPPerson,dVenDevDate,cVenPhone,cVenHand,cVenFax,cVenBP,cVenPerson,cVenIAddress,cVenEmail,cVenHeadCode from vendor Where Left(cVCCode,Len(@cVenClassCodeOld)) = @cVenClassCodeOldIf Char(Ascii(Right(@cMinVenClassCode,1)) + 1) = '9'Set @cMinVenClassCode = Left(@cMinVenClassCode, Len(@cMinVenClassCode) - 1) + 'A'ElseSet @cMinVenClassCode = Left(@cMinVenClassCode, Len(@cMinVenClassCode) - 1) + Char(Ascii(Right(@cMinVenClassCode,1)) + 1)EndElseBegininsert into Customer(cCusCode,cCusName,cCusAbbName,cCCCode,cDCCode,cCusDepart,cCusPPerson,dCusDevDate,cCusPhone,cCusHand,cCusFax,cCusBP,cCusPerson,cCusOAddress,cCusEmail,cCusHeadCode) select cVenCode + 'G',cVenName,cVenAbbName + 'G','00',cDCCode,cVenDepart,cVenPPerson,dVenDevDate,cVenPhone,cVenHand,cVenFax,cVenBP,cVenPerson,cVenIAddress,cVenEmail,cVenHeadCode from vendor Where cVCCode = '00'EndEndupdate code set bcus=1 where bsup=1update code set bsup=0update gl_accvouch set ccus_id = csup_id + 'G' where csup_id <> '' And csup_id Is Not NULLupdate gl_accvouch set csup_id = null update gl_accass set ccus_id= csup_id + 'G' where csup_id <> '' And csup_id Is Not NULLupdate gl_accass set csup_id=nullEndEnd
www.kuaiji66.com 天龙瑞德
如果您的问题还没有解决,可以到 T+搜索>>上找一下
相关阅读
- 用友NC软件凭证打印设置方法2018-11-5 13:51:36
- 调拨单审核生成的其他入库单将其它手工填写的其他入库单覆盖2016-9-7 12:11:10
- 调整固定资产折旧2016-8-30 11:5:55
- 用友U8 保存凭证时提示有人正在保存凭证。2016-8-10 0:0:0
- 用友U8 保存凭证时提示有人正在保存凭证。_02016-8-10 0:0:0
- 用友U8 保存凭证时,提示有其他人在使用,无法保存。2016-8-10 0:0:0
- 用友U8 保存凭证时,提示有其他人在使用,无法保存。_02016-8-10 0:0:0
- 用友U8 保存单据时提示存货自由项结构不合法2016-8-10 0:0:0
- 用友U8 保存发货单时又提示:本单据已被他人修改,保存不成功。2016-8-10 0:0:0
- 用友U8 保存委托结算单时提示结算数量不能大于发货数量。2016-8-10 0:0:0
最新信息
- 程序检测到“T3产品服务”没有开启,请问您是否开启?这是什么问题
- 采购入库生单,选择采购到货单时,到货数量800,入库数量800时,老是提示:入库数量不能大于所参照到货单的数量,不能保存! 实际入库数量和到货数量是相等的。当把入库数量改成100之后,又可以生单成功!但是入库数量改成700,也是不能成功的。不知道什么原因??
- 采购分开流程,存货启用该了部门辅助项,参照进货单生成凭证,存货科目不能带出部门辅助项。但是进货单是录入了部门的。
- 采购到货单做好了,采购检验单生单时还是没有
- 采购发票制单的时候提示供应商被锁定
- 采购发票如何控制重复做单,现在发现有的采购发票有重复的单据,已经结账如何处理?可以做红字发票冲掉重复的蓝字发票吗?
- 采购批量 都影响那些单据啊?是只影响采购订单吗
- 采购期初记账是在什么情况下需要记账呢,在什么时候记账?
- 采购管理中的采购订单中的单价能否设置不录入,或者默认为0
- 采购管理中进货页面打开后出现脚本错误,其他控件都无法选择访问。
![T1加密卡注册成功后,登录还是提示没有检测到加密卡,提示演示版](http://www.kuaiji66.com/nc/zb_users/plugin/MiniTu/noimg.png)
T1加密卡注册成功后,登录还是提示没有检测到加密卡,提示演示版 T1加密卡注册成功后,登录还是提示没有检测到加密卡,提示演示版[]
您先在畅捷通防伪查询中(查询网址:http://tregister.chanjet.com/chaxun.aspx)输入您的加密狗号,查询下购买的版本和您安装版本是否一致,例如购买是普及版,也必须安装普及版才可以识别到加密锁的。确认版本安装正确,再将加密狗重新插拔,再将控制面板,管理工具,服务中的T1服务右键启动或重启动之后在登录进去。具体操作步骤您可以参考学堂 文库的演示版的解决方法:http://service.chanjet.com/zhi ... 5e419得瑟中[/阴险],求赞[/委屈],哈哈[/坏笑] http://service.chanjet.com/mes ... af383