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

最新推荐文章于 2022-06-14 16:02:17 发布

weixin_34288121

最新推荐文章于 2022-06-14 16:02:17 发布

阅读量189

点赞数

文章标签： c#

原文链接：http://blog.51cto.com/officevba/1632092

版权

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

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

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

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

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

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

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

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

该工具是VS 2008开发的，语言：C#)

///

USE [AIS20150326095508]

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

SET ANSI_NULLS ON

SET QUOTED_IDENTIFIER ON

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

-- Author:Luke.Lu

-- Create date: 2015-3-31

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

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

ALTER PROCEDURE [dbo].[Luke_Insert_ICStockBill]

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