Changeset 219 for trunk/finance

Timestamp:

May 27, 2009, 1:17:11 PM (15 years ago)

Author:

george

Message:

• Přidáno: Podpora pro odesílání emailů o měsíčních platbách přes frontu emailů.

File:

• trunk/finance/manage.php (modified) (3 diffs)

trunk/finance/manage.php

@@ -517 +517 @@
       // Generuj účetní položky
       $DbResult = $this->Database->query('SELECT Member.*, MemberPayment.MonthlyTotal, UNIX_TIMESTAMP(Member.BillingPeriodLastDate), Subject.Name AS SubjectName FROM MemberPayment JOIN Member ON Member.Id=MemberPayment.Member JOIN Subject ON Subject.Id=Member.Subject');
-      while($Member = $DbResult->fetch_array())
+      while($Member = $DbResult->fetch_assoc())
       {
         $Output .= $Member['SubjectName'].': ';
-                                $Period = $this->GetBillingPeriod($Member['BillingPeriodNext']);
+                                //$Member['UNIX_TIMESTAMP(Member.BillingPeriodLastDate)'] = MysqlDateTimeToTime('2009-04-01 1:1:1');
+        $Period = $this->GetBillingPeriod($Member['BillingPeriodNext']);
                                 if($Period['From'] > $Member['UNIX_TIMESTAMP(Member.BillingPeriodLastDate)'])
                                 {
                                         $this->Database->update('Member', 'Id='.$Member['Id'], array('BillingPeriod' => $Member['BillingPeriodNext'], 'InternetTariffCurrentMonth' => $Member['InternetTariffNextMonth']));
                                         $Member['BillingPeriod'] = $Member['BillingPeriodNext'];
+          $Member['InternetTariffCurrentMonth'] = $Member['InternetTariffNextMonth'];
                                 }
                                 $Period = $this->GetBillingPeriod($Member['BillingPeriod']);
@@ -536 +538 @@
           $BillId = $this->System->Modules['Bill']->CreateBill($Member['Subject'], array(array('Description' => 'Připojení k síti', 'Price' => $PayPerPeriod, 'Quantity' => 1)), $Period['From'], $Period['To'], $BillCode);
           $this->Database->insert('FinanceClaimsLiabilities', array('Value' => $PayPerPeriod, 'Subject' => $Member['Subject'], 'TimeCreation' => 'NOW()', 'Text' => 'Připojení k síti za období '.$TimePeriodText, 'Bill' => $BillId, 'BillCode' => $BillCode));
+          $Output .= $this->SendPaymentEmail($Member['Id']);
                                         $this->Database->update('Member', 'Id='.$Member['Id'], array('BillingPeriodLastDate' => TimeToMysqlDateTime($Period['To'])));
         } else $Output .= '<br />';
@@ -565 +568 @@
 
       // Restart traffic shaping
-      //$this->Database->update('NetworkConfiguration', 'Id = 3', array('Changed' => 1));
-    }
-    return($Output);
+      //$this->Database->update('NetworkConfiguration', 'Id = 3', array('Changed' => 1));     
+    }
+    return($Output);
+  }
+  
+  function SendPaymentEmail($MemberId)
+  {
+    global $Config;
+    
+    $DbResult = $this->Database->select('Member', '*', 'Id='.$MemberId);
+    $Member = $DbResult->fetch_assoc();
+
+    $DbResult = $this->Database->select('MemberPayment', '*', 'Member='.$MemberId);
+    $MemberPayment = $DbResult->fetch_assoc();   
+
+    $DbResult = $this->Database->select('Subject', 'Name', 'Id='.$Member['Subject']);
+    $Subject = $DbResult->fetch_assoc();      
+    
+    $DbResult = $this->Database->select('User', '*', 'Id='.$Member['ResponsibleUser']);    
+    $User = $DbResult->fetch_assoc();
+        
+    if($User['Email'] != '')
+    {
+      $Title = 'Pravidelné vyúčtování internetu';
+      $Content = 'Vyúčtovaní subjektu <strong>'.$Subject['Name'].'</strong> zastoupeného uživatelem <strong>'.$User['Name'].'</strong>.<br /><br />'.
+        'Váš aktuální tarif: <strong>'.$this->System->Modules['Finance']->Tariffs[$Member['InternetTariffCurrentMonth']]['Name'].'</strong><br />'.
+        'Vaše platební období: <strong>'.$this->System->Modules['Finance']->BillingPeriods[$Member['BillingPeriod']]['Name'].'</strong><br />'.
+        'Pravidelná platba za období: <strong>'.$MemberPayment['MonthlyTotal'].' Kč</strong><br />'.
+        'Stav vašeho účtu: <strong>'.$MemberPayment['Cash'].' Kč</strong><br /><br />';
+      $Content .= 'Nové finanční operace:<br/>'.
+        '<table border="1"><tr><th>Čas</th><th>Popis</th><th>Částka [Kč]</th></tr>';
+      //$Member['BillingPeriodLastDate'] = '2009-04-01';
+      $DbResult = $this->Database->query('SELECT T1.* FROM ((SELECT Text, Time, Value AS Value, Bill FROM FinanceOperation WHERE (Subject='.$Member['Subject'].')) UNION ALL '.
+      '(SELECT Text, TimeCreation as Time, -Value as Value, Bill FROM FinanceClaimsLiabilities WHERE (Subject='.$Member['Subject'].')) ORDER BY Time DESC) AS T1 WHERE (T1.Time > "'.$Member['BillingPeriodLastDate'].'")');
+      while($DbRow = $DbResult->fetch_assoc())
+      {
+        $Content .= '<tr><td>'.HumanDate($DbRow['Time']).'</td><td>'.$DbRow['Text'].'</td><td>'.$DbRow['Value'].'</td></tr>';
+      }
+      $Content .= '</table>'.
+      'Pro více informací a možnost změny údajů se prosím přihlašte na stránkách <a href="http://'.$Config['Web']['Host'].$Config['Web']['RootFolder'].'">http://'.$Config['Web']['Host'].$Config['Web']['RootFolder'].'</a>.<br /><br />';
+        
+      $Content .= '<br />Tento email je generován automaticky. V případě zjištění nesrovnalostí pište zpět.';
+      $AdditionalHeaders = 'To: =?UTF-8?B?'.base64_encode($User['Name']).'?= <'.$User['Email'].">\n".'From: =?UTF-8?B?'.base64_encode($Config['Web']['Title']).'?='." <".$Config['Web']['AdminEmail'].">\n";
+      $this->System->AddEmailToQueue($User['Email'], $Title, $Content, $AdditionalHeaders);
+      $Output = '';
+    } else $Output = 'Uživatel '.$User['Name'].' nemá email.';
   }
 }