实时打印与条码动态生成

工厂代码SK&班次代码&玻璃种类0&电池类型P&电池厂家&电池效率&生产日期SUBSTRING(CONVERT(varchar(100),DATEADD(HH,-8,GETDATE()),120),3,2)+SUBSTRING(‘ABCDEFGHIJKLMNOPQRSTUVWXYZ‘,MONTH(DATEADD(HH,-8,GETDATE())),1)+SUBSTRING(CONVERT(varchar(100),DATEADD(HH,-8,GETDATE()),120),9,2)&序列号码4

--生成实时条码
ALTER PROCEDURE [dbo].[proc_GetRealtimeBarCode]
(
    @OrderNumber nvarchar(50),--工单号
    @LineCode nvarchar(50),--班次代码
    @SupplierCode nvarchar(50),--厂家代码
    @Eff decimal(18,2)--电池片效率
)
AS

declare @result nvarchar(500)--返回值

declare @Battery nvarchar(50)--电池片类型
declare @BarcodeType nvarchar(1)--流水号更新方式
declare @BarCodeSerial int--最新打印流水号
declare @Custome nvarchar(max)--打印自定义

---开启事务
begin tran

select 
    @Battery=Battery,@BarcodeType=BarcodeType,@BarCodeSerial=BarCodeSerial,@Custome=Custome
from AkWorkOrderPrint 
where OrderNumber=@OrderNumber

--如果没有定义规则,不能生成条码
if @Custome is null or @Custome=‘‘
begin
  set @result=‘false:请先设置实时打印规则‘
end
else
begin
  --定义规则列表
  declare @SplitTable table
  (
     Id int,
     Value nvarchar(max)
  )
  --获取规则
  insert into @SplitTable
  select Id,Value from SplitString(@Custome,‘&‘, 0)
  --循环表变量
  declare @customCount int
  select @customCount=COUNT(*) from @SplitTable
  declare @Id int
  --其他变量
  declare @date nvarchar(max)--时间格式
  declare @PrintDate datetime--最后打印时间
  
  --标签
  lable:
  set @Id=1
  set @result=‘‘
  
  --构造结果
  while @Id<=@customCount
  begin
    --当前自定义项
    declare @Value nvarchar(max)
    select @Value=Value from @SplitTable where Id=@Id
    --定义项的名称和值
    declare @itemTitle nvarchar(max)
    set @itemTitle=left(@Value,4)--自定义项的名称的长度必须为4，这个在前台设置的时候就要规范好，不能随便添加
    declare @itemValue nvarchar(max)
    set @itemValue=right(@Value,LEN(@Value)-4)--自定义项的值
    
    --生成规则
    if @itemTitle=‘班次代码‘
    begin
      if @LineCode is null or @LineCode=‘‘
      begin
        set @result=‘false:无法获取班次代码‘
        break;
      end
      else
      begin
        set @result=@result+@LineCode
      end
    end
    else if @itemTitle=‘电池厂家‘
    begin
      if @SupplierCode is null or @SupplierCode=‘‘
      begin
        set @result=‘false:无法获取电池厂家代码‘
        break;
      end
      else
      begin
        set @result=@result+@SupplierCode
      end
    end
    else if @itemTitle=‘电池效率‘
    begin
      if @Eff is null or @Eff<=0
      begin
        set @result=‘false:无法获取电池效率‘
        break;
      end
      else
      begin
        if @Battery=‘单晶‘
          begin
            set @result=@result+substring(‘ABCDEFGHIJKLMNOPQRSTUVWXYZ‘,(((@Eff*100)-1800)/20)+1,1)
          end
        else
          begin
            set @result=@result+substring(‘ABCDEFGHIJKLMNOPQRSTUVWXYZ‘,(((@Eff*100)-1500)/20)+1,1)
         end
      end
    end
    else if @itemTitle=‘生产日期‘
    begin
      set @itemValue=‘select @a=‘+@itemValue
      exec sp_executesql @itemValue,N‘@a nvarchar(max) output‘,@date output 
      
      set @result=@result+@date
    end
    else if @itemTitle=‘序列号码‘
    begin
      set @result=@result+right(cast(power(10,CAST(@itemValue as int)) as varchar)+@BarCodeSerial,CAST(@itemValue as int))
    end
    else
    begin
      set @result=@result+@itemValue
    end
    
    --变量+1
    set @Id=@Id+1
  end
  
  --条码已经存在的情况
  while left(@result,5)<>‘false‘ and exists(select * from AkBarcodeCompInfo where Barcode=@result)
  begin
        --变更流水号
        if @BarcodeType=‘是‘
        begin
            --用当前时间和最后一次打码时间对比 2013-12-31 08:00-->2013-12-31 07:55
            select @PrintDate=BarcodeDate from AkWorkOrderPrint where OrderNumber=@OrderNumber
            if CONVERT(varchar(100),dateadd(HH,-8,getdate()),111)<>CONVERT(varchar(100),dateadd(HH,-8,@PrintDate),111)
              begin
                 --不相同时清零，不相同表示本次打印为新的一天
                 update AkWorkOrderPrint set BarCodeSerial=0 where OrderNumber=@OrderNumber
              end
        end
        --流水号+1
        update AkWorkOrderPrint set BarCodeSerial=BarCodeSerial+1,BarcodeDate=GETDATE() where OrderNumber=@OrderNumber
        --更新变量
        select @BarCodeSerial=BarCodeSerial from AkWorkOrderPrint where OrderNumber=@OrderNumber
        --重新生成条码
        Goto lable
  end
end


--保存条码
if left(@result,5)<>‘false‘
begin
    insert into AkBarcodeCompInfo(Barcode,OrderNumber,PrintDate,LineCode)
    values(@result,@OrderNumber,GETDATE(),@LineCode)
end

commit tran--提交事务


select @result