【T1】T1飞跃专业版软件中, 操作添加现金银行信息时提示:该父类账户信息有财务数据,不能分级。
2023-12-13 17:17:15
【问题描述】
在T1飞跃专业版软件中,
操作添加现金银行信息时提示:该父类账户信息有财务数据,不能分级。
【解决方法】
该问题是原因是因为T1和U+通用财务联用。
Ps:留一下软件版本【飞跃19.5+财务15.0.2.5】
针对账套库执行下属语句:
--检查基本信息删除的时候当前ID是否已经使用了
IF EXISTS (SELECT * FROM DBO.SYSOBJECTS WHERE ID = OBJECT_ID(N'[DBO].[F_CMB_CheckHasUseBaseInfo]') AND XTYPE IN (N'FN', N'IF', N'TF'))
BEGIN
drop function [dbo].[F_CMB_CheckHasUseBaseInfo]
END
GO
CREATE FUNCTION [dbo].[F_CMB_CheckHasUseBaseInfo] ( @TableName nvarchar(100),@s_ID int)
RETURNS int
AS
BEGIN
declare @HaseUse int
set @HaseUse=-1
if @s_ID>0
begin
--往来单位 部门 职员 商品 基本单位
if Upper(@TableName)=Upper('Units')
begin
if exists(select Top 1 1 from T_Accounts_AssinTotal where C_ID=@s_ID or S_ID=@s_ID)
begin
set @HaseUse=1
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Voucher_TallyVoucherDetail where AccountingSupplierID=@s_ID or AccountingClientID=@s_ID)
begin
set @HaseUse=1
RETURN @HaseUse
end
if exists(select Top 1 1 from T_PPE_CardTable where isnull(Unit_ID,0)=@s_ID or isnull(SCUnit_ID,0)=@s_ID)
begin
set @HaseUse=1
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Asstes_DealWithDetail where isnull(DFUnitID,0)=@s_ID)
begin
set @HaseUse=1
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_CashBankDayAccounting where isnull(DFUnitID,0)=@s_ID)
begin
set @HaseUse=1
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_BankStatement where isnull(DFUnitID,0)=@s_ID )
begin
set @HaseUse=1
RETURN @HaseUse
end
end
else if Upper(@TableName)=Upper('Employee')
begin
if exists(select Top 1 1 from T_Accounts_AssinTotal where E_ID=@s_ID )
begin
set @HaseUse=2
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Voucher_TallyVoucherDetail where AccountingEmployeeID=@s_ID)
begin
set @HaseUse=2
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Voucher_TallyVoucher where Tally_ID=@s_ID or Audit_ID=@s_ID or CNEmpID=@s_ID)
begin
set @HaseUse=2
RETURN @HaseUse
end
if exists(select Top 1 1 from T_PPE_CardTable where UseEmpID=@s_ID)
begin
set @HaseUse=2
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CMBUsers where Emp_ID=@s_ID and s_Syb>=0)
begin
set @HaseUse=2
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Asstes_ChangeDetail where isnull(oldUseEmpID,0)=@s_ID or isnull(NewUseEmpID,0)=@s_ID )
begin
set @HaseUse=2
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Asstes_MakeAnInventoryOfUIDetail where isnull(UseEmpID,0)=@s_ID)
begin
set @HaseUse=2
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_CashBankDayAccounting where isnull(EmpID,0)=@s_ID)
begin
set @HaseUse=2
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_BankAccessBill where isnull(Oper_ID,0)=@s_ID or isnull(EmpID,0)=@s_ID or isnull(Audit_ID,0)=@s_ID)
begin
set @HaseUse=2
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_CashInventoryBill where isnull(PDEmp_ID,0)=@s_ID or isnull(Audit_ID,0)=@s_ID)
begin
set @HaseUse=2
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_ChequeBook where isnull(purchaseEmpID,0)=@s_ID or isnull(CreateEmpID,0)=@s_ID)
begin
set @HaseUse=2
RETURN @HaseUse
end
end
else if Upper(@TableName)=Upper('Department')
begin
if exists(select Top 1 1 from T_Accounts_AssinTotal where D_ID=@s_ID )
begin
set @HaseUse=3
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Voucher_TallyVoucherDetail where AccountingDepartmentID=@s_ID)
begin
set @HaseUse=3
RETURN @HaseUse
end
if exists(select Top 1 1 from T_PPE_CardTable where UseDeptID=@s_ID)
begin
set @HaseUse=3
RETURN @HaseUse
end
if exists(select Top 1 1 from T_PPE_CardMultDept where DeptID=@s_ID)
begin
set @HaseUse=3
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Asstes_ChangeMultipleDept where DeptID=@s_ID)
begin
set @HaseUse=3
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Asstes_ChangeDetail where isnull(OldUseDeptiD,0)=@s_ID or isnull(NewUseDeptID,0)=@s_ID or isnull(NewManageDeptID,0)=@s_ID or isnull(OldManageDeptID,0)=@s_ID)
begin
set @HaseUse=3
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Asstes_MakeAnInventoryOfUIDetail where isnull(UseDeptID,0)=@s_ID or isnull(MangeDeptID,0)=@s_ID)
begin
set @HaseUse=3
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_CashBankDayAccounting where isnull(DeptID,0)=@s_ID or isnull(DFDeptID,0)=@s_ID)
begin
set @HaseUse=3
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_BankAccessBill where isnull(InDeptID,0)=@s_ID or isnull(outDeptID,0)=@s_ID)
begin
set @HaseUse=3
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_ChequeBook where isnull(purchaseDeptID,0)=@s_ID)
begin
set @HaseUse=3
RETURN @HaseUse
end
if exists(select Top 1 1 from MoneyAccount where isnull(CNuseDeptID,0)=@s_ID)
begin
set @HaseUse=3
RETURN @HaseUse
end
end
else if Upper(@TableName)=Upper('Product')
begin
if exists(select Top 1 1 from T_Accounts_AssinTotal where Goods_ID=@s_ID )
begin
set @HaseUse=4
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Voucher_TallyVoucherDetail where AccountingGoodsID=@s_ID)
begin
set @HaseUse=4
RETURN @HaseUse
end
end
else if Upper(@TableName)=Upper('CommonInfo') or Upper(@TableName)=Upper('T_ProductUnit')
begin
if exists(select Top 1 1 from T_Accounts_Use where ProdDWID=@s_ID and isnull(ProdDWID,0)>0)
begin
set @HaseUse=5
RETURN @HaseUse
end
if exists(select Top 1 1 from T_PPE_CardTable where JLDWID=@s_ID and isnull(JLDWID,0)>0)
begin
set @HaseUse=5
RETURN @HaseUse
end
end
else if Upper(@TableName)=Upper('MoneyAccount')
begin
if exists(select Top 1 1 from T_CN_CashBankDayAccounting where isnull(Act_ID,0)=@s_ID or isnull(DFActID,0)=@s_ID or isnull(InComActID,0)=@s_ID or isnull(CostActID,0)=@s_ID)
begin
set @HaseUse=6
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_IniCashBankBalance where isnull(Act_ID,0)=@s_ID )
begin
set @HaseUse=6
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_BankStatement where isnull(Act_ID,0)=@s_ID )
begin
set @HaseUse=6
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_BankAccessBill where isnull(OutActID,0)=@s_ID or isnull(InActID,0)=@s_ID)
begin
set @HaseUse=6
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_CashInventoryBill where isnull(ActID,0)=@s_ID)
begin
set @HaseUse=6
RETURN @HaseUse
end
if exists(select Top 1 1 from T_CN_ChequeBook where isnull(Act_ID,0)=@s_ID)
begin
set @HaseUse=6
RETURN @HaseUse
END
--IF exists(SELECT 1 FROM T_Account_VoucherID WHERE AccID = @s_ID AND isnull(AccID_Account,0)>0)
IF Exists(SELECT 1 FROM T_Account_VoucherID v
INNER JOIN dbo.MoneyAccount m ON v.AccID=m.s_ID
WHERE v.AccID = @s_ID and ISNULL(v.AccID_Account,0)>0 AND m.s_SonCount=0)
BEGIN
set @HaseUse=6
RETURN @HaseUse
END
end
else if Upper(@TableName)=Upper('T_CN_CurrencyType')
begin
if exists(select Top 1 1 from MoneyAccount where s_Syb>=0 and isnull(CNCurrencyTypeID,0)=@s_ID)
begin
set @HaseUse=7
RETURN @HaseUse
end
if exists(select Top 1 1 from T_Accounts_AssinTotal where isnull(CurrencyTypeID,0)=@s_ID)
begin
set @HaseUse=7
RETURN @HaseUse
end
if exists(select Top 1 1 from T_VOucher_TallyVoucherDetail where isnull(CurrencyTypeID,0)=@s_ID)
begin
set @HaseUse=7
RETURN @HaseUse
end
end
end
RETURN @HaseUse
END
GO
文章来源:https://blog.csdn.net/u011696928/article/details/134947035
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。 如若内容造成侵权/违法违规/事实不符,请联系我的编程经验分享网邮箱:veading@qq.com进行投诉反馈,一经查实,立即删除!
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。 如若内容造成侵权/违法违规/事实不符,请联系我的编程经验分享网邮箱:veading@qq.com进行投诉反馈,一经查实,立即删除!