blackjack
NoDeny
Старожил
Карма: 24
 Offline
Сообщений: 352
|
 |
« : 01 Апреля 2011, 10:44:03 » |
|
--- Ssetpacket.pl 2009-11-14 10:56:00.000000000 +0200
+++ Ssetpacket.pl 2010-11-29 10:33:29.000000000 +0200
@@ -259,6 +259,8 @@
&RRow('*','lr',"Цена, $gr",&bold($Plan_price[$i]));
$out.=&RRow('*','L',&Show_all($Plan_descr[$i])) if $Plan_descr[$i];
$out.=&RRow('* error','lr',"Стоимость перехода на данный тарифный план, $gr",&bold($Plan_price_change[$i])) if $only_now_change_pkt;
+ $out.=&RRow('* error','lr',"Стоимость заказа тарифного плана на следующий месяц, $gr",&bold($Plan_price_change_nm[$i])) if $Plan_price_change_nm[$i];
+ $out.=&RRow('* error','lr',"Стоимость заказа тарифного плана на следующий месяц,<br> при переходе с тарифа с большей стоимостью на этот, $gr",&bold($Plan_price_change_decr[$i])) if $Plan_price_change_decr[$i];
for $j (1..4)
{
$price_over_mb=${"Plan_over$j"}[$i];
--- tarif.pl 2010-01-28 17:24:00.000000000 +0200
+++ tarif.pl 2010-11-29 10:24:55.000000000 +0200
@@ -133,6 +133,8 @@
$price=$F{price}+0;
$price_change=$F{price_change}+0;
+ $price_change_nm=$F{price_change_nm}+0;
+ $price_change_decr=$F{price_change_decr}+0;
$m2_to_m1=$F{m2_to_m1}+0;
$k=$F{k}+0;
@@ -186,7 +188,7 @@
$pays_opt.=',' if $pays_opt;
$sql="UPDATE plans2 SET ".
- "name='$name',price=$price,price_change=$price_change, ".
+ "name='$name',price=$price,price_change=$price_change, price_change_nm=$price_change_nm, price_change_decr=$price_change_decr, ".
"mb1=$m[1],mb2=$m[2],mb3=$m[3],mb4=$m[4], ".
"priceover1=$o[1],priceover2=$o[2],priceover3=$o[3],priceover4=$o[4], ".
"in_or_out1=$InOrOut[1],in_or_out2=$InOrOut[2],in_or_out3=$InOrOut[3],in_or_out4=$InOrOut[4], ".
@@ -235,7 +237,7 @@
$name=&Filtr($p->{name});
$sort_prefix=$name=~s|^\[(\d+)\]||? $1-1000 : '';
$sort_prefix=0 if $sort_prefix<0;
- ($m1,$m2,$m3,$m4,$price,$price_change,$over1,$over2,$over3,$over4)=&Get_fields('mb1','mb2','mb3','mb4','price','price_change','priceover1','priceover2','priceover3','priceover4');
+ ($m1,$m2,$m3,$m4,$price,$price_change,$price_change_nm,$price_change_decr,$over1,$over2,$over3,$over4)=&Get_fields('mb1','mb2','mb3','mb4','price','price_change','price_change_nm','price_change_decr','priceover1','priceover2','priceover3','priceover4');
($m2_to_m1,$start_hour,$end_hour,$k,$flags,$speed,$speed_out,$speed2,$preset)=&Get_fields('m2_to_m1','start_hour','end_hour','k','flags','speed','speed_out','speed2','preset');
($InOrOut1,$InOrOut2,$InOrOut3,$InOrOut4,$offices,$usr_grp,$pays_opt,$newuser_opt)=&Get_fields('in_or_out1','in_or_out2','in_or_out3','in_or_out4','offices','usr_grp','pays_opt','newuser_opt');
($plan_script,$descr)=&Get_fields('script','descr');
@@ -310,6 +312,8 @@
"Данная сумма будет сниматься со счета клиента в независимости от количества потребленных предоплаченных мегабайт. По сути абонплата. ".
"Установите в 0, если вы предусматриваете оплату только пропорционально потребленному трафику").
&RRow('*','ll',&input_t('price_change',$price_change,10,14)." стоимость перехода","Стоимость перехода на данный пакет в середине месяца").
+ &RRow('*','ll',&input_t('price_change_nm',$price_change_nm,10,14)." стоимость заказа","Стоимость перехода на данный пакет при заказе на следующий месяц").
+ &RRow('*','ll',&input_t('price_change_decr',$price_change_decr,10,14)." стоимость заказа* ","Стоимость перехода с большего на данный пакет при заказе на следующий месяц").
&RRow('*','ll',&input_t('speed',$speed||'',10,14)." скорость трафика",
"Скорость, на которой будет предоставляться доступ в интернет. 0 либо пустое значение не ограничивает скорость.").
&RRow('*','ll',&input_t('speed_out',$speed_out||'',10,14)." скорость трафика на исход",
--- nomoney.pl 2009-11-14 10:57:00.000000000 +0200
+++ nomoney.pl 2010-11-29 10:29:58.000000000 +0200
@@ -59,6 +59,8 @@
$Plan_mb4[$i]=$p->{mb4};
$Plan_price[$i]=$p->{price};
$Plan_price_change[$i]=$p->{price_change};
+ $Plan_price_change_nm[$i]=$p->{price_change_nm};
+ $Plan_price_change_decr[$i]=$p->{price_change_decr};
$Plan_over1[$i]=$p->{priceover1};
$Plan_over2[$i]=$p->{priceover2};
$Plan_over3[$i]=$p->{priceover3};
--- new_month.pl 2009-11-14 10:57:00.000000000 +0200
+++ new_month.pl 2011-01-03 12:33:17.000000000 +0200
@@ -340,7 +340,23 @@
mode_report=>0
};
$h=&Money($money_param);
- $got_money=sprintf("%.2f",$h->{money});
+ $perehod=$Plan_price_change_nm[$next_paket]+0;
+ $perehod_decr=$Plan_price_change_decr[$next_paket]+0;
+ if ( $next_paket )
+ {
+ $got_money=sprintf("%.2f",$h->{money}+$perehod);
+ $Alog.=" Переход на новый пакет, стоимость перехода $perehod";
+ if ($perehod_decr && $Plan_price[$next_paket]<$Plan_price[$paket])
+ {
+ $got_money=sprintf("%.2f",$h->{money}+$perehod_decr);
+ $Alog.=" + переход c меньшей стоимостью $perehod_decr.";
+ }
+ }
+ else
+ {
+ $got_money=sprintf("%.2f",$h->{money});
+ $Alog.=" Юзер остается на старом пакете.";
+ }
$money_over=$h->{money_over};
$service_list=$h->{service_list};
chomp $service_list;
@@ -412,6 +428,8 @@
$coment="За услуги доступа в интернет";
$coment.=", включая услуги:\n$service_list" if $service_list;
+ $coment.="\nСнято $Plan_price_change_nm[$next_paket] $gr за переход на тариф $Plan_name_short[$next_paket]." if $Plan_price_change_nm[$next_paket];
+ $coment.="\nСнято $Plan_price_change_decr[$next_paket] $gr за переход на тариф с меньшей стоимостью $Plan_name_short[$next_paket]." if $Plan_price_change_decr[$next_paket] && $Plan_price[$next_paket]<$Plan_price[$paket];
$coment.="\nПакет: ".(&Filtr_mysql($Plan_name_short[$paket])||'-');
$reason="Трафик по направлениям. Вход-выход:\n";
ALTER TABLE plans2 ADD COLUMN price_change_nm float NOT NULL AFTER price_change;
ALTER TABLE plans2 ADD COLUMN price_change_decr float NOT NULL AFTER price_change_nm;
|
