自动切换库位代码.doc

自动切换库位代码 --冻结库存,设置公用参数 启用库位！ --EXCEL 导入 库位资料，创建5个表，分别对应5个库位资料 BC包材0008， DZ电子001, HS 黑洒004 WJ 五金002 WK 外壳配件003 亦可纳入一个表！ 黑洒2个品号没有对应仓库，五金9个没有,外壳4个没有,其他正常 --检查，MC002为空表示该品号没有此仓库的信息 （已检查，此步可跳过） SELECT 品号,MC001,MC002 FROM BC LEFT JOIN INVMC ON MC001=品号 AND MC002=仓库代号 order by MC002 --检查，有库存无库位的信息 select MC001,MC002,MC015 FROM INVMC WHERE MC0070 AND MC015=########## AND MC002 IN (0008,001,002,003,004) --创建库位资料档,亦可在EXCEL 删除重复值后导入 SELECT DISTINCT 仓库代号,库位 into BC008 from BC WHERE BC.仓库代号=0008 SELECT DISTINCT 仓库代号,库位 into DZ001 from DZ WHERE DZ.仓库代号=001 SELECT DISTINCT 仓库代号,库位 into HS004 from HS WHERE HS.仓库代号=004 SELECT DISTINCT 仓库代号,库位 into WJ002 from WJ WHERE WJ.仓库代号=002 SELECT DISTINCT 仓库代号,库位 into WK003 from WK WHERE WK.仓库代号=003 --仓库CMSNI库位信息导入，插入ERP.CMSNI 档，分5次插入，每次都须更改3个地方，字段，表名，条件 DECLARE @CK CHAR(10) SET @CK=0008 insert into CMSNI SELECT 0001,000847,40,20120419083408677,,,1, @CK,库位,,Y,,N,,,,NULL, 0.000000,0.000000,0.000000,,,,,,, 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000 FROM BC0008 WHERE 仓库代号=@CK -- 主要库位导入 update INVMC SET MC015=库位 from INVMC,BC WHERE MC001=品号 AND MC002=仓库代号 311行 update INVMC SET MC015=库位 from INVMC,DZ WHERE MC001=品号 AND MC002=仓库代号 1744 update INVMC SET MC015=库位 from INVMC,HS WHERE MC001=品号 AND MC002=仓库代号 238 update INVMC SET MC015=库位 from INVMC,WJ WHERE MC001=品号 AND MC002=仓库代号 933 update INVMC SET MC015=库位 from INVMC,WK WHERE MC001=品号 AND MC002=仓库代号 1671 --库存结余转入调拨单,注：须先录入库位，然后更改代码内的仓库和库位，单头的总数量和单身的数量都要修改； declare @A CHAR(4),--单别 @B CHAR(11),--原最大单号 @C CHAR(11),--新单号 @DATE CHAR(8), --单据日期 @ZSL NUMERIC(16,6), --总数量 @TIME CHAR(17) -- @ZJL NUMERIC(16,2) --总金额 SET @A=1201 set @B=(SELECT MAX(TA002) FROM INVTA WHERE TA001=@A) SET @C=CONVERT (NUMERIC(11),@B)+1 SET @TIME=(SELECT REPLACE(REPLACE(REPLACE(REPLACE(convert(varchar(50),GETDATE(),121),-,),:,), ,),.,) ) PRINT @A PRINT @C SET @DATE=CONVERT (CHAR,GETDATE(),112) -- 总数量 SET @