Agregar VIP Automático al crear cuentas Files Emu S6

[Dakosmu]

Agregar VIP Automático al crear cuentas Files Emu S6

Primero tienes que ejecutar este script para que funcione la expiracion de fechas en la base de datos.

Código [Seleccionar] Expandir

Use MuOnline

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER Procedure [dbo].[WZ_GetAccountLevel]
@Account varchar(10)
AS
BEGIN

SET NOCOUNT ON
SET XACT_ABORT ON

DECLARE @CurrentAccountLevel int
DECLARE @CurrentAccountExpireDate smalldatetime

SELECT @CurrentAccountLevel=AccountLevel,@CurrentAccountExpireDate=AccountExpireDate FROM MEMB_INFO WHERE memb___id=@Account

IF(@CurrentAccountLevel <> 0 AND getdate() > @CurrentAccountExpireDate)
BEGIN
    SET @CurrentAccountLevel = 0

    UPDATE MEMB_INFO SET AccountLevel=@CurrentAccountLevel,AccountExpireDate=@CurrentAccountExpireDate WHERE memb___id=@Account
END

SELECT @CurrentAccountLevel As AccountLevel,@CurrentAccountExpireDate As AccountExpireDate

SET NOCOUNT OFF
SET XACT_ABORT OFF

END
GO

SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO

Luego generas este, que es el script que hace automáticamente la cuenta VIP (Level 1,2,3) por por los dias que quieras en este caso 7 dias.

Código [Seleccionar] Expandir

USE MuOnline
IF EXISTS (SELECT name FROM sysobjects
WHERE name = 'AgregarVIP')
DROP TRIGGER AgregarVIP
GO

CREATE TRIGGER AgregarVIP ON dbo.memb_info AFTER INSERT
AS
BEGIN

DECLARE
@Char varchar(10)
SELECT @Char = memb___id FROM INSERTED

UPDATE MEMB_INFO SET
AccountLevel = 1,       "EL NIVEL DE VIP QUE QUIERES DAR AL CREAR LAS CUENTAS"
 AccountExpireDate = GETDATE() + 7   "7 ES LA CANTIDAD DE DÍAS VIP"
 WHERE memb___id = @Char
END

Para revertir los cambios para que ya no de VIP automáticamente al crear las cuentas solo ejecutas esta querry en el analizador de consultas.

Código [Seleccionar] Expandir

IF EXISTS (SELECT name FROM sysobjects
WHERE name = 'AgregarVIP')
DROP TRIGGER AgregarVIP
GO
Creditos:
Carlos