/htdocs/adherent/card_subscriptions.old.php
PHP | 1015 lines | 780 code | 133 blank | 102 comment | 207 complexity | 4fe1150c8147fe0aed03616cc9c397c6 MD5 | raw file
Possible License(s): LGPL-3.0, LGPL-2.1, GPL-3.0, MIT
- <?php
- /* Copyright (C) 2001-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
- * Copyright (C) 2002-2003 Jean-Louis Bergamo <jlb@j1b.org>
- * Copyright (C) 2004-2012 Laurent Destailleur <eldy@users.sourceforge.net>
- * Copyright (C) 2012 Regis Houssin <regis.houssin@capnetworks.com>
- *
- * 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 <http://www.gnu.org/licenses/>.
- */
- /**
- * \file htdocs/adherents/card_subscriptions.php
- * \ingroup member
- * \brief Onglet d'ajout, edition, suppression des adhesions d'un adherent
- */
- 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/cotisation.class.php';
- require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
- require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
- $langs->load("companies");
- $langs->load("bills");
- $langs->load("members");
- $langs->load("users");
- $langs->load("mails");
- $action=GETPOST('action','alpha');
- $confirm=GETPOST('confirm','alpha');
- $rowid=GETPOST('rowid','int');
- $typeid=GETPOST('typeid','int');
- // Security check
- $result=restrictedArea($user,'adherent',$rowid);
- $object = new Adherent($db);
- $extrafields = new ExtraFields($db);
- $adht = new AdherentType($db);
- $errmsg='';
- $errmsgs=array();
- $defaultdelay=1;
- $defaultdelayunit='y';
- if ($rowid)
- {
- // Load member
- $result = $object->fetch($rowid);
- // Define variables to know what current user can do on users
- $canadduser=($user->admin || $user->rights->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 est le user qui edite, $object->user_id est l'id de l'utilisateur lies au membre edite
- $caneditfielduser=( (($user->id == $object->user_id) && $user->rights->user->self->creer)
- || (($user->id != $object->user_id) && $user->rights->user->user->creer) );
- $caneditpassworduser=( (($user->id == $object->user_id) && $user->rights->user->self->password)
- || (($user->id != $object->user_id) && $user->rights->user->user->password) );
- }
- }
- // Define variables to know what current user can do on members
- $canaddmember=$user->rights->adherent->creer;
- // Define variables to know what current user can do on properties of a member
- if ($rowid)
- {
- $caneditfieldmember=$user->rights->adherent->creer;
- }
- /*
- * Actions
- */
- // Create third party from a member
- if ($action == 'confirm_create_thirdparty' && $confirm == 'yes' && $user->rights->societe->creer)
- {
- if ($result > 0)
- {
- // Creation user
- $company = new Societe($db);
- $result=$company->create_from_member($object,$_POST["companyname"]);
- if ($result < 0)
- {
- $langs->load("errors");
- $errmsg=$langs->trans($company->error);
- $errmsgs=$company->errors;
- }
- else
- {
- $action='addsubscription';
- }
- }
- else
- {
- $errmsg=$object->error;
- }
- }
- if ($action == 'setuserid' && ($user->rights->user->self->creer || $user->rights->user->user->creer))
- {
- $error=0;
- if (empty($user->rights->user->user->creer)) // If can edit only itself user, we can link to itself only
- {
- if ($_POST["userid"] != $user->id && $_POST["userid"] != $object->user_id)
- {
- $error++;
- $mesg='<div class="error">'.$langs->trans("ErrorUserPermissionAllowsToLinksToItselfOnly").'</div>';
- }
- }
- if (! $error)
- {
- if ($_POST["userid"] != $object->user_id) // If link differs from currently in database
- {
- $result=$object->setUserId($_POST["userid"]);
- if ($result < 0) dol_print_error($object->db,$object->error);
- $_POST['action']='';
- $action='';
- }
- }
- }
- if ($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++;
- $mesg='<div class="error">'.$langs->trans("ErrorMemberIsAlreadyLinkedToThisThirdParty",$othermember->getFullName($langs),$othermember->login,$thirdparty->name).'</div>';
- }
- }
- if (! $error)
- {
- $result=$object->setThirdPartyId(GETPOST('socid','int'));
- if ($result < 0) dol_print_error($object->db,$object->error);
- $_POST['action']='';
- $action='';
- }
- }
- }
- }
- if ($user->rights->adherent->cotisation->creer && $action == 'cotisation' && ! $_POST["cancel"])
- {
- $error=0;
- $langs->load("banks");
- $result=$object->fetch($rowid);
- $result=$adht->fetch($object->typeid);
- // Subscription informations
- $datecotisation=0;
- $datesubend=0;
- $paymentdate=0;
- if ($_POST["reyear"] && $_POST["remonth"] && $_POST["reday"])
- {
- $datecotisation=dol_mktime(0, 0, 0, $_POST["remonth"], $_POST["reday"], $_POST["reyear"]);
- }
- if ($_POST["endyear"] && $_POST["endmonth"] && $_POST["endday"])
- {
- $datesubend=dol_mktime(0, 0, 0, $_POST["endmonth"], $_POST["endday"], $_POST["endyear"]);
- }
- if ($_POST["paymentyear"] && $_POST["paymentmonth"] && $_POST["paymentday"])
- {
- $paymentdate=dol_mktime(0, 0, 0, $_POST["paymentmonth"], $_POST["paymentday"], $_POST["paymentyear"]);
- }
- $cotisation=$_POST["cotisation"]; // Amount of subscription
- $label=$_POST["label"];
- // Payment informations
- $accountid=$_POST["accountid"];
- $operation=$_POST["operation"]; // Payment mode
- $num_chq=$_POST["num_chq"];
- $emetteur_nom=$_POST["chqemetteur"];
- $emetteur_banque=$_POST["chqbank"];
- $option=$_POST["paymentsave"];
- if (empty($option)) $option='none';
- // Check parameters
- if (! $datecotisation)
- {
- $error++;
- $langs->load("errors");
- $errmsg=$langs->trans("ErrorBadDateFormat",$langs->transnoentitiesnoconv("DateSubscription"));
- $action='addsubscription';
- }
- if (GETPOST('end') && ! $datesubend)
- {
- $error++;
- $langs->load("errors");
- $errmsg=$langs->trans("ErrorBadDateFormat",$langs->transnoentitiesnoconv("DateEndSubscription"));
- $action='addsubscription';
- }
- if (! $datesubend)
- {
- $datesubend=dol_time_plus_duree(dol_time_plus_duree($datecotisation,$defaultdelay,$defaultdelayunit),-1,'d');
- }
- if (($option == 'bankviainvoice' || $option == 'bankdirect') && ! $paymentdate)
- {
- $error++;
- $errmsg=$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("DatePayment"));
- $action='addsubscription';
- }
- // Check if a payment is mandatory or not
- if (! $error && $adht->cotisation) // Type adherent soumis a cotisation
- {
- if (! is_numeric($_POST["cotisation"]))
- {
- // If field is '' or not a numeric value
- $errmsg=$langs->trans("ErrorFieldRequired",$langs->transnoentities("Amount"));
- $error++;
- $action='addsubscription';
- }
- else
- {
- if (! empty($conf->banque->enabled) && $_POST["paymentsave"] != 'none')
- {
- if ($_POST["cotisation"])
- {
- if (! $_POST["label"]) $errmsg=$langs->trans("ErrorFieldRequired",$langs->transnoentities("Label"));
- if ($_POST["paymentsave"] != 'invoiceonly' && ! $_POST["operation"]) $errmsg=$langs->trans("ErrorFieldRequired",$langs->transnoentities("PaymentMode"));
- if ($_POST["paymentsave"] != 'invoiceonly' && ! $_POST["accountid"]) $errmsg=$langs->trans("ErrorFieldRequired",$langs->transnoentities("FinancialAccount"));
- }
- else
- {
- if ($_POST["accountid"]) $errmsg=$langs->trans("ErrorDoNotProvideAccountsIfNullAmount");
- }
- if ($errmsg) $action='addsubscription';
- }
- }
- }
- if (! $error && $action=='cotisation')
- {
- $db->begin();
- // Create subscription
- $crowid=$object->cotisation($datecotisation, $cotisation, $accountid, $operation, $label, $num_chq, $emetteur_nom, $emetteur_banque, $datesubend, $option);
- if ($crowid <= 0)
- {
- $error++;
- $errmsg=$object->error;
- $errmsgs=$object->errors;
- }
- if (! $error)
- {
- // Insert into bank account directlty (if option choosed for) + link to llx_cotisation if option is 'bankdirect'
- if ($option == 'bankdirect' && $accountid)
- {
- require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
- $acct=new Account($db);
- $result=$acct->fetch($accountid);
- $dateop=$paymentdate;
- $insertid=$acct->addline($dateop, $operation, $label, $cotisation, $num_chq, '', $user, $emetteur_nom, $emetteur_banque);
- if ($insertid > 0)
- {
- $inserturlid=$acct->add_url_line($insertid, $object->id, DOL_URL_ROOT.'/adherents/fiche.php?rowid=', $object->getFullname($langs), 'member');
- if ($inserturlid > 0)
- {
- // Met a jour la table cotisation
- $sql ="UPDATE ".MAIN_DB_PREFIX."cotisation SET fk_bank=".$insertid;
- $sql.=" WHERE rowid=".$crowid;
- dol_syslog("card_subscriptions::cotisation sql=".$sql);
- $resql = $db->query($sql);
- if (! $resql)
- {
- $error++;
- $errmsg=$db->lasterror();
- }
- }
- else
- {
- $error++;
- $errmsg=$acct->error;
- }
- }
- else
- {
- $error++;
- $errmsg=$acct->error;
- }
- }
- // If option choosed, we create invoice
- if (($option == 'bankviainvoice' && $accountid) || $option == 'invoiceonly')
- {
- require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
- require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/paymentterm.class.php';
- $invoice=new Facture($db);
- $customer=new Societe($db);
- $result=$customer->fetch($object->fk_soc);
- if ($result <= 0)
- {
- $errmsg=$customer->error;
- $error++;
- }
- // Create draft invoice
- $invoice->type=0;
- $invoice->cond_reglement_id=$customer->cond_reglement_id;
- if (empty($invoice->cond_reglement_id))
- {
- $paymenttermstatic=new PaymentTerm($db);
- $invoice->cond_reglement_id=$paymenttermstatic->getDefaultId();
- if (empty($invoice->cond_reglement_id))
- {
- $error++;
- $errmsg='ErrorNoPaymentTermRECEPFound';
- }
- }
- $invoice->socid=$object->fk_soc;
- $invoice->date=$datecotisation;
- $result=$invoice->create($user);
- if ($result <= 0)
- {
- $errmsg=$invoice->error;
- $error++;
- }
- // Add line to draft invoice
- $idprodsubscription=0;
- $vattouse=get_default_tva($mysoc, $customer, $idprodsubscription);
- //print xx".$vattouse." - ".$mysoc." - ".$customer;exit;
- $result=$invoice->addline($invoice->id,$label,0,1,$vattouse,0,0,$idprodsubscription,0,$datecotisation,$datesubend,0,0,'','TTC',$cotisation,1);
- if ($result <= 0)
- {
- $errmsg=$invoice->error;
- $error++;
- }
- // Validate invoice
- $result=$invoice->validate($user);
- // Add payment onto invoice
- if ($option == 'bankviainvoice' && $accountid)
- {
- require_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
- require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
- require_once DOL_DOCUMENT_ROOT.'/core/lib/functions.lib.php';
- // Creation de la ligne paiement
- $amounts[$invoice->id] = price2num($cotisation);
- $paiement = new Paiement($db);
- $paiement->datepaye = $paymentdate;
- $paiement->amounts = $amounts;
- $paiement->paiementid = dol_getIdFromCode($db,$operation,'c_paiement');
- $paiement->num_paiement = $num_chq;
- $paiement->note = $label;
- if (! $error)
- {
- $paiement_id = $paiement->create($user);
- if (! $paiement_id > 0)
- {
- $errmsg=$paiement->error;
- $error++;
- }
- }
- if (! $error)
- {
- $bank_line_id=$paiement->addPaymentToBank($user,'payment','(SubscriptionPayment)',$accountid,$emetteur_nom,$emetteur_banque);
- if (! ($bank_line_id > 0))
- {
- $errmsg=$paiement->error;
- $errmsgs=$paiement->errors;
- $error++;
- }
- }
- if (! $error)
- {
- // Update fk_bank for subscriptions
- $sql = 'UPDATE '.MAIN_DB_PREFIX.'cotisation SET fk_bank='.$bank_line_id;
- $sql.= ' WHERE rowid='.$crowid;
- dol_syslog('sql='.$sql);
- $result = $db->query($sql);
- if (! $result)
- {
- $error++;
- }
- }
- }
- }
- }
- if (! $error)
- {
- $db->commit();
- }
- else
- {
- $db->rollback();
- $action = 'addsubscription';
- }
- // Send email
- if (! $error)
- {
- // Send confirmation Email
- if ($object->email && $_POST["sendmail"])
- {
- $subjecttosend=$object->makeSubstitution($conf->global->ADHERENT_MAIL_COTIS_SUBJECT);
- $texttosend=$object->makeSubstitution($adht->getMailOnSubscription());
- $result=$object->send_an_email($texttosend,$subjecttosend,array(),array(),array(),"","",0,-1);
- if ($result < 0) $errmsg=$object->error;
- }
- $_POST["cotisation"]='';
- $_POST["accountid"]='';
- $_POST["operation"]='';
- $_POST["label"]='';
- $_POST["num_chq"]='';
- }
- }
- }
- /*
- * View
- */
- $form = new Form($db);
- $now=dol_now();
- llxHeader('',$langs->trans("Subscriptions"),'EN:Module_Foundations|FR:Module_Adhérents|ES:Módulo_Miembros');
- if ($rowid)
- {
- $res=$object->fetch($rowid,$ref);
- if ($res < 0) { dol_print_error($db,$object->error); exit; }
- //$res=$object->fetch_optionals($object->id,$extralabels);
- //if ($res < 0) { dol_print_error($db); exit; }
- $adht->fetch($object->typeid);
- $head = member_prepare_head($object);
- dol_fiche_head($head, 'subscription', $langs->trans("Member"), 0, 'user');
- $rowspan=9;
- if (empty($conf->global->ADHERENT_LOGIN_NOT_REQUIRED)) $rowspan+=1;
- if (! empty($conf->societe->enabled)) $rowspan++;
- print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<input type="hidden" name="rowid" value="'.$object->id.'">';
- print '<table class="border" width="100%">';
- $linkback = '<a href="'.DOL_URL_ROOT.'/adherents/liste.php">'.$langs->trans("BackToList").'</a>';
- // Ref
- print '<tr><td width="20%">'.$langs->trans("Ref").'</td>';
- print '<td class="valeur" colspan="2">';
- print $form->showrefnav($object, 'rowid', $linkback);
- print '</td></tr>';
- $showphoto='<td rowspan="'.$rowspan.'" align="center" valign="middle" width="25%">'.$form->showphoto('memberphoto',$object).'</td>';
- // Login
- if (empty($conf->global->ADHERENT_LOGIN_NOT_REQUIRED))
- {
- print '<tr><td>'.$langs->trans("Login").' / '.$langs->trans("Id").'</td><td class="valeur">'.$object->login.' </td>';
- print $showphoto; $showphoto='';
- print '</tr>';
- }
- // Morphy
- print '<tr><td>'.$langs->trans("Nature").'</td><td class="valeur" >'.$object->getmorphylib().'</td>';
- print $showphoto; $showphoto='';
- print '</tr>';
- // Type
- print '<tr><td>'.$langs->trans("Type").'</td><td class="valeur">'.$adht->getNomUrl(1)."</td></tr>\n";
- // Company
- print '<tr><td>'.$langs->trans("Company").'</td><td class="valeur">'.$object->societe.'</td></tr>';
- // Civility
- print '<tr><td>'.$langs->trans("UserTitle").'</td><td class="valeur">'.$object->getCivilityLabel().' </td>';
- print '</tr>';
- // Name
- print '<tr><td>'.$langs->trans("Lastname").'</td><td class="valeur">'.$object->lastname.' </td>';
- print '</tr>';
- // Firstname
- print '<tr><td>'.$langs->trans("Firstname").'</td><td class="valeur">'.$object->firstname.' </td>';
- print '</tr>';
- // Status
- print '<tr><td>'.$langs->trans("Status").'</td><td class="valeur">'.$object->getLibStatut(4).'</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->datefin < ($now - $conf->adherent->cotisation->warning_delay) && $object->statut > 0) print " ".img_warning($langs->trans("Late")); // Affiche picto retard uniquement si non brouillon et non resilie
- }
- else
- {
- print $langs->trans("SubscriptionNotReceived");
- if ($object->statut > 0) print " ".img_warning($langs->trans("Late")); // Affiche picto retard uniquement si non brouillon et non resilie
- }
- print '</td></tr>';
- // Third party Dolibarr
- if (! empty($conf->societe->enabled))
- {
- print '<tr><td>';
- print '<table class="nobordernopadding" width="100%"><tr><td>';
- print $langs->trans("LinkedToSpeedealingThirdParty");
- print '</td>';
- if ($_GET['action'] != 'editthirdparty' && $user->rights->adherent->creer) print '<td align="right"><a href="'.$_SERVER["PHP_SELF"].'?action=editthirdparty&rowid='.$object->id.'">'.img_edit($langs->trans('SetLinkToThirdParty'),1).'</a></td>';
- print '</tr></table>';
- print '</td><td class="valeur">';
- if ($_GET['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="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
- print '<tr><td>';
- print $form->select_company($object->fk_soc,'socid','',1);
- print '</td>';
- print '<td align="left"><input type="submit" class="button" 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);
- }
- else
- {
- print $langs->trans("NoThirdPartyAssociatedToMember");
- }
- }
- print '</td></tr>';
- }
- // Login Dolibarr
- print '<tr><td>';
- print '<table class="nobordernopadding" width="100%"><tr><td>';
- print $langs->trans("LinkedToSpeedealingUser");
- print '</td>';
- if ($action != 'editlogin' && $user->rights->adherent->creer) print '<td align="right"><a href="'.$_SERVER["PHP_SELF"].'?action=editlogin&rowid='.$object->id.'">'.img_edit($langs->trans('SetLinkToUser'),1).'</a></td>';
- print '</tr></table>';
- print '</td><td class="valeur">';
- if ($action == 'editlogin')
- {
- /*$include=array();
- if (empty($user->rights->user->user->creer)) // If can edit only itself user, we can link to itself only
- {
- $include=array($object->user_id,$user->id);
- }*/
- print $form->form_users($_SERVER['PHP_SELF'].'?rowid='.$object->id,$object->user_id,'userid','');
- }
- else
- {
- if ($object->user_id)
- {
- print $form->form_users($_SERVER['PHP_SELF'].'?rowid='.$object->id,$object->user_id,'none');
- }
- else print $langs->trans("NoSpeedealingAccess");
- }
- print '</td></tr>';
- print "</table>\n";
- print '</form>';
- dol_fiche_end();
- dol_htmloutput_errors($errmsg,$errmsgs);
- /*
- * Barre d'actions
- */
- // Lien nouvelle cotisation si non brouillon et non resilie
- if ($user->rights->adherent->cotisation->creer)
- {
- if ($action != 'addsubscription' && $action != 'create_thirdparty')
- {
- print '<div class="tabsAction">';
- if ($object->statut > 0) print '<a class="butAction" href="'.$_SERVER["PHP_SELF"].'?rowid='.$rowid.'&action=addsubscription">'.$langs->trans("AddSubscription")."</a>";
- else print '<a class="butActionRefused" href="#" title="'.dol_escape_htmltag($langs->trans("ValidateBefore")).'">'.$langs->trans("AddSubscription").'</a>';
- print "<br>\n";
- print '</div>';
- print '<br>';
- }
- }
- /*
- * List of subscriptions
- */
- if ($action != 'addsubscription' && $action != 'create_thirdparty')
- {
- $sql = "SELECT d.rowid, d.prenom, d.nom, d.societe,";
- $sql.= " c.rowid as crowid, c.cotisation,";
- $sql.= " c.dateadh,";
- $sql.= " c.datef,";
- $sql.= " c.fk_bank,";
- $sql.= " b.rowid as bid,";
- $sql.= " ba.rowid as baid, ba.label, ba.bank";
- $sql.= " FROM ".MAIN_DB_PREFIX."adherent as d, ".MAIN_DB_PREFIX."cotisation 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=".$rowid;
- $result = $db->query($sql);
- if ($result)
- {
- $cotisationstatic=new Cotisation($db);
- $accountstatic=new Account($db);
- $num = $db->num_rows($result);
- $i = 0;
- print "<table class=\"noborder\" width=\"100%\">\n";
- print '<tr class="liste_titre">';
- print '<td>'.$langs->trans("Ref").'</td>';
- print '<td align="center">'.$langs->trans("DateSubscription").'</td>';
- print '<td align="center">'.$langs->trans("DateEnd").'</td>';
- print '<td align="right">'.$langs->trans("Amount").'</td>';
- if (! empty($conf->banque->enabled))
- {
- print '<td align="right">'.$langs->trans("Account").'</td>';
- }
- print "</tr>\n";
- $var=True;
- while ($i < $num)
- {
- $objp = $db->fetch_object($result);
- $var=!$var;
- print "<tr $bc[$var]>";
- $cotisationstatic->ref=$objp->crowid;
- $cotisationstatic->id=$objp->crowid;
- print '<td>'.$cotisationstatic->getNomUrl(1).'</td>';
- print '<td align="center">'.dol_print_date($db->jdate($objp->dateadh),'day')."</td>\n";
- print '<td align="center">'.dol_print_date($db->jdate($objp->datef),'day')."</td>\n";
- print '<td align="right">'.price($objp->cotisation).'</td>';
- if (! empty($conf->banque->enabled))
- {
- print '<td align="right">';
- if ($objp->bid)
- {
- $accountstatic->label=$objp->label;
- $accountstatic->id=$objp->baid;
- print $accountstatic->getNomUrl(1);
- }
- else
- {
- print ' ';
- }
- print '</td>';
- }
- print "</tr>";
- $i++;
- }
- print "</table>";
- }
- else
- {
- dol_print_error($db);
- }
- // Link for paypal payment
- if (! empty($conf->paypal->enabled))
- {
- include_once DOL_DOCUMENT_ROOT.'/paypal/lib/paypal.lib.php';
- print showPaypalPaymentUrl('membersubscription',$object->ref);
- }
- }
- /*
- * Add new subscription form
- */
- if (($action == 'addsubscription' || $action == 'create_thirdparty') && $user->rights->adherent->cotisation->creer)
- {
- print '<br>';
- print_fiche_titre($langs->trans("NewCotisation"));
- $bankdirect=0; // Option to write to bank is on by default
- $bankviainvoice=0; // Option to write via invoice is on by default
- $invoiceonly=0;
- if (! empty($conf->banque->enabled) && $conf->global->ADHERENT_BANK_USE && (empty($_POST['paymentsave']) || $_POST["paymentsave"] == 'bankdirect')) $bankdirect=1;
- if (! empty($conf->banque->enabled) && ! empty($conf->societe->enabled) && ! empty($conf->facture->enabled) && $object->fk_soc) $bankviainvoice=1;
- print "\n\n<!-- Form add subscription -->\n";
- if ($conf->use_javascript_ajax)
- {
- print "\n".'<script type="text/javascript" language="javascript">';
- print '$(document).ready(function () {
- $(".bankswitchclass, .bankswitchclass2").'.($bankdirect||$bankviainvoice||in_array(GETPOST('paymentsave'),array('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').'").attr("checked",true);';
- print '});';
- print '</script>'."\n";
- }
- // Confirm create third party
- if ($action == 'create_thirdparty')
- {
- $name = $object->getFullName($langs);
- if (! empty($name))
- {
- if ($object->societe) $name.=' ('.$object->societe.')';
- }
- else
- {
- $name=$object->societe;
- }
- // Create a form array
- $formquestion=array(array('label' => $langs->trans("NameToCreate"), 'type' => 'text', 'name' => 'companyname', 'value' => $name));
- $ret=$form->form_confirm($_SERVER["PHP_SELF"]."?rowid=".$object->id,$langs->trans("CreateSpeedealingThirdParty"),$langs->trans("ConfirmCreateThirdParty"),"confirm_create_thirdparty",$formquestion,1);
- if ($ret == 'html') print '<br>';
- }
- print '<form name="cotisation" method="POST" action="'.$_SERVER["PHP_SELF"].'">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<input type="hidden" name="action" value="cotisation">';
- 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($company->name).'">';
- print "<table class=\"border\" width=\"100%\">\n";
- $today=dol_now();
- $datefrom=0;
- $dateto=0;
- $paymentdate=-1;
- // Date payment
- if ($_POST["paymentyear"] && $_POST["paymentmonth"] && $_POST["paymentday"])
- {
- $paymentdate=dol_mktime(0, 0, 0, $_POST["paymentmonth"], $_POST["paymentday"], $_POST["paymentyear"]);
- }
- // Date start subscription
- print '<tr><td width="30%" class="fieldrequired">'.$langs->trans("DateSubscription").'</td><td>';
- if ($_POST["reday"])
- {
- $datefrom=dol_mktime(0,0,0,$_POST["remonth"],$_POST["reday"],$_POST["reyear"]);
- }
- if (! $datefrom)
- {
- if ($object->datefin > 0)
- {
- $datefrom=dol_time_plus_duree($object->datefin,1,'d');
- }
- else
- {
- $datefrom=dol_now();
- }
- }
- $form->select_date($datefrom,'','','','',"cotisation");
- print "</td></tr>";
- // Date end subscription
- if ($_POST["endday"])
- {
- $dateto=dol_mktime(0,0,0,$_POST["endmonth"],$_POST["endday"],$_POST["endyear"]);
- }
- if (! $dateto)
- {
- $dateto=-1; // By default, no date is suggested
- }
- print '<tr><td>'.$langs->trans("DateEndSubscription").'</td><td>';
- $form->select_date($dateto,'end','','','',"cotisation");
- print "</td></tr>";
- if ($adht->cotisation)
- {
- // Amount
- print '<tr><td class="fieldrequired">'.$langs->trans("Amount").'</td><td><input type="text" name="cotisation" size="6" value="'.$_POST["cotisation"].'"> '.$langs->trans("Currency".$conf->currency).'</td></tr>';
- // Label
- print '<tr><td class="fieldrequired">'.$langs->trans("Label").'</td>';
- print '<td><input name="label" type="text" size="32" value="'.$langs->trans("Subscription").' ';
- print dol_print_date(($datefrom?$datefrom:time()),"%Y").'" ></td></tr>';
- // Complementary action
- if (! empty($conf->banque->enabled) || ! empty($conf->facture->enabled))
- {
- $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>';
- // Define a way to write payment
- print '<tr><td valign="top" class="fieldrequired">'.$langs->trans('MoreActions');
- print '</td>';
- print '<td>';
- print '<input type="radio" class="moreaction" id="none" name="paymentsave" value="none"'.(empty($bankdirect) && empty($bankviainvoice)?' checked="checked"':'').'> '.$langs->trans("None").'<br>';
- if (! empty($conf->banque->enabled))
- {
- print '<input type="radio" class="moreaction" id="bankdirect" name="paymentsave" value="bankdirect"'.(! empty($bankdirect)?' checked="checked"':'');
- print '> '.$langs->trans("MoreActionBankDirect").'<br>';
- }
- if (! empty($conf->societe->enabled) && ! empty($conf->facture->enabled))
- {
- print '<input type="radio" class="moreaction" id="invoiceonly" name="paymentsave" value="invoiceonly"'.(empty($conf->global->ADHERENT_BANK_USE) || $invoiceonly?' checked="checked"':'');
- if (empty($object->fk_soc) || empty($bankviainvoice)) print ' disabled="disabled"';
- print '> '.$langs->trans("MoreActionInvoiceOnly");
- if ($object->fk_soc) print ' ('.$langs->trans("ThirdParty").': '.$company->getNomUrl(1).')';
- else
- {
- print ' ('.$langs->trans("NoThirdPartyAssociatedToMember");
- print ' - <a href="'.$_SERVER["PHP_SELF"].'?rowid='.$object->id.'&action=create_thirdparty">';
- print $langs->trans("CreateSpeedealingThirdParty");
- print '</a>)';
- }
- print '<br>';
- }
- if (! empty($conf->banque->enabled) && ! empty($conf->societe->enabled) && ! empty($conf->facture->enabled))
- {
- print '<input type="radio" class="moreaction" id="bankviainvoice" name="paymentsave" value="bankviainvoice"'.($bankviainvoice && !empty($conf->global->ADHERENT_BANK_USE)?' checked="checked"':'');
- if (empty($object->fk_soc) || empty($bankviainvoice)) print ' disabled="disabled"';
- print '> '.$langs->trans("MoreActionBankViaInvoice");
- if ($object->fk_soc) print ' ('.$langs->trans("ThirdParty").': '.$company->getNomUrl(1).')';
- else
- {
- print ' ('.$langs->trans("NoThirdPartyAssociatedToMember");
- print ' - <a href="'.$_SERVER["PHP_SELF"].'?rowid='.$object->id.'&action=create_thirdparty">';
- print $langs->trans("CreateSpeedealingThirdParty");
- print '</a>)';
- }
- print '<br>';
- }
- print '</td></tr>';
- // Bank account
- print '<tr class="bankswitchclass"><td class="fieldrequired">'.$langs->trans("FinancialAccount").'</td><td>';
- $form->select_comptes($_POST["accountid"],'accountid',0,'',1);
- print "</td></tr>\n";
- // Payment mode
- print '<tr class="bankswitchclass"><td class="fieldrequired">'.$langs->trans("PaymentMode").'</td><td>';
- $form->select_types_paiements($_POST["operation"],'operation','',2);
- print "</td></tr>\n";
- // Date of payment
- print '<tr class="bankswitchclass"><td class="fieldrequired">'.$langs->trans("DatePayment").'</td><td>';
- $form->select_date($paymentdate?$paymentdate:-1,'payment',0,0,1,'cotisation',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="'.(empty($_POST['num_chq'])?'':$_POST['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="'.(empty($_POST['chqemetteur'])?$facture->client->name:$_POST['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="'.(empty($_POST['chqbank'])?'':$_POST['chqbank']).'"></td></tr>';
- }
- }
- print '<tr><td colspan="2"> </td>';
- print '<tr><td width="30%">'.$langs->trans("SendAcknowledgementByMail").'</td>';
- print '<td>';
- if (! $object->email)
- {
- print $langs->trans("NoEMail");
- }
- else
- {
- $adht = new AdherentType($db);
- $adht->fetch($object->typeid);
- $subjecttosend=$object->makeSubstitution($conf->global->ADHERENT_MAIL_COTIS_SUBJECT);
- $texttosend=$object->makeSubstitution($adht->getMailOnSubscription());
- $tmp='<input name="sendmail" type="checkbox"'.((isset($_POST["sendmail"])?$_POST["sendmail"]:$conf->global->ADHERENT_DEFAULT_SENDINFOBYMAIL)?' checked="checked"':'').'>';
- $helpcontent='';
- $helpcontent.='<b>'.$langs->trans("MailFrom").'</b>: '.$conf->global->ADHERENT_MAIL_FROM.'<br>'."\n";
- $helpcontent.='<b>'.$langs->trans("MailRecipient").'</b>: '.$object->email.'<br>'."\n";
- $helpcontent.='<b>'.$langs->trans("MailTopic").'</b>:<br>'."\n";
- $helpcontent.=$subjecttosend."\n";
- $helpcontent.="<br>";
- $helpcontent.='<b>'.$langs->trans("MailText").'</b>:<br>';
- $helpcontent.=dol_htmlentitiesbr($texttosend)."\n";
- print $form->textwithpicto($tmp,$helpcontent,1,'help');
- }
- print '</td></tr>';
- print '</table>';
- print '<br>';
- print '<center>';
- print '<input type="submit" class="button" name="add" value="'.$langs->trans("AddSubscription").'">';
- print ' ';
- print '<input type="submit" class="button" name="cancel" value="'.$langs->trans("Cancel").'">';
- print '</center>';
- print '</form>';
- print "\n<!-- End form subscription -->\n\n";
- }
- //print '</td></tr>';
- //print '</table>';
- }
- else
- {
- $langs->load("errors");
- print $langs->trans("ErrorRecordNotFound");
- }
- llxFooter();
- $db->close();
- ?>