Суточная абонплата Скидка, %

[komnod]

Собственно вопрос, каким образом можно сделать скидку в тарифах с суточной абонплатой?
просто имеются абоненты, от которых запитаны свичи (немного но есть такие) и им ставим
Скидка, %
но она не учитывается при суточной тарификации.

[francuz]

Неужели никто не сталкивался?

[Rico-X]

А суточный тариф добавить отдельный для таких абонов не вариант?

[0xbad0c0d3]

И под каждый % свой тариф? oO -- Бред Пит'!

[francuz]

НЕ только под каждый % свой тариф, но и еще под тарифный план(( у кого то 100 руб в мес. а у кого то 50((( Так что полнейший БРЭЭЭЭД ПИТ

[ser970]

а если так? nodeny.pl
это

Код:

# получим список клиентов, у которых тариф № $i, а также нет абонплаты за текущий день
           $sql="SELECT id FROM users WHERE mid=0 AND paket=$i AND id NOT IN ".
             "(SELECT u.id FROM users u LEFT JOIN pays p ON u.id=p.mid WHERE u.paket=$i and p.category=114 AND time>=$t1 AND time<=$t2)";
           $sth=$dbh->prepare($sql);
           if( $sth->execute )
           {
              $V && &debug("SQL OK (".$sth->rows." rows):$sql");
              while( $p=$sth->fetchrow_hashref )
              {
                 $mid=$p->{id};
		 $Ustart_day{$mid}<0 && next; # пока не начал пользоваться услугами
		 $ok=&sqldo("INSERT INTO pays (mid,cash,type,bonus,category,reason,coment,time) VALUES ".
                    "($mid,$cash,10,'y',114,'','Суточная абонплата',$ut)",'Абонплата суточная'); # 114 - `абонплата суточная`

на это

Код:

# получим список клиентов, у которых тариф № $i, а также нет абонплаты за текущий день
           $sql="SELECT id,discount FROM users WHERE mid=0 AND paket=$i AND id NOT IN ".
             "(SELECT u.id FROM users u LEFT JOIN pays p ON u.id=p.mid WHERE u.paket=$i and p.category=114 AND time>=$t1 AND time<=$t2)";
           $sth=$dbh->prepare($sql);
           if( $sth->execute )
           {
              $V && &debug("SQL OK (".$sth->rows." rows):$sql");
              while( $p=$sth->fetchrow_hashref )
              {
                 $mid=$p->{id};
                 $Ustart_day{$mid}<0 && next; # пока не начал пользоваться услугами
                     #получили скидку клиета 
                     $discount=$p->{$discount};
                     #изменили сумму на скидку
		     $cash=$cash-sprintf("%.2f",$money * $discount/100);	
                 $ok=&sqldo("INSERT INTO pays (mid,cash,type,bonus,category,reason,coment,time) VALUES ".
                    "($mid,$cash,10,'y',114,'','Суточная абонплата',$ut)",'Абонплата суточная'); # 114 - `абонплата суточная`

не проверялось. но должно работать.

[fluffy]

Проверил. Во-первых, в коде была опечатка видимо, чтобы оградить особо недогадливых?
Но идея отличная.
Думаю, как бы ещё заставить отображаться сумму тарифа и в случае посуточного списания. а то нули всюду видны...
Во-вторых, ввёл проверку на 0 в сумме списания — зачем гадить в лог пустыми записями?

Код:

--- nodeny.pl.bak	2010-02-21 05:02:47.000000000 +1000
+++ nodeny.pl	2012-05-04 21:25:06.000000000 +1100
@@ -1082,7 +1082,7 @@
            $h=~/^(8|9):(.+)/ or next;
            $cash=$1==8? sprintf("%.2f",-$2/$alldays) : -$2+0;
            # получим список клиентов, у которых тариф № $i, а также нет абонплаты за текущий день
-           $sql="SELECT id FROM users WHERE mid=0 AND paket=$i AND id NOT IN ".
+           $sql="SELECT id,discount FROM users WHERE mid=0 AND paket=$i AND id NOT IN ".
              "(SELECT u.id FROM users u LEFT JOIN pays p ON u.id=p.mid WHERE u.paket=$i and p.category=114 AND time>=$t1 AND time<=$t2)";
            $sth=$dbh->prepare($sql);
            if( $sth->execute )
@@ -1092,6 +1092,13 @@
               {
                  $mid=$p->{id};
                  $Ustart_day{$mid}<0 && next; # пока не начал пользоваться услугами
+                    #получили скидку клиента
+                    $discount=$p->{discount};
+                    #изменили сумму на скидку
+                    $m=$cash;
+                    $i=-sprintf("%.2f",$cash*$discount/100);
+                    $cash=sprintf("%.2f",$m+$i);
+                    $cash<=0 && next; # если 0, то списывать незачем
                  $ok=&sqldo("INSERT INTO pays (mid,cash,type,bonus,category,reason,coment,time) VALUES ".
                     "($mid,$cash,10,'y',114,'','Суточная абонплата',$ut)",'Абонплата суточная'); # 114 - `абонплата суточная`
                  if( $ok<1 )

[ser970]

Проверил. Во-первых, в коде была опечатка видимо, чтобы оградить особо недогадливых?
Но идея отличная.

Код:

+                    $m=$cash;
+                    $i=-sprintf("%.2f",$cash*$discount/100);
+                    $cash=sprintf("%.2f",$m+$i);

опечатка ... могет быть праздники все таки...
а это замени на одну строку и будет гуд

Думаю, как бы ещё заставить отображаться сумму тарифа и в случае посуточного списания. а то нули всюду видны...
Во-вторых, ввёл проверку на 0 в сумме списания — зачем гадить в лог пустыми записями?

думаю тоже ничего сложного нет ... будет время сделаю. я там понял нужно сумма снятия что бы писался суточный тариф? 

[fluffy]

Вот блин. на деле получилась фигня. тем, у кого скидка есть — всё пучком. У кого нет — начиляет всякую ерунду точнее, ощутимо меньше, чем должно быть.

[fluffy]

Точнее, начисляет не ерунду, а сумму вдвое меньше

[ser970]

Точнее, начисляет не ерунду, а сумму вдвое меньше

по ходу у вас предыдущий клиет имел скидку 50% - переменая не обнулялась

[fluffy]

Ох ты ж ёжик!

Нельзя, нельзя в цикле трогать глобальную по отношению к нему переменную $cash!!!!!
Вот и получалась хрень — дошли до пользователя со скидкой, и всем остальным на этом тарифе дальше начисляет неправильно!

Код:

--- nodeny.pl.bak	2010-02-21 05:02:47.000000000 +1000
+++ nodeny.pl	2012-05-05 19:19:42.000000000 +1100
@@ -1082,7 +1082,7 @@
            $h=~/^(8|9):(.+)/ or next;
            $cash=$1==8? sprintf("%.2f",-$2/$alldays) : -$2+0;
            # получим список клиентов, у которых тариф № $i, а также нет абонплаты за текущий день
-           $sql="SELECT id FROM users WHERE mid=0 AND paket=$i AND id NOT IN ".
+           $sql="SELECT id,discount FROM users WHERE mid=0 AND paket=$i AND id NOT IN ".
              "(SELECT u.id FROM users u LEFT JOIN pays p ON u.id=p.mid WHERE u.paket=$i and p.category=114 AND time>=$t1 AND time<=$t2)";
            $sth=$dbh->prepare($sql);
            if( $sth->execute )
@@ -1090,16 +1090,21 @@
               $V && &debug("SQL OK (".$sth->rows." rows):$sql");
               while( $p=$sth->fetchrow_hashref )
               {
+                 my $cashd=0;
                  $mid=$p->{id};
                  $Ustart_day{$mid}<0 && next; # пока не начал пользоваться услугами
+                    # изменили сумму на скидку
+                    $discount=$p->{$discount};
+                    #изменили сумму на скидку
+                    $cashd=$cash-sprintf("%.2f",$cash * $discount/100);
                  $ok=&sqldo("INSERT INTO pays (mid,cash,type,bonus,category,reason,coment,time) VALUES ".
-                    "($mid,$cash,10,'y',114,'','Суточная абонплата',$ut)",'Абонплата суточная'); # 114 - `абонплата суточная`
+                    "($mid,$cashd,10,'y',114,'','Суточная абонплата',$ut)",'Абонплата суточная'); # 114 - `абонплата суточная`
                  if( $ok<1 )
                  {
                     $ok or last;
                     next;
                  }
-                 $ok=&sqldo("UPDATE users SET balance=balance+($cash) WHERE id=$mid LIMIT 1");
+                 $ok=&sqldo("UPDATE users SET balance=balance+($cashd) WHERE id=$mid LIMIT 1");
                  $ok<1 && &ToLog("Не удалось изменить баланс после проведения суточной абонплаты. Клиент id=$mid,$Id_to_ip{$mid}",'!!');
                  $ok or last;
               }

[ser970]

зачем там еще одна переменая ?
$cashd=$cash-sprintf("%.2f",$cash * $discount/100); ?

если
$cash=$cash-sprintf("%.2f",$cash * $discount/100);
этого достаточно
 

[fluffy]

зачем там еще одна переменая ?

Затем, что по отношению к циклу начисления абоненту переменная $cash —  глобальная, и инициализируется на вхождении в цикл по тарифу, для всех абонентов этого ТП.
заботливо разложеные вами грабли сработали

[ser970]

где грабли и где опечатка покаж