新功能上线：客户端写博客，随时保存，图片批量贴　 IT北斗星争霸，看看咱博友的真面目！

关于对账差额折扣问题

2007-04-27 16:15:54

　标签：对账差额折扣　　　[推送到技术圈]

1. 增加科目 7001 供应商付款差额 ,核算项目为 ‘供应商’;

2. 把确认后的差额以凭证的形式录入;

3. 在系统工具—单据自定义中增加字段’是否提示’;如图

4. 在数据库中执行脚本。

if exists(select 1 from sysobjects where name = 'icpurchase_jade01') drop trigger icpurchase_jade01
go

create trigger icpurchase_jade01 on icpurchase
for insert,update
as

declare @ftrantype int,@finterid int,@fisprompt as bit,@fsupplyid int,@fstatus int
declare @fleftamountfor decimal(18,2),@fdiffamount decimal(18,2)

select @ftrantype = ftrantype,@finterid = finterid,@fisprompt = case when isnull(FHeadSelfI0245,0) = 1 then 1 else 0 end,@fsupplyid = fsupplyid,@fstatus = fstatus
from inserted

--采购专用发票,未审核,
if @ftrantype <> 75 or @fstatus = 1 or @fisprompt = 0 goto ext

select @fleftamountfor = isnull(sum(famountfor),0)
from t_voucher a,t_voucherentry b,t_account c,t_itemdetailv d
where a.fvoucherid = b.fvoucherid and b.faccountid = c.faccountid and b.fdetailid = d.fdetailid
and d.fitemclassid = 8 and c.fnumber= '7001' and b.fdc = 0
and d.fitemid = @fsupplyid

select @fdiffamount = sum((b.fauxtaxprice - c. fauxtaxprice) * b.fqty * a.fexchangerate)
from icpurchase a
inner join icpurchaseentry b on a.finterid = b.finterid
left join poorderentry c on b.forderinterid = c.finterid and b.forderentryid = c.fentryid
where a.finterid = @finterid

if @fleftamountfor < @fdiffamount
    begin
declare @errmsg varchar(200)
select @errmsg = '已经确认的差额为:' + convert(varchar(20),@fleftamountfor) + char(10) +
    '本张发票的差额为:' + convert(varchar(20),@fdiffamount) + char(10)
raiserror (@errmsg,16,1)
    end

ext:

/*
alter table icpurchase disable trigger icpurchase_jade01
alter table icpurchase enable trigger icpurchase_jade01
*/

本文出自 “大唐网络” 博客，请务必保留此出处http://redking.blog.51cto.com/27212/25136

附件下载：
　　

icpurchase_jade01

上一篇金蝶ERP实现产品入库及委外加工冲减生产现场虚..　　下一篇金蝶ERP实现产品入库及委外加工冲减生产现场虚..

类别：Database ┆ 技术圈() ┆ 阅读() ┆ 评论() ┆推送到技术圈 ┆返回首页

文章评论

gufeng_yes

2007-04-27 17:24:34

坐个沙发。。静下来学习

昵称：
验证码：		点击图片可刷新验证码　　博客过2级，无需填写验证码
内容：