码迷,mamicode.com
首页 > 其他好文 > 详细

条码系统工单导入到K3产品入库

时间:2015-04-14 20:22:00      阅读:203      评论:0      收藏:0      [点我收藏+]

标签:

好久没有在网站上写的东西了,今天早上正好有这个空闲时间

公司的条码系统已经运行了快一年了,这套系统也是我刚刚进入公司,开始实施开发并导入使用的,这里我的目的不是讨论该套系统,

今天主要目的还是想说明下,条码系统导入K3所实现的过程,

K3中所相关的也是最主要的是3张表,即:ICStockBill,ICStockBillEntry,icmaxnum

尤其是表:icmaxnum,第一次导入是只是导入了前2张,后来发现数据是导入进去了,过一段时间就消失了,后来查明原因

才知道问题在于 表:icmaxnum,这个表的功能是实现最大单据号(最大序号,这里的序号其实我已经通过函数获得),

但获得后还必须将当前的序号写入到这个表中,这点很重要,


以下是导入工具的,主存储过程,里面有相关的函数、子存储过程的(这些代码如果需要可以联络我,包括每天导入数据并发送邮件的工具

该工具是VS 2008开发的,语言:C#)




///////////////////////////////////////////////////////////////////////////////////////////

USE [AIS20150326095508]

GO

/****** Object:  StoredProcedure [dbo].[Luke_Insert_ICStockBill]    Script Date: 04/14/2015 08:47:24 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

-- =============================================

-- Author:Luke.Lu

-- Create date: 2015-3-31

-- Description:增加表ICStockBill,ICStockBillEntry记录

-- =============================================

ALTER PROCEDURE [dbo].[Luke_Insert_ICStockBill]

AS

  begin transaction

  declare @FInterID nvarchar(10)

  declare @FDate datetime

  declare @FTranType int

  declare @FBrNo nvarchar(10)

  declare @FBillNo nvarchar(50)

  declare @FBillerID  int --制单人

  declare @FDeptID nvarchar(10) --部门

  declare @FFManagerID int --验收人

  declare @FSManagerID int --保管人

  declare @FROB nvarchar(10)

  declare @FEntryID nvarchar(10)

  declare @FItemID nvarchar(10)

  declare @FQty int

  declare @FPrice int

  declare @FUnitID nvarchar(10)

  declare @FAuxQty int

  declare @FDCStockID nvarchar(20) --存放仓库

  declare @Icount int

  declare @i      int

  declare @FItem nvarchar(50)

  set @FPrice=0

  set @FUnitID=dbo.Luke_GetUnit(‘Set‘)

  set @FQty=0 --应收入库数量,需要经常变动*,K3基本收货数量数字上等于@FAuxQty

 -- SET @FAuxQty=1-----实际入库数量,需要经常变动*

 -- set @FItemID=dbo.Luke_GetFitemID(‘TEST‘) --料号,需要经常变动*

  set @FEntryID=0 --序号,需要经常变动*

  set @FROB=1 --蓝字

  set @FBillerID=dbo.Luke_GetEmpID_FBillerID(‘Administrator‘)

  set @FDeptID=dbo.Luke_GetFSCStockID(‘电镀车间‘)

  set @FFManagerID=dbo.Luke_GetEmpID(‘SYSADMIN‘)

  set @FSManagerID=dbo.Luke_GetEmpID(‘SYSADMIN‘)

  set @FInterID=dbo.Luke_GetICStockBill_FInterID()

  --set @FDate=getdate()

  set @FTranType=dbo.Luke_GetFTranType(‘KCZH‘) --传输标识

  set @FBrNo=0

  set @FBillNo=dbo.Luke_GetMaxFBillNo()

  set @FDCStockID=dbo.Luke_GetStockID(‘一次电镀良品次数‘)

  SET NOCOUNT ON

  --条件包括日期

  select @Icount=count(*) from  AIS20110901110631.dbo.CT_B_JOB_COMP_SUM_FORK3I_VIEW where Comp_date=CONVERT (varchar(10), getdate()-1, 120) 

  if (@Icount is not null or @Icount<>0)

  print @Icount

    --条件包括日期

  DECLARE cur CURSOR FOR select itemcode,comp_date,sumQty from  AIS20110901110631.dbo.CT_B_JOB_COMP_SUM_FORK3I_VIEW where Comp_date=CONVERT (varchar(10), getdate()-1, 120) order by itemcode desc

  open cur

  --FETCH  from cur into @FItem,@FDate,@FAuxQty

  --BEGIN TRANSACTION

  while @@FETCH_STATUS=0

  begin 

 FETCH next from cur into @FItem,@FDate,@FAuxQty

 set @FItemID=dbo.Luke_GetFitemID(@FItem)

 set @FEntryID=@FEntryID + 1 

      print @FEntryID

      print @FItem

      print @FDate

      print @FAuxQty

 if @FEntryID<=@Icount 

 begin

--插入到表ICStockBill

 --BEGIN transaction

--插入ICStockBill

 if @FEntryID=1

 begin

 insert into ICStockBill(FBrNo,FInterID,FTranType,FDate,FBillNo,FDeptID,FFManagerID,FSManagerID,FBillerID,FROB)values (@FBrNo,@FInterID,@FTranType,@FDate,@FBillNo,@FDeptID,@FFManagerID,@FSManagerID,@FBillerID,@FROB)

 end

 --插入ICStockBillEntry

 if (@FItemID is not null or len(@FItemID)<1)

   begin

    insert into ICStockBillEntry(FBrNo,FInterID,FItemID,FQty,FUnitID,FEntryID,FAuxQty,FDCStockID)values(@FBrNo,@FInterID,@FItemID,@FAuxQty,@FUnitID,@FEntryID,@FAuxQty,@FDCStockID) 

      --更新单据最大号表中记录  

    Update icmaxnum set Fmaxnum=(select max(FInterID) from ICStockBillEntry) where Ftablename=‘ICStockBill‘

    

   end

 else

   begin

    --BEGIN transaction

     EXEC dbo.Luke_CreateItem @FItem,@FAuxQty,@FDate

--   if @@error>0 

--begin

--  rollback transaction

--  retrun

--   end

--   else

--    begin

--      commit transaction

    

--     end 

   end 

 

 --select @@fetch_status       

 --FETCH  from cur into @FItem,@FDate,@FAuxQty

 if @@error>0 

begin

 rollback transaction

 retrun

  end

  --else

  --   begin

     

  --    Update icmaxnum set Fmaxnum=(select max(FInterID) from ICStockBillEntry) where Ftablename=‘ICStockBill‘

     

  --   end 

  

 --else

 --  commit transaction

end   

  

  

   end   

  commit transaction

  --FETCH next from cur into @FItem,@FDate,@FAuxQty   



   --else

 

  --begin

  



  close cur

  DEALLOCATE cur

  SET NOCOUNT OFF

  

  

 --  begin

 --    -- --插入ICStockBill

-- insert into ICStockBill(FBrNo,FInterID,FTranType,FDate,FBillNo,FDeptID,FFManagerID,FSManagerID,FBillerID,FROB)

-- --values (@FBrNo,@FInterID,@FTranType,@FDate,@FBillNo,@FDeptID,@FFManagerID,@FSManagerID,@FBillerID,@FROB)

 --    select  

 --    @FBrNo,

 --    @FInterID,

 --    @FTranType,

 --    comp_date,

 --    @FBillNo,

 --    @FDeptID,

 --    @FFManagerID,

 --    @FSManagerID,

 --    @FBillerID,

 --    @FROB

 --    from   AIS20110901110631.dbo.CT_B_JOB_COMP_SUM_FORK3I_VIEW where Comp_date=CONVERT (varchar(10), getdate()-1, 120) 

 --  end

 --   begin

 --   --  --插入ICStockBillEntry

----insert into ICStockBillEntry(FBrNo,FInterID,FItemID,FQty,FUnitID,FEntryID,FAuxQty,FDCStockID)

---- --values(@FBrNo,@FInterID,@FItemID,@FQty,@FUnitID,@FEntryID,@FAuxQty,@FDCStockID) 

 ----    select 

 ----    @FBrNo,

 ----    @FInterID,

 ----    dbo.Luke_GetFitemID(itemcode),

 ----    @FQty,

 ----    @FUnitID,

 ----    --IDENTITY(INT,1,1) as id,

 ----    1,

 ----    sumQty,

 ----    @FDCStockID

 ----    from  AIS20110901110631.dbo.CT_B_JOB_COMP_SUM_FORK3I_VIEW where Comp_date=CONVERT (varchar(10), getdate()-1, 120) 

       

 --   end 

  

  

 -- if @@error>0

--begin

--rollback transaction

--return

--end

  

 -- commit transaction

  ///////////////////////////////////////////////////////////////////////////////////////////

---本信息来至于ACCESS技巧网 Http://www.mdbtip.com


http://www.mdbtip.com/Html/?865.html


技术分享


本文出自 “Office二次开发工作室” 博客,请务必保留此出处http://officevba.blog.51cto.com/897505/1632092

条码系统工单导入到K3产品入库

标签:

原文地址:http://officevba.blog.51cto.com/897505/1632092

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!