Changeset 968 for trunk/Modules/Finance/Manage.php

Timestamp:

Apr 12, 2024, 9:43:27 PM (5 weeks ago)

Author:

chronos

Message:

• Modified: Improved content of email with finance account state.
• Added: Customer IS action to generate finance email into email queue.

File:

• trunk/Modules/Finance/Manage.php (modified) (8 diffs)

trunk/Modules/Finance/Manage.php

@@ -37 +37 @@
       case 'RegenerateOperation':
         $Output = $this->GenerateOperation('AND (Id='.$_GET['i'].')');
+        break;
+      case 'SendPaymentEmail':
+        $Output = $this->SendPaymentEmail($_GET['i']);
         break;
       default:
@@ -171 +174 @@
       $Period = $this->GetBillingPeriod($Member['BillingPeriod']);
 
-      /* Check if need to produce new invoice for customer */
+      // Check if need to produce new invoice for customer
       if (($Period['MonthCount'] > 0) and ($Member['Blocked'] == 0) and
         ($Period['From'] > $Member['BillingPeriodLastUnixTime']))
@@ -195 +198 @@
         {
           $InvoiceGroupId = INVOICE_GROUP_OUT;
-        } else {
+        } else
+        {
           $InvoiceGroupId = INVOICE_GROUP_IN;
         }
@@ -215 +219 @@
           $Output .= $this->SendPaymentEmail($Member['Id']);
         }
-        /* Update last billing day */
+        // Update last billing day
         $this->Database->update('Member', '`Id`='.$Member['Id'],
           array('BillingPeriodLastDate' => TimeToMysqlDateTime($Period['To'])));
@@ -346 +350 @@
   function SendPaymentEmail(string $MemberId, string $FileId = ''): string
   {
+    $Finance = &ModuleFinance::Cast($this->System->GetModule('Finance'))->Finance;
+    $Finance->LoadMonthParameters(0);
+
+    if (!ModuleUser::Cast($this->System->GetModule('User'))->User->CheckPermission('Finance', 'Manage')) return 'Nemáte oprávnění';
     global $Config;
 
@@ -362 +370 @@
     $DbResult = $this->Database->select('Subject', '*', '`Id`='.$Config['Finance']['MainSubjectId']);
     $MainSubject = $DbResult->fetch_assoc();
+
+    $DbResult = $this->Database->select('Company', '*', '`Id`='.$Config['Finance']['MainCompanyId']);
+    $MainCompany = $DbResult->fetch_assoc();
 
     $Period = $this->GetBillingPeriod($Member['BillingPeriod']);
@@ -374 +385 @@
     if ($User['Email'] != '')
     {
-      $Title = 'Pravidelné vyúčtování služeb';
-      $Content = 'Vyúčtovaní zákazníka <strong>'.$Subject['Name'].'</strong> zastoupeného uživatelem <strong>'.
+      $Title = 'Pravidelné vyúčtování služeb '.$MainCompany['Name'];
+      $Content = 'Dobrý den,<br/><br/>'.
+        'Zasíláme vyúčtování klienta <strong>'.$Subject['Name'].'</strong> zastoupeného uživatelem <strong>'.
         $User['Name'].'</strong> ke dni <strong>'.Core::Cast($this->System)->HumanDate(time()).'</strong>.<br/><br/>'."\n".
         'Vaše aktuální služby: ';
@@ -414 +426 @@
       'Pro aktuální informace, prohlížení elektronických dokladů a možnost změny údajů se prosím přihlaste na stránkách '.
       '<a href="https://'.$Config['Web']['Host'].$Config['Web']['RootFolder'].'">https://'.
-      $Config['Web']['Host'].$Config['Web']['RootFolder'].'</a>.<br /><br />'."\n";
-
-      $Content .= '<br />Tento email je generován automaticky. V případě zjištění nesrovnalostí napište zpět.';
+      $Config['Web']['Host'].$Config['Web']['RootFolder'].'</a>.<br/><br/>'."\n";
+
+      $Content .= '<br/>Tento email je generován automaticky. V případě zjištění nesrovnalostí prosím napište zpět.';
+      
+      $Content .= '<br/><br/>S pozdravem,<br/>'.$MainCompany['Name'].'<br/><a href="'.$MainSubject['WWW'].'">'.
+        str_replace(array('https:', '/'), '', $MainSubject['WWW']).'</a>';
+
       ModuleEmailQueue::Cast($this->System->GetModule('EmailQueue'))->AddItem($User['Name'].' <'.$User['Email'].'>', $Title, $Content,
          $Config['Web']['Admin'].' <'.$Config['Web']['AdminEmail'].'>');