东莞精诚网络技术交流论坛

 找回密码
 注册
搜索
热搜: 活动 交友 discuz
查看: 3003|回复: 0

将管家婆VIP资料导入K3的SQL

[复制链接]
发表于 2008-11-24 19:48:17 | 显示全部楼层 |阅读模式
说明:因为金蝶K3的VIP编号有规则限制,位数必须相同,但客户原VIP卡号可能长短不一,重新更换原来已发放的上千张卡恐怕不是好主意。因此,先要通过BOS修改VIP姓名字段Fname为VIP卡号,原VIP编号Fnumber仅用作流水号之用。然后另增加文本字段FText为VIP姓名。
客户的VIP分为金卡、银卡两类,故先在金蝶中手工建立这两个VIP卡组,然后查询数据库得知其金卡内码为1004,银卡内码为1005.
没有考虑跨数据库的情况,采取的方法是先将原管家婆的VIP资料表VIPCARDS引入金蝶数据库,再执行导入。导入时,金蝶VIP资料的电话字段有长度限制,可能会导致导入失败,可先手工修改电话号码字段的长度到足够原数据使用。

------------------------------------2007-09-05-郭永林---------------------------------------
set nocount on
DECLARE @卡号 varchar(255),@开卡日期 datetime,@截止日期 datetime,@类别 int,@姓名 varchar(255),@身份证号 varchar(255),
@电话 varchar(255),@地址 varchar(255),@备注 varchar(255),@积分 decimal(13,4),@P1 int,@p2 int,@p3 int
set @p2 = 1
set @p3 = 1
DECLARE vip_cur CURSOR FOR
SELECT top 10000 CardNo AS 卡号, HandOutDate AS 开卡日期, ValidDate AS 截止日期,CardTypeID AS 类别, HolderName AS 姓名,
HolderID AS 身份证号, HolderTel AS 电话, HolderAdd AS 地址, Comment AS 备注, NowTotal AS 积分
FROM VIPCards where cardstate = 0
OPEN vip_cur
FETCH NEXT FROM vip_cur INTO @卡号,@开卡日期,@截止日期,@类别,@姓名,@身份证号,@电话,@地址,@备注,@积分
WHILE @@FETCH_STATUS = 0
BEGIN
exec GetICMaxNum 'Rtl_VIPGroup', @P1 output
INSERT INTO Rtl_VIPGroup(FClassTypeID,FDetail,FID,FParentID)
values ( 1005001,1,@P1,case @类别 when 1 then 1004 when 2 then 1005 else ''end)
if @类别 =1
begin
INSERT INTO Rtl_VIP(FID,FName,FNumber,FAddress,FBegDate,FEndDate,FIDCard,FPhone1,FSex,FNote,FIndex,FText,FVipscore)
values (@p1,@卡号,'J'+right('000000'+convert(varchar(250),@p2),6),@地址,@开卡日期,@截止日期,@身份证号,@电话,1,@备注,0,@姓名,@积分)
select @p2 = @p2 + 1
end
if @类别 = 2
begin
INSERT INTO Rtl_VIP(FID,FName,FNumber,FAddress,FBegDate,FEndDate,FIDCard,FPhone1,FSex,FNote,FIndex,FText,FVipscore)
values (@p1,@卡号,'Y'+right('000000'+convert(varchar(250),@p3),6),@地址,@开卡日期,@截止日期,@身份证号,@电话,1,@备注,0,@姓名,@积分)
select @p3 = @p3+1
end
FETCH NEXT FROM vip_cur INTO @卡号,@开卡日期,@截止日期,@类别,@姓名,@身份证号,@电话,@地址,@备注,@积分
END
CLOSE vip_cur
DEALLOCATE vip_cur
/*
--导入失败时清除除分组外的所有数据。
delete from Rtl_VIPGroup where fid <> 1004 and fid <> 1005
delete from Rtl_VIP
*/
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|手机版|Archiver|精诚网络 ( 粤ICP备13030199号 )

GMT+8, 2021-12-1 17:18 , Processed in 0.141714 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表