You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
99 lines
2.0 KiB
99 lines
2.0 KiB
IF object_id('dbo.PChangeMemberCardState','P') IS NOT NULL
|
|
BEGIN
|
|
DROP PROCEDURE dbo.PChangeMemberCardState
|
|
END
|
|
GO
|
|
|
|
|
|
CREATE PROCEDURE dbo.PChangeMemberCardState
|
|
(
|
|
@SessionId INT,
|
|
@MemId BIGINT,
|
|
@CardId BIGINT,
|
|
@State INT
|
|
)
|
|
AS
|
|
BEGIN
|
|
|
|
IF @MemId = 0
|
|
BEGIN
|
|
RAISERROR('会员ID不能为0',18,1)
|
|
RETURN -1
|
|
END
|
|
|
|
IF @CardId = 0
|
|
BEGIN
|
|
RAISERROR('卡ID不能为0',18,1)
|
|
RETURN -1
|
|
END
|
|
|
|
IF @State != 4
|
|
BEGIN
|
|
RAISERROR('只支持停用',18,1)
|
|
RETURN -1
|
|
END
|
|
|
|
DECLARE @MemNo VARCHAR(50)
|
|
DECLARE @CardNo VARCHAR(100)
|
|
|
|
SELECT @MemNo = FNo FROM TMember WITH(NOLOCK) WHERE FId = @MemId
|
|
IF @MemNo IS NULL
|
|
BEGIN
|
|
RAISERROR('会员ID不存在',18,1)
|
|
RETURN -1
|
|
END
|
|
|
|
|
|
IF @CardId = 6
|
|
BEGIN
|
|
SELECT @CardNo = '疗程卡';
|
|
END
|
|
ELSE IF @CardId = 1
|
|
BEGIN
|
|
SELECT @CardNo = '全部子卡';
|
|
END
|
|
ELSE
|
|
BEGIN
|
|
SELECT @CardNo = FNo FROM TMemberCard WHERE FId = @CardId
|
|
END
|
|
|
|
DECLARE @LogDesc VARCHAR(20)
|
|
DECLARE @LogFunc VARCHAR(20)
|
|
DECLARE @LogText VARCHAR(1024)
|
|
DECLARE @LogIndexes VARCHAR(200)
|
|
DECLARE @StateName VARCHAR(20)
|
|
|
|
IF @State = 4
|
|
BEGIN
|
|
SET @StateName = '已停用';
|
|
END
|
|
|
|
SELECT @LogFunc = 'WMember';
|
|
SELECT @LogDesc = '更改卡状态';
|
|
SELECT @LogText = '会员主卡:'+@MemNo + ',会员子卡:' + @CardNo + ',状态:' + @StateName;
|
|
SELECT @LogIndexes = 'MemNo=' + @MemNo;
|
|
|
|
IF @CardId = 6 OR @CardId = 1
|
|
BEGIN
|
|
print ''
|
|
--UPDATE TMemberCourse
|
|
END
|
|
IF @CardId != 6 OR @CardId = 1
|
|
BEGIN
|
|
UPDATE TMemberCard
|
|
SET FState = @State
|
|
WHERE FMemId = @MemId
|
|
END
|
|
|
|
|
|
EXEC PAddBizLogEx @SessionId=@SessionId,@Function=@LogFunc,@Operation='Modify',@Description=@LogDesc,
|
|
@ContentType='Text',@Content=@LogText,@Version=1,@Indexes=@LogIndexes
|
|
|
|
|
|
END
|
|
GO
|
|
|
|
|
|
UPDATE TMemberCard
|
|
SET FTypeId = (SELECT FId FROM TMemberCardType WHERE FNo = '类别编号')
|
|
WHERE FNo = '储值卡号' |