|
|
/***************************************************************************
|
|
|
会员存储过程脚本
|
|
|
****************************************************************************/
|
|
|
|
|
|
if exists (select * from sysobjects where id = object_id(N'p_vip_get_vip') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_get_vip
|
|
|
go
|
|
|
create procedure p_vip_get_vip
|
|
|
@vipcode varchar(20),
|
|
|
@orgcode varchar(10),
|
|
|
@vipname varchar(30) output,
|
|
|
@dsccode varchar(4) output,
|
|
|
@smessage varchar(100) output
|
|
|
with encryption
|
|
|
as
|
|
|
declare @scardtype varchar(1)
|
|
|
declare @canuse varchar(1)
|
|
|
declare @candsc varchar(1)
|
|
|
declare @canjf varchar(1)
|
|
|
declare @validdate varchar(10)
|
|
|
declare @currdate varchar(10)
|
|
|
begin
|
|
|
select @scardtype=v.cardtype,@canuse=v.canuse,@vipname=isnull(v.vipname,'') ,@dsccode=isnull(t.dsccode,''),
|
|
|
@validdate=validdate,@candsc=isnull(t.candsc,''),@canjf=isnull(t.canpt,'')
|
|
|
from t_vip v left join t_viptype t on v.viptype=t.lxcode
|
|
|
where vipcode=@vipcode and exists(select * from t_viptype_org where viptype=v.viptype and (orgcode='*' or orgcode=@orgcode))
|
|
|
|
|
|
if @@rowcount=0
|
|
|
begin
|
|
|
select @smessage='卡号不存在或不允许在该机构使用'
|
|
|
return (-1)
|
|
|
end
|
|
|
else if @canuse='0'
|
|
|
begin
|
|
|
select @smessage='卡禁用'
|
|
|
return (-1)
|
|
|
end else if (@candsc<>'1') and (@canjf<>'1')
|
|
|
begin
|
|
|
select @smessage='非积分优惠卡'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
if @validdate<>'' and @validdate is not null
|
|
|
begin
|
|
|
set @currdate=convert(varchar(10),getdate(),120)
|
|
|
if @validdate<@currdate
|
|
|
begin
|
|
|
select @smessage='有效期为'+@validdate+'，卡已过期'
|
|
|
return(-1)
|
|
|
end
|
|
|
end
|
|
|
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
select @smessage='查询异常'
|
|
|
return (-1)
|
|
|
end
|
|
|
else
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from sysobjects where id = object_id(N'p_vip_get_vip_total') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_get_vip_total
|
|
|
go
|
|
|
create procedure p_vip_get_vip_total
|
|
|
@vipcode varchar(20),
|
|
|
@orgcode varchar(10),
|
|
|
@vipname varchar(20) output,
|
|
|
@vipsex varchar(1) output,
|
|
|
@total numeric(19,4) output,
|
|
|
@mincktotal numeric(19,4) output,
|
|
|
@passwd varchar(100) output,
|
|
|
@verifymark varchar(13) output,
|
|
|
@smessage varchar(100) output
|
|
|
with encryption
|
|
|
as
|
|
|
declare @cardtype varchar(1)
|
|
|
declare @canuse varchar(1)
|
|
|
declare @locktotal numeric(19,4)
|
|
|
declare @lockmark varchar(13)
|
|
|
declare @validdate varchar(10)
|
|
|
declare @currdate varchar(10)
|
|
|
declare @canstore varchar(1)
|
|
|
declare @viptype varchar(4)
|
|
|
begin
|
|
|
select @cardtype=cardtype,@canuse=canuse,@canstore=canstore,@total=overtotal,@passwd=isnull(passwd,'') ,
|
|
|
@verifymark=isnull(verifymark,''),
|
|
|
@locktotal=isnull(locktotal,0),@lockmark=isnull(lockmark,''),@validdate=validdate
|
|
|
from t_vip_pos
|
|
|
where vipcode=@vipcode
|
|
|
|
|
|
select @vipname=isnull(vipname,''),@vipsex=vipsex,@viptype=viptype
|
|
|
from t_vip
|
|
|
where vipcode=@vipcode and isnull(sxdate,'') <> ''
|
|
|
and exists(select * from t_viptype_org where viptype=t_vip.viptype and (orgcode='*' or orgcode=@orgcode))
|
|
|
|
|
|
select @mincktotal=mincktotal from t_viptype where lxcode=@viptype
|
|
|
|
|
|
if @@rowcount=0
|
|
|
begin
|
|
|
select @smessage='卡号不存在或不允许在该机构使用或还没有发售'
|
|
|
return (-1)
|
|
|
end
|
|
|
else if @canuse='0'
|
|
|
begin
|
|
|
select @smessage='卡禁用'
|
|
|
return (-1)
|
|
|
end
|
|
|
if (@locktotal<>0) or ((@lockmark is not null) and (@lockmark<>''))
|
|
|
begin
|
|
|
select @smessage='卡已被锁定'
|
|
|
return (-1)
|
|
|
end
|
|
|
if @canstore<>'1'
|
|
|
begin
|
|
|
select @smessage='非充值卡'
|
|
|
return(-1)
|
|
|
end
|
|
|
if @cardtype='1'
|
|
|
begin
|
|
|
select @smessage='必须刷ic卡'
|
|
|
return(-1)
|
|
|
end
|
|
|
if @validdate<>'' and @validdate<>' - - ' and @validdate is not null
|
|
|
begin
|
|
|
set @currdate=convert(varchar(10),getdate(),120)
|
|
|
if @validdate<@currdate
|
|
|
begin
|
|
|
select @smessage='有效期为'+@validdate+'，卡已过期'
|
|
|
return(-1)
|
|
|
end
|
|
|
end
|
|
|
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
select @smessage='查询异常'
|
|
|
return (-1)
|
|
|
end
|
|
|
else
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from sysobjects where id = object_id(N'p_vip_send_xfjf_total') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_send_xfjf_total
|
|
|
go
|
|
|
create procedure p_vip_send_xfjf_total
|
|
|
@orgcode varchar(10),
|
|
|
@posno varchar(6),
|
|
|
@sdate varchar(10),
|
|
|
@stime varchar(8),
|
|
|
@serialno varchar(50),
|
|
|
@trantype varchar(1),
|
|
|
@vipcode varchar(20),
|
|
|
@total numeric(19,4),
|
|
|
@flxftotal numeric(19,4),
|
|
|
@xfjftotal numeric(19,4),
|
|
|
@posaccdate varchar(10),
|
|
|
@smessage varchar(100) output
|
|
|
with encryption
|
|
|
as
|
|
|
begin
|
|
|
select vipcode from t_vippt_flow where orgcode=@orgcode and posno=@posno and sdate=@sdate and stime=@stime and serialno=@serialno and trantype=@trantype
|
|
|
|
|
|
if @@rowcount=0
|
|
|
begin
|
|
|
insert into t_vippt_flow(orgcode,posno,sdate,stime,serialno,trantype,vipcode,accdate,total,flxftotal,xfjftotal,posaccdate)
|
|
|
values(@orgcode,@posno,@sdate,@stime,@serialno,@trantype,@vipcode,'',@total,@flxftotal,@xfjftotal,@posaccdate)
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
update t_vippt_flow set posaccdate=@posaccdate where orgcode=@orgcode and posno=@posno and sdate=@sdate and stime=@stime and serialno=@serialno and trantype=@trantype
|
|
|
end
|
|
|
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
select @smessage='积分上传失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
else
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from sysobjects where id = object_id(N'p_vip_get_xfjf_total') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_get_xfjf_total
|
|
|
go
|
|
|
create procedure p_vip_get_xfjf_total
|
|
|
@vipcode varchar(20),
|
|
|
@orgcode varchar(10),
|
|
|
@vipname varchar(30) output,
|
|
|
@xfjftotal numeric(19,4) output,
|
|
|
@smessage varchar(100) output
|
|
|
with encryption
|
|
|
as
|
|
|
begin
|
|
|
select @xfjftotal=isnull(sum(xfjftotal),0) from t_vippt_flow
|
|
|
where vipcode=@vipcode and (accdate='' or accdate is null)
|
|
|
|
|
|
select @vipname=isnull(vipname,''),@xfjftotal=@xfjftotal+(sumxfjftotal-sumfljftotal) from t_vip
|
|
|
where vipcode=@vipcode and exists(select * from t_viptype_org where viptype=t_vip.viptype and (orgcode='*' or orgcode=@orgcode))
|
|
|
|
|
|
if @@rowcount=0
|
|
|
begin
|
|
|
select @smessage='卡号不存在或不允许在该机构使用'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from sysobjects where id = object_id(N'p_vip_ins_trade_info') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_ins_trade_info
|
|
|
go
|
|
|
create procedure p_vip_ins_trade_info
|
|
|
@msgserialno varchar(12),
|
|
|
@shopcode varchar(13),
|
|
|
@posno varchar(6) ,
|
|
|
@serialno varchar(50),
|
|
|
@trantype varchar(1),
|
|
|
@vipcode varchar(20),
|
|
|
@total numeric(19,4),
|
|
|
@vipdate varchar(10),
|
|
|
@viptime varchar(8),
|
|
|
@recdate varchar(10),
|
|
|
@rectime varchar(8),
|
|
|
@verifymark varchar(13)
|
|
|
with encryption
|
|
|
as
|
|
|
begin
|
|
|
insert into t_viptrade(msgserialno,orgcode,posno,serialno,vipcode,trantype,total,vipdate,viptime,recdate,rectime,lockflag,datatype)
|
|
|
values (@msgserialno,@shopcode,@posno,@serialno,@vipcode,@trantype,@total,@vipdate,@viptime,@recdate,@rectime,'1','0')
|
|
|
|
|
|
update t_vip_pos set locktotal=@total,lockmark=@verifymark,msgserialno=@msgserialno where vipcode=@vipcode
|
|
|
|
|
|
if @@error<>0
|
|
|
return (-1)
|
|
|
else
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from sysobjects where id = object_id(N'p_vip_open_msg_lock') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_open_msg_lock
|
|
|
go
|
|
|
create procedure p_vip_open_msg_lock
|
|
|
@vipcoden varchar(1200),
|
|
|
@msgserialno varchar(12),
|
|
|
@type varchar(1)
|
|
|
with encryption
|
|
|
as
|
|
|
begin
|
|
|
if @type='2'
|
|
|
exec('update t_viptrade set lockflag=''2'' where vipcode in '+@vipcoden+' and msgserialno='''+@msgserialno+''' and datatype=''0''')
|
|
|
|
|
|
exec('update a set overtotal=overtotal-locktotal,
|
|
|
overcztotal=overcztotal-(case when locktotal>overcztotal then overcztotal else locktotal end),
|
|
|
overzstotal=overzstotal-(case when locktotal>overcztotal then locktotal-overcztotal else 0.00 end),
|
|
|
verifymark=lockmark,locktotal=0,lockmark='''',msgserialno=''''
|
|
|
from t_vip_pos a where vipcode in '+@vipcoden+' and msgserialno='''+@msgserialno+'''')
|
|
|
|
|
|
if @@error<>0
|
|
|
return (-1)
|
|
|
else
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from sysobjects where id = object_id(N'p_vip_del_msg_lock') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_del_msg_lock
|
|
|
go
|
|
|
create procedure p_vip_del_msg_lock
|
|
|
@vipcoden varchar(1200),
|
|
|
@msgserialno varchar(12),
|
|
|
@type varchar(1)
|
|
|
with encryption
|
|
|
as
|
|
|
declare @srecdate varchar(10)
|
|
|
declare @viptradeyyyy varchar(20)
|
|
|
declare @sql varchar(2000)
|
|
|
begin
|
|
|
if @srecdate is null
|
|
|
set @srecdate=convert(varchar(10),getdate(),120)
|
|
|
select @viptradeyyyy='t_viptrade_'+substring(@srecdate,1,4)
|
|
|
|
|
|
exec ('if not exists (select name from dbo.sysobjects where name ='''+ @viptradeyyyy+''' and xtype=''u'' )
|
|
|
create table '+ @viptradeyyyy+'(
|
|
|
msgserialno varchar (12) not null,
|
|
|
orgcode varchar (10) not null,
|
|
|
posno varchar (6) not null,
|
|
|
serialno varchar (50) not null,
|
|
|
trantype varchar (1) not null,
|
|
|
vipcode varchar (20) not null,
|
|
|
total numeric (19,4) not null,
|
|
|
vipdate varchar (10) not null,
|
|
|
viptime varchar (8) not null,
|
|
|
recdate varchar (10) not null,
|
|
|
rectime varchar (8) not null,
|
|
|
lockflag varchar (1) not null,
|
|
|
datatype varchar (1) not null)')
|
|
|
|
|
|
exec('insert into ' + @viptradeyyyy+'(msgserialno,orgcode,posno,serialno,
|
|
|
vipcode,trantype,total,vipdate,viptime,recdate,rectime,lockflag,datatype)
|
|
|
select msgserialno,orgcode,posno,serialno,vipcode,trantype,total,vipdate,viptime,recdate,rectime,lockflag='''+@type+''',datatype
|
|
|
from t_viptrade where vipcode in '+@vipcoden+' and msgserialno='''+@msgserialno+'''')
|
|
|
|
|
|
exec('delete from t_viptrade where vipcode in '+@vipcoden+' and msgserialno='''+@msgserialno+'''')
|
|
|
|
|
|
exec('update a set locktotal=0,lockmark='''',msgserialno=''''
|
|
|
from t_vip_pos a where vipcode in '+@vipcoden+' and msgserialno='''+@msgserialno+'''')
|
|
|
|
|
|
if @@error<>0
|
|
|
return (-1)
|
|
|
else
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_lock_ic_supply_data') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_lock_ic_supply_data
|
|
|
go
|
|
|
create procedure p_vip_lock_ic_supply_data
|
|
|
@vipcode varchar(20),
|
|
|
@shopcode varchar(10),
|
|
|
@posno varchar(6),
|
|
|
@type varchar(1),
|
|
|
@icstorecount integer output,
|
|
|
@icsumstoretotal numeric(19,4) output,
|
|
|
@icstoredatan varchar(2000) output,
|
|
|
@smessage varchar(100) output
|
|
|
with encryption
|
|
|
as
|
|
|
declare @scardtype varchar(1)
|
|
|
declare @scanuse varchar(1)
|
|
|
declare @svaliddate varchar(10)
|
|
|
declare @scurdate varchar(10)
|
|
|
declare @scurtime varchar(8)
|
|
|
declare @slockflag varchar(1)
|
|
|
declare @sicstoredata varchar(45)
|
|
|
declare @smemotxt varchar(60)
|
|
|
begin
|
|
|
set @scurdate=convert(varchar(10),getdate(),120)
|
|
|
set @scurtime=convert(varchar(8),getdate(),108)
|
|
|
|
|
|
select @scardtype=cardtype,@scanuse=canuse,@svaliddate=validdate from t_vip
|
|
|
where vipcode=@vipcode and exists(select * from t_viptype_org where viptype=t_vip.viptype and (orgcode='*' or orgcode=@shopcode))
|
|
|
|
|
|
if @@rowcount=0
|
|
|
begin
|
|
|
select @smessage='卡号不存在或不允许在该机构使用'
|
|
|
return (-1)
|
|
|
end
|
|
|
if @scanuse<>'1' or @scanuse is null
|
|
|
begin
|
|
|
select @smessage='卡禁用'
|
|
|
return (-1)
|
|
|
end
|
|
|
if @svaliddate<>''
|
|
|
if @svaliddate<@scurdate
|
|
|
begin
|
|
|
select @smessage='卡过期'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
if @scardtype<>'1'
|
|
|
begin
|
|
|
select @smessage='该卡不需要补登'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
select top 1 @slockflag=lockflag from t_vipstore
|
|
|
where vipcode=@vipcode and lockflag<>'0'
|
|
|
if @slockflag is not null
|
|
|
begin
|
|
|
select @smessage='存在已经锁定的充值数据'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
select @icstorecount=isnull(count(*),0) from t_vipstore where vipcode=@vipcode
|
|
|
if @icstorecount=0
|
|
|
begin
|
|
|
select @smessage='不存在需要处理的存取款数据'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
if @type='0'
|
|
|
begin
|
|
|
if @icstorecount>50
|
|
|
begin
|
|
|
select @smessage='未补登记录超过50，请去服务台补登'
|
|
|
return (-1)
|
|
|
end
|
|
|
end
|
|
|
|
|
|
if @type='0'
|
|
|
set @smemotxt='店编码：'+@shopcode+'收款台：'+@posno+' '+@scurdate+' '+@scurtime+'锁定'
|
|
|
else if @type='1'
|
|
|
set @smemotxt=''
|
|
|
else
|
|
|
set @smemotxt=''
|
|
|
|
|
|
update t_vipstore
|
|
|
set lockflag='1',remark=case when @type='0' then @smemotxt else
|
|
|
(case billtype when '0' then '充值'+billno when '1' then '取款'+billno when '2' then '前台交易'+rtrim(billno)+' 日期'+rtrim(bizdate)+' '+rtrim(rzdate) else '' end) end
|
|
|
where vipcode=@vipcode and lockflag='0'
|
|
|
|
|
|
select @icsumstoretotal=isnull(sum(storetotal),0) from t_vipstore
|
|
|
where vipcode=@vipcode and lockflag='1'
|
|
|
declare cur_store cursor for select ltrim(rtrim(rzdate))+':'+ltrim(rtrim(convert(varchar(23),storetotal)))
|
|
|
from t_vipstore where vipcode=@vipcode and lockflag='1'
|
|
|
open cur_store
|
|
|
set @icstoredatan=''
|
|
|
fetch next from cur_store into @sicstoredata
|
|
|
while @@fetch_status=0
|
|
|
begin
|
|
|
if @icstoredatan=''
|
|
|
set @icstoredatan=@icstoredatan+@sicstoredata
|
|
|
else
|
|
|
set @icstoredatan=@icstoredatan+';'+@sicstoredata
|
|
|
fetch next from cur_store into @sicstoredata
|
|
|
end
|
|
|
|
|
|
close cur_store
|
|
|
deallocate cur_store
|
|
|
|
|
|
if @@error<>0
|
|
|
return (-1)
|
|
|
else
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_vip_open_lock_ic_supply_data]') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure [dbo].[p_vip_open_lock_ic_supply_data]
|
|
|
go
|
|
|
create procedure p_vip_open_lock_ic_supply_data
|
|
|
@vipcode varchar(20),
|
|
|
@shopcode varchar(10),
|
|
|
@posno varchar(6),
|
|
|
@usercode varchar(6),
|
|
|
@username varchar(10),
|
|
|
@type varchar(1),
|
|
|
@cltype varchar(1)
|
|
|
with encryption
|
|
|
as
|
|
|
declare @scurdate varchar(10)
|
|
|
declare @scurtime varchar(8)
|
|
|
declare @smemotxt varchar(60)
|
|
|
begin
|
|
|
set @scurdate=convert(varchar(10),getdate(),120)
|
|
|
set @scurtime=convert(varchar(8),getdate(),108)
|
|
|
|
|
|
if @cltype='0' and @type='0'
|
|
|
set @smemotxt='前台补登'
|
|
|
else if @cltype='0' and @type='1'
|
|
|
set @smemotxt='后台补登'
|
|
|
else if @cltype='1'
|
|
|
set @smemotxt='后台删除'
|
|
|
else if @cltype='2'
|
|
|
set @smemotxt='店编码：'+@shopcode+'收款台：'+@posno+' '+@scurdate+' '+@scurtime+'取消补登'
|
|
|
else if @cltype='3'
|
|
|
set @smemotxt='补登失败'
|
|
|
else if @cltype='4'
|
|
|
set @smemotxt='解除锁定'
|
|
|
else
|
|
|
set @smemotxt=''
|
|
|
|
|
|
if @cltype='0' or @cltype='1' or @cltype='3' or @cltype='4'
|
|
|
begin
|
|
|
insert into t_viplog_icrw(bookdate,booktime,vipcode,memotxt,usercode,username,fstotal)
|
|
|
select @scurdate,@scurtime,vipcode,ltrim(rtrim(remark)+' '+@smemotxt) as memotxt,
|
|
|
@usercode as usercode,@username as username,storetotal as fstotal
|
|
|
from t_vipstore where vipcode=@vipcode and lockflag='1'
|
|
|
end
|
|
|
|
|
|
if @cltype='0' or @cltype='1'
|
|
|
delete from t_vipstore where vipcode=@vipcode and lockflag='1'
|
|
|
else if @cltype='2' or @cltype='3' or @cltype='4'
|
|
|
update t_vipstore set lockflag='0',remark=@smemotxt where vipcode=@vipcode and lockflag='1'
|
|
|
|
|
|
if @@error<>0
|
|
|
return (-1)
|
|
|
else
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_get_limt_total') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_get_limt_total
|
|
|
go
|
|
|
create procedure p_vip_get_limt_total
|
|
|
@vipcode varchar(20),
|
|
|
@dsccode varchar(20),
|
|
|
@dstimeno varchar(20),
|
|
|
@plucode varchar(20),
|
|
|
@cycletype varchar(1),
|
|
|
@cycledate varchar(10),
|
|
|
@xscount numeric(19,4) output,
|
|
|
@sumcount numeric(19,4) output
|
|
|
with encryption
|
|
|
as
|
|
|
declare @nowdate varchar(10)
|
|
|
declare @firstdate varchar(10)
|
|
|
declare @nowweek int
|
|
|
declare @nowday int
|
|
|
declare @firstday varchar(2)
|
|
|
declare @tempstr varchar(100)
|
|
|
declare @tempdate datetime
|
|
|
begin
|
|
|
set @nowdate = convert(varchar(10),getdate(),120)
|
|
|
set @nowweek = datepart(weekday, getdate() + @@datefirst - 1)
|
|
|
set @nowday = datepart(day, @nowdate)
|
|
|
|
|
|
if @cycletype = '0'
|
|
|
begin
|
|
|
set @firstdate = '1900-01-01'
|
|
|
end
|
|
|
else if @cycletype = '1'
|
|
|
begin
|
|
|
set @firstdate = '9999-99-99'
|
|
|
end
|
|
|
else if @cycletype = '2'
|
|
|
begin
|
|
|
set @firstdate = @nowdate
|
|
|
end
|
|
|
else if @cycletype = '3'
|
|
|
begin
|
|
|
set @firstday = convert(int,@cycledate)
|
|
|
if @nowweek >= @firstday
|
|
|
begin
|
|
|
set @tempdate = dateadd(day, -1 * (@nowweek - @firstday), @nowdate)
|
|
|
set @firstdate = convert(varchar(10),@tempdate,120)
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
set @tempdate = dateadd(day, -1 * (7 - @firstday + @nowweek), @nowdate)
|
|
|
set @firstdate = convert(varchar(10),@tempdate,120)
|
|
|
end
|
|
|
end
|
|
|
else if @cycletype = '4'
|
|
|
begin
|
|
|
set @firstday = convert(int,@cycledate)
|
|
|
|
|
|
if @nowday >= @firstday
|
|
|
begin
|
|
|
set @tempstr = convert(varchar(4),year(@nowdate)) + '-' + convert(varchar(2),month(@nowdate)) + '-' + convert(varchar(2),@firstday)
|
|
|
set @tempdate = convert(datetime,@tempstr)
|
|
|
set @firstdate = convert(varchar(10),@tempdate,120)
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
set @tempstr = dateadd(month, -1 , @nowdate)
|
|
|
set @tempstr = convert(varchar(4),year(@tempstr)) + '-' + convert(varchar(2),month(@tempstr)) + '-' + convert(varchar(2),@firstday)
|
|
|
if isdate(@tempstr) = 0
|
|
|
begin
|
|
|
set @tempstr = dateadd(month, -1 , @nowdate)
|
|
|
set @tempstr = convert(varchar(10),dateadd(month,1,dateadd(day,-day(@tempstr),@tempstr)),120)
|
|
|
end
|
|
|
set @tempdate = convert(datetime,@tempstr)
|
|
|
set @firstdate = convert(varchar(10),@tempdate,120)
|
|
|
end
|
|
|
end
|
|
|
else
|
|
|
set @firstdate = '9999-99-99'
|
|
|
|
|
|
select @xscount=sum(xscount)
|
|
|
from t_vipdsc_limit
|
|
|
where vipcode =@vipcode
|
|
|
and dsccode =@dsccode
|
|
|
and dstimeno =@dstimeno
|
|
|
and plucode =@plucode
|
|
|
and saledate >= @firstdate and saledate <= @nowdate
|
|
|
|
|
|
if @xscount is null
|
|
|
set @xscount=0
|
|
|
|
|
|
select @sumcount=sum(xscount)
|
|
|
from t_vipdsc_limit
|
|
|
where dsccode =@dsccode
|
|
|
and dstimeno =@dstimeno
|
|
|
and plucode =@plucode
|
|
|
and saledate >= @firstdate and saledate <= @nowdate
|
|
|
if @sumcount is null
|
|
|
set @sumcount=0
|
|
|
|
|
|
if @@error<>0
|
|
|
return (-1)
|
|
|
else
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_upt_limt_total') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_upt_limt_total
|
|
|
go
|
|
|
create procedure p_vip_upt_limt_total
|
|
|
@vipcode varchar(20),
|
|
|
@dsccode varchar(20),
|
|
|
@dstimeno varchar(20),
|
|
|
@plucode varchar(20),
|
|
|
@xscount numeric(19,4)
|
|
|
with encryption
|
|
|
as
|
|
|
declare @currxscount numeric(19,4)
|
|
|
declare @saledate varchar(10)
|
|
|
begin
|
|
|
if @vipcode = ''
|
|
|
set @saledate = ''
|
|
|
else
|
|
|
set @saledate = convert(varchar(10),getdate(),120)
|
|
|
select @currxscount=xscount
|
|
|
from t_vipdsc_limit
|
|
|
where vipcode =@vipcode
|
|
|
and dsccode =@dsccode
|
|
|
and dstimeno =@dstimeno
|
|
|
and plucode =@plucode
|
|
|
and saledate =@saledate
|
|
|
|
|
|
if (@currxscount is null)
|
|
|
insert into t_vipdsc_limit(vipcode,dsccode,dstimeno,plucode,xscount,saledate)
|
|
|
values(@vipcode,@dsccode,@dstimeno,@plucode,@xscount,@saledate)
|
|
|
else
|
|
|
update t_vipdsc_limit set xscount=xscount+@xscount
|
|
|
where vipcode=@vipcode and dsccode=@dsccode and dstimeno=@dstimeno and plucode=@plucode and saledate=@saledate
|
|
|
|
|
|
if @@error<>0
|
|
|
return (-1)
|
|
|
else
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_nml_get_limt_total') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_nml_get_limt_total
|
|
|
go
|
|
|
create procedure p_nml_get_limt_total
|
|
|
@dsccode varchar(20),
|
|
|
@dstimeno varchar(20),
|
|
|
@plucode varchar(20),
|
|
|
@lmtcount numeric(19,4),
|
|
|
@curcount numeric(19,4),
|
|
|
@xscount numeric(19,4) output
|
|
|
with encryption
|
|
|
as
|
|
|
declare @fyxscount numeric(19,4)
|
|
|
begin
|
|
|
select @fyxscount=isnull(xscount,0) from t_vipdsc_limit
|
|
|
where dsccode=@dsccode and dstimeno=@dstimeno and plucode=@plucode
|
|
|
|
|
|
if @fyxscount is null
|
|
|
set @fyxscount=0
|
|
|
|
|
|
set @fyxscount=@lmtcount-@fyxscount
|
|
|
|
|
|
if @fyxscount<0
|
|
|
set @fyxscount=0
|
|
|
|
|
|
if @fyxscount<@curcount
|
|
|
select @xscount=@fyxscount
|
|
|
else
|
|
|
select @xscount=@curcount
|
|
|
|
|
|
if exists(select * from t_vipdsc_limit where vipcode='' and dsccode=@dsccode and dstimeno=@dstimeno and plucode=@plucode)
|
|
|
update t_vipdsc_limit set xscount=xscount+@xscount
|
|
|
where vipcode='' and dsccode=@dsccode and dstimeno=@dstimeno and plucode=@plucode
|
|
|
else
|
|
|
insert into t_vipdsc_limit(dsccode,dstimeno,vipcode,plucode,xscount,saledate) values(@dsccode,@dstimeno,'',@plucode,@xscount,'')
|
|
|
|
|
|
update t_vipdsc_limit set xscount=0
|
|
|
where vipcode='' and dsccode=@dsccode and dstimeno=@dstimeno and plucode=@plucode and xscount<0
|
|
|
|
|
|
if @@error<>0
|
|
|
return (-1)
|
|
|
else
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_fl') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_fl
|
|
|
go
|
|
|
create procedure p_vip_fl
|
|
|
@vipcode varchar(20),
|
|
|
@fljftotal numeric(19,4),
|
|
|
@fltotal numeric(19,4),
|
|
|
@yfljftotal numeric(19,4),
|
|
|
@yfltotal numeric(19,4),
|
|
|
@orgcode varchar(10),
|
|
|
@zdrname varchar(10),
|
|
|
@sjflplus varchar(500),
|
|
|
@fltype varchar(1),
|
|
|
@remark varchar(100),
|
|
|
@billno varchar(20),
|
|
|
@smessage varchar(100) output
|
|
|
with encryption
|
|
|
as
|
|
|
declare @vipflbill varchar(20)
|
|
|
declare @vipbk varchar(20)
|
|
|
declare @sql varchar(8000)
|
|
|
begin
|
|
|
select a.vipcode
|
|
|
from t_vip a left join (select vipcode,sum(xfjftotal) xfjftotal from t_vippt_flow where accdate='' or accdate is null group by vipcode) t on a.vipcode=t.vipcode
|
|
|
where a.vipcode=@vipcode and a.sumxfjftotal+isnull(xfjftotal,0)-a.sumfljftotal<@fljftotal
|
|
|
if @@rowcount>0
|
|
|
begin
|
|
|
select @smessage='会员可返利积分不足'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
update t_vip set sumfljftotal=sumfljftotal+@fljftotal,sumfltotal=sumfltotal+@fltotal,chgdate=convert(varchar(19),getdate(),120) where vipcode=@vipcode
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
select @smessage='修改会员返利信息失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
select vipcode
|
|
|
from t_vip_currpt
|
|
|
where vipcode=@vipcode
|
|
|
|
|
|
if @@rowcount=0
|
|
|
begin
|
|
|
insert into t_vip_currpt(vipcode,storetotal,picktotal,fltotal,fljftotal,xfjftotal)
|
|
|
values(@vipcode,0.00,0.00,@fltotal,@fljftotal,0.00)
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
update t_vip_currpt set fltotal=fltotal+@fltotal,fljftotal=fljftotal+@fljftotal where vipcode=@vipcode
|
|
|
end
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
select @smessage='修改会员当前业务统计报表失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
select @vipflbill='t_viprtn_bill_'+left(convert(char(10),getdate(),112),4)
|
|
|
set @sql='insert into '+@vipflbill+'
|
|
|
(billno,lrdate,accdate,orgcode,zdrname,prntimes,vipcode,
|
|
|
yflxf,yfltotal,yfljftotal,sjflxf,sjfltotal,sjfljf,sjflplus,fltype,remark)
|
|
|
values
|
|
|
('''+@billno+''',convert(varchar(10),getdate(),120),convert(varchar(10),getdate(),120),'''+@orgcode+''',
|
|
|
'''+@zdrname+''',0,'''+@vipcode+''',0.00,'+convert(varchar(23),@yfltotal)+','+convert(varchar(23),@yfljftotal)+',0.00,
|
|
|
'+convert(varchar(23),@fltotal)+','+convert(varchar(23),@fljftotal)+','''+@sjflplus+''','''+@fltype+''','''+@remark+''')'
|
|
|
exec(@sql)
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
select @smessage='生成会员返利单失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
select @vipbk='t_vipbk_'+left(convert(char(10),getdate(),112),6)
|
|
|
set @sql='insert into '+@vipbk+'
|
|
|
(bookdate,booktime,bizdate,vipcode,billno,memotxt,username,ywname,tendtotal,ctotal,sumtendtotal,overtotal)
|
|
|
select convert(varchar(10),getdate(),120),convert(varchar(10),getdate(),108),lrdate,vipcode,billno,
|
|
|
''会员返利'',zdrname,zdrname,0.00,sjfltotal,isnull((select sumtendtotal from t_vip where vipcode=h.vipcode),0.00),
|
|
|
isnull((select sumstoretotal-sumpaytotal from t_vip where vipcode=h.vipcode),0.00)
|
|
|
from '+@vipflbill+' h where billno='''+@billno+''' and vipcode='''+@vipcode+''''
|
|
|
exec(@sql)
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
select @smessage='记录会员台账失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists(select * from sysobjects where name='solardata' and xtype='u')
|
|
|
drop table solardata
|
|
|
go
|
|
|
create table solardata
|
|
|
(
|
|
|
yearid int not null,
|
|
|
data varchar(7) not null,
|
|
|
dataint int not null
|
|
|
)
|
|
|
go
|
|
|
|
|
|
insert into solardata
|
|
|
select 1900,'0x04bd8',19416 union all select 1901,'0x04ae0',19168
|
|
|
union all select 1902,'0x0a570',42352 union all select 1903,'0x054d5',21717
|
|
|
union all select 1904,'0x0d260',53856 union all select 1905,'0x0d950',55632
|
|
|
union all select 1906,'0x16554',91476 union all select 1907,'0x056a0',22176
|
|
|
union all select 1908,'0x09ad0',39632 union all select 1909,'0x055d2',21970
|
|
|
union all select 1910,'0x04ae0',19168 union all select 1911,'0x0a5b6',42422
|
|
|
union all select 1912,'0x0a4d0',42192 union all select 1913,'0x0d250',53840
|
|
|
union all select 1914,'0x1d255',119381 union all select 1915,'0x0b540',46400
|
|
|
union all select 1916,'0x0d6a0',54944 union all select 1917,'0x0ada2',44450
|
|
|
union all select 1918,'0x095b0',38320 union all select 1919,'0x14977',84343
|
|
|
union all select 1920,'0x04970',18800 union all select 1921,'0x0a4b0',42160
|
|
|
union all select 1922,'0x0b4b5',46261 union all select 1923,'0x06a50',27216
|
|
|
union all select 1924,'0x06d40',27968 union all select 1925,'0x1ab54',109396
|
|
|
union all select 1926,'0x02b60',11104 union all select 1927,'0x09570',38256
|
|
|
union all select 1928,'0x052f2',21234 union all select 1929,'0x04970',18800
|
|
|
union all select 1930,'0x06566',25958 union all select 1931,'0x0d4a0',54432
|
|
|
union all select 1932,'0x0ea50',59984 union all select 1933,'0x06e95',28309
|
|
|
union all select 1934,'0x05ad0',23248 union all select 1935,'0x02b60',11104
|
|
|
union all select 1936,'0x186e3',100067 union all select 1937,'0x092e0',37600
|
|
|
union all select 1938,'0x1c8d7',116951 union all select 1939,'0x0c950',51536
|
|
|
union all select 1940,'0x0d4a0',54432 union all select 1941,'0x1d8a6',120998
|
|
|
union all select 1942,'0x0b550',46416 union all select 1943,'0x056a0',22176
|
|
|
union all select 1944,'0x1a5b4',107956 union all select 1945,'0x025d0',9680
|
|
|
union all select 1946,'0x092d0',37584 union all select 1947,'0x0d2b2',53938
|
|
|
union all select 1948,'0x0a950',43344 union all select 1949,'0x0b557',46423
|
|
|
union all select 1950,'0x06ca0',27808 union all select 1951,'0x0b550',46416
|
|
|
union all select 1952,'0x15355',86869 union all select 1953,'0x04da0',19872
|
|
|
union all select 1954,'0x0a5d0',42448 union all select 1955,'0x14573',83315
|
|
|
union all select 1956,'0x052d0',21200 union all select 1957,'0x0a9a8',43432
|
|
|
union all select 1958,'0x0e950',59728 union all select 1959,'0x06aa0',27296
|
|
|
union all select 1960,'0x0aea6',44710 union all select 1961,'0x0ab50',43856
|
|
|
union all select 1962,'0x04b60',19296 union all select 1963,'0x0aae4',43748
|
|
|
union all select 1964,'0x0a570',42352 union all select 1965,'0x05260',21088
|
|
|
union all select 1966,'0x0f263',62051 union all select 1967,'0x0d950',55632
|
|
|
union all select 1968,'0x05b57',23383 union all select 1969,'0x056a0',22176
|
|
|
union all select 1970,'0x096d0',38608 union all select 1971,'0x04dd5',19925
|
|
|
union all select 1972,'0x04ad0',19152 union all select 1973,'0x0a4d0',42192
|
|
|
union all select 1974,'0x0d4d4',54484 union all select 1975,'0x0d250',53840
|
|
|
union all select 1976,'0x0d558',54616 union all select 1977,'0x0b540',46400
|
|
|
union all select 1978,'0x0b5a0',46496 union all select 1979,'0x195a6',103846
|
|
|
union all select 1980,'0x095b0',38320 union all select 1981,'0x049b0',18864
|
|
|
union all select 1982,'0x0a974',43380 union all select 1983,'0x0a4b0',42160
|
|
|
union all select 1984,'0x0b27a',45690 union all select 1985,'0x06a50',27216
|
|
|
union all select 1986,'0x06d40',27968 union all select 1987,'0x0af46',44870
|
|
|
union all select 1988,'0x0ab60',43872 union all select 1989,'0x09570',38256
|
|
|
union all select 1990,'0x04af5',19189 union all select 1991,'0x04970',18800
|
|
|
union all select 1992,'0x064b0',25776 union all select 1993,'0x074a3',29859
|
|
|
union all select 1994,'0x0ea50',59984 union all select 1995,'0x06b58',27480
|
|
|
union all select 1996,'0x055c0',21952 union all select 1997,'0x0ab60',43872
|
|
|
union all select 1998,'0x096d5',38613 union all select 1999,'0x092e0',37600
|
|
|
union all select 2000,'0x0c960',51552 union all select 2001,'0x0d954',55636
|
|
|
union all select 2002,'0x0d4a0',54432 union all select 2003,'0x0da50',55888
|
|
|
union all select 2004,'0x07552',30034 union all select 2005,'0x056a0',22176
|
|
|
union all select 2006,'0x0abb7',43959 union all select 2007,'0x025d0',9680
|
|
|
union all select 2008,'0x092d0',37584 union all select 2009,'0x0cab5',51893
|
|
|
union all select 2010,'0x0a950',43344 union all select 2011,'0x0b4a0',46240
|
|
|
union all select 2012,'0x0baa4',47780 union all select 2013,'0x0ad50',44368
|
|
|
union all select 2014,'0x055d9',21977 union all select 2015,'0x04ba0',19360
|
|
|
union all select 2016,'0x0a5b0',42416 union all select 2017,'0x15176',86390
|
|
|
union all select 2018,'0x052b0',21168 union all select 2019,'0x0a930',43312
|
|
|
union all select 2020,'0x07954',31060 union all select 2021,'0x06aa0',27296
|
|
|
union all select 2022,'0x0ad50',44368 union all select 2023,'0x05b52',23378
|
|
|
union all select 2024,'0x04b60',19296 union all select 2025,'0x0a6e6',42726
|
|
|
union all select 2026,'0x0a4e0',42208 union all select 2027,'0x0d260',53856
|
|
|
union all select 2028,'0x0ea65',60005 union all select 2029,'0x0d530',54576
|
|
|
union all select 2030,'0x05aa0',23200 union all select 2031,'0x076a3',30371
|
|
|
union all select 2032,'0x096d0',38608 union all select 2033,'0x04bd7',19415
|
|
|
union all select 2034,'0x04ad0',19152 union all select 2035,'0x0a4d0',42192
|
|
|
union all select 2036,'0x1d0b6',118966 union all select 2037,'0x0d250',53840
|
|
|
union all select 2038,'0x0d520',54560 union all select 2039,'0x0dd45',56645
|
|
|
union all select 2040,'0x0b5a0',46496 union all select 2041,'0x056d0',22224
|
|
|
union all select 2042,'0x055b2',21938 union all select 2043,'0x049b0',18864
|
|
|
union all select 2044,'0x0a577',42359 union all select 2045,'0x0a4b0',42160
|
|
|
union all select 2046,'0x0aa50',43600 union all select 2047,'0x1b255',111189
|
|
|
union all select 2048,'0x06d20',27936 union all select 2049,'0x0ada0',44448
|
|
|
|
|
|
if exists(select * from sysobjects where name='p_get_days_of_year' and xtype='p')
|
|
|
drop procedure p_get_days_of_year
|
|
|
go
|
|
|
create procedure p_get_days_of_year @year int,@ydays int output
|
|
|
as
|
|
|
begin
|
|
|
declare @mleap int
|
|
|
declare @mleapnum int
|
|
|
declare @ilunar int
|
|
|
declare @j int
|
|
|
|
|
|
set @ydays=348 --如果农历每月29天，没有闰月则共计348天
|
|
|
set @mleapnum=0
|
|
|
select @ilunar=dataint from solardata where yearid=@year
|
|
|
set @j=32768 --1000 0000 0000 0000b
|
|
|
while @j>8
|
|
|
begin
|
|
|
if @ilunar & @j >0
|
|
|
set @ydays=@ydays+1
|
|
|
set @j=@j/2
|
|
|
end
|
|
|
set @mleap = @ilunar & 15
|
|
|
if @mleap > 0
|
|
|
begin
|
|
|
if @ilunar & 65536 > 0 -- 1 0000 0000 1110 0000b 看闰月的大小
|
|
|
set @mleapnum=30
|
|
|
else
|
|
|
set @mleapnum=29
|
|
|
set @ydays=@ydays+@mleapnum
|
|
|
end
|
|
|
return (1)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists(select * from sysobjects where name='p_get_solar_day' and xtype='p')
|
|
|
drop procedure p_get_solar_day
|
|
|
go
|
|
|
create procedure p_get_solar_day
|
|
|
@lunarday varchar(10),
|
|
|
@solarday varchar(10) output
|
|
|
as
|
|
|
begin
|
|
|
declare @i int
|
|
|
declare @j int
|
|
|
declare @year int
|
|
|
declare @month int
|
|
|
declare @day int
|
|
|
declare @mdays int
|
|
|
declare @totaldays int
|
|
|
declare @ilunar int
|
|
|
declare @mleap int
|
|
|
declare @mleapnum int
|
|
|
declare @slunarday varchar(10)
|
|
|
declare @ydays int
|
|
|
|
|
|
set @lunarday=cast(@lunarday as varchar(10))
|
|
|
set @slunarday=convert(varchar(10),@lunarday,120)
|
|
|
set @i=1900
|
|
|
set @totaldays=0
|
|
|
set @year = cast(substring(@slunarday,1,4) as int)
|
|
|
while @i< @year
|
|
|
begin
|
|
|
exec p_get_days_of_year @i,@ydays out
|
|
|
set @totaldays=@totaldays+ @ydays
|
|
|
set @i=@i+1
|
|
|
end
|
|
|
|
|
|
set @i=1
|
|
|
set @mdays=0
|
|
|
set @month = cast(substring(@slunarday,6,2) as int)
|
|
|
select @ilunar=dataint from solardata where yearid=@year
|
|
|
set @j=32768
|
|
|
while @i < @month
|
|
|
begin
|
|
|
if @ilunar & @j >0
|
|
|
set @totaldays=@totaldays+30
|
|
|
else
|
|
|
set @totaldays=@totaldays+29
|
|
|
set @j=@j/2
|
|
|
set @i=@i+1
|
|
|
end
|
|
|
|
|
|
set @mleap = @ilunar & 15
|
|
|
if @mleap >0 and @mleap < @month
|
|
|
begin
|
|
|
if @ilunar & 65536 > 0
|
|
|
set @mleapnum=30
|
|
|
else
|
|
|
set @mleapnum=29
|
|
|
set @totaldays=@totaldays+@mleapnum
|
|
|
end
|
|
|
|
|
|
set @day=cast(substring(@slunarday,9,2) as int)
|
|
|
set @totaldays=@totaldays+@day
|
|
|
set @solarday='1900-01-30'
|
|
|
set @solarday=convert(varchar(10),dateadd(day,@totaldays,@solarday),120)
|
|
|
return (1)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists(select * from sysobjects where name='p_get_next_birthday' and xtype='p')
|
|
|
drop procedure p_get_next_birthday
|
|
|
go
|
|
|
create procedure p_get_next_birthday
|
|
|
@lunarbirthday varchar(10),
|
|
|
@solarbirthday varchar(10) output,
|
|
|
@days int output
|
|
|
as
|
|
|
begin
|
|
|
declare @year varchar(4)
|
|
|
declare @intyear int
|
|
|
declare @month varchar(2)
|
|
|
declare @day varchar(2)
|
|
|
declare @slunarbirhtday varchar(10)
|
|
|
declare @tmplunarday varchar(10)
|
|
|
declare @daysofyear int
|
|
|
|
|
|
set @slunarbirhtday=convert(varchar(10),@lunarbirthday,120)
|
|
|
set @intyear=cast(substring(convert(varchar(10),getdate(),120),1,4) as int)-1
|
|
|
set @month=substring(@slunarbirhtday,6,2)
|
|
|
set @day=substring(@slunarbirhtday,9,2)
|
|
|
set @year=cast(@intyear as varchar(4))
|
|
|
set @tmplunarday = @year+'-'+@month+'-'+@day
|
|
|
exec p_get_solar_day @tmplunarday,@solarbirthday out
|
|
|
|
|
|
while datediff(day,getdate(),@solarbirthday)<0
|
|
|
begin
|
|
|
set @intyear=@intyear+1
|
|
|
set @year=cast(@intyear as varchar(4))
|
|
|
set @tmplunarday = @year+'-'+@month+'-'+@day
|
|
|
exec p_get_solar_day @tmplunarday,@solarbirthday out
|
|
|
end
|
|
|
set @solarbirthday=convert(varchar(10),@solarbirthday,120)
|
|
|
set @days =datediff(day,convert(char(10),getdate(),120), convert(char(10),@solarbirthday))
|
|
|
|
|
|
return (1)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists(select * from sysobjects where name='p_update_vip_birthday' and xtype='p')
|
|
|
drop procedure p_update_vip_birthday
|
|
|
go
|
|
|
create procedure p_update_vip_birthday
|
|
|
as
|
|
|
begin
|
|
|
declare @vipcode varchar(20)
|
|
|
declare @birthday varchar(20)
|
|
|
declare @birthdaytype varchar(1)
|
|
|
declare @nextbirthday varchar(10)
|
|
|
declare @curyear varchar(4)
|
|
|
declare @intcuryear int
|
|
|
|
|
|
update t_vip set birth='' where birth<>'' and birth is not null and isdate(birth)<>1
|
|
|
update t_vip set nextbirth='' where nextbirth<>'' and nextbirth is not null and isdate(nextbirth)<>1
|
|
|
update t_vip set birth=convert(varchar(10),convert(datetime,birth),120) where birth<>'' and birth<>convert(varchar(10),convert(datetime,birth),120)
|
|
|
update t_vip set nextbirth=convert(varchar(10),convert(datetime,nextbirth),120) where nextbirth<>'' and nextbirth<>convert(varchar(10),convert(datetime,nextbirth),120)
|
|
|
declare cur_birthday cursor for select vipcode,birth,birthtype from t_vip where isdate(birth)=1 and cast(nextbirth- getdate() as int)<0 and t_vip.birth is not null
|
|
|
|
|
|
select convert(varchar(20),getdate(),114)
|
|
|
open cur_birthday
|
|
|
fetch next from cur_birthday into @vipcode,@birthday,@birthdaytype
|
|
|
while @@fetch_status=0
|
|
|
begin
|
|
|
if @birthdaytype='0' and @birthday is not null and @birthday<>''
|
|
|
begin
|
|
|
set @intcuryear = cast(substring(convert(varchar(10),getdate(),120),1,4) as int)
|
|
|
if substring(@birthday,6,5)='02-29'
|
|
|
begin
|
|
|
set @intcuryear=cast(substring(@birthday,1,4) as int)
|
|
|
set @nextbirthday=cast(@intcuryear as varchar(4)) + substring(@birthday,5,6)
|
|
|
if isdate(@nextbirthday)<>1
|
|
|
begin
|
|
|
close cur_birthday
|
|
|
deallocate cur_birthday
|
|
|
return (-1)
|
|
|
end
|
|
|
while datediff(day,getdate(),@nextbirthday )<0
|
|
|
begin
|
|
|
set @intcuryear = @intcuryear+4
|
|
|
set @nextbirthday=cast(@intcuryear as varchar(4)) + substring(@birthday,5,6)
|
|
|
end
|
|
|
end else
|
|
|
begin
|
|
|
set @nextbirthday=cast(@intcuryear as varchar(4)) + substring(@birthday,5,6)
|
|
|
if isdate(@nextbirthday)<>1
|
|
|
begin
|
|
|
close cur_birthday
|
|
|
deallocate cur_birthday
|
|
|
return (-1)
|
|
|
end
|
|
|
while datediff(day,getdate(),@nextbirthday )<0
|
|
|
begin
|
|
|
set @intcuryear = @intcuryear+1
|
|
|
set @nextbirthday=cast(@intcuryear as varchar(4)) + substring(@birthday,5,6)
|
|
|
end
|
|
|
end
|
|
|
end
|
|
|
else if @birthdaytype='1' and @birthday is not null and @birthday<>''
|
|
|
begin
|
|
|
exec p_get_next_birthday @birthday,@nextbirthday out,null
|
|
|
end
|
|
|
else set @nextbirthday='1900-01-30'
|
|
|
update t_vip set t_vip.nextbirth=@nextbirthday where t_vip.vipcode=@vipcode
|
|
|
|
|
|
fetch next from cur_birthday into @vipcode,@birthday,@birthdaytype
|
|
|
end
|
|
|
close cur_birthday
|
|
|
deallocate cur_birthday
|
|
|
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists(select * from sysobjects where name='p_check_lunar_day' and xtype='p')
|
|
|
drop procedure p_check_lunar_day
|
|
|
go
|
|
|
create procedure p_check_lunar_day
|
|
|
@lunarday varchar(10),
|
|
|
@flag int output
|
|
|
as
|
|
|
begin
|
|
|
declare @year varchar(4)
|
|
|
declare @month varchar(2)
|
|
|
declare @day varchar(2)
|
|
|
declare @data int
|
|
|
declare @j int
|
|
|
declare @i int
|
|
|
|
|
|
set @flag = 1
|
|
|
set @year = substring(@lunarday,1,4)
|
|
|
set @month = substring(@lunarday,6,2)
|
|
|
set @day = substring(@lunarday,9,2)
|
|
|
|
|
|
if cast(@year as int)>2048 or cast(@year as int)<1900
|
|
|
begin
|
|
|
set @flag = 0
|
|
|
return
|
|
|
end
|
|
|
|
|
|
if cast(@month as int)>12 or cast(@month as int) <0
|
|
|
begin
|
|
|
set @flag = 0
|
|
|
return
|
|
|
end
|
|
|
|
|
|
select @data=dataint from solardata where yearid=cast(@year as int)
|
|
|
|
|
|
set @i=1
|
|
|
set @j=32768
|
|
|
|
|
|
while @i<@month and @j>16
|
|
|
begin
|
|
|
set @i=@i+1
|
|
|
set @j=@j/2
|
|
|
end
|
|
|
|
|
|
if cast(@day as int)>case when @data&@j=0 then 29 when @data&@j>0 then 30 end or cast(@day as int)<=0
|
|
|
begin
|
|
|
set @flag = 0
|
|
|
return
|
|
|
end
|
|
|
|
|
|
set @flag=1
|
|
|
|
|
|
return 0
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_min_fljf_total') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_min_fljf_total
|
|
|
go
|
|
|
create procedure p_vip_min_fljf_total
|
|
|
@vipcode varchar(20),
|
|
|
@orgcode varchar(10),
|
|
|
@vipfltotal numeric(19,4),
|
|
|
@vipminfljftotal numeric(19,4) output,
|
|
|
@smessage varchar(100) output
|
|
|
with encryption
|
|
|
as
|
|
|
begin
|
|
|
declare @vipname varchar(30)
|
|
|
declare @xfjftotal numeric(19,4)
|
|
|
declare @rtnmsg varchar(100)
|
|
|
declare @rtnvalue int;
|
|
|
|
|
|
set @vipminfljftotal = null
|
|
|
|
|
|
exec @rtnvalue = p_vip_get_xfjf_total @vipcode,@orgcode,@vipname output ,@xfjftotal output,@rtnmsg output
|
|
|
if @rtnvalue <> 0
|
|
|
begin
|
|
|
set @vipminfljftotal = -1
|
|
|
select @smessage='无法查询扣除积分额度'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
select top 1 @vipminfljftotal = sjjf from
|
|
|
(select *,
|
|
|
case when flmode = '0' then mintotal * flrate/100
|
|
|
when flmode = '1' then fltotal * mintotal / flstep end as minfltotal,
|
|
|
case when flmode = '0' then maxtotal * flrate/100
|
|
|
when flmode = '1' then fltotal * maxtotal / flstep end as maxfltotal,
|
|
|
case when flmode = '0' then @vipfltotal*100/flrate
|
|
|
when flmode = '1' then @vipfltotal*flstep/fltotal end as sjjf
|
|
|
from t_viprtn_project
|
|
|
where flmode <> '2' and mintotal < @xfjftotal and maxtotal >= @xfjftotal) t
|
|
|
order by sjjf
|
|
|
|
|
|
if @vipminfljftotal is null
|
|
|
begin
|
|
|
set @vipminfljftotal = -1
|
|
|
select @smessage='无法查询扣除积分额度'
|
|
|
return (-1)
|
|
|
end
|
|
|
else
|
|
|
set @vipminfljftotal = floor(@vipminfljftotal)
|
|
|
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_max_fl_total') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_max_fl_total
|
|
|
go
|
|
|
create procedure p_vip_max_fl_total
|
|
|
@vipcode varchar(20),
|
|
|
@vipfljftotal numeric(19,4),
|
|
|
@vipmaxfltotal numeric(19,4) output,
|
|
|
@smessage varchar(100) output
|
|
|
with encryption
|
|
|
as
|
|
|
begin
|
|
|
set @vipmaxfltotal = null
|
|
|
|
|
|
select top 1 @vipmaxfltotal = maxfltotal from
|
|
|
(select *,
|
|
|
case when flmode = '0' then floor(@vipfljftotal * flrate)/100
|
|
|
when flmode = '1' then fltotal * floor(@vipfljftotal / flstep) end as maxfltotal
|
|
|
from t_viprtn_project
|
|
|
where flmode <> '2' and mintotal < @vipfljftotal and maxtotal >= @vipfljftotal) t
|
|
|
order by maxfltotal desc
|
|
|
|
|
|
if @vipmaxfltotal is null
|
|
|
begin
|
|
|
set @vipmaxfltotal = -1
|
|
|
select @smessage='积分不在返利方案范围区间，无法查询最大返利额度'
|
|
|
return (-1)
|
|
|
end
|
|
|
else
|
|
|
set @vipmaxfltotal = floor(@vipmaxfltotal*100)/100
|
|
|
|
|
|
return (0)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select name from sysobjects where name='p_vip_day_over_plugin' and xtype='p')
|
|
|
drop procedure p_vip_day_over_plugin
|
|
|
go
|
|
|
create procedure p_vip_day_over_plugin @accdate varchar(10), @usercode varchar(10), @sysdbname varchar(20), @message varchar(200) out
|
|
|
as
|
|
|
declare @psmsg varchar(200)
|
|
|
begin
|
|
|
set @message = ''
|
|
|
return (1)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_get_ecw_total') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_get_ecw_total
|
|
|
go
|
|
|
create procedure p_vip_get_ecw_total
|
|
|
@vipcode varchar(20),
|
|
|
@orgcode varchar(10),
|
|
|
@vipname varchar(20) output,
|
|
|
@total numeric(19,4) output,
|
|
|
@verifymark varchar(13) output,
|
|
|
@smessage varchar(100) output
|
|
|
with encryption
|
|
|
as
|
|
|
declare @canuse varchar(1)
|
|
|
declare @locktotal numeric(19,4)
|
|
|
declare @lockmark varchar(13)
|
|
|
declare @validdate varchar(10)
|
|
|
declare @currdate varchar(10)
|
|
|
declare @viptype varchar(4)
|
|
|
begin
|
|
|
select @canuse=canuse,@total=ecwovertotal,@verifymark=isnull(ecwverifymark,''),
|
|
|
@locktotal=isnull(ecwlocktotal,0),@lockmark=isnull(ecwlockmark,''),@validdate=validdate
|
|
|
from t_vip_pos
|
|
|
where vipcode=@vipcode
|
|
|
|
|
|
select @vipname=isnull(vipname,''),@viptype=viptype
|
|
|
from t_vip
|
|
|
where vipcode=@vipcode and isnull(sxdate,'') <> ''
|
|
|
and exists(select * from t_viptype_org where viptype=t_vip.viptype and (orgcode='*' or orgcode=@orgcode))
|
|
|
|
|
|
if @@rowcount=0
|
|
|
begin
|
|
|
select @smessage='卡号不存在或不允许在该机构使用或还没有发售'
|
|
|
return (-1)
|
|
|
end
|
|
|
else if @canuse='0'
|
|
|
begin
|
|
|
select @smessage='卡禁用'
|
|
|
return (-1)
|
|
|
end
|
|
|
if (@locktotal<>0) or ((@lockmark is not null) and (@lockmark<>''))
|
|
|
begin
|
|
|
select @smessage='零钱包账户已被锁定'
|
|
|
return (-1)
|
|
|
end
|
|
|
if @validdate<>'' and @validdate<>' - - ' and @validdate is not null
|
|
|
begin
|
|
|
set @currdate=convert(varchar(10),getdate(),120)
|
|
|
if @validdate<@currdate
|
|
|
begin
|
|
|
select @smessage='有效期为'+@validdate+'，卡已过期'
|
|
|
return(-1)
|
|
|
end
|
|
|
end
|
|
|
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
select @smessage='查询异常'
|
|
|
return (-1)
|
|
|
end
|
|
|
else
|
|
|
return (1)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_ecw_store') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_ecw_store
|
|
|
go
|
|
|
create procedure p_vip_ecw_store
|
|
|
@msgserialno varchar(12),
|
|
|
@shopcode varchar(13),
|
|
|
@posno varchar(6) ,
|
|
|
@serialno varchar(8) ,
|
|
|
@trantype varchar(1),
|
|
|
@vipcode varchar(20),
|
|
|
@total numeric(19,4),
|
|
|
@vipdate varchar(10),
|
|
|
@viptime varchar(8),
|
|
|
@recdate varchar(10),
|
|
|
@rectime varchar(8),
|
|
|
@verifymark varchar(13),
|
|
|
@ecwtotal numeric(19,4) output
|
|
|
with encryption
|
|
|
as
|
|
|
begin
|
|
|
insert into t_viptrade(msgserialno,orgcode,posno,serialno,
|
|
|
vipcode,trantype,total,vipdate,viptime,recdate,rectime,lockflag,datatype)
|
|
|
values (@msgserialno,@shopcode,@posno,@serialno,
|
|
|
@vipcode,@trantype,@total,@vipdate,@viptime,@recdate,@rectime,'0','2')
|
|
|
|
|
|
update t_vip_pos
|
|
|
set ecwovertotal=ecwovertotal+@total,
|
|
|
ecwverifymark=@verifymark
|
|
|
where vipcode= @vipcode
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
return (-1)
|
|
|
end
|
|
|
select @ecwtotal = ecwovertotal from t_vip_pos where vipcode = @vipcode
|
|
|
return (1)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_ecw_sale_lock') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_ecw_sale_lock
|
|
|
go
|
|
|
create procedure p_vip_ecw_sale_lock
|
|
|
@msgserialno varchar(12),
|
|
|
@shopcode varchar(13),
|
|
|
@posno varchar(6) ,
|
|
|
@serialno varchar(8) ,
|
|
|
@trantype varchar(1),
|
|
|
@vipcode varchar(20),
|
|
|
@total numeric(19,4),
|
|
|
@vipdate varchar(10),
|
|
|
@viptime varchar(8),
|
|
|
@recdate varchar(10),
|
|
|
@rectime varchar(8),
|
|
|
@verifymark varchar(13)
|
|
|
with encryption
|
|
|
as
|
|
|
begin
|
|
|
insert into t_viptrade(msgserialno,orgcode,posno,serialno,
|
|
|
vipcode,trantype,total,vipdate,viptime,recdate,rectime,lockflag,datatype)
|
|
|
values (@msgserialno,@shopcode,@posno,@serialno,
|
|
|
@vipcode,@trantype,@total,@vipdate,@viptime,@recdate,@rectime,'1','1')
|
|
|
|
|
|
update t_vip_pos
|
|
|
set ecwlocktotal=@total,
|
|
|
ecwlockmark=@verifymark,
|
|
|
ecwmsgserialno=@msgserialno
|
|
|
where vipcode= @vipcode
|
|
|
if @@error<>0
|
|
|
return (-1)
|
|
|
else
|
|
|
return (1)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_open_ecw_msg_lock') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_open_ecw_msg_lock
|
|
|
go
|
|
|
create procedure p_vip_open_ecw_msg_lock
|
|
|
@vipcoden varchar(1200),
|
|
|
@msgserialno varchar(12),
|
|
|
@type varchar(1)
|
|
|
with encryption
|
|
|
as
|
|
|
begin
|
|
|
if @type='2'
|
|
|
exec('update t_viptrade set lockflag=''2''
|
|
|
where vipcode in '+@vipcoden+' and msgserialno='''+@msgserialno+''' and datatype=''1''' )
|
|
|
|
|
|
exec('update a set ecwovertotal=ecwovertotal-ecwlocktotal,ecwverifymark=ecwlockmark,ecwlocktotal=0,ecwlockmark='''',ecwmsgserialno=''''
|
|
|
from t_vip_pos a where vipcode in '+@vipcoden+' and ecwmsgserialno='''+@msgserialno+''' ' )
|
|
|
|
|
|
if @@error<>0
|
|
|
return (-1)
|
|
|
else
|
|
|
return (1)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_del_ecw_msg_lock') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_del_ecw_msg_lock
|
|
|
go
|
|
|
create procedure p_vip_del_ecw_msg_lock
|
|
|
@vipcoden varchar(1200),
|
|
|
@msgserialno varchar(12),
|
|
|
@type varchar(1)
|
|
|
with encryption
|
|
|
as
|
|
|
declare @srecdate varchar(10)
|
|
|
declare @viptradeyyyy varchar(20)
|
|
|
declare @sql varchar(2000)
|
|
|
begin
|
|
|
if @srecdate is null
|
|
|
set @srecdate=convert(varchar(10),getdate(),120)
|
|
|
select @viptradeyyyy='t_viptrade_'+substring(@srecdate,1,4)
|
|
|
|
|
|
exec ('if not exists (select name from dbo.sysobjects where name='''+ @viptradeyyyy+''' and xtype=''u'' )
|
|
|
create table '+ @viptradeyyyy+'(
|
|
|
msgserialno varchar (12) not null ,
|
|
|
orgcode varchar (10) not null ,
|
|
|
posno varchar (6) not null ,
|
|
|
serialno varchar (8) not null ,
|
|
|
trantype varchar (1) not null ,
|
|
|
vipcode varchar (20) not null ,
|
|
|
total numeric (19,4) not null ,
|
|
|
vipdate varchar (10) not null ,
|
|
|
viptime varchar (8) not null ,
|
|
|
recdate varchar (10) not null ,
|
|
|
rectime varchar (8) not null ,
|
|
|
lockflag varchar (1) not null,
|
|
|
datatype varchar (1) not null)')
|
|
|
exec('insert into ' + @viptradeyyyy+'(msgserialno,orgcode,posno,serialno,vipcode,trantype,total,vipdate,viptime,recdate,rectime,lockflag,datatype)
|
|
|
select msgserialno,orgcode,posno,serialno,vipcode,trantype,total,vipdate,viptime,recdate,rectime,lockflag='''+@type+''',datatype
|
|
|
from t_viptrade where vipcode in '+@vipcoden+' and msgserialno='''+@msgserialno+''' and datatype=''1''')
|
|
|
|
|
|
exec('delete from t_viptrade where vipcode in '+@vipcoden+' and msgserialno='''+@msgserialno+''' and datatype=''1''')
|
|
|
|
|
|
exec('update a set ecwlocktotal=0,ecwlockmark='''',ecwmsgserialno=''''
|
|
|
from t_vip_pos a where vipcode in '+@vipcoden+' and ecwmsgserialno='''+@msgserialno+'''')
|
|
|
|
|
|
if @@error<>0
|
|
|
return (-1)
|
|
|
else
|
|
|
return (1)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_update_grade') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_update_grade
|
|
|
go
|
|
|
create procedure p_vip_update_grade
|
|
|
@sysdbname varchar(20),
|
|
|
@accdate varchar(10),
|
|
|
@message varchar(200) out
|
|
|
with encryption
|
|
|
as
|
|
|
declare @lxcode varchar(4), @uptolxcode varchar(4), @sumtendtotalx numeric(19,4), @sumxfjftotalx numeric(19,4),
|
|
|
@daytenddaysn int, @daytendtotalx numeric(19,4), @dayxfjfdaysn int, @dayxfjftotalx numeric(19,4),
|
|
|
@viprpttbl varchar(20), @nowdate varchar(10), @bgndate varchar(10), @vipbktbl varchar(20),
|
|
|
@shopname varchar(50), @sql varchar(2000), @nsql nvarchar(2000), @smsgeg varchar(500), @smsg varchar(500),
|
|
|
@destphoneno varchar(20), @vipcode varchar(20), @vipname varchar(20), @vipsex varchar(10), @oldlxname varchar(20), @newlxname varchar(20)
|
|
|
begin
|
|
|
select @nowdate = convert(varchar(10),getdate(),120), @vipbktbl = 't_vipbk_' + substring(@accdate,1,4) + substring(@accdate,6,2)
|
|
|
set @nsql ='select @shopname = itemvalue from ' + @sysdbname + '..t_syscfg where section=''SYSTEM'' and itemname=''ShopName'''
|
|
|
exec sp_executesql @nsql, N'@shopname varchar(200) output', @shopname out
|
|
|
set @nsql ='select @smsgeg = itemvalue from ' + @sysdbname + '..t_syscfg where section=''SMSG'' and itemname=''VipUpdate'''
|
|
|
exec sp_executesql @nsql, N'@smsgeg varchar(200) output', @smsgeg out
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpvipupdate' and xtype='u')
|
|
|
drop table ##tmpvipupdate
|
|
|
create table ##tmpvipupdate
|
|
|
(vipcode varchar(20) not null,oldlxcode varchar(4) not null,newlxcode varchar(4) not null,condition varchar(10) null,remark varchar(200))
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpviptotal' and xtype='u')
|
|
|
drop table ##tmpviptotal
|
|
|
create table ##tmpviptotal (vipcode varchar(20) not null,viptotal numeric(19,4))
|
|
|
|
|
|
|
|
|
if exists(select 1 from t_viptype where isnull(uptolxcode,'')<>'' and sumtendtotalx>0)
|
|
|
begin
|
|
|
insert into ##tmpvipupdate(vipcode,oldlxcode,newlxcode,condition,remark)
|
|
|
select v.vipcode,v.viptype,t.uptolxcode,'a' as condition,
|
|
|
'累计消费金额' + cast(cast(v.sumtendtotal as money) as varchar) + '达到' + cast(cast(t.sumtendtotalx as money) as varchar) + ',' + t.lxcode + '升' + t.uptolxcode as remark
|
|
|
from t_vip v,t_viptype t
|
|
|
where v.viptype=t.lxcode and isnull(uptolxcode,'')<>'' and sumtendtotalx>0
|
|
|
and v.sumtendtotal>=t.sumtendtotalx
|
|
|
if @@error <> 0
|
|
|
begin
|
|
|
set @message = '处理升级条件a失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
end
|
|
|
|
|
|
if exists(select 1 from t_viptype where isnull(uptolxcode,'')<>'' and sumxfjftotalx>0)
|
|
|
begin
|
|
|
insert into ##tmpvipupdate(vipcode,oldlxcode,newlxcode,condition,remark)
|
|
|
select v.vipcode,v.viptype,t.uptolxcode,'b' as condition,
|
|
|
'累计消费积分' + cast(cast(v.sumxfjftotal as money) as varchar) + '达到' + cast(cast(t.sumxfjftotalx as money) as varchar) + ',' + t.lxcode + '升' + t.uptolxcode as remark
|
|
|
from t_vip v,t_viptype t
|
|
|
where v.viptype=t.lxcode and isnull(uptolxcode,'')<>'' and sumxfjftotalx>0
|
|
|
and v.sumxfjftotal>=t.sumxfjftotalx
|
|
|
if @@error <> 0
|
|
|
begin
|
|
|
set @message = '处理升级条件b失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
end
|
|
|
|
|
|
if exists(select 1 from t_viptype where isnull(uptolxcode,'')<>'' and daytenddaysn>0 and daytendtotalx>0)
|
|
|
begin
|
|
|
delete from ##tmpviptotal
|
|
|
declare cur_viptype cursor for
|
|
|
select lxcode,uptolxcode,daytenddaysn,daytendtotalx from t_viptype where isnull(uptolxcode,'')<>'' and daytenddaysn>0 and daytendtotalx>0 order by lxlevel
|
|
|
open cur_viptype
|
|
|
fetch next from cur_viptype into @lxcode, @uptolxcode, @daytenddaysn, @daytendtotalx
|
|
|
while @@fetch_status = 0
|
|
|
begin
|
|
|
set @bgndate = convert(varchar(10),dateadd(day, -1*@daytenddaysn, getdate()),120)
|
|
|
declare cur_viprpt cursor for
|
|
|
select name from sysobjects where name like 't_viprpt_[0-9][0-9][0-9][0-9][0-9][0-9]'
|
|
|
and name>='t_viprpt_' + substring(@bgndate,1,4) + substring(@bgndate,6,2)
|
|
|
and name<='t_viprpt_' + substring(@accdate,1,4) + substring(@accdate,6,2)
|
|
|
open cur_viprpt
|
|
|
fetch next from cur_viprpt into @viprpttbl
|
|
|
while @@fetch_status = 0
|
|
|
begin
|
|
|
if exists(select name from sysobjects where name=@viprpttbl and xtype='u')
|
|
|
begin
|
|
|
set @sql = 'insert into ##tmpviptotal (vipcode,viptotal)
|
|
|
select t.vipcode,sum(t.tendtotal) viptotal from ' + @viprpttbl + ' t,t_vip v
|
|
|
where t.orgcode=''*'' and t.vipcode=v.vipcode and v.viptype=''' + @lxcode + '''
|
|
|
and ( isnull(v.lastupdate,'''')<>'''' and v.lastupdate>=''' + @bgndate + ''' and t.accdate>v.lastupdate or
|
|
|
isnull(v.lastupdate,'''')<''' + @bgndate + ''' and t.accdate>''' + @bgndate + ''')
|
|
|
group by t.vipcode '
|
|
|
exec(@sql)
|
|
|
if @@error <> 0
|
|
|
begin
|
|
|
set @message = '处理升级条件c失败-汇总会员消费数据'
|
|
|
return (-1)
|
|
|
end
|
|
|
end
|
|
|
fetch next from cur_viprpt into @viprpttbl
|
|
|
end
|
|
|
close cur_viprpt
|
|
|
deallocate cur_viprpt
|
|
|
|
|
|
insert into ##tmpvipupdate(vipcode,oldlxcode,newlxcode,condition,remark)
|
|
|
select v.vipcode,@lxcode as viptype,@uptolxcode as uptolxcode,'c' as condition,
|
|
|
'最近' + cast(@daytenddaysn as varchar) + '天内消费金额' + cast(cast(x.viptotal as money) as varchar) + '达到' + cast(cast(@daytendtotalx as money) as varchar) + ',' + @lxcode + '升' + @uptolxcode as remark
|
|
|
from (select vipcode,sum(viptotal) viptotal from ##tmpviptotal group by vipcode) x, t_vip v
|
|
|
where x.vipcode=v.vipcode and v.viptype=@lxcode and x.viptotal>=@daytendtotalx
|
|
|
if @@error <> 0
|
|
|
begin
|
|
|
set @message = '处理升级条件c失败-插入临时表数据'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
fetch next from cur_viptype into @lxcode, @uptolxcode, @daytenddaysn, @daytendtotalx
|
|
|
end
|
|
|
close cur_viptype
|
|
|
deallocate cur_viptype
|
|
|
end
|
|
|
|
|
|
if exists(select 1 from t_viptype where isnull(uptolxcode,'')<>'' and dayxfjfdaysn>0 and dayxfjftotalx>0)
|
|
|
begin
|
|
|
delete from ##tmpviptotal
|
|
|
declare cur_viptype cursor for
|
|
|
select lxcode,uptolxcode,dayxfjfdaysn,dayxfjftotalx from t_viptype where isnull(uptolxcode,'')<>'' and dayxfjfdaysn>0 and dayxfjftotalx>0 order by lxlevel
|
|
|
open cur_viptype
|
|
|
fetch next from cur_viptype into @lxcode, @uptolxcode, @dayxfjfdaysn, @dayxfjftotalx
|
|
|
while @@fetch_status = 0
|
|
|
begin
|
|
|
set @bgndate = convert(varchar(10),dateadd(day, -1*@dayxfjfdaysn, getdate()),120)
|
|
|
declare cur_viprpt cursor for
|
|
|
select name from sysobjects where name like 't_viprpt_[0-9][0-9][0-9][0-9][0-9][0-9]'
|
|
|
and name>='t_viprpt_' + substring(@bgndate,1,4) + substring(@bgndate,6,2)
|
|
|
and name<='t_viprpt_' + substring(@accdate,1,4) + substring(@accdate,6,2)
|
|
|
open cur_viprpt
|
|
|
fetch next from cur_viprpt into @viprpttbl
|
|
|
while @@fetch_status = 0
|
|
|
begin
|
|
|
if exists(select name from sysobjects where name=@viprpttbl and xtype='u')
|
|
|
begin
|
|
|
set @sql = 'insert into ##tmpviptotal (vipcode,viptotal)
|
|
|
select t.vipcode,sum(t.xfjftotal) viptotal from ' + @viprpttbl + ' t,t_vip v
|
|
|
where t.orgcode=''*'' and t.vipcode=v.vipcode and v.viptype=''' + @lxcode + '''
|
|
|
and ( isnull(v.lastupdate,'''')<>'''' and v.lastupdate>=''' + @bgndate + ''' and t.accdate>v.lastupdate or
|
|
|
isnull(v.lastupdate,'''')<''' + @bgndate + ''' and t.accdate>''' + @bgndate + ''')
|
|
|
group by t.vipcode '
|
|
|
exec(@sql)
|
|
|
if @@error <> 0
|
|
|
begin
|
|
|
set @message = '处理升级条件d失败-汇总会员积分数据'
|
|
|
return (-1)
|
|
|
end
|
|
|
end
|
|
|
fetch next from cur_viprpt into @viprpttbl
|
|
|
end
|
|
|
close cur_viprpt
|
|
|
deallocate cur_viprpt
|
|
|
|
|
|
insert into ##tmpvipupdate(vipcode,oldlxcode,newlxcode,condition,remark)
|
|
|
select v.vipcode,@lxcode as viptype,@uptolxcode as uptolxcode,'d' as condition,
|
|
|
'最近' + cast(@dayxfjfdaysn as varchar) + '天内消费积分' + cast(cast(x.viptotal as money) as varchar) + '达到' + cast(cast(@dayxfjftotalx as money) as varchar) + ',' + @lxcode + '升' + @uptolxcode as remark
|
|
|
from (select vipcode,sum(viptotal) viptotal from ##tmpviptotal group by vipcode) x, t_vip v
|
|
|
where x.vipcode=v.vipcode and v.viptype=@lxcode and x.viptotal>=@dayxfjftotalx
|
|
|
if @@error <> 0
|
|
|
begin
|
|
|
set @message = '处理升级条件d失败-插入临时表数据'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
fetch next from cur_viptype into @lxcode, @uptolxcode, @dayxfjfdaysn, @dayxfjftotalx
|
|
|
end
|
|
|
close cur_viptype
|
|
|
deallocate cur_viptype
|
|
|
end
|
|
|
|
|
|
update v set viptype=t.newlxcode, lastupdate=@accdate, v.canstore = p.canstore
|
|
|
from t_vip v, (select distinct vipcode,oldlxcode,newlxcode from ##tmpvipupdate) t,t_viptype p
|
|
|
where v.vipcode=t.vipcode and v.viptype=t.oldlxcode and p.lxcode = t.newlxcode
|
|
|
|
|
|
update v set viptype=t.newlxcode, v.canstore = p.canstore
|
|
|
from t_vip_pos v, (select distinct vipcode,oldlxcode,newlxcode from ##tmpvipupdate) t,t_viptype p
|
|
|
where v.vipcode=t.vipcode and v.viptype=t.oldlxcode and p.lxcode = t.newlxcode
|
|
|
|
|
|
set @sql = 'insert into ' + @vipbktbl + '(bookdate, booktime, bizdate, vipcode, billno, memotxt)
|
|
|
select convert(varchar(10),getdate(),120) as bookdate, convert(varchar(8),getdate(),108) as booktime,
|
|
|
''' + @accdate + ''' as bizdate, vipcode, ''满足升级条件'' + condition as billno, remark as memotxt
|
|
|
from ##tmpvipupdate t '
|
|
|
exec (@sql)
|
|
|
if @@error <> 0
|
|
|
begin
|
|
|
set @message = '生成会员台账失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
if @smsgeg = ''
|
|
|
begin
|
|
|
set @sql = 'insert into ' + @sysdbname + '..tmsgsend (destphoneno,msgcontent,createtime,remark)
|
|
|
select case when isnull(v.mobile1,'''')<>'''' then v.mobile1 else v.mobile2 end as destphoneno,
|
|
|
''尊敬的{'' + v.vipname + ''}{'' + case v.vipsex when ''0'' then ''先生'' when ''1'' then ''女士'' else ''先生/女士'' end + ''}，您近期的消费已符合会员升级标准，会员等级已从{'' + t.oldlxname + ''}升级为{'' + t.newlxname + ''}，欢迎您再次光临。{' + @shopname + '} '' as msgcontent,
|
|
|
getdate() as createtime,''日结会员升级生成1'' as remark
|
|
|
from t_vip v,
|
|
|
(select distinct x.vipcode,x.oldlxcode,x.newlxcode,a.lxname as oldlxname,b.lxname as newlxname
|
|
|
from ##tmpvipupdate x left join t_viptype a on x.oldlxcode=a.lxcode
|
|
|
left join t_viptype b on x.newlxcode=b.lxcode) t
|
|
|
where v.vipcode=t.vipcode and (isnull(v.mobile1,'''')<>'''' or isnull(v.mobile2,'''')<>'''') '
|
|
|
exec (@sql)
|
|
|
if @@error <> 0
|
|
|
begin
|
|
|
set @message = '生成会员短信任务失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
declare cur_vip cursor for
|
|
|
select case when isnull(v.mobile1,'')<>'' then v.mobile1 else v.mobile2 end as destphoneno,
|
|
|
v.vipcode, v.vipname, case v.vipsex when '0' then '先生' when '1' then '女士' else '先生/女士' end as vipsex, t.oldlxname, t.newlxname
|
|
|
from t_vip v,
|
|
|
(select distinct x.vipcode,x.oldlxcode,x.newlxcode,a.lxname as oldlxname,b.lxname as newlxname
|
|
|
from ##tmpvipupdate x left join t_viptype a on x.oldlxcode=a.lxcode
|
|
|
left join t_viptype b on x.newlxcode=b.lxcode) t
|
|
|
where v.vipcode=t.vipcode and (isnull(v.mobile1,'')<>'' or isnull(v.mobile2,'')<>'')
|
|
|
open cur_vip
|
|
|
fetch next from cur_vip into @destphoneno, @vipcode, @vipname, @vipsex, @oldlxname, @newlxname
|
|
|
while @@fetch_status = 0
|
|
|
begin
|
|
|
set @smsg = @smsgeg
|
|
|
set @smsg = replace(@smsg,'%会员编码%',@vipcode)
|
|
|
set @smsg = replace(@smsg,'%会员姓名%',@vipname)
|
|
|
set @smsg = replace(@smsg,'%性别%',@vipsex)
|
|
|
set @smsg = replace(@smsg,'%原类型名称%',@oldlxname)
|
|
|
set @smsg = replace(@smsg,'%新类型名称%',@newlxname)
|
|
|
set @smsg = replace(@smsg,'%店名%',@shopname)
|
|
|
set @sql = 'insert into ' + @sysdbname + '..tmsgsend (destphoneno,msgcontent,createtime,remark)
|
|
|
select ''' + @destphoneno + ''' as destphoneno,''' + @smsg + ''' as msgcontent,
|
|
|
getdate() as createtime,''日结会员升级生成2'' as remark '
|
|
|
exec(@sql)
|
|
|
if @@error <> 0
|
|
|
begin
|
|
|
set @message = '生成会员模板短信任务失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
fetch next from cur_vip into @destphoneno, @vipcode, @vipname, @vipsex, @oldlxname, @newlxname
|
|
|
end
|
|
|
close cur_vip
|
|
|
deallocate cur_vip
|
|
|
end
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpvipupdate' and xtype='u')
|
|
|
drop table ##tmpvipupdate
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpviptotal' and xtype='u')
|
|
|
drop table ##tmpviptotal
|
|
|
|
|
|
set @message = ''
|
|
|
return (1)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_store') and objectproperty(id, N'isprocedure') = 1)
|
|
|
drop procedure p_vip_store
|
|
|
go
|
|
|
create procedure p_vip_store
|
|
|
@sysdbname varchar(20),
|
|
|
@vipcode varchar(20),
|
|
|
@billno varchar(20),
|
|
|
@bizdate varchar(10),
|
|
|
@ywusercode varchar(6),
|
|
|
@ywusername varchar(10),
|
|
|
@yworgcode varchar(10),
|
|
|
@iswriteic varchar(1),
|
|
|
@usercode varchar(6),
|
|
|
@username varchar(10),
|
|
|
@storetotal numeric(19,4),
|
|
|
@zstotal numeric(19,4),
|
|
|
@prjcode varchar(20),
|
|
|
@storetendcode varchar(1),
|
|
|
@message varchar(200) out
|
|
|
with encryption
|
|
|
as
|
|
|
declare @sql varchar(2000)
|
|
|
declare @ssql nvarchar(2000)
|
|
|
declare @cardtype varchar(1)
|
|
|
declare @verifymark varchar(13)
|
|
|
declare @overtotal numeric(19,4)
|
|
|
declare @overcztotal numeric(19,4)
|
|
|
declare @overzstotal numeric(19,4)
|
|
|
declare @locktotal numeric(19,4)
|
|
|
declare @mincktotal numeric(19,4)
|
|
|
declare @sumstoretotal numeric(19,4)
|
|
|
declare @sumpaytotal numeric(19,4)
|
|
|
declare @vipbk varchar(20)
|
|
|
declare @vipstorename varchar(20)
|
|
|
declare @vipvaliddate varchar(10)
|
|
|
declare @vipcanuse varchar(1)
|
|
|
declare @vipcanstore varchar(1)
|
|
|
begin
|
|
|
select @cardtype=a.cardtype,@verifymark=b.verifymark,
|
|
|
@sumstoretotal=a.sumstoretotal,@sumpaytotal=a.sumpaytotal,@overtotal=b.overtotal,
|
|
|
@locktotal=isnull(b.locktotal,0),@mincktotal=isnull(c.mincktotal,0),
|
|
|
@vipvaliddate=isnull(a.validdate,''),@vipcanuse=a.canuse,@vipcanstore=a.canstore,
|
|
|
@overcztotal = b.overcztotal, @overzstotal = b.overzstotal
|
|
|
from t_vip a left join t_vip_pos b on a.vipcode=b.vipcode left join t_viptype c on a.viptype=c.lxcode
|
|
|
where a.vipcode=@vipcode
|
|
|
if @vipvaliddate=''
|
|
|
begin
|
|
|
set @message='此会员编码尚未注册'
|
|
|
return (-1)
|
|
|
end
|
|
|
if (@vipvaliddate<>' - - ') and (datediff(day,@vipvaliddate,convert(varchar(10),getdate(),120))>0)
|
|
|
begin
|
|
|
set @message='此会员编码已过期'
|
|
|
return (-1)
|
|
|
end
|
|
|
if @vipcanuse<>'1'
|
|
|
begin
|
|
|
set @message='此会员编码已禁用'
|
|
|
return (-1)
|
|
|
end
|
|
|
if @vipcanstore<>'1'
|
|
|
begin
|
|
|
set @message='此会员编码不能充值'
|
|
|
return (-1)
|
|
|
end
|
|
|
if @locktotal<>0
|
|
|
begin
|
|
|
set @message='此会员卡已被锁定，不能进行充值操作'
|
|
|
return (-1)
|
|
|
end
|
|
|
if @mincktotal>@sumstoretotal-@sumpaytotal+@storetotal
|
|
|
begin
|
|
|
set @message='此会员卡充值后金额低于最低充值金额，不能进行充值操作'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
if @cardtype='0' or @cardtype='2'
|
|
|
begin
|
|
|
if @verifymark<>dbo.p_vip_remark(@vipcode,@overtotal)
|
|
|
begin
|
|
|
set @message='会员"' + @vipcode + '"的结余金额校验位出错，请查看'
|
|
|
return (-1)
|
|
|
end
|
|
|
end
|
|
|
|
|
|
set @vipstorename='t_vipstore_'+left(convert(char(10),getdate(),120),4)
|
|
|
exec('if not exists(select * from sysobjects where xtype=''u'' and name='''+@vipstorename+''')
|
|
|
create table '+@vipstorename+'(
|
|
|
billno varchar(20) not null,
|
|
|
vipcode varchar(20) not null,
|
|
|
bizdate varchar(10) null,
|
|
|
rzdate varchar(10) null,
|
|
|
rztime varchar(8) null,
|
|
|
zdrcode varchar(6) null,
|
|
|
zdrname varchar(10) null,
|
|
|
storetotal numeric(19,4) null,
|
|
|
ywusercode varchar(6) null,
|
|
|
ywusername varchar(10) null,
|
|
|
yworgcode varchar(10) null,
|
|
|
tendcode varchar(4) null,
|
|
|
sstotal numeric(19,4) not null default(0),
|
|
|
zstotal numeric(19,4) not null default(0),
|
|
|
prjcode varchar(20) null,
|
|
|
constraint pk_' + @vipstorename + ' primary key(billno,vipcode))')
|
|
|
|
|
|
set @vipbk='t_vipbk_'+left(convert(char(10),getdate(),112),6)
|
|
|
exec('if not exists(select * from sysobjects where xtype=''u'' and name='''+@vipbk+''')
|
|
|
create table '+@vipbk+'(
|
|
|
bookdate varchar(10) not null,
|
|
|
booktime varchar(8) not null,
|
|
|
bizdate varchar(10) not null,
|
|
|
vipcode varchar(20) not null,
|
|
|
billno varchar(20) null,
|
|
|
memotxt varchar(50) null,
|
|
|
username varchar(10) null,
|
|
|
ywname varchar(10) null,
|
|
|
tendtotal numeric(19,4) null,
|
|
|
ctotal numeric(19,4) null,
|
|
|
sumtendtotal numeric(19,4) null,
|
|
|
overtotal numeric(19,4) null,
|
|
|
tag varchar(1) null)')
|
|
|
|
|
|
if @billno=''
|
|
|
begin
|
|
|
set @ssql='exec '+@sysdbname+'.dbo.f_get_billno ''cc'','''+@yworgcode+''',''1'',@billno output'
|
|
|
exec sp_executesql @ssql,N'@billno varchar(20) output',@billno out
|
|
|
if @billno is null
|
|
|
begin
|
|
|
set @message = '生成会员充值单据号失败'
|
|
|
return(-1)
|
|
|
end
|
|
|
end
|
|
|
|
|
|
set @sql='insert into '+@vipstorename+'(billno,vipcode,bizdate,rzdate,rztime,zdrcode,zdrname,storetotal,ywusercode,ywusername,yworgcode,tendcode,sstotal,zstotal,prjcode)
|
|
|
values('''+@billno+''','''+@vipcode+''',convert(varchar(10),getdate(),120),'''+@bizdate+''',convert(varchar(8),getdate(),108),
|
|
|
'''+@usercode+''','''+@username+''','+cast(@storetotal as varchar)+','''+@ywusercode+''','''+@ywusername+''','''+@yworgcode+''','''+@storetendcode+''',
|
|
|
'+ cast((@storetotal-@zstotal) as varchar)+','+cast(@zstotal as varchar)+','''+ @prjcode +''')'
|
|
|
exec(@sql)
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
set @message='保存充值单失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
if exists(select * from t_vip_currpt where vipcode=@vipcode)
|
|
|
update t_vip_currpt set storetotal=storetotal+@storetotal where vipcode=@vipcode
|
|
|
else
|
|
|
insert into t_vip_currpt(vipcode,storetotal,picktotal,fltotal,fljftotal) values (@vipcode,@storetotal,0,0,0)
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
set @message='处理会员当前报表失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
set @sql='insert into '+@vipbk+'
|
|
|
(bookdate,booktime,bizdate,vipcode,billno,memotxt,username,ywname,tendtotal,ctotal,sumtendtotal,overtotal)
|
|
|
select convert(varchar(10),getdate(),120),convert(varchar(10),getdate(),108),bizdate,vipcode,billno,
|
|
|
''充值'',zdrname,zdrname,0.00,storetotal,isnull((select sumtendtotal from t_vip where vipcode=h.vipcode),0.00),
|
|
|
isnull((select sumstoretotal-sumpaytotal from t_vip where vipcode=h.vipcode),0.00)+storetotal
|
|
|
from '+@vipstorename+' h where billno='''+@billno+''' and vipcode='''+@vipcode+''''
|
|
|
exec(@sql)
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
set @message='记录会员台账失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
update t_vip set sumstoretotal=sumstoretotal+@storetotal where vipcode=@vipcode
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
set @message='处理t_vip表失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
update t_vip_pos set overtotal=overtotal+@storetotal,verifymark=dbo.p_vip_remark(@vipcode,overtotal+@storetotal),
|
|
|
overcztotal=overcztotal+@storetotal-@zstotal,overzstotal=overzstotal+@zstotal where vipcode=@vipcode
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
set @message='处理viptopos表失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
|
|
|
if @cardtype='1' and @iswriteic='0'
|
|
|
begin
|
|
|
set @sql='insert into t_vipstore(billno,vipcode,bizdate,billtype,rzdate,zdrname,storetotal,lockflag,remark)
|
|
|
select billno,vipcode,bizdate,''0'' as billtype,rzdate,zdrname,storetotal,''0'' as lockflag,'''' as remark
|
|
|
from '+@vipstorename+' where billno='''+@billno+''' and vipcode='''+@vipcode+''''
|
|
|
exec(@sql)
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
set @message='记录ic卡补登数据失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
end
|
|
|
|
|
|
if @cardtype='1' and @iswriteic='1'
|
|
|
begin
|
|
|
insert into t_viplog_icrw (bookdate,booktime,vipcode,memotxt,usercode,username,fstotal)
|
|
|
values (convert(varchar(10),getdate(),120),convert(varchar(10),getdate(),108),@vipcode,'充值',@usercode,@username,@storetotal)
|
|
|
if @@error<>0
|
|
|
begin
|
|
|
set @message='记录ic卡日志失败'
|
|
|
return (-1)
|
|
|
end
|
|
|
end
|
|
|
|
|
|
set @message = ''
|
|
|
return (1)
|
|
|
end
|
|
|
go |
