Биллинговая система РФ (Премиум + кеш шоп)+ фикс: Переписанная процедура на покупку вещи.
Дюп кеш вещей больше не работает.
Сначала ставим базу из архива потом фикс.
Код:
USE [BILLING]
GO
/****** Object: StoredProcedure [dbo].[RF_ChargeBalance] by TriRozhka Script Date: 02/19/2010 15:25:25 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[RF_ChargeBalance]
@s_userid varchar(12)
, @s_character varchar(50)
, @s_pscode varchar(20)
, @s_quantity int
, @s_server varchar (50)
, @s_scode bigint
, @s_price int
, @s_dcrate int
, @p9 int output
AS
set nocount on
DECLARE
@totalAmount int,
@cashBalance int
select @cashBalance=Cash from tbl_user where UserID=@s_userid
set @totalAmount=@s_price*@s_quantity
if @@error <> 0 or @s_quantity < 1 or @s_quantity >99 or @s_price < 1
begin
set @p9 = 0
return
end
else
if @s_dcrate < 100 and (@totalAmount*((100-@s_dcrate)/100)) <= @cashBalance
begin
set @p9 = 1
set @cashBalance=@cashbalance-(@totalAmount*((100-@s_dcrate)/100))
insert into tbl_cashlogrf (userid,character,pscode,quantity,server,scode,price,dcrate,status)
values (@s_userid,@s_character,@s_pscode,@s_quantity,@s_server,@s_scode,@s_price,@s_dcrate,@p9)
update tbl_user set Cash = @cashBalance where UserID = @s_userid
return
end
else
if (@cashbalance + @s_dcrate) >= @totalAmount
begin
set @p9 = 1
set @cashBalance=@cashbalance-@totalAmount+@s_dcrate
insert into tbl_cashlogrf (userid,character,pscode,quantity,server,scode,price,dcrate,status)
values (@s_userid,@s_character,@s_pscode,@s_quantity,@s_server,@s_scode,@s_price,@s_dcrate,@p9)
update tbl_user set Cash = @cashBalance where UserID = @s_userid
return
end
else
begin
set @p9 = 0
return
end
GO
Так же реализована система скидок. значение скидки идёт под переменной @s_dcrate.
У меня всё что меньше 100 считается как скидка по % всё что больше 100 считается как скидка в кредитах.
Напоминаю что скидка по монетам не должна превышать 10% от стоимости покупки. В противном случае сервер не даст реализовать покупку.
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
Скатано с rfdb.info
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
Я за пожертвование спасибок в фонд меня
Последний раз редактировалось edaks9; 08.05.2010 в 21:02.
да они там все сидят наверное вместе курят бамбук
и на остальное им
где-то вообще видел найду отдам
почитай в и-нете и сам напиши запросик
кста куда у нас с тобой делись 20 с лишним постов делись
Добавлено через 23 часа 35 минут
вот запрос на перенос аккаунтов в биллинг
перед запросом удалите все из персонал биллинга
Код:
insert into BILLING.dbo.tbl_personal_billing (id)
select id from RF_USER.dbo.tbl_rfaccount
update RF_User.dbo.tbl_rfaccount
set accounttype = 1
where accounttype = 0
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
Я за пожертвование спасибок в фонд меня
Последний раз редактировалось edaks9; 10.06.2010 в 22:57.
Причина: Добавлено сообщение
на ммоли ни чего не вырезано!
а вот сборка глотура на жуке с вырезанным биллингом !
чтобы все работало надо в регу врезать такие строчки
В конфиг дописываеш: