金蝶触发器，生成条码信息

金蝶触发器，生成条码信息

业务内容：通过新增生产任务单，自动产品条码信息　　　　（解决方式：在金蝶生产任务单的数据库表上：ICMO里新增三个触发器：Insert触发器、Update触发器、Delete触发器）

业务类型：生产一批产品，一批产品装入各自的箱中，每一箱一个条码，且条码末三位要求对应一箱内产品的个数

例如：企业生产1000个产品，每箱装20个，就需要50箱，也需要50个条码

难点：企业一次也可能生产103个产品，那么最后一箱数量就是3个，而不是20个，最后的三位不是020，而是003

注意点：条码号必须保证决不能有相同出现，可以设置唯一键约束

第一步：需要新建一张条码表

image

···
create trigger [dbo].[xt_AddBarCode] on [dbo].[ICMO] for insert as            --创建触发器
begin

declare @fid int set @fid=(select finterid from inserted)        --单据内码
declare @fmat int set @fmat=(select fitemid from inserted)        --物料内码
declare @qty float set @qty=(select FHeadSelfJ01110 from inserted)        --装箱数量
declare @prodate datetime set @prodate=(select FHeadSelfJ01111 from inserted)
declare @pro float set @pro=(select FWorkShop from inserted)        --生产车间内码
declare @CreateT datetime set @CreateT=(select FPlanCommitDate from inserted)    --计划生产日期
declare @proNum float set @proNum=(select FAuxQty from inserted)                --计划生产数量
declare @Num int set @Num=1        --计次
declare @barid varchar(20) 
declare @quyu float

delete from xt_CodeInfo where billID=@fid            --插入时，删除一切与该生产任务单有关的条码，全部重新生产

while(@Num*@qty<@proNum+@qty)                        --循环，判断需要生成条码数量
begin

if(@Num*@qty>@proNum-@qty and @Num*@qty<@proNum)
set @quyu=@proNum-@Num*@qty
else
set @quyu=@qty

set @barid=isnull((select cast(max(cast(substring(barCode,7,6) as int))+1 as varchar(20)) from xt_CodeInfo),0)

set @barid=left('000000',6-len(@barid))+@barid

set @barid=left('000000',6-len(@fmat))+CAST(@fmat as varchar(10))+@barid+LEFT('000',3-LEN(@quyu))+CAST(@quyu as varchar(50))

insert into xt_CodeInfo (barcode,materialID,billType,billID,packing,qty,ProductID,CreateDate,printlabel,prodate,flag) values (@barid,@fmat,1,@fid,@qty,@quyu,@pro,@CreateT,0,@prodate,1)


set @num=@num+1
end

end

按 Ctrl+C 复制代码