subscription.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2001-2004  Rodolphe Quiedeville    <rodolphe@quiedeville.org>
 * Copyright (C) 2002-2003  Jean-Louis Bergamo      <jlb@j1b.org>
 * Copyright (C) 2004-2018  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2012-2017  Regis Houssin           <regis.houssin@inodbox.com>
 * Copyright (C) 2015-2016  Alexandre Spangaro      <aspangaro@open-dsi.fr>
 * Copyright (C) 2018-2021  Frédéric France         <frederic.france@netlogic.fr>
 * Copyright (C) 2019       Thibault FOUCART        <support@ptibogxiv.net>
 *
 * 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.'/core/lib/date.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';
require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingjournal.class.php';
 
$langs->loadLangs(array("companies", "bills", "members", "users", "mails", 'other'));
 
$optioncss = GETPOST('optioncss', 'aZ'); // Option for the css output (always '' except when 'print')
 
$action = GETPOST('action', 'aZ09');
$confirm = GETPOST('confirm', 'alpha');
$id = GETPOST('rowid', 'int') ?GETPOST('rowid', 'int') : GETPOST('id', 'int');
$rowid = $id;
$ref = GETPOST('ref', 'alphanohtml');
$typeid = GETPOST('typeid', 'int');
$cancel = GETPOST('cancel');
 
// Load variable for pagination
$limit = GETPOST('limit', 'int') ?GETPOST('limit', 'int') : $conf->liste_limit;
$sortfield = GETPOST('sortfield', 'aZ09comma');
$sortorder = GETPOST('sortorder', 'aZ09comma');
$page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
if (empty($page) || $page == -1) {
  $page = 0;
}     // If $page is not defined, or '' or -1
$offset = $limit * $page;
$pageprev = $page - 1;
$pagenext = $page + 1;
 
// Default sort order (if not yet defined by previous GETPOST)
if (!$sortfield) {
  $sortfield = "c.rowid";
}
if (!$sortorder) {
  $sortorder = "DESC";
}
 
$object = new Adherent($db);
$extrafields = new ExtraFields($db);
$adht = new AdherentType($db);
 
// fetch optionals attributes and labels
$extrafields->fetch_name_optionals_label($object->table_element);
 
$errmsg = '';
 
$defaultdelay = 1;
$defaultdelayunit = 'y';
 
// Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
$hookmanager->initHooks(array('subscription'));
 
// PDF
$hidedetails = (GETPOST('hidedetails', 'int') ? GETPOST('hidedetails', 'int') : (!empty($conf->global->MAIN_GENERATE_DOCUMENTS_HIDE_DETAILS) ? 1 : 0));
$hidedesc = (GETPOST('hidedesc', 'int') ? GETPOST('hidedesc', 'int') : (!empty($conf->global->MAIN_GENERATE_DOCUMENTS_HIDE_DESC) ? 1 : 0));
$hideref = (GETPOST('hideref', 'int') ? GETPOST('hideref', 'int') : (!empty($conf->global->MAIN_GENERATE_DOCUMENTS_HIDE_REF) ? 1 : 0));
 
$datefrom = 0;
$dateto = 0;
$paymentdate = -1;
 
// Fetch object
if ($id > 0 || !empty($ref)) {
  // Load member
  $result = $object->fetch($id, $ref);
 
  // Define variables to know what current user can do on users
  $canadduser = ($user->admin || $user->hasRight("user", "user", "creer"));
  // Define variables to know what current user can do on properties of user linked to edited member
  if ($object->user_id) {
    // $User is the user who edits, $object->user_id is the id of the related user in the edited member
    $caneditfielduser = ((($user->id == $object->user_id) && $user->hasRight("user", "self", "creer"))
      || (($user->id != $object->user_id) && $user->hasRight("user", "user", "creer")));
    $caneditpassworduser = ((($user->id == $object->user_id) && $user->hasRight("user", "self", "password"))
      || (($user->id != $object->user_id) && $user->hasRight("user", "user", "password")));
  }
}
 
// Define variables to determine what the current user can do on the members
$canaddmember = $user->hasRight('adherent', 'creer');
// Define variables to determine what the current user can do on the properties of a member
if ($id) {
  $caneditfieldmember = $user->hasRight('adherent', 'creer');
}
 
// Security check
$result = restrictedArea($user, 'adherent', $object->id, '', '', 'socid', 'rowid', 0);
 
 
/*
 *  Actions
 */
 
$parameters = array();
$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action);
if ($reshook < 0) {
  setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
}
 
// Create third party from a member
if (empty($reshook) && $action == 'confirm_create_thirdparty' && $confirm == 'yes' && $user->rights->societe->creer) {
  if ($result > 0) {
    // Creation of thirdparty
    $company = new Societe($db);
    $result = $company->create_from_member($object, GETPOST('companyname', 'alpha'), GETPOST('companyalias', 'alpha'), GETPOST('customercode', 'alpha'));
 
    if ($result < 0) {
      $langs->load("errors");
      setEventMessages($company->error, $company->errors, 'errors');
    } else {
      $action = 'addsubscription';
    }
  } else {
    setEventMessages($object->error, $object->errors, 'errors');
  }
}
 
if (empty($reshook) && $action == 'setuserid' && ($user->rights->user->self->creer || $user->hasRight('user', 'user', 'creer'))) {
  $error = 0;
  if (!$user->hasRight('user', 'user', 'creer')) {    // If can edit only itself user, we can link to itself only
    if (GETPOST("userid", 'int') != $user->id && GETPOST("userid", 'int') != $object->user_id) {
      $error++;
      setEventMessages($langs->trans("ErrorUserPermissionAllowsToLinksToItselfOnly"), null, 'errors');
    }
  }
 
  if (!$error) {
    if (GETPOST("userid", 'int') != $object->user_id) {  // If link differs from currently in database
      $result = $object->setUserId(GETPOST("userid", 'int'));
      if ($result < 0) {
        dol_print_error('', $object->error);
      }
      $action = '';
    }
  }
}
 
if (empty($reshook) && $action == 'setsocid') {
  $error = 0;
  if (!$error) {
    if (GETPOST('socid', 'int') != $object->fk_soc) {    // If link differs from currently in database
      $sql = "SELECT rowid FROM ".MAIN_DB_PREFIX."adherent";
      $sql .= " WHERE fk_soc = '".GETPOST('socid', 'int')."'";
      $resql = $db->query($sql);
      if ($resql) {
        $obj = $db->fetch_object($resql);
        if ($obj && $obj->rowid > 0) {
          $othermember = new Adherent($db);
          $othermember->fetch($obj->rowid);
          $thirdparty = new Societe($db);
          $thirdparty->fetch(GETPOST('socid', 'int'));
          $error++;
          setEventMessages($langs->trans("ErrorMemberIsAlreadyLinkedToThisThirdParty", $othermember->getFullName($langs), $othermember->login, $thirdparty->name), null, 'errors');
        }
      }
 
      if (!$error) {
        $result = $object->setThirdPartyId(GETPOST('socid', 'int'));
        if ($result < 0) {
          dol_print_error('', $object->error);
        }
        $action = '';
      }
    }
  }
}
 
if ($user->hasRight('adherent', 'cotisation', 'creer') && $action == 'subscription' && !$cancel) {
  $error = 0;
 
  $langs->load("banks");
 
  $result = $object->fetch($rowid);
  $result = $adht->fetch($object->typeid);
 
  // Subscription informations
  $datesubscription = 0;
  $datesubend = 0;
  $paymentdate = ''; // Do not use 0 here, default value is '' that means not filled where 0 means 1970-01-01
  if (GETPOST("reyear", "int") && GETPOST("remonth", "int") && GETPOST("reday", "int")) {
    $datesubscription = dol_mktime(0, 0, 0, GETPOST("remonth", "int"), GETPOST("reday", "int"), GETPOST("reyear", "int"));
  }
  if (GETPOST("endyear", 'int') && GETPOST("endmonth", 'int') && GETPOST("endday", 'int')) {
    $datesubend = dol_mktime(0, 0, 0, GETPOST("endmonth", 'int'), GETPOST("endday", 'int'), GETPOST("endyear", 'int'));
  }
  if (GETPOST("paymentyear", 'int') && GETPOST("paymentmonth", 'int') && GETPOST("paymentday", 'int')) {
    $paymentdate = dol_mktime(0, 0, 0, GETPOST("paymentmonth", 'int'), GETPOST("paymentday", 'int'), GETPOST("paymentyear", 'int'));
  }
  $amount = price2num(GETPOST("subscription", 'alpha')); // Amount of subscription
  $label = GETPOST("label");
 
  // Payment informations
  $accountid = GETPOST("accountid", 'int');
  $operation = GETPOST("operation", "alphanohtml"); // Payment mode
  $num_chq = GETPOST("num_chq", "alphanohtml");
  $emetteur_nom = GETPOST("chqemetteur");
  $emetteur_banque = GETPOST("chqbank");
  $option = GETPOST("paymentsave");
  if (empty($option)) {
    $option = 'none';
  }
  $sendalsoemail = GETPOST("sendmail", 'alpha');
 
  // Check parameters
  if (!$datesubscription) {
    $error++;
    $langs->load("errors");
    $errmsg = $langs->trans("ErrorBadDateFormat", $langs->transnoentitiesnoconv("DateSubscription"));
    setEventMessages($errmsg, null, 'errors');
    $action = 'addsubscription';
  }
  if (GETPOST('end') && !$datesubend) {
    $error++;
    $langs->load("errors");
    $errmsg = $langs->trans("ErrorBadDateFormat", $langs->transnoentitiesnoconv("DateEndSubscription"));
    setEventMessages($errmsg, null, 'errors');
    $action = 'addsubscription';
  }
  if (!$datesubend) {
    $datesubend = dol_time_plus_duree(dol_time_plus_duree($datesubscription, $defaultdelay, $defaultdelayunit), -1, 'd');
  }
  if (($option == 'bankviainvoice' || $option == 'bankdirect') && !$paymentdate) {
    $error++;
    $errmsg = $langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("DatePayment"));
    setEventMessages($errmsg, null, 'errors');
    $action = 'addsubscription';
  }
 
  // Check if a payment is mandatory or not
  if ($adht->subscription) {  // Member type need subscriptions
    if (!is_numeric($amount)) {
      // If field is '' or not a numeric value
      $errmsg = $langs->trans("ErrorFieldRequired", $langs->transnoentities("Amount"));
      setEventMessages($errmsg, null, 'errors');
      $error++;
      $action = 'addsubscription';
    } else {
      // If an amount has been provided, we check also fields that becomes mandatory when amount is not null.
      if (isModEnabled('banque') && GETPOST("paymentsave") != 'none') {
        if (GETPOST("subscription")) {
          if (!GETPOST("label")) {
            $errmsg = $langs->trans("ErrorFieldRequired", $langs->transnoentities("Label"));
            setEventMessages($errmsg, null, 'errors');
            $error++;
            $action = 'addsubscription';
          }
          if (GETPOST("paymentsave") != 'invoiceonly' && !GETPOST("operation")) {
            $errmsg = $langs->trans("ErrorFieldRequired", $langs->transnoentities("PaymentMode"));
            setEventMessages($errmsg, null, 'errors');
            $error++;
            $action = 'addsubscription';
          }
          if (GETPOST("paymentsave") != 'invoiceonly' && !(GETPOST("accountid", 'int') > 0)) {
            $errmsg = $langs->trans("ErrorFieldRequired", $langs->transnoentities("FinancialAccount"));
            setEventMessages($errmsg, null, 'errors');
            $error++;
            $action = 'addsubscription';
          }
        } else {
          if (GETPOST("accountid", 'int')) {
            $errmsg = $langs->trans("ErrorDoNotProvideAccountsIfNullAmount");
            setEventMessages($errmsg, null, 'errors');
            $error++;
            $action = 'addsubscription';
          }
        }
      }
    }
  }
 
  // Record the subscription then complementary actions
  if (!$error && $action == 'subscription') {
    $db->begin();
 
    // Create subscription
    $crowid = $object->subscription($datesubscription, $amount, $accountid, $operation, $label, $num_chq, $emetteur_nom, $emetteur_banque, $datesubend);
    if ($crowid <= 0) {
      $error++;
      $errmsg = $object->error;
      setEventMessages($object->error, $object->errors, 'errors');
    }
 
    if (!$error) {
      $result = $object->subscriptionComplementaryActions($crowid, $option, $accountid, $datesubscription, $paymentdate, $operation, $label, $amount, $num_chq, $emetteur_nom, $emetteur_banque);
      if ($result < 0) {
        $error++;
        setEventMessages($object->error, $object->errors, 'errors');
      } else {
        // If an invoice was created, it is into $object->invoice
      }
    }
 
    if (!$error) {
      $db->commit();
    } else {
      $db->rollback();
      $action = 'addsubscription';
    }
 
    if (!$error) {
      setEventMessages("SubscriptionRecorded", null, 'mesgs');
    }
 
    // Send email
    if (!$error) {
      // Send confirmation Email
      if ($object->email && $sendalsoemail) {   // $object is 'Adherent'
        $parameters = array(
          'datesubscription' => $datesubscription,
          'amount' => $amount,
          'ccountid' => $accountid,
          'operation' => $operation,
          'label' => $label,
          'num_chq' => $num_chq,
          'emetteur_nom' => $emetteur_nom,
          'emetteur_banque' => $emetteur_banque,
          'datesubend' => $datesubend
        );
        $reshook = $hookmanager->executeHooks('sendMail', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
        if ($reshook < 0) {
          setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
        }
 
        if (empty($reshook)) {
          $subject = '';
          $msg = '';
 
          // Send subscription email
          include_once DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php';
          $formmail = new FormMail($db);
          // Set output language
          $outputlangs = new Translate('', $conf);
          $outputlangs->setDefaultLang(empty($object->thirdparty->default_lang) ? $mysoc->default_lang : $object->thirdparty->default_lang);
          // Load traductions files required by page
          $outputlangs->loadLangs(array("main", "members"));
 
          // Get email content from template
          $arraydefaultmessage = null;
          $labeltouse = $conf->global->ADHERENT_EMAIL_TEMPLATE_SUBSCRIPTION;
 
          if (!empty($labeltouse)) {
            $arraydefaultmessage = $formmail->getEMailTemplate($db, 'member', $user, $outputlangs, 0, 1, $labeltouse);
          }
 
          if (!empty($labeltouse) && is_object($arraydefaultmessage) && $arraydefaultmessage->id > 0) {
            $subject = $arraydefaultmessage->topic;
            $msg     = $arraydefaultmessage->content;
          }
 
          $substitutionarray = getCommonSubstitutionArray($outputlangs, 0, null, $object);
          complete_substitutions_array($substitutionarray, $outputlangs, $object);
          $subjecttosend = make_substitutions($subject, $substitutionarray, $outputlangs);
          $texttosend = make_substitutions(dol_concatdesc($msg, $adht->getMailOnSubscription()), $substitutionarray, $outputlangs);
 
          // Attach a file ?
          $file = '';
          $listofpaths = array();
          $listofnames = array();
          $listofmimes = array();
          if (is_object($object->invoice) && (!is_object($arraydefaultmessage) || intval($arraydefaultmessage->joinfiles))) {
            $invoicediroutput = $conf->facture->dir_output;
            $fileparams = dol_most_recent_file($invoicediroutput.'/'.$object->invoice->ref, preg_quote($object->invoice->ref, '/').'[^\-]+');
            $file = $fileparams['fullname'];
 
            $listofpaths = array($file);
            $listofnames = array(basename($file));
            $listofmimes = array(dol_mimetype($file));
          }
 
          $moreinheader = 'X-Dolibarr-Info: send_an_email by adherents/subscription.php'."\r\n";
 
          $result = $object->send_an_email($texttosend, $subjecttosend, $listofpaths, $listofmimes, $listofnames, "", "", 0, -1, '', $moreinheader);
          if ($result < 0) {
            $errmsg = $object->error;
            setEventMessages($object->error, $object->errors, 'errors');
          } else {
            setEventMessages($langs->trans("EmailSentToMember", $object->email), null, 'mesgs');
          }
        }
      } else {
        setEventMessages($langs->trans("NoEmailSentToMember"), null, 'mesgs');
      }
    }
 
    // Clean some POST vars
    if (!$error) {
      $_POST["subscription"] = '';
      $_POST["accountid"] = '';
      $_POST["operation"] = '';
      $_POST["label"] = '';
      $_POST["num_chq"] = '';
    }
  }
}
 
 
 
/*
 * View
 */
 
$form = new Form($db);
 
$now = dol_now();
 
$title = $langs->trans("Member")." - ".$langs->trans("Subscriptions");
 
$help_url = "EN:Module_Foundations|FR:Module_Adh&eacute;rents|ES:M&oacute;dulo_Miembros|DE:Modul_Mitglieder";
 
llxHeader("", $title, $help_url);
 
 
$param = '';
if (!empty($contextpage) && $contextpage != $_SERVER["PHP_SELF"]) {
  $param .= '&contextpage='.urlencode($contextpage);
}
if ($limit > 0 && $limit != $conf->liste_limit) {
  $param .= '&limit='.urlencode($limit);
}
$param .= '&id='.$rowid;
if ($optioncss != '') {
  $param .= '&optioncss='.urlencode($optioncss);
}
// Add $param from extra fields
//include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_list_search_param.tpl.php';
 
 
if ($rowid > 0) {
  $res = $object->fetch($rowid);
  if ($res < 0) {
    dol_print_error($db, $object->error);
    exit;
  }
 
  $adht->fetch($object->typeid);
 
  $head = member_prepare_head($object);
 
  $rowspan = 10;
  if (empty($conf->global->ADHERENT_LOGIN_NOT_REQUIRED)) {
    $rowspan++;
  }
  if (isModEnabled('societe')) {
    $rowspan++;
  }
 
  print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
  print '<input type="hidden" name="token" value="'.newToken().'">';
  print '<input type="hidden" name="rowid" value="'.$object->id.'">';
 
  print dol_get_fiche_head($head, 'subscription', $langs->trans("Member"), -1, 'user');
 
  $linkback = '<a href="'.DOL_URL_ROOT.'/adherents/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
  $morehtmlref = '<a href="'.DOL_URL_ROOT.'/adherents/vcard.php?id='.$object->id.'" class="refid">';
  $morehtmlref .= img_picto($langs->trans("Download").' '.$langs->trans("VCard"), 'vcard.png', 'class="valignmiddle marginleftonly paddingrightonly"');
  $morehtmlref .= '</a>';
 
  dol_banner_tab($object, 'rowid', $linkback, 1, 'rowid', 'ref', $morehtmlref);
 
  print '<div class="fichecenter">';
  print '<div class="fichehalfleft">';
 
  print '<div class="underbanner clearboth"></div>';
  print '<table class="border centpercent tableforfield">';
 
  // Login
  if (empty($conf->global->ADHERENT_LOGIN_NOT_REQUIRED)) {
    print '<tr><td class="titlefield">'.$langs->trans("Login").' / '.$langs->trans("Id").'</td><td class="valeur">'.dol_escape_htmltag($object->login).'</td></tr>';
  }
 
  // Type
  print '<tr><td class="titlefield">'.$langs->trans("Type").'</td>';
  print '<td class="valeur">'.$adht->getNomUrl(1)."</td></tr>\n";
 
  // Morphy
  print '<tr><td>'.$langs->trans("MemberNature").'</td>';
  print '<td class="valeur" >'.$object->getmorphylib('', 1).'</td>';
  print '</tr>';
 
  // Company
  print '<tr><td>'.$langs->trans("Company").'</td><td class="valeur">'.dol_escape_htmltag($object->company).'</td></tr>';
 
  // Civility
  print '<tr><td>'.$langs->trans("UserTitle").'</td><td class="valeur">'.$object->getCivilityLabel().'</td>';
  print '</tr>';
 
  // Password
  if (empty($conf->global->ADHERENT_LOGIN_NOT_REQUIRED)) {
    print '<tr><td>'.$langs->trans("Password").'</td><td>';
    if ($object->pass) {
      print preg_replace('/./i', '*', $object->pass);
    } else {
      if ($user->admin) {
        print '<!-- '.$langs->trans("Crypted").': '.$object->pass_indatabase_crypted.' -->';
      }
      print '<span class="opacitymedium">'.$langs->trans("Hidden").'</span>';
    }
    if (!empty($object->pass_indatabase) && empty($object->user_id)) {  // Show warning only for old password still in clear (does not happen anymore)
      $langs->load("errors");
      $htmltext = $langs->trans("WarningPasswordSetWithNoAccount");
      print ' '.$form->textwithpicto('', $htmltext, 1, 'warning');
    }
    print '</td></tr>';
  }
 
  // Date end subscription
  print '<tr><td>'.$langs->trans("SubscriptionEndDate").'</td><td class="valeur">';
  if ($object->datefin) {
    print dol_print_date($object->datefin, 'day');
    if ($object->hasDelay()) {
      print " ".img_warning($langs->trans("Late"));
    }
  } else {
    if ($object->need_subscription == 0) {
      print $langs->trans("SubscriptionNotNeeded");
    } elseif (!$adht->subscription) {
      print $langs->trans("SubscriptionNotRecorded");
      if (Adherent::STATUS_VALIDATED == $object->statut) {
        print " ".img_warning($langs->trans("Late")); // displays delay Pictogram only if not a draft, not excluded and not resiliated
      }
    } else {
      print $langs->trans("SubscriptionNotReceived");
      if (Adherent::STATUS_VALIDATED == $object->statut) {
        print " ".img_warning($langs->trans("Late")); // displays delay Pictogram only if not a draft, not excluded and not resiliated
      }
    }
  }
  print '</td></tr>';
 
  print '</table>';
 
  print '</div>';
 
  print '<div class="fichehalfright">';
  print '<div class="underbanner clearboth"></div>';
 
  print '<table class="border tableforfield centpercent">';
 
  // Tags / Categories
  if (isModEnabled('categorie') && !empty($user->rights->categorie->lire)) {
    print '<tr><td>'.$langs->trans("Categories").'</td>';
    print '<td colspan="2">';
    print $form->showCategories($object->id, Categorie::TYPE_MEMBER, 1);
    print '</td></tr>';
  }
 
  // Birth Date
  print '<tr><td class="titlefield">'.$langs->trans("DateOfBirth").'</td><td class="valeur">'.dol_print_date($object->birth, 'day').'</td></tr>';
 
  // Public
  print '<tr><td>'.$langs->trans("Public").'</td><td class="valeur">'.yn($object->public).'</td></tr>';
 
  // Other attributes
  $cols = 2;
  include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_view.tpl.php';
 
  // Third party Dolibarr
  if (isModEnabled('societe')) {
    print '<tr><td>';
    print '<table class="nobordernopadding" width="100%"><tr><td>';
    print $langs->trans("LinkedToDolibarrThirdParty");
    print '</td>';
    if ($action != 'editthirdparty' && $user->hasRight('adherent', 'creer')) {
      print '<td class="right"><a class="editfielda" href="'.$_SERVER["PHP_SELF"].'?action=editthirdparty&token='.newToken().'&rowid='.$object->id.'">'.img_edit($langs->trans('SetLinkToThirdParty'), 1).'</a></td>';
    }
    print '</tr></table>';
    print '</td><td colspan="2" class="valeur">';
    if ($action == 'editthirdparty') {
      $htmlname = 'socid';
      print '<form method="POST" action="'.$_SERVER['PHP_SELF'].'" name="form'.$htmlname.'">';
      print '<input type="hidden" name="rowid" value="'.$object->id.'">';
      print '<input type="hidden" name="action" value="set'.$htmlname.'">';
      print '<input type="hidden" name="token" value="'.newToken().'">';
      print '<table class="nobordernopadding">';
      print '<tr><td>';
      print $form->select_company($object->fk_soc, 'socid', '', 1);
      print '</td>';
      print '<td class="left"><input type="submit" class="button button-edit" value="'.$langs->trans("Modify").'"></td>';
      print '</tr></table></form>';
    } else {
      if ($object->fk_soc) {
        $company = new Societe($db);
        $result = $company->fetch($object->fk_soc);
        print $company->getNomUrl(1);
 
        // Show link to invoices
        $tmparray = $company->getOutstandingBills('customer');
        if (!empty($tmparray['refs'])) {
          print ' - '.img_picto($langs->trans("Invoices"), 'bill', 'class="paddingright"').'<a href="'.DOL_URL_ROOT.'/compta/facture/list.php?socid='.$object->socid.'">'.$langs->trans("Invoices").' ('.count($tmparray['refs']).')';
          // TODO Add alert if warning on at least one invoice late
          print '</a>';
        }
      } else {
        print '<span class="opacitymedium">'.$langs->trans("NoThirdPartyAssociatedToMember").'</span>';
      }
    }
    print '</td></tr>';
  }
 
  // Login Dolibarr - Link to user
  print '<tr><td>';
  print '<table class="nobordernopadding" width="100%"><tr><td>';
  print $langs->trans("LinkedToDolibarrUser");
  print '</td>';
  if ($action != 'editlogin' && $user->hasRight('adherent', 'creer')) {
    print '<td class="right">';
    if ($user->hasRight("user", "user", "creer")) {
      print '<a class="editfielda" href="'.$_SERVER["PHP_SELF"].'?action=editlogin&token='.newToken().'&rowid='.$object->id.'">'.img_edit($langs->trans('SetLinkToUser'), 1).'</a>';
    }
    print '</td>';
  }
  print '</tr></table>';
  print '</td><td colspan="2" class="valeur">';
  if ($action == 'editlogin') {
    $form->form_users($_SERVER['PHP_SELF'].'?rowid='.$object->id, $object->user_id, 'userid', '');
  } else {
    if ($object->user_id) {
      $linkeduser = new User($db);
      $linkeduser->fetch($object->user_id);
      print $linkeduser->getNomUrl(-1);
    } else {
      print '<span class="opacitymedium">'.$langs->trans("NoDolibarrAccess").'</span>';
    }
  }
  print '</td></tr>';
 
  print "</table>\n";
 
  print "</div></div>\n";
  print '<div style="clear:both"></div>';
 
  print dol_get_fiche_end();
 
 
  /*
   * Action bar
   */
 
  // Button to create a new subscription if member no draft (-1) neither resiliated (0) neither excluded (-2)
  if ($user->hasRight('adherent', 'cotisation', 'creer')) {
    if ($action != 'addsubscription' && $action != 'create_thirdparty') {
      print '<div class="tabsAction">';
 
      if ($object->statut > 0) {
        print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?rowid='.$rowid.'&action=addsubscription&token='.newToken().'">'.$langs->trans("AddSubscription")."</a></div>";
      } else {
        print '<div class="inline-block divButAction"><a class="butActionRefused classfortooltip" href="#" title="'.dol_escape_htmltag($langs->trans("ValidateBefore")).'">'.$langs->trans("AddSubscription").'</a></div>';
      }
 
      print '</div>';
    }
  }
 
  /*
   * List of subscriptions
   */
  if ($action != 'addsubscription' && $action != 'create_thirdparty') {
    $sql = "SELECT d.rowid, d.firstname, d.lastname, d.societe, d.fk_adherent_type as type,";
    $sql .= " c.rowid as crowid, c.subscription,";
    $sql .= " c.datec, c.fk_type as cfk_type,";
    $sql .= " c.dateadh as dateh,";
    $sql .= " c.datef,";
    $sql .= " c.fk_bank,";
    $sql .= " b.rowid as bid,";
    $sql .= " ba.rowid as baid, ba.label, ba.bank, ba.ref, ba.account_number, ba.fk_accountancy_journal, ba.number, ba.currency_code";
    $sql .= " FROM ".MAIN_DB_PREFIX."adherent as d, ".MAIN_DB_PREFIX."subscription as c";
    $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."bank as b ON c.fk_bank = b.rowid";
    $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."bank_account as ba ON b.fk_account = ba.rowid";
    $sql .= " WHERE d.rowid = c.fk_adherent AND d.rowid=".((int) $rowid);
    $sql .= $db->order($sortfield, $sortorder);
 
    $result = $db->query($sql);
    if ($result) {
      $subscriptionstatic = new Subscription($db);
 
      $num = $db->num_rows($result);
 
      print '<table class="noborder centpercent">'."\n";
 
      print '<tr class="liste_titre">';
      print_liste_field_titre('Ref', $_SERVER["PHP_SELF"], 'c.rowid', '', $param, '', $sortfield, $sortorder);
      print_liste_field_titre('DateCreation', $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, 'center ');
      print_liste_field_titre('Type', $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, 'center ');
      print_liste_field_titre('DateStart', $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, 'center ');
      print_liste_field_titre('DateEnd', $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, 'center ');
      print_liste_field_titre('Amount', $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, 'right ');
      if (isModEnabled('banque')) {
        print_liste_field_titre('Account', $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, 'right ');
      }
      print "</tr>\n";
 
      $accountstatic = new Account($db);
      $adh = new Adherent($db);
      $adht = new AdherentType($db);
 
      $i = 0;
      while ($i < $num) {
        $objp = $db->fetch_object($result);
 
        $adh->id = $objp->rowid;
        $adh->typeid = $objp->type;
 
        $subscriptionstatic->ref = $objp->crowid;
        $subscriptionstatic->id = $objp->crowid;
 
        $typeid = $objp->cfk_type;
        if ($typeid > 0) {
          $adht->fetch($typeid);
        }
 
        print '<tr class="oddeven">';
        print '<td>'.$subscriptionstatic->getNomUrl(1).'</td>';
        print '<td class="center">'.dol_print_date($db->jdate($objp->datec), 'dayhour')."</td>\n";
        print '<td class="center">';
        if ($typeid > 0) {
          print $adht->getNomUrl(1);
        }
        print '</td>';
        print '<td class="center">'.dol_print_date($db->jdate($objp->dateh), 'day')."</td>\n";
        print '<td class="center">'.dol_print_date($db->jdate($objp->datef), 'day')."</td>\n";
        print '<td class="right">'.price($objp->subscription).'</td>';
        if (isModEnabled('banque')) {
          print '<td class="right">';
          if ($objp->bid) {
            $accountstatic->label = $objp->label;
            $accountstatic->id = $objp->baid;
            $accountstatic->number = $objp->number;
            $accountstatic->account_number = $objp->account_number;
            $accountstatic->currency_code = $objp->currency_code;
 
            if (isModEnabled('accounting') && $objp->fk_accountancy_journal > 0) {
              $accountingjournal = new AccountingJournal($db);
              $accountingjournal->fetch($objp->fk_accountancy_journal);
 
              $accountstatic->accountancy_journal = $accountingjournal->getNomUrl(0, 1, 1, '', 1);
            }
 
            $accountstatic->ref = $objp->ref;
            print $accountstatic->getNomUrl(1);
          } else {
            print '&nbsp;';
          }
          print '</td>';
        }
        print "</tr>";
        $i++;
      }
 
      if (empty($num)) {
        $colspan = 6;
        if (isModEnabled('banque')) {
          $colspan++;
        }
        print '<tr><td colspan="'.$colspan.'"><span class="opacitymedium">'.$langs->trans("None").'</span></td></tr>';
      }
 
      print "</table>";
    } else {
      dol_print_error($db);
    }
  }
 
 
  if (($action != 'addsubscription' && $action != 'create_thirdparty')) {
    // Shon online payment link
    $useonlinepayment = (isModEnabled('paypal') || isModEnabled('stripe') || isModEnabled('paybox'));
 
    if ($useonlinepayment) {
      print '<br>';
 
      require_once DOL_DOCUMENT_ROOT.'/core/lib/payments.lib.php';
      print showOnlinePaymentUrl('membersubscription', $object->ref);
      print '<br>';
    }
  }
 
  /*
   * Add new subscription form
   */
  if (($action == 'addsubscription' || $action == 'create_thirdparty') && $user->hasRight('adherent', 'cotisation', 'creer')) {
    print '<br>';
 
    print load_fiche_titre($langs->trans("NewCotisation"));
 
    // Define default choice for complementary actions
    $bankdirect = 0; // 1 means option by default is write to bank direct with no invoice
    $invoiceonly = 0; // 1 means option by default is invoice only
    $bankviainvoice = 0; // 1 means option by default is write to bank via invoice
    if (GETPOST('paymentsave')) {
      if (GETPOST('paymentsave') == 'bankdirect') {
        $bankdirect = 1;
      }
      if (GETPOST('paymentsave') == 'invoiceonly') {
        $invoiceonly = 1;
      }
      if (GETPOST('paymentsave') == 'bankviainvoice') {
        $bankviainvoice = 1;
      }
    } else {
      if (!empty($conf->global->ADHERENT_BANK_USE) && $conf->global->ADHERENT_BANK_USE == 'bankviainvoice' && isModEnabled('banque') && isModEnabled('societe') && isModEnabled('facture')) {
        $bankviainvoice = 1;
      } elseif (!empty($conf->global->ADHERENT_BANK_USE) && $conf->global->ADHERENT_BANK_USE == 'bankdirect' && isModEnabled('banque')) {
        $bankdirect = 1;
      } elseif (!empty($conf->global->ADHERENT_BANK_USE) && $conf->global->ADHERENT_BANK_USE == 'invoiceonly' && isModEnabled('banque') && isModEnabled('societe') && isModEnabled('facture')) {
        $invoiceonly = 1;
      }
    }
 
    print "\n\n<!-- Form add subscription -->\n";
 
    if ($conf->use_javascript_ajax) {
      //var_dump($bankdirect.'-'.$bankviainvoice.'-'.$invoiceonly.'-'.empty($conf->global->ADHERENT_BANK_USE));
      print "\n".'<script type="text/javascript">';
      print '$(document).ready(function () {
            $(".bankswitchclass, .bankswitchclass2").'.(($bankdirect || $bankviainvoice) ? 'show()' : 'hide()').';
            $("#none, #invoiceonly").click(function() {
              $(".bankswitchclass").hide();
              $(".bankswitchclass2").hide();
            });
            $("#bankdirect, #bankviainvoice").click(function() {
              $(".bankswitchclass").show();
              $(".bankswitchclass2").show();
            });
            $("#selectoperation").change(function() {
              var code = $(this).val();
              if (code == "CHQ")
              {
                $(".fieldrequireddyn").addClass("fieldrequired");
                if ($("#fieldchqemetteur").val() == "")
                {
                  $("#fieldchqemetteur").val($("#memberlabel").val());
                }
              }
              else
              {
                $(".fieldrequireddyn").removeClass("fieldrequired");
              }
            });
            ';
      if (GETPOST('paymentsave')) {
        print '$("#'.GETPOST('paymentsave', 'aZ09').'").prop("checked", true);';
      }
      print '});';
      print '</script>'."\n";
    }
 
 
    // Confirm create third party
    if ($action == 'create_thirdparty') {
      $companyalias = '';
      $fullname = $object->getFullName($langs);
 
      if ($object->morphy == 'mor') {
        $companyname = $object->company;
        if (!empty($fullname)) {
          $companyalias = $fullname;
        }
      } else {
        $companyname = $fullname;
        if (!empty($object->company)) {
          $companyalias = $object->company;
        }
      }
 
      // Create a form array
      $formquestion = array(
        array('label' => $langs->trans("NameToCreate"), 'type' => 'text', 'name' => 'companyname', 'value' => $companyname, 'morecss' => 'minwidth300', 'moreattr' => 'maxlength="128"'),
        array('label' => $langs->trans("AliasNames"), 'type' => 'text', 'name' => 'companyalias', 'value' => $companyalias, 'morecss' => 'minwidth300', 'moreattr' => 'maxlength="128"')
      );
      // If customer code was forced to "required", we ask it at creation to avoid error later
      if (!empty($conf->global->MAIN_COMPANY_CODE_ALWAYS_REQUIRED)) {
        $tmpcompany = new Societe($db);
        $tmpcompany->name = $companyname;
        $tmpcompany->get_codeclient($tmpcompany, 0);
        $customercode = $tmpcompany->code_client;
        $formquestion[] = array(
          'label' => $langs->trans("CustomerCode"),
          'type' => 'text',
          'name' => 'customercode',
          'value' => $customercode,
          'morecss' => 'minwidth300',
          'moreattr' => 'maxlength="128"',
        );
      }
      // @todo Add other extrafields mandatory for thirdparty creation
 
      print $form->formconfirm($_SERVER["PHP_SELF"]."?rowid=".$object->id, $langs->trans("CreateDolibarrThirdParty"), $langs->trans("ConfirmCreateThirdParty"), "confirm_create_thirdparty", $formquestion, 1);
    }
 
 
    print '<form name="subscription" method="POST" action="'.$_SERVER["PHP_SELF"].'">';
    print '<input type="hidden" name="token" value="'.newToken().'">';
    print '<input type="hidden" name="action" value="subscription">';
    print '<input type="hidden" name="rowid" value="'.$rowid.'">';
    print '<input type="hidden" name="memberlabel" id="memberlabel" value="'.dol_escape_htmltag($object->getFullName($langs)).'">';
    print '<input type="hidden" name="thirdpartylabel" id="thirdpartylabel" value="'.dol_escape_htmltag($object->company).'">';
 
    print dol_get_fiche_head('');
 
    print "<table class=\"border\" width=\"100%\">\n";
    print '<tbody>';
 
    $today = dol_now();
 
    // Date payment
    if (GETPOST('paymentyear') && GETPOST('paymentmonth') && GETPOST('paymentday')) {
      $paymentdate = dol_mktime(0, 0, 0, GETPOST('paymentmonth'), GETPOST('paymentday'), GETPOST('paymentyear'));
    }
 
    print '<tr>';
    // Date start subscription
    print '<td class="fieldrequired">'.$langs->trans("DateSubscription").'</td><td>';
    if (GETPOST('reday')) {
      $datefrom = dol_mktime(0, 0, 0, GETPOST('remonth'), GETPOST('reday'), GETPOST('reyear'));
    }
    if (!$datefrom) {
      $datefrom = $object->datevalid;
      if ($object->datefin > 0 && dol_time_plus_duree($object->datefin, $defaultdelay, $defaultdelayunit) > dol_now()) {
        $datefrom = dol_time_plus_duree($object->datefin, 1, 'd');
      } else {
        $datefrom = dol_get_first_day(dol_print_date(time(), "%Y"));
      }
    }
    print $form->selectDate($datefrom, '', '', '', '', "subscription", 1, 1);
    print "</td></tr>";
 
    // Date end subscription
    if (GETPOST('endday')) {
      $dateto = dol_mktime(0, 0, 0, GETPOST('endmonth'), GETPOST('endday'), GETPOST('endyear'));
    }
    if (!$dateto) {
      $dateto = -1; // By default, no date is suggested
    }
    print '<tr><td>'.$langs->trans("DateEndSubscription").'</td><td>';
    print $form->selectDate($dateto, 'end', '', '', '', "subscription", 1, 0);
    print "</td></tr>";
 
    if ($adht->subscription) {
      // Amount
      print '<tr><td class="fieldrequired">'.$langs->trans("Amount").'</td><td><input type="text" name="subscription" size="6" value="'. price(GETPOSTISSET('subscription') ? GETPOST('subscription') : $adht->amount).'"> '.$langs->trans("Currency".$conf->currency) .'</td></tr>';
 
      // Label
      print '<tr><td>'.$langs->trans("Label").'</td>';
      print '<td><input name="label" type="text" size="32" value="';
      if (empty($conf->global->MEMBER_NO_DEFAULT_LABEL)) {
        print $langs->trans("Subscription").' '.dol_print_date(($datefrom ? $datefrom : time()), "%Y");
      }
      print '"></td></tr>';
 
      // Complementary action
      if ((isModEnabled('banque') || isModEnabled('facture')) && empty($conf->global->ADHERENT_SUBSCRIPTION_HIDECOMPLEMENTARYACTIONS)) {
        $company = new Societe($db);
        if ($object->fk_soc) {
          $result = $company->fetch($object->fk_soc);
        }
 
        // Title payments
        //print '<tr><td colspan="2"><b>'.$langs->trans("Payment").'</b></td></tr>';
 
        // No more action
        print '<tr><td class="tdtop fieldrequired">'.$langs->trans('MoreActions');
        print '</td>';
        print '<td>';
        print '<input type="radio" class="moreaction" id="none" name="paymentsave" value="none"'.(empty($bankdirect) && empty($invoiceonly) && empty($bankviainvoice) ? ' checked' : '').'>';
        print '<label for="none"> '.$langs->trans("None").'</label><br>';
        // Add entry into bank accoun
        if (isModEnabled('banque')) {
          print '<input type="radio" class="moreaction" id="bankdirect" name="paymentsave" value="bankdirect"'.(!empty($bankdirect) ? ' checked' : '');
          print '><label for="bankdirect">  '.$langs->trans("MoreActionBankDirect").'</label><br>';
        }
        // Add invoice with no payments
        if (isModEnabled('societe') && isModEnabled('facture')) {
          print '<input type="radio" class="moreaction" id="invoiceonly" name="paymentsave" value="invoiceonly"'.(!empty($invoiceonly) ? ' checked' : '');
          //if (empty($object->fk_soc)) print ' disabled';
          print '><label for="invoiceonly"> '.$langs->trans("MoreActionInvoiceOnly");
          if ($object->fk_soc) {
            print ' ('.$langs->trans("ThirdParty").': '.$company->getNomUrl(1).')';
          } else {
            print ' (';
            if (empty($object->fk_soc)) {
              print img_warning($langs->trans("NoThirdPartyAssociatedToMember"));
            }
            print $langs->trans("NoThirdPartyAssociatedToMember");
            print ' - <a href="'.$_SERVER["PHP_SELF"].'?rowid='.$object->id.'&amp;action=create_thirdparty">';
            print $langs->trans("CreateDolibarrThirdParty");
            print '</a>)';
          }
          if (empty($conf->global->ADHERENT_VAT_FOR_SUBSCRIPTIONS) || $conf->global->ADHERENT_VAT_FOR_SUBSCRIPTIONS != 'defaultforfoundationcountry') {
            print '. <span class="opacitymedium">'.$langs->trans("NoVatOnSubscription", 0).'</span>';
          }
          if (!empty($conf->global->ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS) && (isModEnabled('product') || isModEnabled('service'))) {
            $prodtmp = new Product($db);
            $result = $prodtmp->fetch($conf->global->ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS);
            if ($result < 0) {
              setEventMessage($prodtmp->error, 'errors');
            }
            print '. '.$langs->transnoentitiesnoconv("ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS", $prodtmp->getNomUrl(1)); // must use noentitiesnoconv to avoid to encode html into getNomUrl of product
          }
          print '</label><br>';
        }
        // Add invoice with payments
        if (isModEnabled('banque') && isModEnabled('societe') && isModEnabled('facture')) {
          print '<input type="radio" class="moreaction" id="bankviainvoice" name="paymentsave" value="bankviainvoice"'.(!empty($bankviainvoice) ? ' checked' : '');
          //if (empty($object->fk_soc)) print ' disabled';
          print '><label for="bankviainvoice">  '.$langs->trans("MoreActionBankViaInvoice");
          if ($object->fk_soc) {
            print ' ('.$langs->trans("ThirdParty").': '.$company->getNomUrl(1).')';
          } else {
            print ' (';
            if (empty($object->fk_soc)) {
              print img_warning($langs->trans("NoThirdPartyAssociatedToMember"));
            }
            print $langs->trans("NoThirdPartyAssociatedToMember");
            print ' - <a href="'.$_SERVER["PHP_SELF"].'?rowid='.$object->id.'&amp;action=create_thirdparty">';
            print $langs->trans("CreateDolibarrThirdParty");
            print '</a>)';
          }
          if (empty($conf->global->ADHERENT_VAT_FOR_SUBSCRIPTIONS) || $conf->global->ADHERENT_VAT_FOR_SUBSCRIPTIONS != 'defaultforfoundationcountry') {
            print '. <span class="opacitymedium">'.$langs->trans("NoVatOnSubscription", 0).'</span>';
          }
          if (!empty($conf->global->ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS) && (isModEnabled('product')|| isModEnabled('service'))) {
            $prodtmp = new Product($db);
            $result = $prodtmp->fetch($conf->global->ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS);
            if ($result < 0) {
              setEventMessage($prodtmp->error, 'errors');
            }
            print '. '.$langs->transnoentitiesnoconv("ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS", $prodtmp->getNomUrl(1)); // must use noentitiesnoconv to avoid to encode html into getNomUrl of product
          }
          print '</label><br>';
        }
        print '</td></tr>';
 
        // Bank account
        print '<tr class="bankswitchclass"><td class="fieldrequired">'.$langs->trans("FinancialAccount").'</td><td>';
        print img_picto('', 'bank_account');
        $form->select_comptes(GETPOST('accountid'), 'accountid', 0, '', 2, '', 0, 'minwidth200');
        print "</td></tr>\n";
 
        // Payment mode
        print '<tr class="bankswitchclass"><td class="fieldrequired">'.$langs->trans("PaymentMode").'</td><td>';
        print $form->select_types_paiements(GETPOST('operation'), 'operation', '', 2, 1, 0, 0, 1, 'minwidth200', 1);
        print "</td></tr>\n";
 
        // Date of payment
        print '<tr class="bankswitchclass"><td class="fieldrequired">'.$langs->trans("DatePayment").'</td><td>';
        print $form->selectDate(isset($paymentdate) ? $paymentdate : -1, 'payment', 0, 0, 1, 'subscription', 1, 1);
        print "</td></tr>\n";
 
        print '<tr class="bankswitchclass2"><td>'.$langs->trans('Numero');
        print ' <em>('.$langs->trans("ChequeOrTransferNumber").')</em>';
        print '</td>';
        print '<td><input id="fieldnum_chq" name="num_chq" type="text" size="8" value="'.(!GETPOST('num_chq') ? '' : GETPOST('num_chq')).'"></td></tr>';
 
        print '<tr class="bankswitchclass2 fieldrequireddyn"><td>'.$langs->trans('CheckTransmitter');
        print ' <em>('.$langs->trans("ChequeMaker").')</em>';
        print '</td>';
        print '<td><input id="fieldchqemetteur" name="chqemetteur" size="32" type="text" value="'.(!GETPOST('chqemetteur') ? '' : GETPOST('chqemetteur')).'"></td></tr>';
 
        print '<tr class="bankswitchclass2"><td>'.$langs->trans('Bank');
        print ' <em>('.$langs->trans("ChequeBank").')</em>';
        print '</td>';
        print '<td><input id="chqbank" name="chqbank" size="32" type="text" value="'.(!GETPOST('chqbank') ? '' : GETPOST('chqbank')).'"></td></tr>';
      }
    }
 
    print '<tr><td></td><td></td></tr>';
 
    print '<tr><td>'.$langs->trans("SendAcknowledgementByMail").'</td>';
    print '<td>';
    if (!$object->email) {
      print $langs->trans("NoEMail");
    } else {
      $adht = new AdherentType($db);
      $adht->fetch($object->typeid);
 
      // Send subscription email
      $subject = '';
      $msg = '';
 
      // Send subscription email
      include_once DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php';
      $formmail = new FormMail($db);
      // Set output language
      $outputlangs = new Translate('', $conf);
      $outputlangs->setDefaultLang(empty($object->thirdparty->default_lang) ? $mysoc->default_lang : $object->thirdparty->default_lang);
      // Load traductions files required by page
      $outputlangs->loadLangs(array("main", "members"));
      // Get email content from template
      $arraydefaultmessage = null;
      $labeltouse = $conf->global->ADHERENT_EMAIL_TEMPLATE_SUBSCRIPTION;
 
      if (!empty($labeltouse)) {
        $arraydefaultmessage = $formmail->getEMailTemplate($db, 'member', $user, $outputlangs, 0, 1, $labeltouse);
      }
 
      if (!empty($labeltouse) && is_object($arraydefaultmessage) && $arraydefaultmessage->id > 0) {
        $subject = $arraydefaultmessage->topic;
        $msg     = $arraydefaultmessage->content;
      }
 
      $substitutionarray = getCommonSubstitutionArray($outputlangs, 0, null, $object);
      complete_substitutions_array($substitutionarray, $outputlangs, $object);
      $subjecttosend = make_substitutions($subject, $substitutionarray, $outputlangs);
      $texttosend = make_substitutions(dol_concatdesc($msg, $adht->getMailOnSubscription()), $substitutionarray, $outputlangs);
 
      $tmp = '<input name="sendmail" type="checkbox"'.(GETPOST('sendmail', 'alpha') ? ' checked' : (!empty($conf->global->ADHERENT_DEFAULT_SENDINFOBYMAIL) ? ' checked' : '')).'>';
      $helpcontent = '';
      $helpcontent .= '<b>'.$langs->trans("MailFrom").'</b>: '.getDolGlobalString('ADHERENT_MAIL_FROM').'<br>'."\n";
      $helpcontent .= '<b>'.$langs->trans("MailRecipient").'</b>: '.$object->email.'<br>'."\n";
      $helpcontent .= '<b>'.$langs->trans("MailTopic").'</b>:<br>'."\n";
      if ($subjecttosend) {
        $helpcontent .= $subjecttosend."\n";
      } else {
        $langs->load("errors");
        $helpcontent .= '<span class="error">'.$langs->trans("ErrorModuleSetupNotComplete", $langs->transnoentitiesnoconv("Module310Name")).'</span>'."\n";
      }
      $helpcontent .= "<br>";
      $helpcontent .= '<b>'.$langs->trans("MailText").'</b>:<br>';
      if ($texttosend) {
        $helpcontent .= dol_htmlentitiesbr($texttosend)."\n";
      } else {
        $langs->load("errors");
        $helpcontent .= '<span class="error">'.$langs->trans("ErrorModuleSetupNotComplete", $langs->transnoentitiesnoconv("Module310Name")).'</span>'."\n";
      }
      print $form->textwithpicto($tmp, $helpcontent, 1, 'help', '', 0, 2, 'helpemailtosend');
    }
    print '</td></tr>';
    print '</tbody>';
    print '</table>';
 
    print dol_get_fiche_end();
 
    print '<div class="center">';
    $parameters = array();
    $reshook = $hookmanager->executeHooks('addMoreActionsButtons', $parameters, $object, $action);
    if (empty($reshook)) {
      print '<input type="submit" class="button" name="add" value="'.$langs->trans("AddSubscription").'">';
      print '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
      print '<input type="submit" class="button button-cancel" name="cancel" value="'.$langs->trans("Cancel").'">';
    }
    print '</div>';
 
    print '</form>';
 
    print "\n<!-- End form subscription -->\n\n";
  }
 
  //print '</td></tr>';
  //print '</table>';
} else {
  $langs->load("errors");
  print $langs->trans("ErrorRecordNotFound");
}
 
// End of page
llxFooter();
$db->close();