card.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2007-2019  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2018-2020  Frédéric France         <frederic.france@netlogic.fr>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */
 
// Load Dolibarr environment
require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/member.lib.php';
require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent_type.class.php';
require_once DOL_DOCUMENT_ROOT.'/adherents/class/subscription.class.php';
if (isModEnabled("banque")) {
  require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
}
 
// Load translation files required by the page
$langs->loadLangs(array("companies", "members", "bills", "users"));
 
$adh = new Adherent($db);
$adht = new AdherentType($db);
$object = new Subscription($db);
$errmsg = '';
 
$action = GETPOST("action", 'alpha');
$rowid = GETPOST("rowid", "int") ? GETPOST("rowid", "int") : GETPOST("id", "int");
$typeid = GETPOST("typeid", "int");
$cancel = GETPOST('cancel', 'alpha');
$confirm = GETPOST('confirm');
$note = GETPOST('note', 'alpha');
$typeid = (int) GETPOST('typeid', 'int');
$amount = price2num(GETPOST('amount', 'alpha'), 'MT');
 
if (empty($user->rights->adherent->cotisation->lire)) {
   accessforbidden();
}
 
$permissionnote = $user->rights->adherent->cotisation->creer; // Used by the include of actions_setnotes.inc.php
$permissiondellink = $user->rights->adherent->cotisation->creer; // Used by the include of actions_dellink.inc.php
$permissiontoedit = $user->rights->adherent->cotisation->creer; // Used by the include of actions_lineupdonw.inc.php
 
$hookmanager->initHooks(array('subscriptioncard', 'globalcard'));
 
// Security check
$result = restrictedArea($user, 'subscription', 0); // TODO Check on object id
 
 
/*
 *  Actions
 */
 
if ($cancel) {
  $action = '';
}
 
//include DOL_DOCUMENT_ROOT.'/core/actions_setnotes.inc.php'; // Must be include, not include_once
 
include DOL_DOCUMENT_ROOT.'/core/actions_dellink.inc.php'; // Must be include, not include_once
 
//include DOL_DOCUMENT_ROOT.'/core/actions_lineupdown.inc.php'; // Must be include, not include_once
 
 
if ($user->rights->adherent->cotisation->creer && $action == 'update' && !$cancel) {
  // Load current object
  $result = $object->fetch($rowid);
  if ($result > 0) {
    $db->begin();
 
    $errmsg = '';
 
    if ($object->fk_bank) {
      $accountline = new AccountLine($db);
      $result = $accountline->fetch($object->fk_bank);
 
      // If transaction consolidated
      if ($accountline->rappro) {
        $errmsg = $langs->trans("SubscriptionLinkedToConciliatedTransaction");
      } else {
        $accountline->datev = dol_mktime(GETPOST('datesubhour', 'int'), GETPOST('datesubmin', 'int'), 0, GETPOST('datesubmonth', 'int'), GETPOST('datesubday', 'int'), GETPOST('datesubyear', 'int'));
        $accountline->dateo = dol_mktime(GETPOST('datesubhour', 'int'), GETPOST('datesubmin', 'int'), 0, GETPOST('datesubmonth', 'int'), GETPOST('datesubday', 'int'), GETPOST('datesubyear', 'int'));
        $accountline->amount = $amount;
        $result = $accountline->update($user);
        if ($result < 0) {
          $errmsg = $accountline->error;
        }
      }
    }
 
    if (!$errmsg) {
      // Modify values
      $object->dateh = dol_mktime(GETPOST('datesubhour', 'int'), GETPOST('datesubmin', 'int'), 0, GETPOST('datesubmonth', 'int'), GETPOST('datesubday', 'int'), GETPOST('datesubyear', 'int'));
      $object->datef = dol_mktime(GETPOST('datesubendhour', 'int'), GETPOST('datesubendmin', 'int'), 0, GETPOST('datesubendmonth', 'int'), GETPOST('datesubendday', 'int'), GETPOST('datesubendyear', 'int'));
      $object->fk_type = $typeid;
      $object->note_public = $note;
      $object->note_private = $note;
 
      $object->amount = $amount;
 
      $result = $object->update($user);
      if ($result >= 0 && !count($object->errors)) {
        $db->commit();
 
        header("Location: card.php?rowid=".$object->id);
        exit;
      } else {
        $db->rollback();
 
        if ($object->error) {
          $errmsg = $object->error;
        } else {
          foreach ($object->errors as $error) {
            if ($errmsg) {
              $errmsg .= '<br>';
            }
            $errmsg .= $error;
          }
        }
        $action = '';
      }
    } else {
      $db->rollback();
    }
  }
}
 
if ($action == 'confirm_delete' && $confirm == 'yes' && $user->rights->adherent->cotisation->creer) {
  $result = $object->fetch($rowid);
  $result = $object->delete($user);
  if ($result > 0) {
    header("Location: ".DOL_URL_ROOT."/adherents/card.php?rowid=".$object->fk_adherent);
    exit;
  } else {
    $mesg = $adh->error;
  }
}
 
 
 
/*
 * View
 */
 
$form = new Form($db);
 
$help_url = 'EN:Module_Foundations|FR:Module_Adh&eacute;rents|ES:M&oacute;dulo_Miembros';
llxHeader('', $langs->trans("SubscriptionCard"), $help_url);
 
 
dol_htmloutput_errors($errmsg);
 
 
if ($user->rights->adherent->cotisation->creer && $action == 'edit') {
  /********************************************
   *
   * Subscription card in edit mode
   *
   ********************************************/
 
  $object->fetch($rowid);
  $result = $adh->fetch($object->fk_adherent);
 
  $head = subscription_prepare_head($object);
 
  print '<form name="update" action="'.$_SERVER["PHP_SELF"].'" method="post">';
  print '<input type="hidden" name="token" value="'.newToken().'">';
  print "<input type=\"hidden\" name=\"action\" value=\"update\">";
  print "<input type=\"hidden\" name=\"rowid\" value=\"$rowid\">";
  print "<input type=\"hidden\" name=\"fk_bank\" value=\"".$object->fk_bank."\">";
 
  print dol_get_fiche_head($head, 'general', $langs->trans("Subscription"), 0, 'payment');
 
  $linkback = '<a href="'.DOL_URL_ROOT.'/adherents/subscription/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
  print "\n";
  print '<table class="border centpercent">';
 
  // Ref
  print '<tr><td class="titlefieldcreate">'.$langs->trans("Ref").'</td>';
  print '<td class="valeur" colspan="3">';
  print $form->showrefnav($object, 'rowid', $linkback, 1);
  print '</td></tr>';
 
  // Member
  $adh->ref = $adh->getFullName($langs);
  print '<tr>';
  print '<td>'.$langs->trans("Member").'</td><td class="valeur" colspan="3">'.$adh->getNomUrl(1, 0, 'subscription').'</td>';
  print '</tr>';
 
  // Type
  print '<tr>';
  print '<td>'.$langs->trans("Type").'</td><td class="valeur" colspan="3">';
  print $form->selectarray("typeid", $adht->liste_array(), (GETPOSTISSET("typeid") ? GETPOST("typeid") : $object->fk_type));
  print'</td></tr>';
 
  // Date start subscription
  print '<tr><td>'.$langs->trans("DateSubscription").'</td><td class="valeur" colspan="2">';
  print $form->selectDate($object->dateh, 'datesub', 1, 1, 0, 'update', 1);
  print '</td>';
  print '</tr>';
 
  // Date end subscription
  print '<tr><td>'.$langs->trans("DateEndSubscription").'</td><td class="valeur" colspan="2">';
  print $form->selectDate($object->datef, 'datesubend', 0, 0, 0, 'update', 1);
  print '</td>';
  print '</tr>';
 
  // Amount
  print '<tr><td>'.$langs->trans("Amount").'</td><td class="valeur" colspan="2">';
  print '<input type="text" class="flat" size="10" name="amount" value="'.price($object->amount).'"></td></tr>';
 
  // Label
  print '<tr><td>'.$langs->trans("Label").'</td><td class="valeur" colspan="2">';
  print '<input type="text" class="flat" size="60" name="note" value="'.$object->note.'"></td></tr>';
 
  // Bank line
  if (isModEnabled("banque") && (!empty($conf->global->ADHERENT_BANK_USE) || $object->fk_bank)) {
    print '<tr><td>'.$langs->trans("BankTransactionLine").'</td><td class="valeur" colspan="2">';
    if ($object->fk_bank) {
      $bankline = new AccountLine($db);
      $result = $bankline->fetch($object->fk_bank);
      print $bankline->getNomUrl(1, 0, 'showall');
    } else {
      print $langs->trans("NoneF");
    }
    print '</td></tr>';
  }
 
  print '</table>';
 
  print dol_get_fiche_end();
 
  print $form->buttonsSaveCancel();
 
  print '</form>';
  print "\n";
}
 
if ($rowid && $action != 'edit') {
  /********************************************
   *
   * Subscription card in view mode
   *
   ********************************************/
 
  $result = $object->fetch($rowid);
  $result = $adh->fetch($object->fk_adherent);
 
  $head = subscription_prepare_head($object);
 
  print dol_get_fiche_head($head, 'general', $langs->trans("Subscription"), -1, 'payment');
 
  // Confirmation to delete subscription
  if ($action == 'delete') {
    $formquestion=array();
    //$formquestion['text']='<b>'.$langs->trans("ThisWillAlsoDeleteBankRecord").'</b>';
    $text = $langs->trans("ConfirmDeleteSubscription");
    if (isModEnabled("banque") && !empty($conf->global->ADHERENT_BANK_USE)) {
      $text .= '<br>'.img_warning().' '.$langs->trans("ThisWillAlsoDeleteBankRecord");
    }
    print $form->formconfirm($_SERVER["PHP_SELF"]."?rowid=".$object->id, $langs->trans("DeleteSubscription"), $text, "confirm_delete", $formquestion, 0, 1);
  }
 
  print '<form action="'.$_SERVER["PHP_SELF"].'" method="post">';
  print '<input type="hidden" name="token" value="'.newToken().'">';
 
  $linkback = '<a href="'.DOL_URL_ROOT.'/adherents/subscription/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
  dol_banner_tab($object, 'rowid', $linkback, 1);
 
  print '<div class="fichecenter">';
 
  print '<div class="underbanner clearboth"></div>';
 
  print '<table class="border centpercent tableforfield">';
 
  // Member
  $adh->ref = $adh->getFullName($langs);
  print '<tr>';
  print '<td class="titlefield">'.$langs->trans("Member").'</td><td class="valeur">'.$adh->getNomUrl(1, 0, 'subscription').'</td>';
  print '</tr>';
 
  // Type
  print '<tr>';
  print '<td class="titlefield">'.$langs->trans("Type").'</td>';
  print '<td class="valeur">';
  if ($object->fk_type > 0 || $adh->typeid > 0) {
    $typeid = ($object->fk_type > 0 ? $object->fk_type : $adh->typeid);
    $adht->fetch($typeid);
    print $adht->getNomUrl(1);
  } else {
    print $langs->trans("NoType");
  }
  print '</td></tr>';
 
  // Date subscription
  print '<tr>';
  print '<td>'.$langs->trans("DateSubscription").'</td><td class="valeur">'.dol_print_date($object->dateh, 'day').'</td>';
  print '</tr>';
 
  // Date end subscription
  print '<tr>';
  print '<td>'.$langs->trans("DateEndSubscription").'</td><td class="valeur">'.dol_print_date($object->datef, 'day').'</td>';
  print '</tr>';
 
  // Amount
  print '<tr><td>'.$langs->trans("Amount").'</td><td class="valeur"><span class="amount">'.price($object->amount).'</span></td></tr>';
 
  // Label
  print '<tr><td>'.$langs->trans("Label").'</td><td class="valeur">'.$object->note.'</td></tr>';
 
  // Bank line
  if (isModEnabled("banque") && (!empty($conf->global->ADHERENT_BANK_USE) || $object->fk_bank)) {
    print '<tr><td>'.$langs->trans("BankTransactionLine").'</td><td class="valeur">';
    if ($object->fk_bank) {
      $bankline = new AccountLine($db);
      $result = $bankline->fetch($object->fk_bank);
      print $bankline->getNomUrl(1, 0, 'showall');
    } else {
      print $langs->trans("NoneF");
    }
    print '</td></tr>';
  }
 
  print "</table>\n";
  print '</div>';
 
  print '</form>';
 
  print dol_get_fiche_end();
 
  /*
   * Action bar
   */
  print '<div class="tabsAction">';
 
  if ($user->hasRight('adherent', 'cotisation', 'creer')) {
    if (!empty($bankline->rappro) || empty($bankline)) {
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"]."?rowid=".$object->id.'&action=edit&token='.newToken().'">'.$langs->trans("Modify")."</a></div>";
    } else {
      print '<div class="inline-block divButAction"><a class="butActionRefused classfortooltip" title="'.$langs->trans("BankLineConciliated").'" href="#">'.$langs->trans("Modify")."</a></div>";
    }
  }
 
  // Delete
  if ($user->rights->adherent->cotisation->creer) {
    print '<div class="inline-block divButAction"><a class="butActionDelete" href="'.$_SERVER["PHP_SELF"]."?rowid=".$object->id.'&action=delete&token='.newToken().'">'.$langs->trans("Delete")."</a></div>\n";
  }
 
  print '</div>';
 
 
  print '<div class="fichecenter"><div class="fichehalfleft">';
  print '<a name="builddoc"></a>'; // ancre
 
  // Generated documents
  /*
  $filename = dol_sanitizeFileName($object->ref);
  $filedir = $conf->facture->dir_output . '/' . dol_sanitizeFileName($object->ref);
  $urlsource = $_SERVER['PHP_SELF'] . '?facid=' . $object->id;
  $genallowed = $user->rights->facture->lire;
  $delallowed = $user->rights->facture->creer;
 
  print $formfile->showdocuments('facture', $filename, $filedir, $urlsource, $genallowed, $delallowed, $object->model_pdf, 1, 0, 0, 28, 0, '', '', '', $soc->default_lang);
  $somethingshown = $formfile->numoffiles;
  */
  // Show links to link elements
  //$linktoelem = $form->showLinkToObjectBlock($object, null, array('subscription'));
  $somethingshown = $form->showLinkedObjectBlock($object, '');
 
  // Show links to link elements
  /*$linktoelem = $form->showLinkToObjectBlock($object,array('order'));
  if ($linktoelem) print ($somethingshown?'':'<br>').$linktoelem;
  */
 
  print '</div><div class="fichehalfright">';
 
  // List of actions on element
  /*
  include_once DOL_DOCUMENT_ROOT . '/core/class/html.formactions.class.php';
  $formactions = new FormActions($db);
  $somethingshown = $formactions->showactions($object, $object->element, $socid, 1);
  */
 
  print '</div></div>';
}
 
// End of page
llxFooter();
$db->close();